J`L"22KR@@@@L8ӭӍ<ө/ө !i !ЭTФL$%8ӭӍ<өӭ آ/iҥ0iӠ-ȱ.%8+)ȱ&,* ȱ! ȱ  31UU U prj!!!!2!3!m23g67S!gL{ I = ))8,eਹH U0 hu ذh8 ؐ 8`Lʄ)8?0"HJJJJ h) ȹPHh0`l8R   S0`j B V JK9D"EB VLEJJ h) ȹZYVn i"i`pp pppppp pZ/eqespp p= { vvvvbv[\7t\0$4\B4\~Bt \\Q Q H BD EJIKH Vh`b"v )) ) H BHINKd Vh`̛)\"~)< _ \P\tt4t Tֽt¶\\4t Tv ``?``t,40 `[@ʊH)L )I) ) S B V B V5D JK 9 )0I )/ J)K7D 9 "/Х)x)@xԭ/ /Эo ohЙ2@ҙ/`ESEBLV?|}~@ 29L hйL I-223 6L L @{L -6IL -3p}ph}`h}}x8PXL I-66 PX@>8=%=38i8ٰ 8}88@ɱ=L I-33L ȱ=8ȱ=@Уȱ=Hȱ=>h==} H  ΃ =5@ ?H  Ξ κ {%?@=)JJJ@{0L 1Lt 1=w ވLn x=ix|>i|=8ȱ=Hȱ=H hhLn x|ȱ=xȱ=|L ȱ=x|L 1҈Lt w I=11 0L Lbpx x x \Vx= \/x x Pb0\/\PbX\o\v/`Iœ\$tx\$V8\&V8t \(V\*Vv?)?++)? )))+00)0+b&vP?)?$:=)xhh hx~tb*vV V V (hT l h! h h8h`I "hxP t 4h`OzPt@xxrh#h hxh$h$ hh`Az"h VzoxPvaVt%h`R "thxPt &'x V(4(*)&n'4)4&8\^n'4)4\`nx t&&%x( xP%x&"xxPxxPxP.&'+\j'~,x,T+l+,-',,&W^ m`^ m`ʵ `x Vt&t4x&4" xx_hxx_t 4*t4x$x.$ n/$$hhhh/xPo'V,,.,0,,t,,'\j'&x'&&'&-'֬0/ V$$ &bt1 4h httL 40 hJ2t .$ $xt 03$$h4hx3  zTlx"\h$45hx"\h$6x.~687.$V447 V 0z`t Z~$x4*(.$/` l2x V V)~xh`lt@t `lt ~~~)2tB.)..)b.)v)90)0,d\7:$3 VtJt 0b2v2;=0+t;)t 4tL$)tt54<)t4=J$&$tJt 0;t$tJ=tt50<~DtVx  >tB?t `CODtUttVtAD0`. .\D0D?ttV?Dtz`lt?:$\79t 4t T? t>0V!t0Vt b6vj?0t04\8x B>t?zvt 8x  B>?t? z@t:))~. tD)~ 4t)0t.0?4` ?tt?t?t??t ` \rt ` \<r?\<rx~tb:vV V8t t tx9t3\7$4\04\0t4ttL0xx$(`lxvx t  ~~vx t x"\0LVVVb<8P<0VVttL\0tJ\i0b@b>P>P@܄bBPBbFbDPDV4PF4 V44t4*2L$tJ04*$t\7:$4VbJbHPHPJބbLPL򄂶R K F `䭁婠`~6 F WLKH1@WF * ȌZ [ M  Yhҩ`6t ttbN@B \t@\PNↄ@~tbRvx/P@ x[~@```?`~tbVvJ`l` lhT6`?\1\T b$x().x V (% x Vt ).) hxPh)xt\`PROGRAM ERROR NO.tJ\/\~\CFxqNN4\7\i$4x `l?t`AUTORUNN4)³`"Insert execution disk into drive 1`and then press return 8\tCt}xxxxt V`Selection < >\.\?0)))p)4`Ihh h\7\i0tJ0$4x x\\tx\\tZMx/\\V\V4t4xx/\#\\!\V\\V\ₛx X``Not program file\xx8x  0>tB(tUt t `* ` ?t`.?t ` .!tVt? zt5` Free Sectors`l Advan BASIC Execution module To execute a program, type letter corresponding to program nameaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaatz='1CS7M,Yfp='1CS7M,}ZRm{ 67ԅҩL\\0bR\bTx\bbVvġPbXPbZx" B3Ʒ(V?mF8f!O/]£Qagqͺe8|N>ll}Y=LYt4^"Mvb^ؾZAⱏŲLƸ;%B i޸1Jߴ'u z[FR..RFʹ^[z]}Ů|Mt!JJA"ֺ ռºd u'׫y ߴD)RFذ 鬱x^|쯧f"wx=Lj …ҩө)L\\/b\\b^b`PRt 4bbPbZ\bXPTPbhPRt4bdx"Pb\\t lbPdP`^P`bf LXY[ZLȌ #iҭ$iө ƱPRt4bbPRt4bd\b^\b`\z\wb`P`PdhxآP`>PZ\0>*ztx x"\/t"P#t 0Vbb P`b^P!bZPZ0PbhP`bfPbX `L^ e҅ҥiiiL٩ L҄ mm Uֵנօ㈱օ օׅ j ƪ`L8iiLL\ `ʥ` ֥ ` ԅՅL#8䈱eԅeՅ oLօׅ \LX   £L\ `` ȱձ㈱ 8Յԅ 8L`afg <ވޥ8DZL褥`fagdeꈥ``8눱߈8`` P80 戱`L P0` P80OEA L٩ P288 LL٩ M 2 \LX M 2ȵL#L? D80戱 `Ȕ` DLeԥeե8ԅ֥Յ0ԅՅ8օׅL `ԥե֥ `ʠ#`L``օԐL` `H ;+2-*%)0-:)  e80uѥ`LqLݺ ߩ/ޭ #ޱiȱiݱܑܑ` iȱi߈ݱLܑ8ޅȥݑii ٩`LZ8[` ` ʩ XL`H BHI VhL1 LձLL{ 8hЍ ҍӍҩӭ  ` Эҭө    hL`HBDEIH VhHi ٩ L1 ٩L18ȑ ` 8` P`` ٬)?'< H hLH BDEHI Vh` L ` \LX 2 M88``88``a`de8`ȥabcia L`L\i\P`rL jJ8\\ȱ28g f fg` jаv0bjPRt4Pj^\/` ƪL00Dʵ084ʵ㈱ ƪiiL2L D8`戥L P`L # L M 2䈵LL穩ީ߅ݩ30 q  ܥi0݈ޥ- L8& %`p)HH8.p.q.r.s` ? Ȭ Ȭ Ȭ Ȭ ȬL ׬ ׬ ` pM ) `ʵ  ҵ LL] x|LʩV *V *V*V*1LW C)  e   e FfLXʥ`"L?`ʭ) UVT`RH(GRR;ȄT U Ȅ ])`****]yXhR` H HI B Vh`ʭɊHUVT BLCLT ) BHI V L  i  LH)h) JJJJ)`Е` )49) 4 L )յ )L  IH)Е hL$L~`L M Q Mʥ LʵYXɠL i|L{) I%L6PXVfV*&*ʈ3` I-6 8XP@ 66L hp22LL] { )ʵ` xP J HXh 3I-33L?@ )@ / /`/ ,/`/)/`Ӆl멡LХҙȥәȄ@;`JJJi   7 0pLx±Ӎ ѭ L Ңp 0ҭӠlo`xL`ӈ҄И`L hihi`  L#`ѭ  h@m/ҭ0i` 0 L\ЅѢp ` U`5 5L Lu uL8  L8`L҅ȱ҅ȱ҅ȱ҅iȱiE ȱEq8ȰA҅ȱ҅ȱ҅ȱ҅qȱeE ȱE28ȥ0ȱp0҅ȱ҅ӥ`ȥpe҅ҥi` 6` Vv`Lq Ff uu6`  q` q  q?60 0Vv866L q`nLHӤХҙȥәȄ@Fh mmȱ`HȱHҤiȥiȄ@hh`rL Uҥ`҅` ȱL`ȱ` L ȑLʵVHȱ҅h`ʵ`8e҅Ґ`҅Ұ`ʵHȱ҅h`҅ȱ҅iҐ` ҕȱҕL`҅iҥӅiLµ ҕL҅ȱ҅iҐL Uȱȱȱȱȱi`ȱ`Lµ UL U ȵ ȵ ȵȵȵ8`ʠL Lu ȱuL HH mhhLݱ҄ mmȱݱ҅ȱ҅iҐӱ눱܈ qjȵ۵1ȵ OHȱȱ huڥuL&ۥۅ٥ &eڅڥeۅۥeڕeە`L U0` U҅Ӆҥlʵ8p `I` I0GN 0@G  ʵ `` 0 0 LLL 70 70 7 70 70 7м 0г 0 М 0Г 0 ЎL? c    #L|L҄ mmȱL L҄ mm   ҄ mmȵL LL҄ mmiȱiL҄ mm8ȱL ҕ LȌ`` L@@@W3@?tS)%@?Pi쩹iLµ |0ٵص׵ ֵ յ Ԋ8` 8` ԕՕ֕וٕؕi` ҹ `8 )))-) `8`` ҹ ` . fڰAL . ڰ6L . (۰+L $ L ݰL I ` ) `mLH& & &eehe` )D ʈ ͹  J ` `iiLiiLݢ$Lݢ*Lݢ$Lݢ$Lݢ*Lݩ* L|ʵ0 $ L* 0 $ L`娵ʈ Hԑe0LhL ʹ  )ԩ06L J (ۥ@`( b J (   ҹ J w `ڥIԥ@* J `ڭ0I0@ J `ڥ) b ڢ @ w ڥM0L>QHAFsvUp?gdYcq@W2 ʹ  J `ڥIL ͹ )@0 ݩ V ( b): ڢR @ w ڭ0 ݩ V$ `  L`>hA6&?&1#5 `?xi31su?P ͹ L L b /) )E#D Lݺ)0 ҹ w ݥ 0L ʹ i  * ݩ0 ڼL 0'8@0"e iذ  70_L HH H' ii HH µ H mhhh  0 70LL2 70  L 0 յ L8ԩ Lʈ L ئ ȱ)Ȅiiei ٩L `ʥL إL Lݺ  ) @  `iiei ٩L `ʥZYVn i"i`pp pppppp pZ/eqespp p= { vs}vvvbv[\7t\0$4\B4\t}~Bt \\Q Q H BD EJIKH Vh`b"v )) ) H u}BHINKd Vh`̛)\"~)< _ \P\tt4t Tֽt¶\\4t Tv `v}`?``t,40 `[@ʊH)L )I) w}) S B V B V5D JK 9 )0I )/ J)K7D 9 "/Х)x)x}@xԭ/ /Эo ohЙ2@ҙ/`ESEBLV?|}~@ 29L hйL Iy}-223 6L L @{L -6IL -3p}ph}`h}}x8PXL I-66z} PX@>8=%=38i8ٰ 8}88@ɱ=L I-33L ȱ=8ȱ=@Уȱ=Hȱ=>h=={}} H  ΃ =5@ ?H  Ξ κ {%?@=)JJJ@{0L 1Lt 1=w ވLn x|}=ix|>i|=8ȱ=Hȱ=H hhLn x|ȱ=xȱ=|L ȱ=x|L 1҈Lt w I}}=11 0L Lbpx x x \Vx= \/x x Pb0\/\PbX\o\v/`Iœ\$tx\$V8\&V~}8t \(V\*Vv?)?++)? )))+00)0+b&vP?)?$:=)}xhh hx~tb*vV V V (hT l h! h} h8h`I "hxP t 4h`OzPt@xxrh#h hxh$h$ hh`}Az"h VzoxPvaVt%h`R "thxPt &'x V(4(*)&n'4)4&8\^}n'4)4\`nx t&&%x( xP%x&"xxPxxPxP.&'+\j'~,x,T+l+,-',,&}W^ m`^ m`ʵ `x Vt&t4x&4" xx_hx}x_t 4*t4x$x.$ n/$$hhhh/xPo'V,,.,0,,t,,'\j'&x'&&}'&-'֬0/ V$$ &bt1 4h httL 40 hJ2t .$ $xt 0}3$$h4hx3  zTlx"\h$45hx"\h$6x.~687.$V447 V 0}z`t Z~$x4*(.$/` l2x V V)~xh`lt@t `}lt ~~~)2tB.)..)b.)v)90)0,d\7:$3 VtJt 0b2v2;=0+t};)t 4tL$)tt54<)t4=J$&$tJt 0;t$tJ=tt50<~DtVx  >tB?t }`CODtUttVtAD0`. .\D0D?ttV?Dtz`lt?:$\79t 4t T?} t>0V!t0Vt b6vj?0t04\8x B>t?zvt 8x  B>?t? z@}t:))~. tD)~ 4t)0t.0?4` ?tt?}t?t??t ` \rt ` \<r?\<rx~tb:vV V8t t tx9t3\7}$4\04\0t4ttL0xx$(`lxvx t  ~~vx t x"\}0LVVVb<8P<0VVttL\0tJ\i0b@b>P>P@܄bBPBbFbDPDV4PF4 V}44t4*2L$tJ04*$t\7:$4VbJbHPHPJބbLPL򄂶R K F `䭁婠}`~6 F WLKH1@WF * ȌZ [ M } Yhҩ`6t ttbN@B \t@\PNↄ@~tbRvx/P@ x[~@`}``?`~tbVvJ`l` lhT6`?\1\T b$x().x V (% x V}t ).) hxPh)xt\`PROGRAM ERROR NO.tJ\/\~\CFxqNN4}\7\i$4x `l?t`AUTORUNN4)³`"Insert execution disk into drive 1`and then press return 8}\tCt}xxxxt V`Selection < >\.\?0)))p)4`Ihh} h\7\i0tJ0$4x x\\tx\\tZMx/\\V\V4t4xx/\#\\!\V\\V\ₛx} X``Not program file\xx8x  0>tB(tUt t `* ` ?t}`.?t ` .!tVt? zt5` Free Sectors`l Advan BASIC Execution modu}le To execute a program, type letter corresponding to program nameaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa}aaaaaaaaaaatz='1CS7M,}Yfp='1CS7M,.Z%p/P1 $  Jh 78 W  $   q`}`J 6 jfH)? @hJJJJ ӭR 0`|`I` COPYFILE.COD v\y  `O}`D4:COPYFILE.COD \y 0`|`I` COPYFILE.COD v\y  `O5D#ZD#Q@ #"vD# :><2p`I`EXEC1 t tVV4t4  ~0b*@vIx8!4tL0~t}b.@vB0\0,@ #5(@#tb2@vx8!4tL0~tb6@v0\04@ #y0@#]`Do you wish to h}ave`a special title and message`for the execution disk(Y or N)x!tV0\4tb:@vt}t` below program list.\2#r`Enter text for `?t%` TEXT TOO LONG=tb>@v}<@6#t8@#t`Insert disk to be formatted`as execution disk into drive 1`and then press return}``Type Y to continue`Type N to abortx!p~ H! Sh #``BAD DISK}v"\x>!t4tLx>!\x>!t0\\)x>!x!`Type Y to format another disk}` Type N to endx!Rvq"W~tbB@b@@8\&#nvb!\00V@@&#U!xq"t\:#nt8\8#n>!!tYty}~!`4x!\\\\\4\ \ tJ0bF@v!D@ #!t"8\#nJ\ }tJ0\ tJ0 \cbJ@ v7" tH@#2"\7\\hWxq"\i\pbN@vi"x!Wxq"L@#`""H #(##} #  S #h` header(first line)second linethird linefirst linesecond linethird linefourth line}ond linethird linefirst linesecond linethird linefourth line5)$Z)$6$##x!`Enter source file name`?`Enter destination file name`? }` NAME ERROR|~ :`Insert source disk`and then press returnF`#Insert source and destination disks }`and then press returnp 8 ~ tJ\i0 t x  ttL\0t jt0`t0t0b+ }$v@\#r)$#-j0t0Vt0t\#n t?  `ERROR-FILE NOT FOUNDv!  } =  9`Insert source disk`and then press returnp\$n0V \d0>>K x x!0 t0 }  8t00\$nt0t\#n !A`Insert destination disk`and then press return p }V\$n|# `O t0V4|0Vt  vRx$! `SOURCE DISK ERROR  }!H#!$$ $ M SLf!  # $  $hҩ`!$$㩠 }$` t4\$nttL00 0\V \V\@4\`Transfer complete`Copy another file(Y or N })"Yyt:t040`t`8t.04t }tt*4t4t?T\%$rt ` \%$rttt*4t4t?T\#rt ` \ }#r\#rt b/$vB# B#t?~-$#'#`t b3$v|#? t00\#r1$#^#`D.` }:.t.`..t .\`DESTINATION DISK & `FULL(`DIR FULL`ERROR." }#M#TINATION DISK & `FULL(`DIR FULL`ERROR." (Z(mB(@(v(d!rktm\t8`ENTER PROGRAM NAME |&`I \R( |\ `WRONG }FILE TYPES ~ \ ~ `Enter 1 if output to printer` 0 if output to screen`? t(tR4 \p|}(Jt4t T`CrossRef Listing.Jt T`for.4Jt T.bmv$ \f( $ z$ }t z;t.v! t zPtCv! <t# zbv! :&tM z"! 0t! v! (t+ z}v! Gt" z0t v! tF z! @#z t,t044,t}vȖmd( `I \R( \z( ~`~ 4Lbmbm8\t(nvY!V 0V04 `,.\`(rvY!`} .­~V "V !\z( +V` \`(rt 0V\`(rM`%*ERROR* THE F}OLLOWING LINE IS MISSING`(.`) .0V.Vmt(k ~ \z! `I 0 ~ \R( v \f( }~ \(  40 \( \( \(\( bmv"\`( tt4t T\`(r % t0bm%v"% 40%hȢm(!}t\Z(nȞmt(!&~  `I \R( \ ~ bmv#\f( '('#z## "z" 40"t} ~(('8'~(x 'v#t= z"'8x ')v#x '"v#<t# z"v#t z#x'v#t z#t} #~(v#&:)t z6#(v#-t/ z#tX#tL#tth#'8x 'x'f#)v#t6 z#}6v#t, z#x''8x 'v#tP z#x'Tv#~(vk"Ȧmd(L"`~~ Lz$V$0V04 `,.\`(}rv$` .ŸV00V~ LV zw$0V~$\x(nvB$`&**PROBABLE} ERROR IN FOLLOWING VARIABLE*` 0V.\t(nv# \":( 0 ~ v&" ` bmv%h}mt($ 4bmv%% 4bm%v%%V4tL+%0V4tL,~-tbm-v%+-0V,-0V%+-0V,-0Vz%%V}%0V%h%0h~ȶm(Q%Ȳm(+%%Ȯmt(% bmv%tL%VtV%hȺmt(%t%0}44`FILE NOT FOUNDv~\p(n\   &4LV4 L4V  } x' t8\j(n4(&t\L(nt0 " 4#$. bm.v&\`( .VtJ44//"/t/l}Ⱦm(&44 40VtJ'H(ޭI(߭[(Z( & &eޅe߅t(ȭu(ȭl(ȭm(8Q}ސI?6 ,%Hh8Lh'`t'x''x 'x')~2}2 22 "'x '$`INPUT FILE BAD OR WRONG TYPE $}&%B&$&& WRONG TYPE $:"Z"*""v"`Enter Program Name |g!`I \" \"\"|\( `WRONG FILE TYPE^`En}ter Output Name . `#INPUT/OUTPUT MAY NOT HAVE SAME NAME֮|R"`O \"`Enter New Starting Line Numbe}r `Enter Line Number Increment p4<0 `LINE NUMBERS TOO LARGE~|t"b*v@\"\"}\" G\"ȑ*"b*vk\" hȕ*"[ b*v!\" tt. } t ztv t ztv <t# z  v :&tM z "! 0t v (}t+ zL  "! 0t v Gt" zm  0t v tF z @#z t,t 0 }44,w tv tL z  t 0 44x! t0\"rx! \"\"nș*"\"} \"\" \"\" \"~t4b*v]!\" \"ȝ*"O!v"`FILE NOT FOUNDvb*v!V !ȡ}*"!` IS MISSINGv"4<0\"r t! 0 44~ ` BAD LINE V} \"n \\"n8\\"r\4.\"r  `OUTPUT FILE ERRORv`BAD INPUT FILE  }M"!!~!."\4.\"r  `OUTPUT FILE ERRORv`BAD INPUT FILE  --31000 GOTO 34650%-30891 SUB DIR@\3\:CODE"96,12":SUBEND&-30890 SUB LOCK@\3\:CODE"96,13":SUBEND(-30889 SUB UNLOCK@\3\:CODE"}96,14":SUBEND&-30888 SUB KILL@\3\:CODE"96,16":SUBEND)-30887 SUB RENAME@\15\:CODE"96,17":SUBEND -30886 REM UB UNLOCK@\3\:CODE"j-31000 GOTO 34650-30996 LOADST(1%):GOTO 34542-30995 LOADST(0%)V-30994 MACHINE 34542:CODE"LDYZ,D0,DEY,DEX,DEX,LDAZX,11,BE}Q,2,DEY,DEY,LDAY,0,1,STAZ,D3"<-30993 CODE"DEY,LDAY,0,1,STAZ,D2,STYZ,D0,LDAIM,28,JMPI,DD,4"(-30908 IF PUSING5%>9% THEN PUSING5}%+=-7%A-30907 IF PUSING5%>=PUSING% OR PUSING5%<0% THEN 34540 ELSE RETURNk-30906 SUB BASECON@\23\:CODE"8E":POPST(PUSING$):POPS}T(PUSING2%):PUSING3%=INSTR1(PUSING$,1%,46%):PUSING1$=""N-30905 POPST(PUSING1%):POPST(PUSING%):IF FINT(PUSING2%)<7600. THEN GO}SUB 34541]-30904 IF PUSING3% THEN PUSING1$=RIGHT(PUSING$,PUSING3%+1%):PUSING$=LEFT(PUSING$,PUSING3%-1%)b-30903 CODE"CE":POPST}(PUSING!):FOR PUSING4%=1% TO LEN(PUSING$):PUSING5%=ASCB(PUSING$,PUSING4%)-48%3-30902 GOSUB 34628:PUSING!=PUSING!*PUSING%+PUSI}NG5%-30901 NEXT PUSING4%:PUSING$=""Y-30900 IF PUSING!>0. DO:PUSING1!=INT(PUSING!/PUSING1%):PUSING5%=PUSING!-PUSING1!*PUSING1}%\-30899 PUSING$=CHR$(PUSING5%+48%+(PUSING5%>9%)*7%)+PUSING$:PUSING!=PUSING1!:GOTO 34636:ENDIFS-30898 CODE"CE":POPST(PUSING!)}:PUSING1!=1./PUSING%:FOR PUSING4%=1% TO LEN(PUSING1$)7-30897 PUSING5%=ASCB(PUSING1$,PUSING4%)-48%:GOSUB 34628`-30896 PUSING!+}=PUSING5%*PUSING1!:PUSING1!=PUSING1!/PUSING%:NEXT PUSING4%:PUSING%=6%:PUSING1$=""&-30895 IF PUSING!>0. THEN PUSING1$="."h-308}94 IF PUSING%>0% AND PUSING!>0. DO:PUSING!=PUSING!*PUSING1%:PUSING5%=INT(PUSING!):PUSING!+=-PUSING5%R-30893 PUSING1$+=CHR$(PU}SING5%+48%+(PUSING5%>9%)*7%):PUSING%+=-1%:GOTO 34642:ENDIF@-30892 LOADST(PUSING$+PUSING1$):LOADST(PUSING2%):CODE"6C":SUBEND -}30886 REM +(PUSING5%>9%)*7%):PUSING%+=-1%:GOTO 34642:ENDIF@-30892 LOADST(PUSING$+PUSING1$):LOADST(PUSING2%):CODE"6C":SUBEND - -31000 GOTO 34650B-30999 PUSING1%=PEEKW(PUSING%):IF PEEKW(PUSING%+4%)<>2% THEN 34540C-30998 PUSING2%=PEEKW(PUSING%+6%):PUS }ING3%=PEEKW(PUSING%+2%):RETURNp-30997 SUB MAT1@(PUSING%,PUSING1%,PUSING2%,PUSING3%):LOADST(PUSING%+((PUSING3%+1%)*PUSING1%+PU }SING2%)*6%):SUBEND-30996 LOADST(1%):GOTO 34542-30995 LOADST(0%)V-30994 MACHINE 34542:CODE"LDYZ,D0,DEY,DEX,DEX,LDAZX,11,BEQ, }2,DEY,DEY,LDAY,0,1,STAZ,D3"<-30993 CODE"DEY,LDAY,0,1,STAZ,D2,STYZ,D0,LDAIM,28,JMPI,DD,4"P-30992 SUB MATPRINT@\212\:POPST(PUSI }NG%):POPST(MAT%):POPST(MAT1%):POPST(PUSING$)2-30991 IF PUSING$<>"P" AND PUSING$<>"S" THEN 34541s-30990 GOSUB 34537:FOR PUSING }%=0% TO PUSING2%:FOR PUSING4%=0% TO PUSING3%:MAT1@(PUSING1%,PUSING%,PUSING4%,PUSING3%)p-30989 CODE"58":POPST(PUSING!):IF PUSI }NG$="P" THEN LPRINT FIX(PUSING!,MAT%);TAB((PUSING4%+1%)*MAT1%);:GOTO 34549B-30988 PRINT FIX(PUSING!,MAT%);TAB((PUSING4%+1%)*M }AT1%+PEEK(82%));6-30987 NEXT PUSING4%:IF PUSING$="P" THEN LPRINT ELSE ?-30986 NEXT PUSING%:SUBENDe-30985 SUB MATIN@\12\:POPS }T(PUSING%):POPST(PUSING$):IF PUSING$<>"R" AND PUSING$<>"I" THEN GOSUB 34541I-30984 GOSUB 34537:FOR PUSING%=0% TO PUSING2%:FOR } PUSING4%=0% TO PUSING3%2-30983 IF PUSING$="R" THEN READ PUSING!:GOTO 34555D-30982 ?"Enter row ";PUSING%;" col ";PUSING4%;" }";:INPUT""PUSING!:?j-30981 LOADST(PUSING!):MAT1@ PUSING1%,PUSING%,PUSING4%,PUSING3%:CODE"6A":NEXT PUSING4%:NEXT PUSING%:SUBEN }D -30886 REM ING!:?j-30981 LOADST(PUSING!):MAT1@ PUSING1%,PUSING%,PUSING4%,PUSING3%:CODE"6A":NEXT PUSING4%:NEXT PUSING%:SUBEN -31000 GOTO 34650B-30999 PUSING1%=PEEKW(PUSING%):IF PEEKW(PUSING%+4%)<>2% THEN 34540C-30998 PUSING2%=PEEKW(PUSING%+6%):PUS$}ING3%=PEEKW(PUSING%+2%):RETURNp-30997 SUB MAT1@(PUSING%,PUSING1%,PUSING2%,PUSING3%):LOADST(PUSING%+((PUSING3%+1%)*PUSING1%+PU$}SING2%)*6%):SUBEND-30996 LOADST(1%):GOTO 34542-30995 LOADST(0%)V-30994 MACHINE 34542:CODE"LDYZ,D0,DEY,DEX,DEX,LDAZX,11,BEQ,$}2,DEY,DEY,LDAY,0,1,STAZ,D3"<-30993 CODE"DEY,LDAY,0,1,STAZ,D2,STYZ,D0,LDAIM,28,JMPI,DD,4"_-30980 SUB MATCALC@\192\:POPST(PUSIN$}G%):GOSUB 34537:MAT%=PUSING1%:MAT1%=PUSING2%:MAT2%=PUSING3%N-30979 POPST(PUSING%):GOSUB 34537:MAT3%=PUSING1%:MAT4%=PUSING2%:M$}AT5%=PUSING3%J-30978 POPST(PUSING%):GOSUB 34537:POPST(PUSING$):IF PUSING$="*" THEN 34565m-30977 IF (PUSING$<>"+" AND PUSING$<$}>"-") OR PUSING2%<>MAT4% OR MAT1%<>PUSING2% OR PUSING3%<>MAT5% THEN 34541$-30976 IF PUSING3%<>MAT2% THEN 34541=-30975 FOR PUS$}ING%=0% TO PUSING2%:FOR PUSING4%=0% TO PUSING3%g-30974 MAT1@ PUSING1%,PUSING%,PUSING4%,PUSING3%:CODE"58":MAT1@ MAT3%,PUSING%,$}PUSING4%,PUSING3%:CODE"58"1-30973 IF PUSING$="+" THEN CODE"32" ELSE CODE"36"V-30972 MAT1@ MAT%,PUSING%,PUSING4%,PUSING3%:CODE%}"6A":NEXT PUSING4%:NEXT PUSING%:RETURNG-30971 IF PUSING2%<>MAT1% OR PUSING3%<>MAT4% OR MAT5%<>MAT2% THEN 34541\-30970 FOR PUS%}ING%=0% TO PUSING2%:FOR PUSING4%=0% TO MAT5%:CODE"CE":FOR MAT6%=0% TO PUSING3%e-30969 MAT1@ PUSING1%,PUSING%,MAT6%,PUSING3%:C%}ODE"58":MAT1@ MAT3%,MAT6%,PUSING4%,MAT5%:CODE"58,3E,32"^-30968 NEXT MAT6%:MAT1@ MAT%,PUSING%,PUSING4%,MAT2%:CODE"6A":NEXT PUS%}ING4%:NEXT PUSING%:SUBEND -30886 REM T5%:CODE"58,3E,32"^-30968 NEXT MAT6%:MAT1@ MAT%,PUSING%,PUSING4%,MAT2%:CODE"6A":NEXT PUS$%-31000 GOTO 34650B-30999 PUSING1%=PEEKW(PUSING%):IF PEEKW(PUSING%+4%)<>2% THEN 34540C-30998 PUSING2%=PEEKW(PUSING%+6%):PUS)}ING3%=PEEKW(PUSING%+2%):RETURNp-30997 SUB MAT1@(PUSING%,PUSING1%,PUSING2%,PUSING3%):LOADST(PUSING%+((PUSING3%+1%)*PUSING1%+PU)}SING2%)*6%):SUBEND-30996 LOADST(1%):GOTO 34542-30995 LOADST(0%)V-30994 MACHINE 34542:CODE"LDYZ,D0,DEY,DEX,DEX,LDAZX,11,BEQ,)}2,DEY,DEY,LDAY,0,1,STAZ,D3"<-30993 CODE"DEY,LDAY,0,1,STAZ,D2,STYZ,D0,LDAIM,28,JMPI,DD,4"e-30917 SUB MATSET@\56\:POPST(PUSING%)}):GOSUB 34537:POPST(PUSING!):CODE"8E":POPST(PUSING$):POPST(MAT5%)L-30916 IF PUSING$="D" THEN MAT4%=0% ELSE MAT4%=1%:IF PUSING) }$<>"A" THEN 34541f-30915 FOR PUSING%=0% TO PUSING2%:FOR PUSING4%=0% TO PUSING3%:IF MAT4% THEN LOADST(PUSING!):GOTO 34623=-309) }14 IF PUSING%=PUSING4% THEN LOADST(PUSING!) ELSE CODE"CE"Z-30913 MAT1@ PUSING1%,PUSING%,PUSING4%,PUSING3%:CODE"6A":NEXT PUSIN) }G4%:NEXT PUSING%:SUBEND -30886 REM PUSING!) ELSE CODE"CE"Z-30913 MAT1@ PUSING1%,PUSING%,PUSING4%,PUSING3%:CODE"6A":NEXT PUSIN(#?-31000 GOTO 34650B-30999 PUSING1%=PEEKW(PUSING%):IF PEEKW(PUSING%+4%)<>2% THEN 34540C-30998 PUSING2%=PEEKW(PUSING%+6%):PUS- }ING3%=PEEKW(PUSING%+2%):RETURNp-30997 SUB MAT1@(PUSING%,PUSING1%,PUSING2%,PUSING3%):LOADST(PUSING%+((PUSING3%+1%)*PUSING1%+PU-}SING2%)*6%):SUBEND-30996 LOADST(1%):GOTO 34542-30995 LOADST(0%)V-30994 MACHINE 34542:CODE"LDYZ,D0,DEY,DEX,DEX,LDAZX,11,BEQ,-}2,DEY,DEY,LDAY,0,1,STAZ,D3"<-30993 CODE"DEY,LDAY,0,1,STAZ,D2,STYZ,D0,LDAIM,28,JMPI,DD,4"0-30967 CODE"8A":IF PUSING2%<>PUSING3-}% THEN 34540i-30966 PUSING%=(PUSING2%+1%)^2%*6%:IF FINT(PUSING%+128%)+FINT(PEEKW(1313%))>FINT(PEEKW(1311%)) THEN 34540T-30965-} MAT2%=PEEKW(1313%)+16%:FOR PUSING%=0% TO PUSING2%:FOR PUSING4%=0% TO PUSING3%g-30964 MAT1@ PUSING1%,PUSING%,PUSING4%,PUSING3-}%:CODE"58":MAT1@ MAT2%,PUSING%,PUSING4%,PUSING3%:CODE"6A"-30963 IF MAT6% THEN 345767-30962 IF PUSING%=PUSING4% THEN LOADST(1-}) ELSE CODE"CE"4-30961 MAT1@ MAT%,PUSING%,PUSING4%,PUSING3%:CODE"6A"(-30960 NEXT PUSING4%:NEXT PUSING%:RETURNp-30959 CODE"CE"-}:FOR MAT4%=PUSING4% TO PUSING2%:MAT1@ MAT2%,PUSING%,MAT4%,PUSING2%:CODE"8E":POPST(MAT5%):CODE"58"c-30958 LOADST(MAT5%):CODE"5-}8,3E,32":NEXT MAT4%:POPST(PUSING!):MAT1@ MAT2%,PUSING%,PUSING4%,PUSING2%+-30957 IF PUSING!=0. THEN LOADST(0.):RETURN:-30956 C-}ODE"58,FE,2C":LOADST(SQR(PUSING!)):CODE"42":RETURNZ-30955 SUB MAT@\48\:POPST(PUSING%):GOSUB 34537:MAT%=PUSING1%:MAT1%=PUSING2-}%:MAT2%=PUSING3%0-30954 POPST(PUSING%):GOSUB 34537:POPST(PUSING$)I-30953 IF PUSING$="T" DO:IF PUSING2%<>MAT2% OR PUSING3%<>MA-}T1% THEN 34541o-30952 FOR PUSING%=0% TO PUSING2%:FOR PUSING4%=0% TO PUSING3%:MAT1@ PUSING1%,PUSING%,PUSING4%,PUSING3%:CODE"58-}"1-30951 MAT1@ MAT%,PUSING4%,PUSING%,MAT2%:CODE"6A"_-30950 NEXT PUSING4%:NEXT PUSING%:RETURN:ENDIF:IF MAT1%<>PUSING2% OR MAT2-}%<>PUSING3% THEN 34541-30949 IF PUSING$="=" DOo-30948 FOR PUSING%=0% TO PUSING2%:FOR PUSING4%=0% TO PUSING3%:MAT1@ PUSING1%,-}PUSING%,PUSING4%,PUSING3%:CODE"58"\-30947 MAT1@ MAT%,PUSING%,PUSING4%,PUSING3%:CODE"6A":NEXT PUSING4%:NEXT PUSING%:RETURN:END-}IFM-30946 MAT6%=0%:IF PUSING$<>"INV" OR MAT1%<>MAT2% THEN 34541 ELSE GOSUB 34569U-30945 FOR PUSING4%=0% TO PUSING2%-1%:GOSUB -}34609:FOR PUSING%=PUSING4%+1% TO PUSING2%r-30944 MAT1@ MAT2%,PUSING%,PUSING4%,PUSING2%:CODE"8E":POPST(MAT4%):CODE"58":MAT1@ M-}AT2%,PUSING4%,PUSING4%,PUSING2%N-30943 CODE"8E,58,CE,C,7A":CODEL(34594):POPST(MAT1%):POPST(PUSING!):GOTO 34599l-30942 CODE"58-},42":POPST(PUSING!):FOR PUSING5%=PUSING4%+1% TO PUSING2%:MAT1@ MAT2%,PUSING%,PUSING5%,PUSING2%e-30941 CODE"8E":POPST(MAT1%):C- }ODE"58":MAT1@ MAT2%,PUSING4%,PUSING5%,PUSING2%:CODE"58":LOADST(PUSING!)k-30940 CODE"3E,36":LOADST(MAT1%):CODE"6A":NEXT PUSING-!}5%:CODE"CE":LOADST(MAT4%):CODE"6A":IF MAT6% THEN 34599f-30939 FOR PUSING5%=0% TO PUSING2%:MAT1@ MAT%,PUSING%,PUSING5%,PUSING2-"}%:CODE"8E":POPST(MAT1%):CODE"58"v-30938 MAT1@ MAT%,PUSING4%,PUSING5%,PUSING2%:CODE"58":LOADST(PUSING!):CODE"3E,36":LOADST(MAT-#}1%):CODE"6A":NEXT PUSING5%6-30937 NEXT PUSING%:NEXT PUSING4%:IF MAT6% THEN RETURNg-30936 FOR PUSING4%=0% TO PUSING2%:MAT1@ MA-$}T%,PUSING2%,PUSING4%,PUSING2%:CODE"8E":POPST(MAT6%):CODE"58"j-30935 MAT1@ MAT2%,PUSING2%,PUSING2%,PUSING2%:CODE"8E,58,CE,C,7A-%}":CODEL(34603):POPST(MAT1%):POPST(PUSING!)g-30934 MACHINE 34603:CODE"LDYZ,D0,DEY,LDAY,0,1,STAZ,D3,DEY,LDAY,0,1,STAZ,D2,STYZ,D-&}0,LDAIM,68,JMPI,DD,4"8-30933 CODE"58,42":LOADST(MAT6%):CODE"6A":MAT1%=PUSING2%i-30932 MAT1%+=-1%:CODE"CE":FOR PUSING5%=MAT1%+-'}1% TO PUSING2%:MAT1@ MAT2%,MAT1%,PUSING5%,PUSING2%:CODE"58"I-30931 MAT1@ MAT%,PUSING5%,PUSING4%,PUSING2%:CODE"58,3E,32":NEXT -(}PUSING5%N-30930 MAT1@ MAT%,MAT1%,PUSING4%,PUSING2%:CODE"8E":POPST(MAT3%):CODE"58,36,3A"a-30929 MAT1@ MAT2%,MAT1%,MAT1%,PUSING-)}2%:CODE"58,42":LOADST(MAT3%):CODE"6A":IF MAT1%>0% THEN 34604-30928 NEXT PUSING4%:SUBEND:J-30927 MAT!=0.:FOR PUSING%=PUSING4%-*} TO PUSING2%:GOSUB 34577:POPST(PUSING!)6-30926 IF MAT!PUSING% THEN PUSING1%+=2%:GOTO 34437z-31098 PUSING3%=PEEKW(PUSING4%):IF FINT(PUSING3%)40000. THEN PUSING4%+=2%:GOTO 34438g-31097 POKEW 1096%,PUSING1%:OPEN"I",1%,PUSING$:LOADST(1%):LOADS16}T(7600%):LOADST(16%):CODE"96,D":CLOSE 1%Q-31096 LOADST(1%):LOADST(7600%):LOADST(PEEKW(7602%)-7600%):FOR PUSING2%=1% TO 15%V-317}1095 IF LEN(PUSING$)PUSING3% THEN POKEW(PUSING3%-2%,0%):PUSI19}NG3%+=-PEEK(PUSING3%)-4%:GOTO 34443k-31092 CODE"8A,8A":PUSING2%=PEEKW(7610%):POKEW(1034%,PUSING2%):POKEW 1030%,PUSING2%:FOR P1:}USING2%=0% TO 110%C-31091 POKE 41100%+PUSING2%,PEEK(ADR(34447)+PUSING2%):NEXT PUSING2%2-31090 OPEN"I",1%,"D5:T ":CO1;}DE"76,8C,A0"T-31089 CODE"96,D,96,18,8A,8A":POKEW(1313%,PEEKW(7608%)):POKEW(1307%,PEEKW(7608%)+1%)a-31088 POKEW PEEKW(1096%),P1<}EEKW(7608%):POKE 208%,0%:POKE 7605%,PEEK(1098%):RESTORE:CODE"82,C0,1D"p-31087 CODE"LDA,B6,1D,STAZ,E0,LDA,B7,1D,STAZ,E1,LDA,B81=},1D,SEC,SBCIM,1,STAZ,E2,LDA,B9,1D,SBCIM,0,STAZ,E3,LDYIM,0"p-31086 CODE"TYA,STAIY,E0,INCZ,E0,BNE,2,INCZ,E1,LDAZ,E1,CMPZ,E3,BCC1>},@34450,LDAZ,E0,CMPZ,E2,BCC,@34450,RTS":SUBEND,E3,LDYIM,0"p-31086 CODE"TYA,STAIY,E0,INCZ,E0,BNE,2,INCZ,E1,LDAZ,E1,CMPZ,E3,BCC0.`-31084 SUB POP@:MACHINE 34453:CODE"A4,D0,88,88,88,88,B9,3,1,99,1,1,B9,2,1,99,0,1,C8,C8,84,D0,60" -31083 SUBEND4q-30800 GOTO 34740X-30799 SUB PUTATR@(PUSING%,PUSING$):IF LEN(PUSING$)>255% THEN PUSING$=LEFT(PUSING$,255%)_-30798 PUSING$+9A}=CHR$(155%):CODE"8A":LOADST(PUSING%):LOADST(PEEKW(ADR(PUSING$))-LEN(PUSING$)-2%)8-30797 LOADST(LEN(PUSING$)):CODE"96,E":PUSIN9B}G$="":SUBEND -30796 REM DST(PUSING%):LOADST(PEEKW(ADR(PUSING$))-LEN(PUSING$)-2%)8-30797 LOADST(LEN(PUSING$)):CODE"96,E":PUSIN8-30750 GOTO 34802i-30749 SUB GETATR@\29\:POPST(PUSING4%):POPST(PUSING%):POPST(PUSING1%):LOADST(255%):LOADST(0%):CODE"FE,54=D}"m-30748 LOADST(PUSING%):CODE"6C":PUSING4%=125%+(PUSING4%<>0%)<<7%:PUSING5%=0%:POKEW ADR(34799)+1%,PEEKW(1297%)g-30747 NOTE P=E}USING1%,PUSING2%,PUSING3%:PUSING6%=PUSING4%-PUSING3%:IF PUSING6%=0% THEN PUSING6%=PUSING4%<-30746 IF PUSING5%+PUSING6%>255% T=F}HEN PUSING6%=255%-PUSING5%1-30745 CODE"8A":TRAP 34796:GOSUB 34801:CODE"96,D"-30744 GOSUB 348000-30743 PUSING5%+=PUSING6%:IF =G}PUSING7% THEN 34795D-30742 IF PUSING5%<255% THEN 34789 ELSE PUSING7%=PUSING5%:GOTO 34798Z-30741 LOADST(PUSING%):LOADST(PUSING=H}7%-1%):CODE"FE,4C":LOADST(PUSING%):CODE"6C":GOTO 34798V-30740 PUSING6%+=-PEEKW(1238%):POINT PUSING1%,PUSING2%,PUSING3%:GOSUB =I}34801:CODE"96,D"@-30739 GOSUB 34800:IF PUSING7% THEN 34793 ELSE PUSING7%=PUSING5%c-30738 NOTE PUSING1%,PUSING2%,PUSING3%:PUSI=J}NG3%+=PUSING7%-PUSING5%:POINT PUSING1%,PUSING2%,PUSING3%-30737 CODE"7C,0,0":SUBENDP-30736 LOADST(PUSING%):LOADST(1%):LOADST(=K}155%):CODE"FE,4":POPST(PUSING7%):RETURNT-30735 LOADST(PUSING1%):LOADST(PEEKW(PUSING%)-257%+PUSING5%):LOADST(PUSING6%):RETURN =L}-30734 REM FE,4":POPST(PUSING7%):RETURNT-30735 LOADST(PUSING1%):LOADST(PEEKW(PUSING%)-257%+PUSING5%):LOADST(PUSING6%):RETURN < -30700 GOTO 34846:-30699 SUB DIR1@\1\:POPST(PUSING4%):PUSING2%=0%:PUSING%=0%4-30698 DIM DIR$(63):REPEAT:IF (PUSING% AND 7%AN})=0% DOa-30697 PUSING1%=PUSING%>>3%+361%:MACHINE 34842:CODE"TXA,PHA,LDAIM,52,STA,2,3,LDA":CODEL(PUSING4%)]-30696 CODE"STA,1,3AO},LDAIM,A0,STA,5,3,LDA":CODEL(PUSING1%):CODE"STA,A,3,LDA":CODEL(PUSING1%+1):-30695 CODE"STA,B,3,LDAIM,0,STA,4,3,JSR,53,E4,PLA,AP}TAX,RTS"d-30694 ENDIF:PUSING1%=(PUSING% AND 7%)<<4%+40960%:IF PEEK(PUSING1%)=0% THEN DIR$(PUSING2%)="":RETURNI-30693 IF PEEK(AQ}PUSING1%)<>80% DO:DIR$(PUSING2%)=CHRW$(PEEKW(PUSING1%+1%))b-30692 FOR PUSING3%=PUSING1%+5% TO PUSING1%+15%:DIR$(PUSING2%)+=CHAR}R$(PEEK(PUSING3%)):NEXT PUSING3%>-30691 PUSING2%+=1%:ENDIF:PUSING%+=1%:UNTIL PUSING%>63%:SUBEND -30690 REM DIR$(PUSING2%)+=CH@kVZVaT\ bV\bZ8\VnvPVtWx4PV4t PV0t zPVtP\XV\bV\Ob^8\Vnv,PVtW,x4ET}\VPV4t PV0tL zSPVtP\stWx4PV4t PV0t zPVtP\XV\bV\Ob^8\Vnv,PVtW,x4D*rB+rEXEC1 BRAMDISK CODB FORMATEXCODBCOPYFILECODBCROSSREFCODB RENUMBERCODBDOSADD APPB BASECON APPB MATIO APPB MATCALC APPBMATSET APPB' MAT APPB 3CHAIN APPB?POP APPB@PUTATR APPB CGETATR APPBMDIR1 APPBSOFFVER COD