COPYRIGHT (C) 1981 COMPILER SYSTEMS, INC.bas1Fq)!6!6!6I͔>ͅ"!͂B"!͂B"!"&F͂B+"$F>ͅ"(F+".!""*"!#F6!36!"AGy!@Gs!"ZGDM*!\G6),F@:,F2)$B*":G*DM*ʹG !6l v!EGq:_@!4*"*ZGs#r*##:\Gw* :EGw!FGq**:FGw*#"!͂Bړ:~ AG@!6G*DMʹ!"!GGq**:GGw*#"*#"!͂B:A@!6*DMʹ!"ͻ2"F !"F6 :\G2\G:\G<2\G:"Fž>!#FҞ:#F=2#F.!#*#F&kBMF DM,F -B:#Fo*CG"$F!y!@Gs#q#p,F*$FDM*@GN#*#F&kBMF ! N#F `i"&F:"F º*ZG#"ZGDM*!\G6*&F#"&F!AG͌B >!#F.!#*#F&kBMF ,F -,F*$FDM*@GN!"&F*&F*$F~:#FM.!#*#F&kBMF ,F -3*$F"CG!"AG*(F"$F#*#F&kBMF ! *&Fs#r!"&F}2@G:#F<2#Fڌe,F@!IGp+q!"JG!!F6*HGN! ~B*HG~=2MG!NG6"*HGN! ~H*HG~=2MG!NG6"*HG>*HG~>3!HH!!F6*HG~2MG!NG6 !LG6:MG!LG/:!F/H:NGkJG͔X!!F6h*JG)_"JG:NGJG͔ڇ!!F6Ú*JG))))_"JG*JG)))*JG) _"JG͂B!!F6:LG<2LG'*JG*LG& ~2OG:OGA:OG 2OG:OG*0"*,*͏& 2PG:PGH:PGH2QGw ҝ& _R W͎ ƀO͔\͔ÄR o͔ÄR ͔Ä͔*DMY :QGh+s#r:PG*DM :QGh+s#r*DMY :QGh+s#r5͔R 2RG:RGH& H >:RG>eͦ!SG6͎ 2TG**"UG!WG6:TG!WGT5!SGw:WG<2WG5*UG"*:SGh+s#r"XG!WG6:TG!WGڛ5XG͜+s#rBKY :WG<2WGq*aGM!H ^#V!6:"F :"F Hñ:"F%!aG6 II:"F?tH!aG6I͙:"F.H"!aG6I:"F"2!aG6Iͺc D!aG6I!aG6d#:]G_!aG6u:]Go!aG6u!aG6 d,!aG6 d 2]G:"F š!aG6â!aG6 d!aG6dB#!aG6d !aG6d !aG6 d["!aG6 d!6ͺtͺc k e:"F % x!6:"F :"F H:"FHWͺ*!"F6 hs !aG6d!6Ґ:"F% !aG6 :"F?tHһ!aG6 ͙:"F.H!aG6:"F"!aG6ͺc !aG6!aG6d#:]G!aG6 ):]G#!aG6 )!aG6 d!]G6f!aG6dB#!aG6 dLx{,=Ü:"FaO>/:"FAO>/hHhҔ:"F_:"F:"F0O> /͇AO>/͇E:2͇:<2O! Hq:"F ͇H:"F\:"F :"FH:"F":"F?1ͺt͙H:"F.HTͺ1:"F%jͺ!^G6Å:"F$€ͺ!^G6Å!^G6c & 2bG  2]G:bG:bGH!]G6A:bG!]G6=:"F::aGH!]G6'!]G6=:"F :"FH+%!cG6> !cG!*cGM!! ^#V:"F.ZM"o:"F2jM"oM"!ҁ!cG6͇B‘M":"F0:"F1HүͺͱҾM"͙M"ͥM":"F.M"!cG6 !͙ ͺC :"F. M"C ͱ M"C ͥ/ M"C > !cG6C !cG6 !͙ͥH\ M"p k !cG6p !cG6 !͙҂  M" ͥґ M" :"F :"F+H:"F-Hҽ M"  !cG6 !cG6!ͥ ͺ  !cG6 !cG6!͙!ͺ!ͱ! M"!!cG6!͙+!M"0!!cG6!͙@!ͺ!cG6!:"F :"F+H:"F-Ht!M"È!͙҃!M"È!!cG6!͙Ҙ!ͺû!ͥҧ!M"û!Ҷ!!cG6û!!cG6!JrF s !3!H!!:cG !1:cG$"!ͺ͝"_G:!F":cG "!cG6"!cG6$"!]G6>:cG4"!]G6?L":cGL" !"_G!]G6>!eGq:eG2cGͺ!]G6@#6!6!fG6>!fG":fG§":"F"‘"!fG6ä":"F ¡"!fG6ä"#":fG":"F""#"!fG6":"F":"F H"":"F""!fG6p":fG# :#!fG6<#:"F'#!fG6<#:<2O! :"Fw!fG6!6!gG6:gG˜#d#Õ#:"F"w#!gG6Õ#:"F :"FHҐ#!gG6o$:gG#ҭ##:"F :"FH#͒$#:"F,#͒$!gG6#s$o$:gG"$:"F"$:"F" $s$$!gG6$s$:gG$o$:gGo$:"F :"FHI$͒$o$:"F,_$͒$!gG6o$l$o$L#!:Bґ$:<2O! :"Fw͔!hG6:!hGں$*hG& N͔!hG4œ$!6!"F6 !aG6͜DEFWHILEFORIFOPENCREATECLOSEDELETE INITIALIZEINPUT READRESTOREPRINT LPRINTER CONSOLE CALLRETURNGOTOGOSUBONCHAINSTOP EXTERNALINTEGER#REAL$STRING%COMMON&())*;+,,PUTENDdd f:g*n+o-p/qtGTt=sEQsGEuLEvNEwNEXTWENDFENDTHENELSEASBUFFRECLTOSTEPWIDTHLINEUSINGPUBLICRECS#ORyANDzNOT{^xLETDIMPOKE RANDOMIZEREMREMARKDATATAB|%INCLUDE%NOLIST%LIST%EJECTERROROUTGOXOR}%CHAIN%PAGESUBABSaASCbATNcCHR$dCOMMAND$eCONCHAR%fCONSTAT%gCOShEXPiINPmINTnLEFT$oLENpLOGqMATCHrINT%MID$sPOStFLOATFREkMFRElRENAME`RIGHT$vSADDwSGNxSINySIZEzSTR${SQR|TAN}UCASE$~VALRNDuVARPTR_PEEKjGET^LOCK\INKEYZUNLOCK[ERRXERRLMODdup rsvwd: $!$"iG*iG~ʓ(B)7 *iGN! *iGN *iG^*iG##"iG](!&"iG*iG~A)B)7 *iGN! *iGNY *iGN! *iGN_ *iG^*iG###"iG*iGN͟ !kG6*iG~!kG')5 **DM7 7 *kG&*iGN_ :kG<2kG(5**",*iG^*iG#"iGÙ(*iG~?@)=A>?@)>?'xnqoprtvuwszy=A>@?)*}#$%&   =fgg   =fAdegfde+*,gfde>?@,=f#$%&#$%&>?'edrtvuswy}z*y}**>?==>?gfdegfsgdefgdef?xs>?=f!nGq!]G:nG—*͜>>!oGq*oGMA*\GMA!qGp+q*pG|OA*pG}OA!sGp+qA*rGDMͭ*!tG6:!tG**tG& NA!tG4*!uGq*uGM :]Gf+͜+!wGs+q*vGM̓*.+*wGM & R HJ+U !yGp+q*xG:]Gq+*xG~g+>*xG#"xGQ+>͚***DMͭ*!{Gp+q͚*͚**zGDMͭ*͚*!}Gp+q͚*͚*!~G6*|G~!~G+*~G&*|GNA!~G4µ+͚*!Gs+p+q+p+q*GDMK++>*GM *GDMK+*GDMK+H,͜,>!Gs+p+q+p+q*GDMK+*GDMK+Hm,*GM *GDMK+*GDMK+Hm,͜O,̀ ҋ,& ƒ,I È,Q Ö,͈ 7 I ;͚*:]G=ʶ, ͭ*â-c ,:2, ͈ **##6*^GM_ **!9s#rBKͭ*͜)̓*}-!96͚**:5,̓*-!94*:5-"*+͚*!9^#V"*& M-7 !9N͟ m-& ͎ !9Hm-# & z-% â-!9^#V"*& •-7 & ¢-$ !9N#F#N#F!,3!*!9N#F'+.:]G>-͚**_GDMͭ* .:]G?-͚** .:]G@ .͚**͜.͚**_GDMͭ*!9N#F#N#F!,;A3!9N͚***!9s#rBKͭ*͜!96)̓*~.*:5!94,̓*w.`."*+!9^#V"*͎ !9ʙ. ͚*)!9N#F!,!Gp+q)K+.̀ .͈ 7  & H.4 .+ ͚***DMͭ*͜%**GDM2!,!Gp+q/*K+*/)Ͳ.7//*G17*!,**K+#0!G6:]G#V/!G6Ñ/:]G$f/!G6Ñ/:]G%v/!G6Ñ/!G6:^G+w>!3ґ/+*0͜:]GA¾/lG*͏³/*GM_ ø/ ͜/$0:]G,:]G=H:]GAH0*,+:]GA0lG*͏ 0*GM_ 0 ͜0$0/)f+̀ |0& 2G;0 :GW0w Q0/ T0͂ y0w :GHt0*GM_ y0, Ú0͈ :Gғ0͂ *^GM_ Ú0*GM_ **"G͜)̓*1:]G>0>!_G͉B0!"_G- 00 !"_G*G"*+ *_GM͟ 7 :]G*0͜.*+ 1*G"*& w H 17 &**GM(!,)!9N#F!+ҡ1)̓*b1!9N#Fͳ4"*+Þ1:]G=z1!9^#V)͗,Þ1:]GA‘1!9^#V0.Þ1!9^#V)͸-ä1t+)!9N#F!+1!9N#F01x̓*1!9N#F01͚*11t+)!9N#F!,;)!9N#F!+q2!9N#Fͦ1:]Gn:]GqH)K+Hn2q̓*L2!96Y2!96 n+!9N#Fͦ1!9N͚*2t2t+)!9N#F!,3;)!9N#F!+3:]G!9wo:]GpHҽ2͜!9N#F1!9~p2͚*:]G!9wo:]GpH3͜!9N#F1!9~o3͚*3͚*2 3t+)!9N#F!,3)!9N#F!+K4{̓*[3!96a3!96!9N#F͇2:*K+:4:]G!9w͜!9~r®3t̓*Ҝ3!96wë3s̓*ҫ3!96v3!9~t3s̓*3!96u!9N#F͇2!9~r3͚*:4!9~t3͚*:4!9~v4͚*:4!9~u4 ͚*:4!9~s+4 ͚*:4!9~w:4 ͚*!9~H4͚*N4t+A*!9N#F!,)!9N#F!+Ҟ4!9N#F33z̓*қ4!9N#F33 ͚*À4á4t+F*!9N#F!,;)!9N#F!+$5!9N#Fa4:]Gy:]G}H!5y̓*4!96 5}̓* 5!96!9N#Fa4!9N͚*4'5t+J*!9N#F!,3͚*!9N#Fͳ4͚*!GqL*K+҄5n,*GM͚***DMͭ*͜:G5͚*É5Q :]G=5c ҹ5& ©57 ö5& ʶ5] 5:25 ͈ **##67 *^GM_ 5^*i6+ P͚***"GDMͭ*͜_)+*:5!G6,̓*$6!G4*:56`*+*G"*>!G?6a *GM͟ *GM͂+R O͂+͚*,̓*i6Ê5:]GA& HҾ6:3lG*͏H͎ Hҳ6n û6 *0.6d >!36͚**lGDMͭ*6͚*̓*7̓*6h ͚*͗7Ö7͚*P*:5̓*!7͚*d7̓*Q7̓*;7͚*N7̓*I7s ͚*d7̓*_7Y ͚*͗7)K+:]G,Hґ7,̓*ڋ7g ͗7g7͚*n,**DMͭ*͜c͚*^*:5:]Gg:]GfH7͜7; A:+d͚*:]G=7<*8c 8:28 ͈ **##6*^GM_ _͚***!9s#rBKͭ*)a*͗,& & HT8c =s+c*:5͚*?+l*:5̓*҅8*:5Ë8͂+:]Gg:]GfHҩ8͜î8? A@+:]G=8c 8!9*͑8B 8B ͜b͚*S͚**:5,̓* 9T͚**:5J++!G6@͚*̓*89D͚**:5X++̓*L98!G6Q9!G6)K+:]G|HҮ9|̓*Ҡ9)+:Gҋ9q E͚*Ð9F͚**:5"*+ë9E͚**:5ý9:GҺ9p ::]G,:]G+H)K+H:]G|H:!G6,̓*: *K+!G :A͚*b:+̓*B::G,:o A͚*?: *K+!G?:B͚*b:)K+:]G|Hb:G B͚*)K+:]G|H:!G6|̓*Ҷ:)+:Gҡ:q E͚*æ:F͚**:5"*+:E͚**:5ý9:G!G:e :G/!G:C͚*G͚*!Gq*GM͚*̓*; *K+;͜:!Gs+q*GM͚* **͗,/+:]G,:]G=H`;*G,+*GM͚* **͗,/+);J͚*:]G@~;*:5H++Ä;t*͠+̓*Ҟ;L͚*v* *͗,å;IK;N͚*+͚*̓*;8̓*;-͚*w* *͗,;:]Gf:]GgH;S.;;P,;/͚*H͚**:5i,+ *:5!Gq! 6*GM͚*)K+A<):5L<l x*͠+̓*^<):5d<͂+N+)K+~<*:5É<m ͂+̓*Ҵ<*:5̓*ұ<*K+ڱ<͜á<ú<͂+!Gq*GM͚**:5,̓*<ÿ<'͚**:5b,+ *:5&͚**:5b,+ *:5]͚**:5;:]GAX=& 1=8 S=:3lG*͏HS=7 !]G6=:]G=̓*HҖ=/+!9^#Vz*͗,3s+!9N#F:5͚*>̓*=:]G¯=!]G6=:]G¿=!]G6=s !]G6>!]G>:]G!9w͜!9N!> ^#V>͊5>7>ͦ7>Q5>Q5>6>j6>6>^͚*>9>[:>Z:>a;>ͫ;>Q<>R<>Wͻ<>Vͻ<>)͚*>X͚*> =>*͚*><><><>====> >>>>%>->3>;>C>I>O>W>_>g>o>w>>>>>> *!9N#F5!,3:]G=?̀ > ͈ 7 *^GM_ ͜? ;:3&?*õ@:]G=X?c @?*õ@J?͈ *^GM_ 7 **"lG`?*õ@:4<2423͜)̓*ҳ?>!96:]G,:]G=Hҩ? ,+>!94? *+ù?!96>!9? *lG"*!9N͟ s̓*@͚**lGDMͭ*͚**lGDMͭ**:5͚*Û@̓*@*lG"* .@̓*.@*lG"* f̓*<@ *lG"* V@͚**lGDMͭ*)/*lG"* l@Ô@A̓*҃@C*l@Ô@̓*Ҕ@D*l@+*lG"* ڰ@6͚*!363e͚*!9N#F:59+̓* A)ͷ@!9N#F@̓*Af͚*!9N#F@g͚*A *=g̓*A@|*!9N#F6!,: /:3HGA! 6̓*Ad̓*zAV+(͚*}*:5W+Q5þA)ͷ@:]G>:]G?HҠAQ5æA *@:]G¹Af͚*͜.Ag͚*A *=g̓*AGA *6*!,*K+B)Ͳ.̓*A?B.Af̓* BA)/A̓*)BC*B̓*:BD*B̓*KBE*B:]Ged̓*HeB ͚*DM!>))zB =rB_{ozg_{_z#WISA valdn RECCA^7PL`wq(