IMD 1.17: 3/11/2012 17:36:02 c basic 2.8 ts803                 CRUN23 COM CRUN23 COM CBAS COMCBAS COM&XREF COM8 !READ ME "-------------------- $COPYRIGHT (C) 1978, 1979, 1980 COMPILER SYSTEMS INCxw #c        !q!q{`i!N#F+ͽ!!q#xw6 ɗyOxG~O#~G+~#!v=:mG:=!ff!>v)f8!fYrØ:m2̈́Ø"Q?!F!?!FM2M!!"N>2P*Q~#"Q?*Nf4=¸F*Nf=!P5*N#"Næ: ͘!"l |8|.}/o|/g#>2b^#V#}o|gG:*l+)"l{2Ø'd !~5*~+"0:ɷG>0͙x=Í*uw# ::s:r6,#"u:> >-!">2`i"u:nl : 2r2q2sCRUN2 COMCRUN2 COM q#0:?ɇ:=2:<2Я/2ɯ2!P +T]~ kG+~Vx+T] Gʑ#~|!~!G!Øz/g{/o# |>|>!  + ! > W!z#?>!8W!w#zW@68w`i#o͘!z@82 W2_!~ȓ_Aw8t{82z+w>2`i22?G!ҩr×f!~w:=2P:!PÔ!vÔ!͘2p2t> ͙ > 2!n~2pw͙:@2t!s T T 6>2r> 2q 6!tp_ 2r/<2q N:Oš 2r2t=:ʋ =2z:w> ęx :wʧ ͙:s!t6 y@Gʿ /%͙22wy P-------------------------------------------------- CRUN2 Version 2.8 Serial No. 3000-0362-004370 All rights reserved Copyright (c) 1981-1983 Digital Research, Inc. ------------------------------> ' P'> '!~ȯw+6>+6=,)`i~G2x2#:W:d!ɯ' #g7>'w #s7>'w #Æ>Ý2n2:W¸6!:nw eN6!e!e:nw:eG2mxW!e6rů2=>@2>2: =2 ~#ɯ :2?x{2  2  R+i-l>20iw.ʜEʪeʪ G+: )t: /2 t ʪG-_ʿx G OxG{G!~+ 2!xw22x6 :2rGy@w:w!x>5 >5 4!r5<2z:r!qG:sN :tOxGxx W?< =[ zz!~x l :z¦ :x!w  :r : >-͙ G:yOW*ʺ $º $ :x!w  O z͙ y͙:n :  :w : :r>   0̙͇ !r~" 5n͙ :r͌2:n7 !o~Қ 6>.͙:s[ :tG:qS GT 2qx͇͌s !q~s 5n͙[ :q͌:nš *u+~0 6 à .ʕ #6 "u:s >E͙!t:n± 5~ /<-Gy͙x/ Gy͙x0͙:x ͙2x2w:n > ͙:p2n*u"u:#j/j!j&j$/N $j>$͙*AN *j>*)-XN #j.j>-)\N j͙N *u`i~Aҡ6G>Mw!:A<2)T])n_:=2:}/o|/g# WSN>nN6͜Né6!~>w2:AVNNkKNC͜N6>;n:!wN07HWgtA1A@P\d5bEHyed"BA1PYTAE(('@ @@F#~ O͊*Ds#r~# "**D {_zW*Ds#r#w#w#w*Dw#w#s#r!D^#V^#Vzʄ###~]#{_zW{_zW+++++ZMOcx!W"+6 #x—+6{z+++Fr+Nsq#p#s#r#6`i##s#r*+^#VN#Fx###~p+q`is#rR*c+6++uDp+q>tD?C>*tD~!vDq:vD_AO>/!wDq:wD0O> /!yDp+q*xD~2zD:zD=2zDi*xD#"xD*xDNͼ*xDwHz*D"}DÄ*D^#V"}D Ҕ*D"{DÞ*D^#V"{D*{D~2D!D6:D!D*{D*}D >*{D*}D~>*{D#"{D*}D#"}D!D4ª>*D>w#63*D*DN#F*DC!DsMCQ:DJ:D<*DwQ*D:Dw:Df*D^#V"DÓ:D†*D:D̈́B*D~(C"DÓ*DDxB+"D*D>D?CN6"D>C¼DM͊"D*DDM*Da*D*D w*D*Ds#r3*DN#F`id  22`i#""GOW~# A /? &? !? \A #A NUc# y2z2~!~a :w*g 5*~#"2ɯ2o: NNc`i"u:# $¤ N $ >$͙:Ç *¶ N * >*Û . N #>.› 26 - N # .>-› >2w2O6 >2w \N ę zQS͓6N6!~G w!o|g~x>NN6S͜=KN W2z6͔ D͗!2>bnN6Ϳ6|}!#:ĘN:I@hfffff?hfffffA>533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(HdA1AAXS&YA1AIy&cypt dYd?Sh&&iyv&3uF=84SY592x++^#Vz!~*^D~2nD*^D#"^Db:F9 b :`DKþ:`D:aDTH:bDRHҸ!D6b ,͂"Db*^D~,¦b ͂"Dõ>D?Cµûb>2!nD!nD62:nD2+D,D*nDM*^Da!+D"^D:nD=2nD*^D#"^D!p%HPMc*D>JC!>*D~2D*D^#V"DDMͨ*D^#V"DDMͨHT>*D~2D2D!D6:D!Dڌ*D&*D~\…!D4!D5!D4c*D~2D!Dҝ>:D=2D:D!DO:D:D<2DO:Dä>!Dq!D6+6:D!D+:D!D>:D/*D&*D~@PEv2(<PdxPRINTER BUSY?$ IN LINE $ERROR $WARNING $IMPROPER INPUT - REENTER $AT LINE $1+D7&1+Dͧ&#v!Fq*F& !Fq:F!F6*D|F !F6F :F. !F6  ÿ*F& *N Ç 2y > 2y N # ,+ >2 !q.G >2oN #G ; !qq^Z N M !sq-k >2xN *uDM*|#"|~:{=2{>| > s Ù:~¡ SNc`i"|xʬ 2{bk"u:/ ! & \N ęN ÷ ͈ N ʛ / ͈ N *u|  s ͙ `i28 2>Aj6KN2!>nN6!z>nSN:AO>~/G͜r͜NN6S :W z6͗/:Һ͜:͜/͗!~w::NXT(E133@P5D @cbe@(u?Bp6W>W"f(@E3SxN͜N6͗SNÃ͜! DM={ Üxʴ ʴ< O*D6|͊"q**Ds#r#6LScDs+q!`D6:nD2mD*^D"kD:nD*^D:oDH:pDHa:`D [*^DNͼ:`D<2`DO!`D Hq:nD*^D~ Hҁb!"rD!qD6:`D!qD*qD&`D >9~0HҴ*rD!rDB*qD&`D >_"rD!qD4*rD:mD2nD*kD"^D*D##~*DN#F!\H!D6$.!!D4$>!D4>*D&*D~2D:D|:D?N>:D#e*D&*DN+:D!|*D&*DN!D6*D&*D:D!Dq!"D:D, HҹSSc*D^#V"D*D*DN#Fq#p%SSc*DN#F!DJC*DN#FͨHD|:F/HF !F6!Fq:E1*FM͚<*F&   !Fp+q*F~$h*FN*F#"FN!Fp+q*F)))!Fp+q!F6>!F!F60*F&) F4Cھ*F&) F4C+s#r!F4Ï*FM!F4!"Fr+s+q+p+q*!F+"!F!C*F: Fw*F#"F!   $Fp+q*#F|O*#F}O>!DJC.<H*DDMv==!"E>!EJCJ2:E_ ͊ ͊b2!&Fp+q<:E{=!E6=FH*%FDM !(Fp+q:E2)F!E6=MH*'FDM:)F2E!*Fq**FM:*F_:*F*D#"D*D"D>(C"D*D"D"D!,Fp@F*>F^#V">F*@F*D~2KF!"BF*D"EF*D"GF!DF6*D~!DFe *DN#F*BFB+s#r"BF!DF47 *EF"D*GF"D*BF*KF&B*D~<_DM͊"EF"IF*D*IF w#6!DF6*D~!DF *IF##"IF*D*IFN#Fq#p!DF4¦ *D*EFs#r*D~2PF*D^#V"LF>C!E"!ZFp+q*YFDMͨ#*YF~2[F!\F6:[F!\FW#*YF#"YF*YFN*E#"EEBCP#2!\F4%#*D"5*D"5!]Fq:nң#D !D!C!Ds:]FҒ#D6;Ø#D#!n6!^F6:^F<2^FO>#*^F&5) >JC#*^FM;é#ͤ#< *D|$ $*D#"D!"E*EDM*ED*DDMNj6&:E1&H$6&*D6 "D6=p&*DDD2C-5>_*D"D"D*D"D+"D*D"D*D"D"D"D*D"D"D*D~&*D#*D w*D>?*D#w*D~&5*DN!4 ^#V*DDM6*DDM͜**D*D͜B+s#r5*D*D C+s#r55͋!͢55ͯ5ͼ5͋!5ͱOA5jOA5*D*D^#VN#FͬOA5*DB+s#r5*D#"D*D*DN#Fq#p*D#"D5*DDM *D^#V"hF*D*hFN#Fq#p5͢!5*D*DH$|%5*D^#V"kFDM/>kF?CH5,*kFDM5525:nڡ,!mF6:mF<2mFO!  ^#V"nF!EMCp,M,nF7C‡,*mFMá,EnF2Cҙ,2á,*nFDM"5`"5ҷ,`"ÿ,*D##"D5L"59"5͇5!E6*D"E#5!E6|%5!E6%5"+qD+F2C!.Fp+q*-FD4C5*-FN#Fi*D*-Fq#p!1Fr+s+q*D#~ž*0F^#V"0FDBCk*0FDMi*D"0F*0F^#V"2FDMҞ*2F~!/Fڞ*2F+"2F~ž*0F^#V!*DDM*Dn*DDM*Dn*DDM4Fnͯ*D4Fn*DDM *DN#F*Dn*D~*D~*EAc*D^#V"QF*LFN#F!OFq+6:OF!NFP!͂!*D*LF^#VN#FB*QF "QF!NF4!͂!*LFQF4Ce!BSc*LF##*QF*PF&B *Dq#p*LF##"LF*DDM *D^#V*DDMn*DDM 3*D^#V"SF*D4C8"*SFN#F!*SFN#F `i"UF~=w!*SFN#F*DN#F'"*DN#D :D:DH%$#!D"E*D& 6 *D&D EBC*E"D=VH*D#"D!DMCu$DOc*D~*E#"E~:Eª$E7Cң$9*ED w9$:E¶$z$:E$^$!"E̓$2_F $$:E$!D"E$:E$*E"E$*D"E:DDMNj5*DDM6*DDM͗*DDMNj5*DDM6*DDM*DDMNj5U55n'*Dn*D6A'҉'҆'*Dn'ҝ'EN͓*D>w*DDM*DDM6*DDM*DDMN*DDMyj5*D*DxBs#r5*D*D4C+s#r55*s#r*Dn&"D35*DN#Fͨ-*W**DN#FͨF*ͼW**D*D^#VN#FͶ5*D#:D<2DO!D q#p*D^#V"D5*D&D) ^#V"D:D=2Dҥ*GRc5 5 57$ھ*H$%5x"DM#5Ͳ"DM#:n*5*DN#FͲ8*DN#F8:5e#L;5*DN#F;5*D>w5*DDM͔5͟*DMS*DDMN5e-*Dq#pÁ-x-*D>w#6Á-*D>w#65*DDMͩ5*DDM5*DDM.5ͯ*DDM*DDMͩU55*DDM5*DE4C>?CH-LTc*DE2C-<*D>JC*D>JC*D~*D~*D#~*D#~!w#6:҆FO͓*Dn!6*DDM6ҟ͗å͜Ϳ*Dq#p*DDM6*DDM*D">F!"@F*>F>JC *>F ~ *>F>F2C>(C*@F"#F `i"UF~#"*UF#DM*DN#F `i"UF*UF4*DN#F*Da*DDxB++s#r Y"9"\"*D^#V"DD*DDM6:nҜ"Dn !D!C!Dsî"D!D!C!Ds!D:n"*DN#FD͔ !D!C!Ds!D"*D^#V!XFp+qWFE2C# *E#"_F"%!`F6,)%!`F6":E#%*E#"E̓$2_F!`F:_F+~ HR%*E#"E̓$2_F)%:`F"x%̓$2_F,:_F Hx%Z%$>E?C—%*D>w#6%*EM*D6"aF>Cº%*E#DM͊"aF*aF#*EDM*Ea*aF*Es*D*aFs#r3$>!EJC &>!EJC&D*D^#VN#FB+s#r:cF,(*DB#+s#r55K(ZD͓*Dq#pb(*D*DN#F^#VͩB+s#r:cFx(*DB#+s#r5Ҏ(*D>w#6(%ҡ(*D>w#6(*D^#V"fF!"dF*DdF2C(*D^#V*fFB+s#r*dF"dFұ(5*DN#F+q#p5*DB+s#r5X#5*DN#FͲ8X#57$*+H$-+K5*D*D^N͔5!E6%5!E6|%5x"DM ;5Ͳ"DM::n|+5!jF6:jF<2jFO!5 >JCʢ+Ç+ͬ6*DN#F*jF&7*DN#F͘85*DN#F*Dn5*D+"D5*D>w57$,DN#F"5*DDMy5"pF͓BDM*pF|<.͜*DDMN5*D|t. F *F&C*F& >B"z.*D"5HҔ.NL͓Ü.*DDM5*D*Es#r5*DN͍*Dw#65*D^#V"rFDMͨ.CAc*rF#~2tF*D:tFw#65͊"uF*uF6   *D*uF# w*D*uFs#r35͓5*DN#F2wF*wF&*Dq#p5͓5͓5:n2yF!n6x"!xFs!D5#~ …/:D=2DDË/D3:yF2n5*DN#F*DN#F_D*DDMN5*D*D^#VN#F́<"zF*D*zFs#r5*DN#F<"|F*D*|F*DN#Fͬ6*D*D^#VN#F7*DN#F̈́85*D^#V"F*D*F w5D9n"5*D^#V"F>Cʢ2*F~2F!F6:F!Fڟ2*F&*FN͊!F4€2ç2?͊ ͊5*D^#V"E>C2!"E5*DN#F*DDMN5*DDM 5*DDM͔*DDM6223<3E3f3}3334ç&!cF6%:5:cF/2cF*DB#+s#r,T5:cF/2cF*DB#+s#ro5ZD͓*DnÇ5*DDM6*DDMS*DDMNj*5*8?8w#:58FIc>? 8*5*5}O|Gxr# 28*5*5#{z"5b76]8!8>=6*5)5w#w5^#VzEOc#"Db76 6!8EMcb76<ʊ8!8J75 s#rJ75 ^#VzUFc"5*5)5 ^#V"56*5"5!56Ô6!5~w9:5BR=c:6;"à::n6;,!5~6Ԡ: `i#~ OĠ:=%;x `i#N͠:=>;*5}_|Wj;zj; ͠:Z; ͠: ͠:7*5|FEc#"D*5"D*5"D*5!=~;! DM!)*5+"5!5~w7! 6ï;J75 ^w#Vwz;UCc"5͔665:͔66=65 :Dt>AFBC>FCcAFBC+>CCcAFBC=>DCcAFBCO>PCcADBCb>SCc*D"F*D"FA>A"FF"F"DA"F*F"F"DA"F*D"DA"F*D "D*D*DA"DBC!C>A*D"FͦA@:F3?ͦA*Fw>*F#"F>s#r5*D^#V"~FN*Dq#p52F*D:Fw#65͇5*D~=w*D~=HW0IOc*D~w#65 *Dw#65ͤ#!D6!\"5*DN#Fb7 *D"D"D6=!D6*D+"D*D+"D555!5~ /w5<ECc5!5~ w5*5DM!"6>26zW{_!65}6*6e6 |g}o"6*6|g}o"6P6*6*6DM*5>͌6"586*5"586xʺ6>@>6NBc`i>)=6> DM͊"56 *5 "5"5}257Ô65*5!URcx9RIc *5E6*5{o>g+{z_zGyW*5  R9~h95:6r͛8sp95:s!5~w"57͔6*5!)DM! !5>w:529'6³9!95͞6á9!8:5*5 4;895:͌6"5~9:5~9*5~w;9 *5|9ERc`i6w#wJ75 ^w#VwzUDc"5͔665 w#w=6*}o|gyx"586!͊"5ͨx25b7*5 6?5=`*5O ~@:F?͔AKA͔A@:FI?͔A*F"F*F6͔AͦAF?͔A*F~<*Fw/?@:F~M@ͦA~J@:DG@:F=@*F"F*F^#V"FDBC=@>F?C+s#r*F ~<*F w©?*F 6:F=2F=@*F*F& "F*F^#V"F*F##"F!"FFF2C=@*F^#V"FDBC'@>E5*DDxB+:D<2Do&)q#p5*DN#Fͨ<1NUc!n6*DN#F 5e#5*DN#F<5:En1<*E"E!E65:E҆1<*"E>C›1!"E!E65n"K5*DN#F͜5*DN#Fͬ6*D*D^#VN#F7*DN#FL82F:F155*D*D^#VN#F1<5& '.'O'U''''/({((()),)2)>)?)E)N)T)`)j)t))))))*Z********++0+F+Q+\+j++++++ ,8,;,A,,,,,,,,,,---(-3-R-------..G.}..... /(/G/O/W////0090?0e0{001)1M1U1d1|1111282U2a222!*5 DM!56J75~#FDc*5r+s"5:5=7|7!5~@w7`i"5)x\7>>FNcx8*5#  *5G8ړ7:”7w#>277ڪ7 œ7.¨7277 ÷7:77.7# 77*7:5>*7>276?#`7{7_:89 :V:r: 757*5|79 *:7!5~ЇwRWc͔6*5*5{_zW{z<,6}:͞6=]:͔6!8!5>w*5|WDc#"D*5"D*5"D7*5|ʸ:*5|REc+"5;8:5:*5"5:5:~9*5 5*5q!5>w:n6;,!5~6Ԡ:"O <=625NO INTERMEDIATE LANGUAGE FILE $!E"F!\"F:D|=H "D!6:F|=. *FF -t=@!F"FͦAO>Ҙ=VIc ͦA2F*>!F6ͦA:F<2FO!F Hqy$=è=*FFD:=CNc*FDMN*F"F*DMC=AØ=F?C+s#r*F ~<*F w'@*F 6*F###"F*F"F?*F"FQ?@͔A:F6:F7H:F`H:FHқ@ͱA*FDxB+*Fq#pA@:F.@ͱA*F^#V)))F*Fq#pA@:F@ͱAA>:D@B*FFD2C *F 6I*F 6   N*F 6T*F 6 *F 6*F @A:D7A  =H *F *F#"F!E!CړA!D"FD AAzA*F6ÓAoE AAʓA*F 6*F*F w*F#"FKA*F~2FͦA*F#wͦA*Fw*F##"FͦAO`iCͦA_MNc *D"F>F?CB-------------------- $COPYRIGHT (C) 1978, 1979, 1980 COMPILER SYSTEMS INCxw #c        !q!q{`i!N#F+ͽ!!q#xw6 ɗyOxG~O#~G+~#!v=:mG:=!ff!>v)f8!fYrØ:m2̈́Ø"Q?!F!?!FM2M!!"N>2P*Q~#"Q?*Nf4=¸F*Nf=!P5*N#"Næ: ͘!"l |8|.}/o|/g#>2b^#V#}o|gG:*l+)"l{2Ø'd !~5*~+"0:ɷG>0͙x=Í*uw# ::s:r6,#"u:> >-!">2`i"u:nl : 2r2q2s*F 6*F^#V"FA*D"F*F^#V"F>CuB*F>JC:B*F ~*F ~HhB*F DMrB*F^#V"FBi`N#Fog_og_{ozgi`N#FogDM!>))덑o|gB =®B^#V))) DM!>))B =BYP뗖_>#Wi`/o/g_Pq#0:?ɇ:=2:<2Я/2ɯ2!P +T]~ kG+~Vx+T] Gʑ#~|!~!G!Øz/g{/o# |>|>!  + ! > W!z#?>!8W!w#zW@68w`i#o͘!z@82 W2_!~ȓ_Aw8t{82z+w>2`i22?G!ҩr×f!~w:=2P:!PÔ!vÔ!͘2p2t> ͙ > 2!n~2pw͙:@2t!s T T 6>2r> 2q 6!tp_ 2r/<2q N:Oš 2r2t=:ʋ =2z:w> ęx :wʧ ͙:s!t6 y@Gʿ /%͙22w{ozgi`N#Fog^#V) C_{ozgO{ozgi`N#Fogo&og_{_z#Wi`N#FogMXList y P-------------------------------------------------- CRUN2 Version 2.8 Serial No. 3000-0362-004370 All rights reserved Copyright (c) 1981-1983 Digital Research, Inc. ------------------------------> ' P'> '!~ȯw+6>+6=,)`i~G2x2#:W:d!ɯ' #g7>'w #s7>'w #Æ>Ý2n2:W¸6!:nw eN6!e!e:nw:eG2mxW!e6rů2=>@2>2: =2 ~#ɯ :2?x{2  2  R+i-l>20iw.ʜEʪeʪ G+: )t: /2 t ʪG-_ʿx G OxG{G!~+ 2!xw22x6 :2rGy@w:w!x>5 >5 4!r5<2z:r!qG:sN :tOxGxx W?< =[ zz!~x l :z¦ :x!w  :r : >-͙ G:yOW*ʺ $º $ :x!w  O z͙ y͙:n :  :w : :r>   0̙͇ !r~" 5n͙ :r͌2:n7 !o~Қ 6>.͙:s[ :tG:qS GT 2qx͇͌s !q~s 5n͙[ :q͌:nš *u+~0 6 à .ʕ #6 "u:s >E͙!t:n± 5~ /<-Gy͙x/ Gy͙x0͙:x ͙2x2w:n > ͙:p2n*u"u:#j/j!j&j$/N $j>$͙*AN *j>*)-XN #j.j>-)\N j͙N *u`i~Aҡ6G>Mw!:A<2)T])n_:=2:}/o|/g# WSN>nN6͜Né6!~>w2:AVNNkKNC͜N6>;n:!wN07HWgtA1A@P\d5bEHyed"BA1PYTAE(('@ @@F#~ O͊*Ds#r~# "**D {_zW*wDs#r#w#w#w*wDw#w#s#r!wD^#V^#Vzʄ###~]#{_zW{_zW+++++ZMOcx!W"+6 #x—+6{z+++Fr+Nsq#p#s#r#6`i##s#r*+^#VN#Fx###~p+q`is#rR*c+6++UDp+q>TDC>*TD~!VDq:VD_AO>/!WDq:WD0O> /!YDp+q*XD~2ZD:ZD=2ZDi*XD#"XD*XDNͼ*XDwHz*D"]DÄ*D^#V"]D Ҕ*D"[DÞ*D^#V"[D*[D~2`D!_D6:`D!_D*[D*]D >*[D*]D~>*[D#"[D*]D#"]D!_D4ª>*D>w#63*D*DN#F*tDB!vDs-CQ:oDJ:vD<*DwQ*D:vDw:oDf*D^#V"rDÓ:oD†*D:vDdB*D~C"rDÓ*DtDXB+"rD*D>DCN6"pD>B¼DM͊"pD*pDDM*rDa*D*pD w*D*pDs#r3*DN#F`id  22`i#""GOW~# A /? &? !? \A #A NUc# y2z2~!~a :w*g 5*~#"2ɯ2o: NNc`i"u:# $¤ N $ >$͙:Ç *¶ N * >*Û . N #>.› 26 - N # .>-› >2w2O6 >2w \N ę zQS͓6N6!~G w!o|g~x>NN6S͜=KN W2z6͔ D͗!2>bnN6Ϳ6|}!#:ĘN:I@hfffff?hfffffA>533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(HdA1AAXS&YA1AIy&cypt dYd?Sh&&iyv&3uF=84SY592x++^#Vz!~*>D~2ND*>D#">Db:kF9 b :@DKþ:@D:ADTH:BDRHҸ!D6b ,͂"Db*>D~,¦b ͂"Dõ>DCµûb>2!ND!ND62:ND2 D D*NDM*>Da! D">D:ND=2ND*>D#">D!P%HPMc*D>*C!>*D~2iD*D^#V"dDDMͨ*D^#V"bDDMͨHT>*bD~2gD2fD!jD6:fD!jDڌ*jD&*bD~\…!jD4!gD5!jD4c*dD~2hD!iDҝ>:iD=2aD:gD!aDO:hD:aD<2aDO:aDä>!kDq!mD6+6:fD!lD+:hD!kD>:mD/*lD&*bD~@PEv2(<PdxPRINTER BUSY?$ IN LINE $ERROR $WARNING $IMPROPER INPUT - REENTER $AT LINE $1 D7&1 Dͧ&#v!Eq*E& !Eq:E!E6*D|E !E6E :E. !E6  ÿ*E& *N Ç 2y > 2y N # ,+ >2 !q.G >2oN #G ; !qq^Z N M !sq-k >2xN *uDM*|#"|~:{=2{>| > s Ù:~¡ SNc`i"|xʬ 2{bk"u:/ ! & \N ęN ÷ ͈ N ʛ / ͈ N *u|  s ͙ `i28 2>Aj6KN2!>nN6!z>nSN:AO>~/G͜r͜NN6S :W z6͗/:Һ͜:͜/͗!~w::NXT(E133@P5D @cbe@(u?Bp6W>W"f(@E3SxN͜N6͗SNÃ͜! DM={ Üxʴ ʴ< O*D6|͊"q**Ds#r#6LScDs+q!@D6:ND2MD*>D"KD:ND*>D:ODH:PDHa:@D [*>DNͼ:@D<2@DO!@D Hq:ND*>D~ Hҁb!"RD!QD6:@D!QD*QD&@D >9~0HҴ*RD!RDͦB*QD&@D >_"RD!QD4*RD:MD2ND*KD">D*D##~*DN#F!\H!mD6$.!!kD4$>!lD4>*lD&*bD~2nD:mD|:nD?N>:nD#e*kD&*dDN+:nD!|*kD&*dDN!mD6*kD&*dD:nD!oDq!"tD:oD, HҹSSc*D^#V"tD*D*DN#Fq#p%SSc*DN#F!tD*C*DN#FͨHD|:E/HE !E6!Eq:E1*EM͚<*E&   !Ep+q*E~$h*EN*E#"EN!Ep+q*E)))!Ep+q!E6>!E!E60*E&) ECھ*E&) EC+s#r!E4Ï*EM!E4!Fr+s+q+p+q*F+"FC*E:Fw*E#"E!   Fp+q*F|O*F}O>!D*C.<H*DDMv==!"E>!E*CJ2:E_ ͊ ͊b2!Fp+q<:E{=!E6=FH*FDM !Fp+q:E2 F!E6=MH*FDM: F2E! Fq* FM: F_: F*D#"D*D"D>C"D*D"D"D! Fp F*F^#V"F* F*D~2+F!""F*D"%F*D"'F!$F6*D~!$Fe *DN#F*"FͳB+s#r""F!$F47 *%F"D*'F"D*"F*+F&ͱB*D~<_DM͊"%F")F*D*)F w#6!$F6*D~!$F *)F##")F*D*)FN#Fq#p!$F4¦ *D*%Fs#r*D~20F*D^#V",F>B!E"!:Fp+q*9FDMͨ#*9F~2;F!F6:>F<2>FO>#*>F&5) >*C#*>FM~;é#ͤ#< *D|$ $*D#"D!"E*EDM*ED*DDMNj6&:E1&H$6&*D6 "D=p&*DDwDC-5>_*yD"D"D*{D"D+"D*}D"D*D"D"wD"D*D"D"D*D~&*D#*D w*D>?*D#w*D~&5*DN!4 ^#V*DDM6*DDM͜**D*D|B+s#r5*D*DB+s#r55͋!͢55ͯ5ͼ5͋!5ͱOA5jOA5*D*D^#VN#FͬOA5*DB+s#r5*D#"D*D*DN#Fq#p*D#"D5*DDM *D^#V"HF*D*HFN#Fq#p5͢!5*D*DH$|%5*D^#V"KFDM/>KFCH5,*KFDM5525:nڡ,!MF6:MF<2MFO!  ^#V"NF!E-Cp,M,NFC‡,*MFMá,ENFCҙ,2á,*NFDM"5`"5ҷ,`"ÿ,*D##"D5L"59"5͇5!E6*D"E#5!E6|%5!E6%5+qD FC!Fp+q* FDC5* FN#Fi*D* Fq#p!Fr+s+q*D#~ž*F^#V"FD"Ck*FDMi*D"F*F^#V"FDMҞ*F~!Fڞ*F+"F~ž*F^#V!*DDM*Dn*DDM*Dn*DDMFnͯ*DFn*DDM *DN#F*Dn*D~*D~*EAc*D^#V"1F*,FN#F!/Fq+6:/F!.FP!͂!*D*,F^#VN#FͳB*1F "1F!.F4!͂!*,F1FCe!BSc*,F##*1F*0F&ͱB *Dq#p*,F##",F*DDM *D^#V*DDMn*DDM 3*D^#V"3F*DC8"*3FN#F!*3FN#F `i"5F~=w!*3FN#F*DN#F'"*DN#D :D:DH%$#!D"E*D& 6 *D&D E"C*E"D=VH*D#"D!D-Cu$DOc*D~*E#"E~:Eª$ECң$ͨ9*ED wͨ9$:E¶$z$:E$^$!"E̓$2?F $$:E$!D"E$:E$*E"E$*D"E:DDMNj5*DDM6*DDM͗*DDMNj5*DDM6*DDM*DDMNj5U55n'*Dn*D6A'҉'҆'*Dn'ҝ'EN͓*D>w*DDM*DDM6*DDM*DDMN*DDMyj5*D*DXBs#r5*D*DC+s#r55*s#r*Dn&"D35*DN#Fͨ-*W**DN#FͨF*ͼW**D*D^#VN#FͶ5*D#:D<2DO!D q#p*D^#V"D5*D&D) ^#V"D:D=2Dҥ*GRc5 5 57$ھ*H$%5x"DM#5Ͳ"DM#:n*5*DN#Fʹ8*DN#F895e#;5*DN#F~;5*D>w5*DDM͔5͟*DMS*DDMN5e-*Dq#pÁ-x-*D>w#6Á-*D>w#65*DDMͩ5*DDM5*DDM.5ͯ*DDM*DDMͩU55*DDM5*DEC>CH-LTc*DEC-<*D>*C*D>*C*D~*D~*D#~*D#~!Fq*D##:Fw!Fq*D:F`*Dq#pi*D>w#6:҆FO͓*Dn!6*DDM6ҟ͗å͜Ϳ*Dq#p*DDM6*DDM*wD"F!" F*F>*C *F ~ *FFC>C* F"#F `i"5F~#"*5F#DM*DN#F `i"5F*5F4*DN#F*Da*DDXB++s#r Y"9"\"*D^#V"DD*DDM6:nҜ"Dn !DC!Dsî"D!DC!Ds!D:n"*DN#FD͔ !DC!Ds!D"*D^#V!8Fp+q7FEC# *E#"?F"%!@F6,)%!@F6":E#%*E#"E̓$2?F!@F:?F+~ HR%*E#"E̓$2?F)%:@F"x%̓$2?F,:?F Hx%Z%$>EC—%*D>w#6%*EM*D6"AF>Bº%*E#DM͊"AF*AF#*EDM*Ea*AF*Es*D*AFs#r3$>!E*C &>!E*C&D*D^#VN#FͳB+s#r:CF,(*DB#+s#r55K(ZD͓*Dq#pb(*D*DN#F^#V͉B+s#r:CFx(*DB#+s#r5Ҏ(*D>w#6(%ҡ(*D>w#6(*D^#V"FF!"DF*DDFC(*D^#V*FFͱB+s#r*DF"DFұ(5*DN#F+q#p5*DB+s#r5X#5*DN#Fʹ8X#57$*+H$-+K5*D*D^N͔5!E6%5!E6|%5x"DM:5Ͳ"DMͮ::n|+5!JF6:JF<2JFO!5 >*Cʢ+Ç+ͮ6*DN#F*JF&7*DN#F͚85*DN#F*Dn5*D+"D5*D>w57$,DN#F"5*DDMy5"PFsBDM*PF|<.͜*DDMN5*D|t.E *E&B*E& >B"z.*D"5HҔ.NL͓Ü.*DDM5*D*Es#r5*DN͍*Dw#65*D^#V"RFDMͨ.CAc*RF#~2TF*D:TFw#65͊"UF*UF6   *D*UF# w*D*UFs#r35͓5*DN#F2WF*WF&*Dq#p5͓5͓5:n2YF!n6x"!XFs!D5#~ …/:D=2DDË/D3:YF2n5*DN#F*DN#F_D*DDMN5*D*D^#VN#F3<"ZF*D*ZFs#r5*DN#Fz<"\F*D*\F*DN#Fͮ6*D*D^#VN#F7*DN#F͆85*D^#V"dF*D*dF w5Dͼ9n"5*D^#V"fF>Bʢ2*fF~2hF!iF6:hF!iFڟ2*iF&*fFN͊!iF4€2ç2?͊ ͊5*D^#V"E>B2!"E5*DN#F*DDMN5*DDM 5*DDM͔*DDM6223<3E3f3}3334ç&!CF6%:5:CF/2CF*DB#+s#r,T5:CF/2CF*DB#+s#ro5ZD͓*DnÇ5*DDM6*DDMS*DDMNj*58*8?8w#:58FIc>? 8*5*5}O|Gxr# 48*5*5#{z"5d76_8#8>?6*5)5w#w5^#VzEOc#"Dd766#8EMcd76<ʌ8#8L75 s#rL75 ^#VzUFc"5*5)5 ^#V"56*5"5!56Ö6!5~w9:5BR=`i#N_:=;*5}_|W/;z/; _:; _: _:7*5|FEc#"D*5"D*5"D*5!,! w#w*5+"5!5~w7L75 ^w#Vwz—;UCc"5͖669͖66?65 w#wL75 ^w#VwzUDc"5͖665 w#w?6*}o|gyx"5:6$͊"C >CCcͪAwF"C>DCcͪAuF"C/>PCcͪAD"CB>SCc*yD"F*{D"}FAó>ͪA"yFF"F"yDͪA"{F*F"}F"{DͪA"wF*{D"}DͪA"uF*}D "D*D*DͪA"D"CCҳ>A*}D"F͆Aʳ@:F3>͆A*}Fw>*}F#"}F>ð@:F>tA+AtAð@:F)?ts#r5*D^#V"^FN*Dq#p52`F*D:`Fw#65͇5*D~=w*D~=HW0IOc*D~Ds#r35 Ҙ3*Dq#pá3*D>w#65 *Dw#65ͤ#!D6!\"5*DN#Fd7 *D"D"D=!D6*yD+"D*D+"D*5!4#65555<ECc!56"56*5DM!"6>26zW{_!656*6g6 |g}o"6*6|g}o"6R6*6*6DM*5.͎6"5:6*5"5:6xʼ6>@>6NBc`i>)=6. DM͊"56 *5 "5"5}257Ö65*5$cURcx9RIc *5G6*5{o>g+{z_yW9!*5 s#r!5~w"57͖6*5!,! ~#~!5>w:529*6#8!95͠6q9=8Җ99͎6"5N9:5N9*5~<;̈́9 *5|ʨ9ERc`i6̈́9 9V9r9 757*5|7̈́9 97!5~Їw"5ͨ*25d7*5 6?5<`*5O ~O ÙFC+s#r*F ~<*F w‰?*F 6:F=2F@*F*F& "F*F^#V"F*F##"F!"FFFC@*F^#V"FwD"C@>FC+s#r*F ~<*F w@E5*DDXB+:D<2Do&)q#p5*DN#Fͨ<1NUc!n6*DN#F 5e#5*DN#Fͷ;5:En1<*E"E!E65:E҆1<*"E>B›1!"E!E65n"K5*DN#F͜5*DN#Fͮ6*D*D^#VN#F7*DN#FN82cF:cF155*D*D^#VN#F;5& '.'O'U''''/({((()),)2)>)?)E)N)T)`)j)t))))))*Z********++0+F+Q+\+j++++++ ,8,;,A,,,,,,,,,,---(-3-R-------..G.}..... /(/G/O/W////0090?0e0{001)1M1U1d1|1111282U2a222$*5 DM!56L75~#FDc*5r+s"5:5=7|7!5~@w7`i"5)x^7>>FNcx8*5#  *5G8ڕ7:–7w#>277ڬ7 ž7.ª7277 ù7:77.7# 77*7:5>*7>276?#`7{7_:RWc͖6*5*5{_zW{z<26<:͠6=:͖6#8!5>w*5|WDc#"D*5"D*5"D7*5|w:*5|REc+"5=8҆:9*5"5:5¤:N9*5! N#F p+q*5q!5>w:n:,!5~6_:"_::"_::n:,!5~6_: `i#~ O_:=:x M$!E"F!\"F:D\=!K63H "D}==x=VIc ͆A2F*=!F6͆A:F<2FO!F Hqy$ʦ=È=*FFD:ҽ=CNc*FDMN*F"F*D-C=Ax=:DT>ͪAyF"C=FCcͪA{F*F 6*F###"F*F"Fҿ?*F"F1?ð@tA:F6:F7H:F`H:FH{@͑A*FyDXB+*Fq#p͡Að@:F.¢@͑A*F^#V)))F*Fq#p͡Að@:F°@͑A͡Aù>:D@A*FFwDC *F 6I*F 6N*F 6T*F 6 *F 6*F     A:DA  FCA*F 6*F^#V"FA*wD"F*F^#V----- $2COPYRIGHT 1977,1981 COMPILER SYSTEMS, INC'd  END # ()*+, -/: ;<= > ^ASEQ GEGOGT IFLELTNEONORTOABSANDASCATNCOSDEFDIMENDEXPFORFREINPINTLENLETLOGNOTOUT POSREMbRNDSGNSINSQRSUB!TABTANVAL IN LINE$ AT POSITION$WARNING: INVALID CHARACTER IGNORED IN LINE$INCLUDE NESTING TO DEEP NEAR LINE$FILE: $!Ps+q+p+q:P=2Pʔ*P:Pw*P#"Pw7OO!O6!Pq*O&7O :Pw:O<2O͕!Pq*P&!Pq:}M!qM:wM*PM:P *M>@O:!!P6>!!PJ*!P&*M~ @*!P&*MN:!P<2!P':xMk͕ͫO:vM/{M:wMҌ  :xM7O. *MDMO -¨:Nʾ:N2OOOg!O6!S"N. *MDMM -:N"F>BUB*F>*CB*F ~*F ~HHB*F DMRB*F^#V"FAi`N#Fog_og_{ozgi`N#FogDM!>))덑o|gҠB =ŽB^#V))) DM!>))B =¸BYP뗖_>#Wi`/o/g_{ozgi`N#Fog^#V) B_PMXList XOR"BUFF(CALL#CHR$DATAcELSE$FEND%FILE&GOTO'INT%LINE)MID$NEXT*OPEN+PEEKPOKE,READ-RECL.RECS/SADDSIZESTEP0STOP1STR$THEN2WEND3%LIST%PAGECHAINICLOSE4FLOATGOSUB5INPUT6LEFT$LO###7MATCHPRINT8USING9WHILE:WIDTH;%CHAIN%EJECTCOMMONREMARKb!O4:xM*PMͫ:sM&*P&!Pp+q*P~$G*PN*P#"P-!Pp+q!P6+6>!Pڻ!P60*P&>) PLږ*P&>) PL+s#r!P6#4d:P/!Pү*PMô !P4V:sM2P:xM2P!xM6!sM6 SM'O''*O#"ODMH!O6  :N2M:vM MM) g!M6*MO>J g::vMV !S"$P*N+L!#Ps+6:#P!"Pڨ *$PMʔ g*$P"$P:"P<2"Pq !M6#6!NP6!GP6!M6!M6!M6!&Pq:vM *N#"N!L N !"N*N*N:&Pw!+{ozgO{ozgi`N#Fogo&og_{_z#Wi`N#Fog YE!}wq.nN,F=!pww#p.nw#p*nw~!}w¹F*nw#KB=!nww#püFqF(̈́Fnw28!~ww#p)̈́F!~w~,F-N,F,q#p.nN,Fz=!nw,Ox.|q.y6.{6!ywwI-------------------------------------------------- CBAS Version 2.8 Serial No. 3000-0362-004370 All rights reserved Copyright (c) 1981-1983 Digital Research, Inc. ---------------------------------------------RENAMERETURN?RIGHT$UCASE$VARPTR%NOLISTCONSOLEBRESTORECSAVEMEMD%INCLUDECOMMAND$CONCHAR%CONSTAT%LPRINTERGRANDOMIZEHINITIALIZEIOm#Cpz  PAGE$OUT OF DISK SPACE$OUT OF DIRECTORY SPACE$DISK ERROR $BASNO SOURCE FILE: $.BAS$ERROR $  :P2sM:P2xM! Pq: P ; :M<2M8"F!M4* PM: P [!O:O[ͼ  !qM6!sM6\:…'Ü:–'Ü'. *M -¯!N6 *M 6 *M 6*MS!wM6#6!}M6!sM6'*M~Pr+s+q+p+q:qMb *M#"M:sM2,P!sM6'*'P|O*'P}O'**PDMH '*)PMH\:,P2sM!FP6!~M6OOL!FPҎ LU*OM*O *ODMH*PM !M6!-P6:O!-P *-P&N N:-P<2-P¬ \:|M :sM2-P!sM6'*ODMH\:-P2sM!|M6:F   P LU*OM*O >!N% !P6=* !P6::M2MU 2M >!NҞ :N=2N.!"*N&ͪLM DM*M -e "*N&ͪLM ! ~2M/ ʎ v:N› !P6: .*MH -© !N6:M !M6 !M6Q :M :qM m !O6*O#"O :O}:M H!vM6ñ!uM6ñ!tM6ñ!zM6!wM6*5P& ~(q:5P<25P!O6:5P<25PO! ~026PO> q:O:OH!6P2O>ñ!yM6+6*5P& ~( :5P<<25PO! >2Nñ  tå :l2N͠!M6#6!O6!O6!"O!M6!P6:!M6 } !M6!M6!M6#6:M/"M:M!M6:M%!M60!M6#60(NB*ODM*O .ͽQQkD:M$d!M6k|:M%w!M6k|!M6X/Ҽ:MF:MNH:MHҰ!M6Mõ!M6J(N:Mb:M ͫ ʹ + 2MN:Mc39:M *MM9-!M6͠:N<2N͛!M6 } ͙ :qM8!xM6+6!sM6:yM2xM:zM2wM:{M2sM͙ :qM!wMaͼ͙ 7!Os>L!M҆zÉ͙ !EP6:M :EP<2EPH7*EP&M) q#p:Mz:M + 2MÑ͙ !;Sgz.ͫ ʹ &*9P)))*9P) 8_"9P:8P<28P*9P|4!M6*9P*8P&M ~2;PAR:;P 2;P:;P> !Md>!P!?P6*M&) :>P=:M:!Q2!Q!"Q4:!Q?*P^*P*P ^"P*JP"P^*P"P!#Qq:#QQ͝L!Q Mv!qM6OT*ODM !%Qp+q*P *$Qs#r*P >w*P >*Q&P) ^#V"P>PL*P~2&Q*Q͗! Q>*P#^#V"Pó>:&Q=O!  :O<2OO!N :Mw:M 9 :O!O!O2O!M6 @ :O<2O:M L :M!O6+ :M<2Mq !M6/ q >*M&*M~+ :MHҘ } :M ʪ + 2MÙ :M\ͫ  ͙ } ô !2Ps+p+q+p+q!3P6O0PL :M  ͫ  !3P6+ 2M:O2O*O"O:M *O+"O:M"!M~!M6F#6!M6+ "i:M [SU*ODM*O 2:Mf:} :M"u2:.̀͠H=!M6E#6!M6#6!CP6:M0¬k:M0½+ 2Mì͠:M)!CP6!M6k:MH:MhHd:CP+ 2M,99*M+"MN:M /:Ma/>z!M/H:M.͌!uMҼ:M_2Mͩ:MAO>/͌H̀ͽH͠H̀kͽ#:MAO>ö*?P&M :?P=O*@P ~*:>P<2P=2=Pv>:M B} !M6:MHUd:M,:M Hv+ 2MUSTI:M!O*O_DM 1.CONSTANT AREA: $CODE SIZE: $DATA STMT AREA: $VARIABLE AREA: $AQGFKLPBTNOCDEIJHXRrU[qZWpS\YVsvwxq*P*&Q&*Q ':&Q=2&Q$>>*Q>2'QOI*Q"P*Q*P wo*Q#*P -X*P : Qw*Q&P) *P#N#Fq#p*P 6*Q&P) *Ps#r:'QQ͝L+s#r*P~!(Qq*P :(Q*P w*P ~*P ^#V!)Qq*P :)Qw*P ~2,Q!-Q6 :M  } *.P*2PM*0P :3PH + 2M:M H ͫ ? ʹ E + 2M* !M6ͩ :pMҴ!5P6:!5P/N! ~$Hҥ :5P&қ *5P& :5P=O!O w:5P<25P] :5P<25PO! ~24P :!5P/HҴ:4PA24PO>ڱ*4PM! ^#V!rM6ñ!{M6!sM6ñ)!M6À:M :M+H:M-HuEHҀ:M}!M6d̀/Z)k̀jdu:M u} !M6À)uB¿!BP6:M=!BPڿ*BP&M >1!CPҰ)!M6:BP<2BP:M!M!M6:M)u.:M=2M!M6:MSkØ͙ !P6= *M ~=*M w:Nu!wM6#6!}M6!sM6A'*ODMHc'!DP6:M!DPr*DP&M N:DP<2DPQ.!"*N&ͪLM *MDM -Ž"*N&ͪLM ! :Mw*M# j:M::M*Mw:M==2MoMM ->!M!M6*M*M#M :ME!M6k:M<2M $:M 3} !M6!7Pq*M#"M:qMR*7PM !"9P!M6uH—!8P6:M=!8Pړ*9P))))8_"9P:8P<28Pk*9PuB!8P6:M=!8P*9P)8_"9P:8P<28P¤*9P>!M~>3#HH!M6!!8P6:M!8P     && PROD $FUNCTION REFERENCE BEFORE DEF: $PROGRAM CONTAINS $ UNMATCHED $ STATEMENTS$FOR$WHILE$DEF$NO$ ERROR$ DETECTED$:pMP>@_j!V"Q*++"Q"P#6!!Q6#6*P~=!"Q*"Q& *P:,Q!-QRo&P"*Q**QPL8**QN#F`i"*Q*P#**QN#Fq#p:-Q<2-Q2/Q!.Q6:/Q!.QڡO!P *P#N#Fq#pO!P *Ps#r:.Q<2.Q^!gSq:pMҴ*gSM !"OP}2P2IP2Po&"VPo&"RPo&"M26S2fSo&"LP2NP!QP6!eS6#!"TPͩ :pM)   ͍ !"Q!Q6#6*1͢$͢w!hSq:NP/=*RP#"RP:pM/L*hSM !jSp+q*iS|O**iS}O*!lSp+q!kSLDMM:P/!tM:NP/HҚ*ODMda*y!wSq:rMҼD'*wSMH\͂0> !wSژ*wSM! ^#VÕÕU1*`SMg21 RPL}S 0* FM1 ͋1*}SMy1Á0Á0!vS6͆3Á0͆3Á0Á0 ͆3Á0:GP} :zSu *`S&Q) N#Fd!GP6Ý :zS˜ *`S&Q) N#F2Ý *Á0U1Á0 U1Á0 U1*SMy1Á0:GP!*`S&2R 6*`SMg2 U1*`S&Q) q#p *`SM7!Á0͋1Á0U1Á0U1Á0U1Á0͋1Á0U1Á0:`S=O!RR :uS:uSH[#EF1*Q ^#V"P:zS/:~SH҈#.*M:zSҔ#*DM2:~S¬#*#:zSһ#*# *:zS#DMd**:zS$*d};*d8*}M &*|SM:IP/*&<5**xS"S͢2Á0*}SMy1Á0:pML&4 2*Pq#p*LP#"LP!IP6Á0:IPk&MP1&6* U12*P"xS*`SMv22S*}SMy1*P"JP*PDM;1:pM!Sұ&DF1&:pM&I*Q##"Q*P 6 Ͳ*RPDMw&RPL!qM&DF1&SSM:`S=O!R :`S=O!rR ^N#F +)c*Á0Á0͂9Á0͂9Á0Á0͂9Á0͂9Á0d*Á0d*4*Á0!M643&*Á0!M6:`S=O!RR ~«)FM:`S=O!R :`S=O!rR ^N#F :`S=O!RR ~)]**43%*Á0Á0Á0Á05*Á0k7Á0̀6Á0̀6͢2:IP* ,*MDMH,''>ML*,S'!S6>!Sk,\*S&mS) N#F'*S&M) N#FH:S<2S5,*DMdN TÁ0/*Á0M*Á0j*Á0Á0j*Á0Á0:~Sʳ,SM1Á0S3Á0dÁ0S3Á0Á0ddÁ0S3Á0S3Á0k*Á0Á0k*Á0Á0LD1.*RPDMwͲ:IP)*LPM.6!P6*͛ÕÕ͛Õ:PT!P6Y!QP6Õ!QP6ÕÕ!QP6Õ!QP6Õ!QP6Õ<?E\dgowÁ0>+!wSڤÁ0:wS,O!'/ ^#V!P6Á0Á0OPSL:~SH2*̈́5Á0:{S*SDMd*S"P*`SM7Á0:M!IF1w3*S"P/!*{SM!{S?!NS1DM2*~SM͟4!*L!qMn!SI1Á0͋1*aSMv2/Ғ!Ͳw͋1*PDM;1Á0w3Á0:*aS&Q) *`S&) N#Fq#p:Á0:Á09Á0:9Á0 U1*`SMg28"JPPL!IP;*d9*};*7**QN#FM*Q##*RPs#rÁ0*`S&rR *aS& w6**Q##N#FM*Q *RPs#r:}S2uSOy1yÁ0!M6>QL+s#r"P*P#>*P#wI:P<2PÁ0:}Sº$FM1:uS:}SH$p*$:uS:}SH$:*͋1*uSM0I;Á0U1Á0U1Á0I;Á0Á0Á0Á0͋1*aSM7:~SA'FI1*`S&Q) N#F2-*Á043Á0dÁ0Á04Á04Á0*S"P:NP':|Sʗ'VC1!NP6*bS&Q) nM:~S'*bS&Q) n}w#6*P&XP) *RPs#ryÁ0:}S-EW1:}S-:*7*2*P&rP) *Ps#rÁ0:P.UW1DM;1Á0 ͋1*aSMg2PJPLHC4*PN#Fd*PN#F;1IAF1Á0Á0*|SMT4Á0 U1Á0_U1Á0Á0 T4Á0Á0S3 * ͋1Á0Á0͆3*|SM*y1Á0Á0:~Sʳ!vS6͆3Á0͆3Á0:}SFM1*zSM͋1*}SMy1Á0:}S* :"FR15"*`S&Q) *Ps#r*`S&Q) s#rOͯ1Á":pM{"!}M6J'!S6:M!Sp"*S&M N:S<2SO"\!}M6Á"UF1Á0*M&  Ng1:M*M& >HOU1*M& ~Oͯ1:M"!HP6":M#"!GP6Á08Á0Ḿ8Á0U1Á0͋1Á0U1y1Á0:uS:`S=O!RR ~H/%p*U%:uS:`S=O!RR ~HU%:*:`S=O!RR :uSw*Q ^#V"PDMdU1Á0͢2Á0͢2Á0*aS&UR ~¦%]*`* 7DMMÁ0Á0k7Á0͢26*2Á0:S%EI1:S%:*7*2Á0*S"P:p 2DMw( 2DMw:NP/#(DMd͋1*PDM;1Á0:NPH(!NP6VC1K(w3Á0Á0S3@*Á0S3@*Á0:Mx(>*!M6Á0m͚5!M6Á0Á0'*!M6Á0h͚5Á0:~Sʮ(PI1n*͏5Á0dn*͏5Á05Á05Á0!M6Á0Á0?*!M6Á0:`S=O!RR ~&)6**!ML*VP#L&+*VP#)))"MRPML8+*RP"MMMLJ+*M"M 2)))"S!M Mc+*S"M!S6>!Sڋ+*S&M) N#FM:S<2Sh+*PDMM:IPң+*JP"P|,!sM6:zM2wM:yM2xM͙ :P+*P͓;:P+*P͓;:IP+͓;**>!MM@.6**P&XP) N#FM*P&rP) ^#V"P>L9.*RPDMw:P=2PÁ0Á0:}SW.SM1\.y*Á0u*Á0Á0~*!NP6Á0:}S‡.*Ì.**`SM7*OP#"OPÁ0*OP#"OPÁ0:}S·.*ü.**`SM7*OP#"OPÁ0*OP#"OPÁ0:|S.CS1.*bS&Q) ^#V"P:}S    /FS1/z*:P/DS1$/!P6Á0 LOYailtw$ ' 9 F I V !q!!!!!!!""""""# #####+#3#8${$$%%%%%%%%%-&7&[&'''''!'$'''Y'_'h'k'q'w''3(N(Q(\(g({((((((((((((.)1)7)=)@)F)L)T)a)q)SDM*S *TP#"TP!Sp+q!SLDMM!Sq*S&R n&R!Sq*SM)2"Q*S&rQ ~2Q*S&2R ~2 Q!Sq*SM>2͢!Sq*SMg2҈2>*>!dS"Q:fS?2Q! Q6 !Sq:pM2*S"P:SRP͝LDMw:fS<2fS2:eS<2eS͎2͢/2**PDM;12DMM!~S:}S **zSM**!Sq:S&5*;5:S65*;5*:~S:}SH\5p*Ã5:~S:}SH|5:*Ã52҃5<5*~SM5!M6;*!Sq:}Sʬ5SM1:zS5*`S&Q) N#Fd*SM**!M6:zS5*`S&Q) N#Fd:M5"1,66:*SMv2E8ͽ7͗:GP/HB8UI*S&R) *S&rR ^N#F R8 2DMwͲ*`S&Q) q#p:MҀ8!M6*Q *Ps#r!Sp+qg1*!S6*S~!Sڹ8*S&*SN*:S<2S–8:M88*Ñ8U1:NP8:}S"9*`S&Q) @L 9*`S&1**`S&Q) ^#V"PDMM:{S2;NF1:{SO! ~2{SO*:pM|;*bS&2R 6*bSM>2* 2DMw*SM:{SDcdbaucd67[~@ p)))))))* *&*1*?*[*^*a*d*g*m*s*v*|****,,,,,,,,,,,,,,,,,,, -- -#-+-3-6-A-I-z---C.F._.g.j.w.....*`S&2R ~2zS*bS& ~2|S*aS& ~2{S*`S&RR ~2}S*bS& ~2S*aS& ~2~S*aS&Q) ^#V"S*aS&rQ ~2S*bS& ~2S*`S& ~2S*aS&R)  3MM1>>:~S3FM1>:}S03FM1>2:SE3FM1R3:SR3]*:}Sd3FM1q3:}Sq3]*y143:{S<2{SO͋1!Ss+q+q ͋1!}S:~S4:~S:}SH3p*4:~S:}SH3*p*:vS/3*!~S6y14MMM6)*,66=<,6:}S$6:**}SM5!Ss+q:}SD6*SM*K6*SM*43:6S<26S)a6OO1*6S&6S Nd^*9*!P6!P6*6S&6S :zSw:P=2P­6!P6UN166**P N#FM!RPL*Pq#p*P#>6*P"P6*bS&2R 6*bSMg2*PQ) N#Fd!9**`S&Q) N#FM.*g1*`SMv2/y9!S6:M!S^9*S&M N͢:S<2S=9$͢*VP#"VPDMwͲDMM:MҮ9:}S™9,*ë9:}S¦9p*+*9:}S¾9$*9:HP/9:}S9p*#*9!HP6:{S :*S"P*PDM;1:S=2 JEEFJ9;  EE #&'*+,-134568:=>?BCDEGHIJKM/E  J J  "2"'5 " "". "" " " """0"2""  EFJLM )J #%&'*+,-1345678:<=>?BCDGHIJKM( #&'*+,-134568:=>?BCDGHIJKM)J J  $   AE $ $J JEF9; %'(,29:w:D/ ?CDyCD CD CDCD.Z\CDXCD]`CDCDCDCDCD0CD1CDCD&cdba*"#p%'(,^#V"S*bS&) ^#V"S*`S&) ^#V"S*aS&rR ~2S*bS& ~2S!Sp+q*aS&Q) *Ss#r!Sq*`S&2R :Sw!Sq*`S&RR :Sw!Sq*aS&RR :Sw!Sq*aS&2R :Sw!Sq*aS&rQ :Sw!Sq*`S&rQ :Sw!Sp+q*S*`S&rR ^*SDM !Sp+q*S*SDM*S !Sp+q*S*1#4:~S:SH#4FM1:~S54*SM*N4:~SG4*SM*N4*SM*!vS6!Sq ͋1:}So4:*!}S6:~S4*:**!~S6y13Ҟ4*SM*!Sq:S´4d4:S4d4d2S!zS:SH4NS14*zSM*}SM͟4 PLH7͓67IN1U1*`SMv2j7!FP/!qMj7:M R7*O+"OX7*O"O!FP6*`S&rR ~2O 7:M}7*Â76*DMMҼ7:IPҮ7!LPMʫ7FO1ü7ʼ7FB1:NP7!pM7wCM1L!qM7CM1!SqU1SO͝1DMd:{S p:*S"P!Sh::SH:|SHb:*bS&RR 6!S6p*h:PF1*SM5:!S:H::S:HҪ::*::S:H:p*:PF1:SO͝1:{S=2{SO͋1:S:{S ";:S;NF$  $ """""""""0"""""""""/""  $ )J  $( )J     N%F  '(),./02679<E!&X 2489::D)_p%'(,29::D+B!x egim kj--335;<=Y?@ACHHKIINJJO   KKLLLMNQPRQSR[^_`bffhhiijjkllmmnn>uuvvvwwyyzz{{||}}{q     ^  #$%&(&&02356537899:;<9>&?@@@@@BCcdeeefghd(ijklmmmnopsxp{ppp~pppppppppppppppppp~~                  LJ*S; :M¬J*`S&R :_Sw!S6:M!SBJ*S&M NmL!S4$J*`S&rQ :Mw*`S&RR :Mw*`S&R) *Os#rcL*`S&rR w*`S&Q) *Ms#r*St>) ^#V"0Q!cS6*S"SJSSLJEScL*O_DM *S"SIL!0Q MҌK+L:`SL!aSs:aS<2bS0Qog_{_z#WCBASIC V2.08 COMPILATION OF $\ INT $:ABvtIJa=o p~sxcdegtroqEFEHGTSYYYYYYUWT !#%')+.147:>@BDFHJLNQTWZ\_behlorux{~<<r<<|   &    -3;<@N[kvLM͟:M҉K:aS2`SL"S*`S&R ~2_S*`S&2Q) ^#V"S*S= n&"S}SSLHlK*S#"S8K*SPB) ^#V"0Q>L‰K!M6L>!0QMKL"SSL*S< n&"S}!S:MMHK*S#"SàK*S@) ^#V"0QL6L+L*`S&2Q) q#pL"0UVX!VFnsz#Z$%)&',PW(GM"\/+*-.2]O345601789;$&    33446688:::::<<<AADDDDFFSSTTUUVVWWZZZZZZZZZ[\]^^___``abcddeffgghiijkklmmnrrsttuuuvvwwxxx{{||}}}1SM'Lͼ!}M6:qM!pML!M6!cS6!"0Q!`S6!_S6!R6:ML>!0QMJ6L*`S&2Q) *0Qs#rL"SSL+L*S+"S*S"SSSQõIËIL!qM6ËIvͶQ ͵*0QC) ^#V*0QG n&:`S<2`S RLOS*ODM*O :cSbL!cS6:M!O!Sq*_S&R :Sw:_S<2_SO>dҜLOVcL*O_DM _ogDM!>))ҹL =±L_og^#V|g}o L_{ozgO{ozgi`N#Fogo& LST@    #,F.ޖ,OxҖS.N,F.q#p.6#6*{+{!{,_zS-N,F*{ ~!{w.N,F! "{ÝS!rN,F!vq#p!{N,F!vq#prYP!{N,F͵7!rN,F!fwq#p7rj-------------------------------------------------- CBAS Version 2.8 Serial No. 3000-0362-004370 All rights reserved Copyright (c) 1981-1983 Digital Research, Inc. ---------------------------------------------T%LPRINTERGRANDOMIZEDINITIALIZEE;_P   DISK ERROR $BASXREF06: NO SOURCE FILE: $.BAS$XREF07: INVALID PAGE LENGTHXREF05: INCLUDE NESTING TO DEEP NEAR LINE$XREF03: OUT OF MEMORYXREF01: OUT OF MEMORY$XREF04: TO MANY FUNCTIONSXREF02: kUQ͙*y~+*y>@_:!(6>!(b*(&*y~ [*(&*y^!(40j͙:-҃:-n*y ͜:ʭ:2ͺ!6*y2)O>ͺ:) ` `  :0A20O> *0M! ^#V!,6 !-6 !,6#6 !.6!16P!o6$!/6 !/6 *1& ~(n !14!6:1<21O! ~023O> ڨ ::H!32s :Ҽ Uo͙*1& ~) !14 !06 !26 ! ) 1 < S [ !26+~!----- $2d  # ()*+, -/: ;<= > ^ASEQ GEGOGT IFLELTNEONORTOABSANDASCATNCOSDEFDIMENDEXPFORFREINPINTLENLETLOGNOTOUT POSREMbRNDSGNSINSQRSUB!TABTANVALXOR"BUFF(CALL#CHR$DATAcELSE$FEND%FILE&GOTO'INT%OUT OF MEMORY $PAGE NO$ NAME TYPE$.BASPARAMETER $ FUNCTION $ GLOBAL $XREF 1e7͙͜"͈ ̈́Nͣlv!s+p+q+p+q:=2** w*#"*#"ë!!s+q+p+q:!=2!*: w*#"n !+p+q!-6+6>!,|!.60*,&) *ͽW*,&) *ͽ+s#r!-6#4%:,/!-p*.M`u `!,4:2 # 2>!l!l5"*l&͍ *yDM!͜"*l&͍ ! ~2v:l!6:!m6: :  !6*P :1<21O! ~':!1/H#~!/HP *1& *2&Z w!24 :l2!6!6 K ! 6!6!6!6:"® !6B}"ʜ : ™ È K :"ʨ È iͦHU !6A:0 }2  ͑ :H:hH ͊N LINE)MID$NEXT*OPEN+PEEKPOKE,READ-RECL.RECS/SADDSIZESTEP0STOP1STR$THEN2WEND3CHAINCLOSE4FLOATGOSUB5INPUT6LEFT$L#CALaMATCHPRINT7USING8WHILE9WIDTH:COMMONCREATE;DELETE*&*~} :Hf K : x }2g :\‡ g K !/6!16:1<21O! ~$*1& ~'H!:1H Ò *1& ~$ :1<21O! ~20'!:1H: :+H:-H͛EHN ͊͑ͦC ͊N : N K :i i ͑\ :$w ͑ :%‚ ͑F : F: NH: Hҵ !6Hú !6F! ":2: :b : }2y  :c :  y     }2  :i:%:  HHK ͑: IB: L }2; K ! 6: :.H: Hҁ ͑T g  *y 5:l<2lڬ U͙*DM *y:l=o&"͍ DM!͜:l=o&"͍ ! :w*y# : :: *yw *8 ~:6<24:6=25d>G>@_!"*++"A!6#6*E~=!n*& *E:2!4F:?*E^*E"E> A+s#r!ҮU͙ò*A!p+q: *+"*C >*C ^#V"C*C~=O! *C!Mt>o&G"*Eͽ6*N#F`i"*E#*N#Fq#p!4:mڢg :F/!Ұ9͆"CDM͙*C6*C >w#6:Ҧ!@4*:M͟ʹð͟ʹ"C*DMͳÙ:HA:)*:#":>ͱU͙9͆"CDM͙*C6~ >* * >* * ~3>* * H>** _*~2f*~2!6ͥ҆:<2!ƒ>k*& **& *~ᖟ*:*& *~2!6 *:*& *~2!6 !:!6!N`!4!q!6:!, `!4 `3K Z:.U+ :<2O !6_ogDM!>))Ҝ =”^#V|g}o ¥_{ozgi`N#Fogo&og_{_z#W;:: ==2 _ ͜>! ! 6 *y# _DM͜!6!6 K Eg i:\Vy imFe!6K g : <2 O!  :w:!?wmK m}2* &  ~:0O> /:a/>z!/H:.Ͳ!2:_2:AO>/ͲHͦ H*C~ H͆*C q#p*C ^#V"C6*C >w#6*CN! *C*s#r*C4*&G) ^#V!q:̀!AژU͙!p+q*E *s#r*E >w*E >f"E>E*E~2*>*E#^#V"E*C >w#6!@6*:M͟ʹ!6*E">>"C*DMͳÙ: !k!=6*>"E*@M!6Ù:™:҄!6!<6:=ҙ*>"E!=6:2Nͪ *""!"!"EEͻ **Es#rt*##"*A+ʹU͙*DM 6*y~3*y>@:<2O!K Hq:<2O!K 6:!6>!t*&*y~ m*&*y:<2O!K w!48@*&L DM͜:0Ғ-*"!"ͻ*^#V"E!6*E~!:=O! *EN`!4¹*E>!O ͻDͻCBASIC XREF LISTING OF $ $ $\ INTHHͦ͑ 5:AO>1͑26 : EK > ! R>!46* &7 ~25:5!4:5!426!76* &!) =: á*7&  :7=O>:=O! *E*&* 6:=23>>*>2Ou*"E*#*E **Ew_͜*E 6f*E#q#p*&G) *Es#r:̀+s#r!q*E :w*E~!q*E :w*E ~*E ^#V!q*E :w*E ~2!6:*#"ÿ*++"*">!!͡+s#r"!6:!6!"ͻ**"*)**)*^#VN#F*)*^#V"*)**)*N#Fq#p*)**s#r!6*"TB*##"!r+s+p+q* *  OZ"C!6:/گ>Cʯ!6*C~!ڞ:S,` `X!6:1!+Ҁ!:/!0{-+ :=O! *CN#F !44*C ^#V"C#!:/!0-*##"*"Ҟ!p+q!6*&*~$ *&* XRF    COM. To start the run-time Interpre- ter when under CP/M Version 1.4 or earlier, use CRUN2.COM. That is, type CRUN2 instead of CRUN as described in the documentation. To start the run-time Interpreter when under any other CP/M, MP/M, and CP/NET operating system, use CRUN23.COM. That is, type CRUN23 instead of CRUN as described in the documentation.  CBASIC Version 2.8 Release Notes Digital Research, Inc. Compiled May, 1983 Your CBASIC disk contains four files: CBAS.COM, CRUN2.COM CRUN23.COM, and XREF.                                                                                                                                                    !   !   "   "   #   #   $   $   %   %   &   &   '   '