@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u$C88888ffffff~`~~fl0fF68of;8p88pf<88888888p 0 ~~`0 U}0`~f ~fnn`~~ff~ff~f|ff~~f``f~|lffl|~`|``~~`|```~``nf~ff~fff~~f~flxxlf`````~cwkccV}fv~~nf~ffff~~ff~``~ffflv~ff~lf|`~~~fffff~ffff<cckwcff<~f~``~ff~|```|~ff~~f~`|>~ff~~``~fff8<>``lxlf8Z}<fkc~ffff~fff~~ff~``~ff~~f```~`~~~ffff~fff<ck>6f<>>))))* *~nm~P3P4PENTERPRISES`}?<8p~~|xpa}~?x?x~_</^ ?O?ď$?H?b}? ?L?>珀||c}>HɦȽ<@ ԍȦh@ȅMBY +?<ƈI?H)(%@. i`(d}𩡬%E(&Ei(ЈL_HE 32@@i`(D 32@@i`(D 32@@i`(he}Lb䆑`` BeBi(8呅ɛ Y.(ĉ`BB'` N. C. -f} N.8`C@{a `~!Ɓ -äĉH)I)L=-ɜ𡤁ɛ Y.ĉH)ĉȄ -L=-ɛL1-g} N.`H)I)`a{)`yТɀɁɂ I@L-Ƀ@лɄɅ𳥂@a { h}L-` `H)` k.Q@` k.U@`H****)h)` !OQB!`L/ f00 2 =0 30L)>. ,i} -=B , /Ǝ 2L. - f0 =0L)> - R1 / #0 v00  4L/ =0 30L)> R1 /( /#ɛD:!j} / =0L)> R1L)>L/ /5 /L)>@ɛ,Ȣ@ɛ /L)>H 30hBDE V =0` - ,k}@ , - -ɛ YN -(` ,@ ,L)> - ,|C , /-`ȹ.ɛ@0 -L/`@ɛl}` BLV䄕 30 B` BHBhL, ,@ , ,@ , 30}@JKBD@E Vm}`@BDDEqHI V` 0HI)DEE V` 30 -(`DmD旈`80( $n}B80 e`8`` 30 y.BJD@EK V =0L)>BHIDEo} V0ح0:L30 ɛ Y.i i敥 溥РL30&p}u` 2)@@H)B@h)JJJJA@@@i0@@`i0@ - ,A ,ƒĠ@ ,DHDh /-` q}5 ,沥͹D`j8墪` 30BDBEJK V =0L)>` BDCEHI r}V0`ͅD f0 =0L)> /r #0 ,Ѡ@ ,DDEDDD%E'E /-L)>NA80 , -Di1@s}A ,ƒĠ@ , /-L)> - , , /й DD - ,A ,ƒ Ġ@ , /- 1DDt}D - 4i iDŚL3DmDD ,$A , -))D%EA -LANA$ ,?A , /-LANAu}80&E x5D莹DDD8DE&EE'EyD(EL)> y.ͅD C.1_ȱɛ  :DyDv} ,i 栥͸Dг`HD膑yE"iD %;ɛC򩛙CC ,h̸Dл`8塅j墅8Dw}0뎼D`H "hDHEhɛ "`渥ŵmD"̺D` E6D`x}'E%E N6  N6  (E` 86L 6mD`` -" -ż` 5ĥ"# E6DDL6 5y}D8夅DͻD 86L6mDi 6ƽ8DL6#̺D`̺D`Dż`z}Dŵ 86L77mDi 6漦D̺DλD`L7 7L)> -DͼD - ,RA , -L)> 4 ^{}2 ,lA , / ,+B ,L}7 - ^6LW7DL 5 4 05 ` ƯD毥ͻDL7L|}78`?L7 D𔅯L7СDJЊ - 7 , -^A , / -L)> 6DέD$ - 4Di0A ,}}{A , /-  - -L)>͎A080 - ,A ,D /-Ġɛ -#E̸DDEä̻~}DL8 5 49 4 05 ,A ,A , / -L8L8e…!i搠 -#`8`Di0A 7L8}ťƠ - ,ǠA , /-ݭ080͹DхEDEà -i0@ ,A ,ƒĠ@ ,D /- - } , , -ߠA , /Ь&E"Ņƅ 6 n: ^6ą#" n:"̺D 4 05 - - ,A , /Lu9Lm9}"½ɛ "`Di0'B - ,B ,D /-  - 30L)>Cɛ&810͸DߝDDD}CiC} 2 0;̻D 5 %; ;ȹɛ ; 3L: C` %;Cɛ$ BBɛ C ; 3}Cɛ -C 3LE 5̸D}V BB %;ɛC :C褼EDùE" C ; 3L; E/}!*н&* .=敥ƕ .=ƕ漥春ũЍТA L=@[ *C=*D=`HH}Ѝ i8 ԍЅhh@`abcde` M< y. $0(1?ʅ˅̅}pDߍ++ \k, \ԩ)E 2yzyzL`>') - -ɛB+ Ɔ*憥}G@')))) )L)> Y@Z@_@>`@>ۥDР') - -L ?L> -ɛ} ? `7+ ƍ*捥J@ ?) )0 ?L)>')))` >e@=?f@>?L >o@Q?p@R?L} ?L? -ɛA7+ ƍ*捥 ?O@) )0 ?L)> y@?z@?L`ʅ`,oad3}ave2en$el.ew2ead%dit!dd$el3rch!ll&ieldsD|~ } @ ` @`??@+???S?..F/ /"3Q7d9W7/8a8;: BDA.D:*.ADBD: . Are you sure [Y/N]? No file in memoryFIELD} # [n]?# of FIELDS [1-8]?Saving file...Loading file...ENTER DATA FORLENGTH OFNAME OF[A]scending, [D]escending?Index F}ield [1-n]?Memory fullRECORD DELETERECORD CORRECTSEARCH ON FIELD [1-X]?SEARCH FOR WHAT?RECORD FOUNDCONTINUE SEARCH [Y/}N]?EDIT WHICH FIELD [1-X]?NEW DATA CORRECT [Y/N]?EDIT THIS RECORD MORE [Y/N]?FIELDS TO PRINT [1-X]?CORRECTING RECORDSAV}E FILE IN MEMORYܝ䀀ݝ䀀倀􀀣򀀺􀀥P:DDDDDD EE ( P x } !@!h!!!( )p) (2:A%,B-B(("". the next line will clear"". } screen except the header A)0 "". these are the common"". variables used }($6-Ai$. dcb device type2$6-Ap$. dcb command type<$6-Ar$. dcb bufr addressF6-As }P$6-Av$. dcb bufr lengthZ6-Awd$6-Ax$. sector pointern6-Ayx"6-BQ". dcb }entry addr%6-@%. data out command%6-@%. data in command%6-@I%. disk drive #1 }6-@6-A(6-Ah6-@6-@6-A6-@6- }. open iocb 0 to the. disk directory1@1@@D:*.*",!!. "LS" is }the short sector6. flag.@J6- A!PT^!!\\\\\\\\\\\\\\\\\\\\\\\\\\\h!!\ Sect }or I/O \r!!\\\\\\\\\\\\\\\\\\\\\\\\\\\|! A)0!. clear screen6-@6-! A(`!. } clear A$   ! A"@!. get sector" 6.". transfer to d$ A(` }   ! A"@!. get the comment! A$!. print it Ap"6-%@". } next sector&0!!since there are 8 files per: sector and only 4 commentsD P controls diectory sectorN load }ing. P =0 =load sectorXb#"@ A(`# A`l"6-%@"next dir.sect.v AApla }st""||||||||||||||||||||||||||||""| Comment Entry |""||||||||||||||||||||||||||||  }A!P!-!? MAX # files# 6-%#. file number! A&!. # to hex$ convS-@ }@S(Enter comment for file 7@<@, or>-@@>(7$@2%@<$@2 }%@2,:-@@:( 5-@5@(.5guess why this is here?' }AdAU'-@@ . get comment..67$@2%@<$@2%@2,.  *6- }%@4 now output> same sectorH as beforeR A"@\"$f_-@@ }_(DAll legal DOS 2.5 files have been listed. Press any key to exit.p$AdAU$wait for keyz.@ }.@@K:)@ +!!___________________________!!_ SIO rout }ines _!!___________________________ . device@. number 6-C:,. find } A$$6-P:'AV,$. location6-&$AV . tell dcb  A(. sector 128 } !!. bytes long 6-?:C:hLS,,call dcb$ $. 8 "">>>>>>>>>>>>>>>>>>>>>>>>>>>>B ""> } Print Data >L "">>>>>>>>>>>>>>>>>>>>>>>>>>>>V ` A)0j B-@B(( }t -@@@2~ K7<,4>:,K67<%@1,. ________________________________  }. check 4 blank comnt *6-%@*. comnt sector countr "@6- )6-@). buffe }r pointer ! A&0!. set up pointers -%@ ! A&!. convert numbers ! A%P!. print da }ta ""@6-&&@"$ ! 6-&!. number of files   $ D7<,4>:,#6-@&$D. ch }eck for blank filename  . file number  7<, filenam  7<,. extension   (  }7<%@1, .comments2 '6-%@'. filename pointer< '6-%@2'. extension pointerF (6-%@(. } buffer pointersP 6-%@Z 6-%@d $n x ""<<<<<<<<<<<<<<<<<<<<<<<<<<<< ""< number conv }ersion < ""<<<<<<<<<<<<<<<<<<<<<<<<<<<<  &6-P:'@,&. number to hex '6-&$@'. $ converter } %%6-%@H%@$+!@ , %%6-%@H%@$+!@ , 67@,.$ 67@,.>:, 67@ },.>:, 67@,.  $  ""$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ""$ this routine clears A$ $ ""$$$$$$$ }$$$$$$$$$$$$$$$$$$$$$" , ) 6. 67A0,.)67@,.6 $@ J ""%%%%%%%%%%%%%%%%%%%%%%%%%%%%T ""% } clear screen routine %^ ""%%%%%%%%%%%%%%%%%%%%%%%%%%%%h r * @F:@,%@@*protect|  >:A%,c }lear bottom + @F:@,&@@+unprotct $D:DISKFILE.BAS,%@@*protect|  >:A%,c S /$hL  HHH@ "B4D#EJK VL"i7#8#9#:#;#=#1R7# 8# 0}$  SL"<#@ BD#EPHI V D$E V=# "P 0%<#0$)DAC%0$) LUE}%0$)NEG%;#H "?%h "@%;#i;#4$ "K%3$H "L%h "M%$>%J%P%2$ "Q%1$H "R%h "S%=#$_Z% }=#i ɀ=#<#i0$L!0% @0D%EKH V<#i<#ɀL 7#i7#q@ND#E V "LY h9#}:# "$ " #$ " #ɳ#$H " #h " #$#$#9#:# "*%+%*%m##+%m# " #}#H " #h " #@D#E V B@rD#E V " "%hhh(` B V``)>#`JJJJ)}>#`1R9# :# $  S9#i9#$$`E:0123456789ABCDEF } 䬠 󺰮庤}}  }TD +%%6-F:Aa,$AV%F:A`,-@1( F:%, 2} < @`FPRESS TO STOP ME!P D:DLI1.BAS%F:A`,-@1( F:%, 2H D +@%%6-F:Aa,$AV%F:A`,(%@@2}%@@< D:DLI2.BAS@%%6-F:Aa,$AV%F:A`,(%@@2)o +@$$BASIC GRAPHICS MODE 8=ANTIC 15 @(,@2/A@<} D:DLI3.BAS +@$$BASIC GRAPHICS MODE 8=ANTIC 15 @(,@2/A@<;pppppGpppppppAOPLMNOPLMNABCDEFGHOPLMNOPSIJKEFGHOPLMNABCDEFGHOPLMNOPABCDEFGHOPLMNABCD }QROPSIJKEFGHOPLMNABCDEFGHOPLMNABCDQROPETPQROPSIJKLUETPQROP   }UUUUUUZUUUUZUUUUZUUUUZUUUUUUZUUUUUUUUZUUUUUUUUZUUUUUUUUZUUUUUViUUUViUUViUUUUUiVUUUUUUUUiVUUU }UUUUiVUUUUVYe 8VYeUUUUeYVUU }UUUUUUeYV??<<<<x<<<<???? }<</10 &&4ԩթ 0 ؠ &]^Э } & &Э0))eѠ/Vi0i`iiũ } -ƤoЩxТ>/&bʎ 7Щԩ  } &ک \#]ԩ#1 0?/p 6L5`H) hJJJJ) `ҩ`HHH ԌЎ }ƱЩ hhh@ᤥ鬭㦧뮯5"y3(illenP,(f# !nalog#om }puting#]ԥ ,0ƺ橥IML__ᅜ` 1(&&&&eeLk( 1( }L(L (8唅啰&La'L (#Ff8HHhhhh8&&ݢFfff8喅HHB8 }HH/hhhh8%hh8咅哅ƕƔ8hhhh&&НLk(8&&`E0ʈ`E \( } \(`8嘪` 揥8`88@ \()8唅啅 }&&&(& F)ii \(`` \(F*HF+h \(`ʊE0 ` }0` }}|zyxvutrqonlkjhgedba`^][ZXWUTRQONLKIHFECB@?=<:976421/.,+)(&%#!  }   } })QzFo:b-V~ Hp9a)Qx>f*Qx;a"Hn,Qw 2W|4Y}3Vz ,P }s!Dg4Vw@a%Ef%Dd=[z/Lj7Tp7Sn.Id8Rl8Qj.F^v3Jax },BXn0EZo6) ,) ,) - -) - -Pҩ"` 3#P膂 }ȩL,3#OȄʆȩ \($eeeޅޥe`3#9#?#I6#<#B#` - - - -$܅ }݅ ( -$0 \(eڅڥeۅۥ܅݅ ( -څۅ B' ) ($ \(e܅ܥe`ڥۥ }ܥ`܅݅څۅ` ' )` ƥIUũe0IUũIUũŝ"IUJ"J" }ŝ"ŝ"`Ƌ .`˩pȩ .J ˥i ˥iȩҤ }ҩ .Ɗ`А` 8 ... JIi21ƈƤ`  0!` I_ } 0 L/ / 4 4 . $&& ҙ ҍЭ ҍЍЍЭ ҍ ҥţ 'hhL# }$& / 7L6ʝ` / @`>1٪.8~1Щ ІJ88Ш21Ƥ`c88 }&2iЩ Ѝ н228Ш,2282J&ߦ83H33hL182 н2 н2 Х82} }2}2}2}2}2м328Ъ2222Ƥ܈2222Ƥئ3} }3H3hЭiЍ8Ш н21Ƥ`  }<<<<<<<>>>>>>><<~~~~~<<<<~~~~~~<<>>>>>>>><~~~~< }<~~~~~~< $-7BN[ix   }& }~?<~?< }~? (T a8坅)JJJ4 4 ʈ }i ***)i 6 4444: 4Jf ' )e 4 } ' )@8叅``` (L4 (JfJf`i @ Fj``? }/` &ʝ Х  4 / ^5 =. F, 6 f5 3! $&L# 4`I!}JJ8i ` 4 $& 4 . / ^58Ш- ҙ- ҙ- ҙ- ҙߐץJ!})Ј ҊJ ҩҍ F, &L5 $& ' 7 hhL# )peei!}آ &&ȥ&L6 )ɰ `L8L99L7-L7 հL7i թ )!}7, 0 \( 6 )8 '`87C 7ٯ7 77LI77$0 \( 7ٵ7!}eeҩ`e8ҩ`8JJJ ҍ`Ii`(8HPhp @@@   77煟`!} ` 6 )y8K ҅ '8 J8 88 ` )Ҥ 988 98` )Ѥ 98 !}98  988` 98i湟8 8`?ߐ` ?@`??` @!} i 6ٹM;21몽g;8ҩ`ҥJi ҍҽ4; ' )Ф Ž楜87!} y7` '8 7;)I J8 ; L: ŝᥜ! }ޥ߅( 8 8L: ҩ Ҧ i@I@ڥۥޅܥ߅ݥi@) -څۅ܅ޥ݅ 4` ! } 8 8L:@5JJ 7i+;8.;й1; ЩЩ .8岅峅L:ee8崅嵅L:! }ee'#ץJ `ҩ@ҽ;ҽ; ` (0@`FKPUZ_ 8HYfr}! } !$'*-039;HCIOV.EQ$E456RSETVBV.EQ)}$E45C\SYSVBV.EQ$E45FfXITVBV.EQ$E462pCOLDSV.EQ$E477z;;;WorkingVariables.; TO.BS2S.HSC)}ROL.BS1INTS.DIR.BS1INTS.POS.BS1INTS.DEL.BS1REPEAT.BS1ITEMS.BS1S.REPEAT.BS1FIREC1.B)}S1BULLET.BS1 DLY.BS1RESLO.BS2RESHI.BS2$TEMP1.BS2.TEMP2.BS28MATH1.BS2BMATH2.BS2L) }MTEMP.BS2VMSIGN.BS1`HOLD.BS1 jR.BS2tTHETA.BS2~FBFLAG.BS1SINETHETA.BS2TEMP.BS1COUNT)!}.BS1XPOS.BS1SHRPT.BS1BYTE.BS1XSTORE.BS1VBCOUNT.BS1DLI2COUNT.BS1YTEMP.BS1S.PPL)"}.BS1TIME.BS1YSCAN.BS1 TCOUNT.BS1COLUP.BS1COLDOWN.BS1(EN.D.R.BS22EN.D.T.BS2<DELTAR)#}.BS2FTEMPR.BS2PTIMER.BS1ZLEVEL.BS1dENFLAG.BS1nE.TIME.BS1xSCORE.BS3HISCORE.BS3LIVES)$}.BS1COLOUR.BS1LAST.DIR.BS1PCOL.BS1P0.POS.BS1PCOL.DLI.BS1SUNSET.BS1PSIZ.DLI.BS1)%}EXPLFG.BS1EX.COUNT.BS1EXP.RPT.BS1Y.HOLD.BS1JUMP.BS1R.DIR.BS1T.DIR.BS1"T.TIME.BS1)&},R.TIME.BS16PROB.BS1@RTSAVE.BS1JSNDPTR.BS1TS.DELAY.BS1^SPHKIND.BS1hWORK.R.BS2rWORK.THETA)'}.BS2|EB.THETA.BS2EB.R.BS2EB.D.R.BS1EB.D.T.BS1MINR.BS1SETFLAG.BS1F.TIME.BS2 DIR.)(}BS1EB.XPOS.BS1FIREC2.BS1BOUNCE.BS1NECC.BS1DEAD.BS1KFLAG.BS1EXPTIM.BS1LMSCHG.B))}S1SCANPOS.BS1;&INTS.DELAY.EQ$10HORIZON.EQ$B7:M.EQPMAREA+$300DP0.EQPMAREA+$400NP1.EQPMAREA)*}+$500XP2.EQPMAREA+$600bP3.EQPMAREA+$700lTSCREEN.EQPMAREA+$B00vGROUND.EQPMAREA+$200MOUNTAIN.EQPMAREA)+}+$C00SCANLINE.EQTSCREEN+140+20C.SCORE.EQSCANLINE+48+7C.LIVES.EQC.SCORE+11C.LEVEL.EQSCANLINE+48+43),}CHAR22.EQCHAR.SET+688CHARL.EQCHAR.SET+216CHARR.EQCHARL-8YOUR.D.R.EQ$100BULL.DELAY.EQ2OSCAN.EQ)-}64YOUR.D.T.EQ$80CHARL.EQCHAR.SET+216CHARR.EQCHARL-8YOUR.D.R.EQ$100BULL.DELAY.EQ2OSCAN.EQ(SCo ;SAVE"D:DZONE3.SYN";;=======================(;Titlepagedisplaylist2;=======================<;F-/}TDLIST.HS7070707070F047P.DATSCREENZ.HS07700270700670700270dACE.HS7041n.DATDLISTx; ;=============-0}==============;Compresseddataforthe;mountains. ;===========================;MTAIN.DATA.HS00974F50-1}4C4D4E00CB.HS4F504C4D4E009841.HS42434445464748.HS00894F50854C4D4E.HS008F4F50530088494A.HS4B4546-2}474800864F.HS504C4D4E00894142.HS4344454647480089.HS4F50854C4D4E008F.HS4F504142434488".HS45464748-3}00834F50,.HS8A4C4D4E4142436.HS44515200844F5083@.HS530084494A4B8745J.HS4647484F50854CT.HS4D4E00824142-4}4344^.HS884546474800834Fh.HS508A4C4D4E4142r.HS4344515200844F50|.HS820E8F4554508B.HS01020304865152-5}.HS4F508653494A4B.HS8E05060708864C.HS550E8F4554508B.HS01020304865152.HS4F50850C0D0E8B.HS0F1-6}C8C048C1D1E.HS84090A0B9E0C0D.HS0E8B0F1C8C048C.HS1D1EB01DCF1D83LEN.MTN.EQ*-MTAIN.DATA-1.BSCHAR.S-7}ET-*;;==========================;Charactersetdata;==========================&;0CSET.HS0000000000000-8}000:.HS5555555555555AA5D.HS555555555AA55555N.HS55555AA555555555X.HS5AA5555555555555b.HSA55A555555555-9}555l.HS5555A55A55555555v.HS55555555A55A5555.HS555555555555A55A.HS5555555555566995.HS5555555669955-:}555.HS5669955555555555.HS9569565555555555.HS5555559569565555.HS5555555555956956.HS5555555556596-;}595.HS003C666E76663C00.HS0018381818187E00.HS003C660C18307E00.HS007E0C180C663C00.HS000C1C3C6C7E0-<}C00.HS007E607C06663C00 .HS003C607C66663C00.HS007E060C18303000 .HS003C663C66663C00*.HS003C663E060C3-=}8004.HS000000F0F0000000>.HS0000000F0F000000H.HS5659659555555555R.HS9565595655555555\.HS5555555595655->}956f.HS000000FFFF000000p.HS00003F3F3C3C3C3Cz.HS0000C0E0F0783C1C.HS3C3C3C3C3F3F0000.HS1C3C78F0E0C00-?}000.HS00003F3F3C3C3F3F.HS0000FCFC0000F0F0.HS3C3C3C3C3F3F0000.HS00000000FCFC0000.HS000103070F1E3-@}C3C.HS0080C0E0F0783C3C.HS3C3C3F3F3C3C0000.HS3C3CFCFC3C3C0000.HS00003F3F03030303.HS0000FCFCC0C0C-A}0C0.HS0303030303030000.HSC0C0C0C0C0C00000.HS00003C3C3C3C3F3F.HS00003C3C3C3CFCFC$.HS3C3C3C3C3C3C0-B}000..HS3C3C3C3C3C3C00008.HS00003F3F00000103B.HS0000FCFC78F0E0C0L.HS070F1E3C3F3F0000V.HS80000000FCFC0-C}000`.HS00000F1F3C3C3C3Cj.HS0000F0F83C3C3C3Ct.HS3C3C3C3C1F0F0000~.HS3C3C3C3CF8F00000.HS00003C3E3F3F3-D}F3F.HS00003C3C3CBCFCFC.HS3F3D3C3C3C3C0000.HSFCFCFC7C3C3C0000.HS5555555555555555.HS0000000000000-E}AA5.HS000000000AA55555.HS00000AA555555555.HS0AA5555555555555.HSA05A555555555555.HS0000A05A55555-F}555.HS00000000A05A5555.HS000000000000A05A .HS0000000000022995.HS0000000229955555.HS0229955555555-G}555(.HS80685655555555552.HS0000008068565555<.HS0000000000806856F.HS0000000002092595P.HS0209259555555-H}555Z.HS8060585655555555d.HS0000000080605856n.HS8080606058585656x.HS0000A05A56596595.HS0AA5956559565-I}555.HSAAFFFFAAFFFFFFFF.HSFFFFAAFFFFFFFFFF.HSFFFFFFFFFFFFFFFF.HSFFAAFFFFFFFFFFFF.HSFFFFFFFFFFFFF-J}FFF.HSFFFFFFFF7E181E00.HS00183C7E18181800.HS001818187E3C1800.HS0018307E30180000.HS00180C7E0C180-K}000.HS0818387838180800.HS0060606060607E00.HS003C603C06063C00.HS10181C1E1C181000; ";============-L}===============,;Displaylistdata 6;===========================@; JD.LISTT.HS7070C2^.DASCANLINE h.HS-M}8270r.HS607070707070|.HS7070F0F0F0D4MT.LMS.DAMOUNTAIN,#$D4.DAMOUNTAIN+$80,#$D4.DAMOUNTAIN+$100,#$-N}54.DAMOUNTAIN+$180,#$54.DAMOUNTAIN+$200,#$D4.DAMOUNTAIN+$280,#$44.DAGROUND.HS0484040441.DA-O}D.LIST;;==========================;MainscreenDisplayList;Interruptstomultiplex;playersandchangec-P}olours;==========================; &NEWDLI0PLA:CLC DADC#1NSTAVDSLSTXPLA bADC#0lSTAVDS-Q}LST+1vPLARTI; DLIPHA LDA#6STAWSYNCSTACOLPF1 LDA#$98STASUNSETJSRNEWDLI;-R}PHA LDA#0STACOLPF1STAWSYNC LDAPCOLOR2STACOLPH3 LDASUNSET*SEC 4SBC#$10>STAC-S}OLBKHSTASUNSET RCMP#$38 \BEQ.1fPLApRTIz.1JSRNEWDLI;PHASTAHITCLRLDAPSIZ.DLI-T}STAWSYNCSTASIZEP0LDAP0.POSSTAHPOSP0LDAPCOL.DLISTACOLPM0JSRNEWDLI;PHA  LDA#-U}$B6 STAWSYNC STACOLPF1 $ LDA#$B2. STACOLPH2 8 LDA#0B STACOLBKL JSRNEWDLIV ;` PHA j LDA#15-V}t STACOLPM0 ~ LDA#$78 STAWSYNC STAHPOSP0 LDA#1 STASIZEP0 LDAM0PL ORAM3PL AND#1 -W}ORAP0PL AND#$0D STAS.PPL PLA RTI ; ;========================== ;Introroutine ;===============-X}===========( ; 2 STARTP CLD Z LDA#$40d STANMIEN n LDA#6x LDX/SYSVBV LDY#SYSVBV JSRSETVBV ;-Y} LDA/CHAR.SET STACHBAS LDA#34 STASDMCTL LDA#0 STAGRACTL LDX#4 NOPMSTAP0PL+1,X DEX -Z} BPLNOPM ; JSRNOSOUND ;" ;==========================, ;Clearoutrubbishfrom6 ;playerarea,etc.@ ;===-[}=======================J ;T ERASE.PLAYERS^ LDA/GROUND h STATO+1r LDA#GROUND | STATO LDY#0 LDX#13-\} TYA .1STA(TO),Y INY BNE.1 INCTO+1 DEX BEQERADONE CPX#3 BNE.1 LDA#64 BNE.1-]} ;  ERADONE  LDX#$FF & .1INX0 LDYTMESS,X : CPY#$FF D BEQ.3N INXX .2LDATMESS,X b CMP#$9B l BE-^}Q.1v STATSCREEN,Y INY INX BNE.2 .3 LDA#0 STACOLOR2 STACOLOR4 STAS.HSCROL STAHSC-_}ROL STALEVEL LDA#$11 STAC.LEVEL JSRSETR  LDA#$F STACOLOR1  LDA#$36 STACOLOR0 * LDA#6-`}24 STASDMCTL> LDA/TDLISTH STASDLSTL+1R LDA#TDLIST\ STASDLSTLf JSRDEBOUNCEp LDA/TDLIz STAVDSLS-a}T+1 LDA#TDLI STAVDSLST LDA#$C0 STANMIEN LDA#$80 STAPROB ; LDA#3 STALIVES ORA#-b}$10 STAC.LIVES ; HIGHSCORESED LDX#2.1LDASCORE,X$CMPHISCORE,X.BCCNOTHIGH 8BNEHIGHB-c}DEX LBPL.1VBMINOTHIGH`HIGHLDX#2j.1LDASCORE,XtSTAHISCORE,X~DEX BPL.1NOTHIGHCLD; -d}LDY#0 LDX#2.2LDAHISCORE,XJSRSPLITSTATSCREEN+93,Y LDATEMPSTATSCREEN+94,YINYINY-e}DEX BPL.2; LDA#0 (LDX#22.3STASCORE,X<DEX FBPL.3P; ZLDA#8dSTACONSOLnREADLDA-f}CONSOL xCMP#6 BEQ.3LDATRIG0 BNEREADJSRDEBOUNCE.1LDATRIG0 BEQ.1BNEEXPAND.3JSR-g}DEBOUNCE LDA#8STACONSOL.4LDACONSOL CMP#6 BEQ.4; ;===========================;Blockint-q}2B%DOS SYSB*)DUP SYSBASDATABASEOBJB/DISKFILEBASB DISKFILEOBJBDLI1 BASBDLI2 BASBDLI3 BASB;DZONE OBJB DZONE1 SYNBDZONE2 SYNB[.DZONE3 SYNB8DZONE4 SYNB6DZONE5 SYNBQDZONE6 SYNBQDZONE7 SYNBiEDITORIILSTBMLEDITORBAShemountainsby";expandingthedata ,;===========================6; @EXPANDJLDA/MOUNTAIN TSTATO+1^LDA-r}#MOUNTAIN hSTATO rLDX#0 |LDY#0.0LDAMTAIN.DATA,X BMI.1 BNE.3INXLDAMTAIN.DATA,X AND-s}#$7FTAY LDA#0.4STA(TO),YDEY BPL.4LDAMTAIN.DATA,XINY BEQ.1;.3STA(TO),Y &-t}LDA#10.1AND#$7F:CLC DADCTO NSTATO XBCC.2 bINCTO+1 l.2INXvCPX#LEN.MTN BCC.0;!;=-u}=========================== ;Fillinthegroundwithone!;characterrepeatedperline.!;============================-v};FILL.GROUND LDY#47.1LDA#22+$40CLCSTAGROUND,Y ADC#1STAGROUND+$30,Y ADC#1ST-w}AGROUND+$60,Y ADC#1*STAGROUND+$90,Y 4ADC#1>STAGROUND+$C0,YHDEY RBPL.1\;f;==================-x}======= p;Nowsetthealternatelinesz;onthegroundbyaltering;thecharacterset.;=========================-y};INIT.GROUNDSTYCOLOURY=FF LDA#30STACOUNT LDA#0STAINTS.POSFILLINTSLDA#1STALAST.D-z}IRJSRMOVE.INTSDECCOUNTBNEFILLINTS;;=========================$;Drawintoplayer0the.;crossha-{}irandcentraldot8;oftheoverheadscanner.B;=========================L;VDO.CROSSHAIR `LDA#17jSTAYSCAN-|}tSTAGPRIOR ~LDA#$0FSTAPCOLOR0 LDA#$FFSTABULLETSTAP0+HORIZON-25STAP0+HORIZON+25 LDA#-}}$81STAP0+HORIZON-26STAP0+HORIZON+26 LDA#1 STADLYSTASIZEP0LDA#$80-8STAHPOSP0 ; -~}LDX#4 LDA#$18(SCANLPSTAP0+OSCAN-2,X2DEX<BPLSCANLPF;P;=========================Z;EnablePMG,set-}coloursd;andothervariablesetc.n;=========================x;SET.SCREEN LDA#0STASDMCTLSTACHACT-}; LDA#$10 LDY#6.1STAC.SCORE,YSTATSCORES+2,YDEY BPL.1; LDX#'bSTXC.SCORE-2-}DEXSTXC.LIVES-2"STXC.LEVEL-2,;6JSRRESET @LDA#3JSTAGRACTLTLDA/PMAREA^STAPMBASEhLD-}A/CHAR.SETrSTACHBAS |LDA#$12STACOLOR0 LDA#12STACOLOR1 LDX/VBI LDY#VBI LDA#6JSR-}SETVBV LDA/DLISTAVDSLST+1 LDA#DLISTAVDSLST LDA#192STANMIENLDA/D.LISTSTASDLSTL+1-}LDA#D.LIST&STASDLSTL 0LDA#63:STASDMCTL DLDA#$70 NSTAACE XLDA#$FF bSTACHlJSRCHOOSEv-};JMPMAINLOOP;DEBOUNCELDARTCLOCK+2.1CMPRTCLOCK+2 BEQ.1RTS; SPLITPHA AND#$0F -}ORA#$10 STATEMPPLALSRLSR LSRLSR AND#$0F *ORA#$104RTS>;HNOSOUNDLDA#3RST-}ASKCTL \LDA#0 fLDX#8p.1STAAUDF1,XzDEX BPL.1RTS; ;===========================;TitleDLI-} ;===========================; TDLIPHATXAPHATYAPHALDYCOLUPLDXCOLDOWN LDA#31-}STATCOUNT$.1STAWSYNC.STYCOLPH28STXCOLPH3BINYLINXVDECTCOUNT `BPL.1jINCCOLUPtDECC-}OLDOWN ~LDA#0STACOLPH2 LDA#$E0STACHBASEPLATAYPLATAXPLARTI;;=======-}==================;Titlemessages;========================= ;TMESS.DA#1.DA#96+$80(.AT-"aDEhiLMpqT-}Uxy\]de"2.DA#$9B,#1+20<.AT-"bcFGjkNOrsVWz"F.DA#$80+123P.AT-"^_fg"Z.DA#$9B,#20+13+20d.AT"ByS.H-}illen"n.DA#$9B,#20+40+20%xTSCORES.AT"L0000000H0000000".DA#$9B,#20+40+20+20+2&.AT"(C)1986AnalogComp-}uting".DA#$9B,#20+40+20+20+40+8.AT-"ace" .HS9BFF;VBI LDA/DLISTAVDSLST+1 LDA#DLI-}STAVDSLSTLDAS.HSCROLSTAHSCROLLDALMSCHGJSRCHANGELMSLDATIMER"BMINODEC,DECTIMER 6NOD-}EC@INCVBCOUNTJLDAVBCOUNT TCMP#16 ^BCC.1hLDACHACT rEOR#2|STACHACT LDA#0STAVBCOUNT-}STAATRACT.1JMPSYSVBV;;SETRLDA#95 STAR+1STAEB.R+1 STAR STAEB.RRTSVBCOUNT,sSC ;SAVE"D:DZONE4.SYN";(;Mathsroutines<; F;14/5/85P;Updated9/6/85Z;d;Storageinpage0x;1};16BITMULTIPLY;;MATH1*MATH2; MULT16"JSRSET.POSmakebothops+ve LDX#16MULTASLRESLO1}ROLRESLO+1ROLRESHIROLRESHI+1;ASLMATH1ROLMATH1+1BCCNO.ADD;"LDAMATH2,CLC61}ADCRESLO@STARESLOJLDAMATH2+1TADCRESLO+1^STARESLO+1hBCCNO.ADDr;|INCRESHI;NO.ADDDE1}X BNEMULT;JMPCOMP.RESifneeded;;16BITDIVIDE;;MATH1/MATH2;DIV16JSRSET.POSLDA1}MATH1&ORAMATH1+10BNE.1math1<>0:JMPRES01D;N.1LDAMATH2XORAMATH2+1bBNE.2math2<>0lJMPRES1}INF; .2LDX#0STXTEMP1STXTEMP1+1STXTEMP2STXTEMP2+1;COMPARELDAMATH2SECSBCM1}ATH1 STAHOLDLDAMATH2+1SBCMATH1+1 BCSTWOGT; TIMES2INX*ASLMATH24ROLMATH2+1>JMPCOMP1}AREH;R;\TWOGTORAHOLD fBNE.1pJMPPOWER2z; .1CPX#0BEQONLYREM;DIVIDELSRMATH2+1RO1}RMATH2LDAMATH1SECSBCMATH2PHALDAMATH1+1SBCMATH2+1PHA; BCSOKPLAPLA1}$BCCITOVFLOW8; BOKPLALSTAMATH1+1VPLA`STAMATH1jSECt;~ITOVFLOWROLRESHIROLRESHI+1D1}EXBNEDIVIDE;; ONLYREM LDX#16DIVREMLSRMATH2+1RORMATH2RORTEMP2+1RORTEMP2;1}LDAMATH1 SECSBCMATH2 STAHOLD(PHA2LDAMATH1+1<SBCMATH2+1FPHAPBCCTOTOBIGZ; dORAHO1}LDnBNEMUCHSMALx;LDATEMP1SECSBCTEMP2PHALDATEMP1+1SBCTEMP2+1PHABCCTOBIG1};PLASTATEMP1+1PLASTATEMP1PLASTAMATH1+1PLA"STAMATH1,SEC6BCSCONTDIV@;1}JMUCHSMALPLATSTAMATH1+1^PLAhSTAMATH1rLDATEMP1|SECSBCTEMP2STATEMP1LDATEMP1+1SB1}CTEMP2+1STATEMP1+1BCSNOTOVFL;LDAMATH1 BNE.1DECMATH1+1.1DECMATH1;NOTOVFLSEC1}BCSCONTDIV; TOBIGPLA&PLA0TOTOBIGPLA:PLADCLCN;XCONTDIVROLRESLObROLRESLO+1lDEXv1}BNEDIVREM;SETSGNJMPCOMP.RES;POWER2INXSEC.1ROLRESHIROLRESHI+1DEX BNE.1BEQ1}SETSGN;RES01LDAMATH2 ORAMATH2+1 BNERES0 INCRESHI *RES0RTS4;>RESINFLDX#$80 HLDY#0R1}LDAMATH1+1\EORMATH2+1fBMISTOREp;zDEXDEYSTORESTXRESHI+1STYRESHIRTS; SET.POS1}LDAMATH1+1EORMATH2+1STAMSIGNLDAMATH1+1 BPL.1 LDXMATH1 JSRCOMPL16 STXMATH1$ STAMA1}TH1+1. ;8 .1LDAMATH2+1 B BPL.2L LDXMATH2V JSRCOMPL16` STXMATH2j STAMATH2+1t ; ~ .2LDA#0 STA1}RESLO STARESLO+1 STARESHI STARESHI+1 RTS ; COMPL16 STAMTEMP+1 STXMTEMP LDA#0 SEC1} SBCMTEMP TAX  LDA#0 SBCMTEMP+1( RTS< ; F COMP.RESP LDARESLO Z BPL.1d INCRESLO+1 n BNE.1}1x INCRESHI BNE.1 INCRESHI+1 .1LDAMSIGN BPLPOS.RES ; LDY#0 SEC .2LDA#0 SBCRESLO1},Y STARESLO,Y INY CPY#$4 BNE.2 ; POS.RESRTS" ;6 SEC @ SBC#0J STAMATH1T SINELDAMATH11}+1V SEC ^ SBC#$40h STAMATH1+1r COSINELDA#0| STAMSIGN LDAMATH1+1 BPL.1 LDXMATH1 JSRCOMPL1}16 STXMATH1 STAMATH1+1 ; .1LDAMATH1+1 AND#$C0 BEQLOOK.COS ; LDA#0 SEC SBCMATH11} STAMATH1  LDA#$80& SBCMATH1+10 STAMATH1+1 : LDA#$FFD STAMSIGNN ; X LOOK.COSb ASLMATH1l ROLM1}ATH1+1v ROLMATH1 ROLMATH1+1 BCSZRES ; ROLMATH1 BCCNORDUP INCMATH1+1 BEQZRES ; NORD1}UPLDXMATH1+1 LDACOS.TABLE,X CLC ADC#$1 STARESHI  LDA#0 ADC#0 STARESHI+1 ;* .0LDAMSI1}GN 4 BPL.1> ;H LDARESHI+1R LDXRESHI\ JSRCOMPL16f STXRESHIp STARESHI+1z ; .1RTS ; ZRESLD1}A#0 STARESHI STARESHI+1 RTS ; INVTAN LDA#0 STAMSIGN LDXMATH1 LDAMATH1+1 BPL.11}STAMSIGNJSRCOMPL16$.1LDAINV.TAN.HI,X.PHA8LDAINV.TAN.LO,XBTAXLPLAVLDYMSIGN `BPL.2j1}JSRCOMPL16t.2STARESHI+1~STXRESHIRTS;SET256LDXRESHI+1INX CPX#2BCSSET.INF;D1}EXTXAEORRESHIBMISET.INF;LDARESHI STARESHI+1LDARESLO+1STARESHI(RTS2;<SET1}.INFLDX#$7F FLDY#$FFPLDARESHI+1ZBMINEG.INFd;nSAVESTXRESHI+1xSTYRESHIRTS;NEG.INFINX1}INY BEQSAVE; COS.TABLE.HSFFFFFFFFFFFFFFFFFF.HSFFFFFEFEFEFEFEFEFE.HSFDFDFDFDFDFCFCFCFC1}.HSFBFBFBFBFAFAFAF9F9.HSF9F8F8F8F7F7F7F6F6.HSF5F5F4F4F4F3F3F2F2".HSF1F1F0F0EFEEEEEDED,.HSECECEBEAEAE9E1}8E8E76.HSE6E6E5E4E4E3E2E2E1@.HSE0DFDFDEDDDCDBDBDAJ.HSD9D8D7D6D6D5D4D3D2T.HSD1D0CFCECECDCCCBCA^.HSC9C1}8C7C6C5C4C3C2C1h.HSC0BFBEBDBCBBB9B8B7r.HSB6B5B4B3B2B1B0AEAD|.HSACABAAA9A7A6A5A4A3.HSA1A09F9E9C9B9A99971}.HS9695949291908F8D8C.HS8B8988878584838180.HS7F7D7C7A7978767574.HS72716F6E6C6B6A6867.HS65646261601}5E5D5B5A.HS5857555452514F4E4C.HS4B494846454342403F.HS3D3C3A393736343231.HS2F2E2C2B2928262523.HS1}21201E1D1B1A181715.HS1312100F0D0C0A0807.HS05040201&;0INV.TAN.HI)D.HS00000000000000010101010101020202)N1}.HS02020203030303030303040404040404)X.HS05050505050506060606060606070707)b.HS07070708080808080808090909090909)l1}.HS090A0A0A0A0A0A0B0B0B0B0B0B0B0C0C)v.HS0C0C0C0C0C0D0D0D0D0D0D0D0E0E0E0E).HS0E0E0E0F0F0F0F0F0F0F0F1010101010).H1}S10101111111111111111121212121212).HS12131313131313131314141414141414).HS14141515151515151515161616161616).HS1}16161617171717171717171718181818).HS18181818181919191919191919191A1A).HS1A1A1A1A1A1A1A1A1B1B1B1B1B1B1B1B).HS1B1}1B1B1C1C1C1C1C1C1C1C1C1C1D1D1D).HS1D1D1D1D1D1D1D1D1D1E1E1E1E1E1E1E).HS1E1E1E1E1F1F1F1F1F1F1F1F1F1F1F1F;INV.1}TAN.LO) .HS0029517AA3CCF41D466F97C0E9113A62).HS8BB4DC052D567EA7CFF720487099C1E9) .HS11396189B1D901295178A0C8EF171}3E66)*.HS8DB5DC032A51789FC6ED143B6188AED5)4.HSFB22486E94BAE0062C51779DC2E70D32)>.HS577CA1C6EB1034597DA2C6EA0F33561}7A)H.HS9EC2E5092C507396B9DCFF21446789AB)R.HSCEF01234567799BBDCFD1F406182A3C3)\.HSE40525456686A6C6E60525446483A2C11})f.HSE0FF1E3D5B7A98B7D5F3112F4C6A88A5)p.HSC2E0FD1A3754708DAAC6E2FE1B37536E)z.HS8AA6C1DDF8132E49647F9AB4CFE9041E)1}.HS38526C869FB9D3EC051F38516A839CB4).HSCDE5FE162E465E768EA6BED5ED041B33).HS4A61788EA5BCD3E9FF162C42586E849A)1}.HSB0C5DBF0061B30455A6F8499AEC3D7EC4).HSCDE5FE162E465E768EA6BED5ED041B33).HS4A61788EA5BCD3E9FF162C42586E849A)0&SC  ;SAVE"D:DZONE5.SYN";;==========================(;Readthejoystickandact2;accordingly!<;=========5}=================F; PJOYSTICK ZLDA#1dSTAEB.D.RnLDAPORTA xCMP#$FF BNE.0 LDA#0BEQENGINE5}; .0AND#8 BNE.1JSRRIGHT.MOVE.1LDAPORTA AND#4 BNE.2JSRLEFT.MOVE.2LDAPORTA A5}ND#2 BNE.3JSRBACK.MOVEDECEB.D.R"JSRRESTORE,.3LDAPORTA 6AND#1 @BNE.4JJSRFWD.MOVET5}INCEB.D.R^JSRRESTOREh.4LDA#$50rSTAAUDF2 |LDA#$22ENGINESTAAUDC2RTS;;===================5}======;Scrollmountains,move;enemyandbullettoleft;=========================; LEFT.MOVELDXS.HSCR5}OL CPX#3 BNE.1 LDX#$FFLDYMT.LMS BNE.2 LDY#80 &.2DEY0STYLMSCHG :.1INXDSTXS.HSCR5}OLNINCP0.POSXINCP0.POSb;lLDA/YOUR.D.TvLDX#YOUR.D.TJMPADDTHETA;;=========================5};Movemountains,enemyand;bullettoright.;=========================;RIGHT.MOVELDXS.HSCROL BNE5}.1 LDX#4LDYMT.LMS CPY#79 BNE.2 LDY#$FF .2INY STYLMSCHG *.1DEX4STXS.HSCROL>DEC5}P0.POSHDECP0.POSR;\LDA/YOUR.D.TfLDX#YOUR.D.TpJSRCOMPL16zADDTHETASTATEMPBITTIMER BPL.15}TXACLCADCTHETASTATHETALDATHETA+1 ADCTEMPSTATHETA+1TXACLCADCEB.THETA5}STAEB.THETALDAEB.THETA+1 ADCTEMPSTAEB.THETA+1 $.1RTS.; 8CHANGELMSBSTAMT.LMSLSTAMT.LMS+65}VSTAMT.LMS+12 `EOR#$80jSTAMT.LMS+3tSTAMT.LMS+9~STAMT.LMS+15NORCHGRTS;;==================5}======== ;Moveforward,iemovelines;downandcalculatenewR;andthetaforenemy.;==========================5}; FWD.MOVE LDA#1JSRMOVE.INTSJSRSETDELTA; EN.FWDLDA#0BEQBKDSKIP;(;==============5}============ 2;Movebackwardiemovelines<;upandcalculatenewRF;andthetaforenemy.P;========================5}==Z; dBACK.MOVE nLDA#$FFxJSRMOVE.INTSJSRSETDELTA;EN.BKDLDA#$80;;=======================5}===;Nowdothemathstofind;newRandnewtheta.;==========================;BKDSKIPSTAFBFLAGBITT5}IMERBPLNORCHGLDAWORK.THETASTAMATH1LDAWORK.THETA+1STAMATH1+1"JSRCOSINE,JSRMULT.DELTA5}6;@INFRONTLDARESHI+1JLDXRESHITBITFBFLAG ^BMI.1hJSRCOMPL16r.1STATEMP|TXACLCADCWOR5}K.RSTAWORK.R LDATEMPADCWORK.R+1STAWORK.R+1;;NowgotR+-D.R*cos.th; ONWARDLDAWORK.5}THETASTAMATH1LDAWORK.THETA+1STAMATH1+1 JSRSINEJSRMULT.DELTA&;0LDAWORK.R:STAMATH2D5}LDAWORK.R+1NSTAMATH2+1XLDARESHIbSTAMATH1lLDARESHI+1vSTAMATH1+1JSRDIV16JSRSET256;5}";DoneD.R*sin.th/R+-D.R*cos.th;LDARESHISTAMATH1LDARESHI+1STAMATH1+1JSRINVTAN;LD5}XRESHILDARESHI+1; ;Justdonearctanforphi; BITFBFLAG *BPL.14JSRCOMPL16>.1STATEMPHT5}XARCLC\ADCWORK.THETAfSTAWORK.THETApLDAWORK.THETA+1 zADCTEMPSTAWORK.THETA+1;NOWEXITRTS5};SETDELTALDA#YOUR.D.RSTADELTARLDA/YOUR.D.RSTADELTAR+1 LDARSTAWORK.R LDAR+1STA5}WORK.R+1LDATHETA STAWORK.THETA LDATHETA+1 STAWORK.THETA+1$ RTS. ;8 RESTORELDAWORK.THETAB STA5}THETAL LDAWORK.THETA+1V STATHETA+1` LDAWORK.R j STARt LDAWORK.R+1 ~ STAR+1 RTS ; MULT.DELTA5} LDARESHI STAMATH1 LDARESHI+1 STAMATH1+1 LDADELTAR STAMATH2 LDADELTAR+1 STAMATH2+1 5}JSRMULT16 JSRSET256 RTS ; ;==========================( ;Movetheblacklineson2 ;thegroundupordown.5}< ;==========================F ; P MOVE.INTSZ STAINTS.DIRd CMPLAST.DIRn BEQNOEORx STALAST.DIR LDACO5}LOUR EOR#$55 STACOLOUR LDA#0 STAINTS.DIR ; NOEOR LDAINTS.POS CLC ADCINTS.DIR BMI5}.1 CMP#20 BCC.2 LDACOLOUR  EOR#$55 STACOLOUR " LDA#0 , BEQ.26 .1LDACOLOUR @ EOR#$55J 5}STACOLOUR T LDA#19^ .2STAINTS.POSh TAXr LDACOLOUR| STACHAR22+4+5+7+10,X EOR#$55 TAY TXA L5}SR TAX TYA STACHAR22+4+5+7,X TXA LSR TAX TYA STACHAR22+4,X ;  LDX#0 LDAINTS.POS5} DIV3CMP#3 & BCC.1 0 SBC#3: INX D BNEDIV3N .1LDACOLOURX STACHAR22+4+5,Xb ; l LDX#0v LDAINTS5}.POS DIV5CMP#5 BCC.1 SBC#5 INX BNEDIV5 .1LDACOLOUR STACHAR22,X RTS ; ;===========5}============== ;Fireabulletifthe ;trigger'spressed. ;========================= ; FIRE  DECDLY BNE5}.1* LDA#BULL.DELAY 4 STADLY> LDABULLETH BPLDO.ALREADYR LDATRIG0\ BEQFIREDf JSRB.CLEAR p .1RTS5}z ; FIREDLDA#15 STABULLET LDA#3 STAPSIZ.DLI LDA#$70 STAP0.POS LDA#$10 STAFIREC1 ;5} DO.ALREADY JSRB.CLEAR ; LDABULLETTAXLSRCLC $LDA#$F.STAPCOL.DLI8; BCPX#14 LB5}NE.1 VLDA#1`STAPSIZ.DLIjLDAP0.POStCLC ~ADC#8STAP0.POS;.1CPX#12BNENOISE1 LDA5}#0STAPSIZ.DLILDAP0.POSCLC ADC#4STAP0.POS; NOISE1 LDA#2 STAAUDF4LDYFIREC1 5}BEQ.1(DEY2DEY<.1STYFIREC1FSTYAUDC4P;ZNEW.BULLET dLDA/P0 nSTATO+1 xLDA#P0 STATO5}JSRBULLETLOADDECBULLET; FIRE.EXITRTS;B.CLEARLDA#0LDY#HORIZON-24.1STAP0,YINY5}CPY#HORIZON+25 BCC.1RTS;;==========================";Bulletload-passedsize,;0to15inclusive5}inX 6;===========================@;JBULLETLOAD TLDA#1^STAREPEATh; rCPX#12 |BCC.1 BEQ.25};TXASEC SBC#13TAXLDYL3BOFFS,XLDAREPTL3B,XSTAREPEATLDAL3BTYPE,XTAXBNEBS5}KIP;.2LDX#15 .1TXALSR &EOR#$FF0CLC:ADC#HORIZON+1DTAYNBSKIPSTXCOUNTXLDASMSPOFFS,5}XbTAX lBLOOPvLDAREPEATSTAS.REPEATLDASMSPDATA,X.1STA(TO),YINYDECS.REPEAT BNE.15}INXDECCOUNTBPLBLOOP;RTS;3L3BOFFS.DA#HORIZON-11,#HORIZON-15,#HORIZON-24REPTL3B.HS0202045} L3BTYPE.DA#11,#15,#11BLOOP;RTS;3L3BOFFS.DA#HORIZON-11,#HORIZON-15,#HORIZON-24REPTL3B.HS0202044SCt ;SAVE"D:DZONE6.SYN";;==========================(;Rangechecklooksforahit2;bytheenemy,andif<;:}necessarydrawsinthe F;sphere.Alsodoeswrapround.P;==========================Z;dRANGECHECK nLDAR+1xBMI:}YOUREHIT; CMP#96BCCNOWRAPLDATHETA+1 EOR#$80STATHETA+1 LDA#95 STAR+1 STAR;:}NOWRAPLDAR+1 CMP#2BCCYOUREHIT;LDAEB.R+1BMIYOUREHIT2 "CMP#2,BCCYOUREHIT26;@JMP:}DRAWINGJ;T;=========================^;Nastycoloursasyou'veh;beenhit!r;=========================|; Y:}OUREHIT LDA#2 STAR STAR+1JSRDRAWING; YOUREHIT2 LDA#0STASETFLAGJSRSCANFILLST:}AFIREC1STAAUDC4JSRSCANERA LDA#$FFSTABULLETJSRB.CLEAR&JSRNOSOUND 0LDX#38:.1LDARTCL:}OCK+2 DSTATEMP N.2LDY#4X.3LDARANDOMbSTACOLPF0,Y lCPY#4 vBNE.4DEY .4DEY BPL.3LDA:}RANDOMSTACOLPM0LDARANDOMSTACOLPH3STACOLPM2STACOLPM3LDARANDOMSTACOLPM1 ORA#$10: }STAAUDC1LDARTCLOCK+2 CMPTEMP BEQ.2 DEX *BPL.14; >JSRSETRHDECLIVESRBNELIVESLEFT: }\PLAfPLApJMPSTART zLIVESLEFTDECC.LIVESJSRNOSOUNDJSRERASELDAKFLAG BNE.1JSRRES: }ET.1JMPCHOOSE;!;============================;Drawingintheplayers!;============================; : }ERASE LDA#0LDX#HORIZON+40 .1DEX $STAP1,X 8STAP2,X BSTAP3,X VBNE.1mRTSo; tDRAWING: }JSRERASE; ;Justerasedtheoldsphere.; FINDSIZE LDXR+1 CPX#2 BCC.0 LDAR BPL.1I:}NX.1CPX#64 BCC.2 LDA#0STASPHKIND.0RTSNotthere.(;2.2LDASPHERETYPE,X<STASPHKINDFT:}AX PCPX#16ZBCSMIDDLEd;#n;Drawinthe1playerwideone.x; LDAXPOSSECSBCSMSPHADJ,XSTAHP:}OSP2 LDA#0STASIZEP2STXCOUNT;TXALSR STATEMPLDA#HORIZONSEC SBCTEMPSEC:} SBCJUMP"TAYGetplayertaboffset.,LDASMSPOFFS,X6TAX@;JSMLOOPLDASMSPDATA,X TSTAP2,Y^INYh:}INXrDECCOUNT|BPLSMLOOPSLEAVERTS; MIDDLE CPX#22BCSLARGETXASEC SBC#16TAX:}STXXSTORE LDAXPOSSECSBCMSPHADJ,XSTAHPOSP2&CLC 0ADC#8:STAHPOSP3 DLDA#0NSTASIZ:}EP2XSTASIZEP3b;lLDAMSPPOFF,XvSEC SBCJUMPTAYLDASHRPTS,XSTASHRPTLDAMSPOFFS,XT:}AX;MLOOPLDAMSPDATA,XBEQMEXIT; STAP3,Y STXTEMP LDX#0 STXBYTE LDXSHRPTREVERSE:}LSR ROLBYTE*DEX4BPLREVERSE >LDXTEMPH; RLDABYTE \STAP2,YfINYpINXzBNEMLOOP MEXIT:}LDXXSTORE LDAXPOSSECSBCMHADJ,XPHALDYMHOFFS,XLDAMHTYPE,XTAXPLAJMPHIGHLIGH:}T; LARGE TXA SEC  SBC#22$ TAX. STXXSTORE8 LDALSPS1,XB STASIZEP3L LDALSPSM,XV STASIZ:}EM` LDALSPS2,Xj STASIZEP2t ; ~ LDAXPOS SEC SBCLSPHADJ1,X STAHPOSM3 CLC ADCLSPADD,X ST:}AHPOSM2 ADCLSPADD,X STAHPOSM1 ADCLSPADD,X STAHPOSM0 ADCLSPHADJ2,X STAHPOSP2 ADCLSPHADJ3,X:} STAHPOSP3 ; LDYLSPOFFS,X( LDALSPSTART,X2 SEC < SBCJUMPF TAXP ;Z .0LDALSPDATA,Yd BEQHALFW:}AYn STACOUNTx .1LDALSPDATA+1,Y STAM,X LDALSPDATA+2,Y STAP2,X LDALSPDATA+3,Y STAP3,X INX:} DECCOUNT BNE.1 INY INY INY INY BNE.0 ;  HALFWAY DEY" DEY, DEY6 DEY@ .0LDA:}LSPDATA,YJ BEQLEXITT STACOUNT^ .1LDALSPDATA+1,Y h STAM,Xr LDALSPDATA+2,Y | STAP2,X LDALSPDATA+3,Y:} STAP3,X INX CPX#HORIZON+40 BEQLEXIT DECCOUNT BNE.1 BEQHALFWAY ; LEXIT LDXXSTORE: } LDYLHOFFS,X LDAXPOS CLC ADCLHADJ,X PHA& LDALHTYPE,X0 TAX: PLAD ; N HIGHLIGHTX STAHPO:!}SP1b LDAPCOLOR2l CLC v ADC#2 STACOLPM1 STAPCOLOR1 STXCOUNT TYA SEC SBCJUMP TAY :"}LDA#0 STASIZEP1 LDASMSPOFFS,X TAX HI.LOOP LDASMSPDATA,X  STAP1,Y INY INX DECCOUNT* :#}BPLHI.LOOP> RTSH ;R SPHERETYPE.BS2\ .HS19181716f .HS1514131211107p .HS0F0E0D0C0B0A0A0909080807070706060:$}60605050505055z .HS04040404040303030303020202020202010101010101 .HS00000000000000 ; ;1 SMSPHADJ.HS050504040:%}50504040505040405050404 ; SMSPDATA E0.HS08 E1.HS0808 E2.HS181818 E3.HS18181818 E4.HS081C1C1C08:&} E5.HS081C1C1C1C08 E6.HS18183C3C3C1818E7.HS18183C3C3C3C1818E8.HS081C1C3E3E3E1C1C08E9.HS081C1C3E3E:'}3E3E1C1C08"$E10.HS183C3C7E7E7E7E7E3C3C18$.E11.HS183C3C7E7E7E7E7E7E3C3C18&8E12.HS1C3E3E7F7F7F7F7F7F7F3E3E1C(BE13:(}.HS1C3E3E7F7F7F7F7F7F7F7F3E3E1C*LE14.HS183C7E7EFFFFFFFFFFFFFF7E7E3C18,VE15.HS183C7E7E7EFFFFFFFFFFFF7E7E7E3C18`;:)}j;=tSMSPOFFS.DA#0,#E1-E0,#E2-E0,#E3-E0,#E4-E0,#E5-E0,#E6-E05~.DA#E7-E0,#E8-E0,#E9-E0,#E10-E0,#E11-E0,#E12-E0 .D:*}A#E13-E0,#E14-E0,#E15-E0;;;Middlesizedata.;MSPHADJ.HS090809080808;SHRPTS.HS060706070707:+};=MSPPOFF.DA#HORIZON-8,#HORIZON-9,#HORIZON-10,#HORIZON-12 .DA#HORIZON-13,#HORIZON-16 ; MSPDATA;0(E16.:,}HSC0E0E0F0F0F0F8F8F8F8F8F0F0F0E0E0C00042E17.HSC0E0E0F0F0F0F8F8F8F8F8F8F8F0F0F0E0E0C0008<E18.HS80E0F0F0F8F8F8FCFCFCFC:-}FCFCFCF8F8F8F0F0E08000>FE19.HS80E0E0F0F0F8F8F8FCFCFCFCFCFCFCFCF8F8F8F0F0E0E08000LHOFFS.DA#HORIZON-12,#HORIZON-16:8},#HORIZON-23,#HORIZON-32;LHADJ.DA#$FF,#0,#1,#2LHTYPE.DA#9,#11,#13,#15;;:MHOFFS.DA#HORIZON-4,#HOR:9}IZON-5,#HORIZON-6,#HORIZON-7.DA#HORIZON-8,#HORIZON-10; MHADJ.DA#3,#3,#3,#3,#2,#1 MHTYPE.DA#2,#3,#4,#5,#6,::}#7 ;*;==========================4;Doallthebitstothe>;scanner-thefirstistoH;drawthehorizontalbar.R:;};==========================\; fDOSCANLN pLDA#97zSEC SBCR+1; STATEMPAND#7X=REMTAX :<}LDATEMPLSRLSRLSRTAYY=QUOTLDABYTEL,XSTACHARL+3STACHARL+4LDABYTER,XSTACHARR:=}+3STACHARR+4$;.STYYTEMP 8LDX#23BLDA#$1F?LSCLOOPSTASCANLINE+24,YVSTASCANLINE,X`DEXjD:>}EYtBPLSCLOOP~;LDYYTEMPLDA#27;STASCANLINE+1,XLDA#26:STASCANLINE+24,Y; LDA#$00:?}.1STASCANLINE+25,YSTASCANLINE,XDEXINY CPY#15 BCC.1 ;;========================;Now:@}showthechevrons(;ateitheredge.2;========================<;FLDATHETA+1PCLCZADC#$2045DEGdROL:A}nROLxROL AND#3TAXBNELRSKIPLDATHETA+1CLC ADC#$20CMP#$16+$20 BCC.5 LDX#1:B}BNELRSKIP.5CMP#$EC+$20BCSLRSKIP LDX#3; "LRSKIP,LDYLEFTRIGHT1,X6LDALRDATA,Y @LDY#3:C}JLRLOOP1STASCANLINE+4,YTDEY^BPLLRLOOP1h;rLDYLEFTRIGHT2,X|LDALRDATA,Y LDY#3LRLOOP2STASCANL:D}INE+40,YDEYBPLLRLOOP2;;=========================;Nowtheplanviewscanner,;calculatingRcosandR:E}sin;=========================;; LDXR+1 LDAR BPL.1&INX 0.1CPX#6:BCCNOSCAND; bLDX:F}#0lJSRSCANSUBvLSRRORMATH2STAMATH2+1JSRMULT16JSRSET256 LDA#$7FCLCADCRESHI+1:G}STASCANPOS; LDX#1JSRSCANSUBSTAMATH2+1JSRMULT16JSRSET256 LDA#OSCANSEC SBC:H}RESHI+1*STAYSCAN,RTS4;>SCANPUTLDA#$3HSCANFILLLDYYSCANRSTAM-1,Y \STAM,YfSTAM+1,YkRTS:I}p;NOSCANLDA#0STAYSCANRTS; SCANSUBLDATHETA+1STAMATH1+1LDATHETASTAMATH1 CP:J}X#1 BEQ.1 JSRSINE JMP.2.1JSRCOSINE.2LDARESHISTAMATH1LDARESHI+1STAMATH1+1$; :K}.LDAR8STAMATH2 BLDAR+1LLSRVRORMATH2`LSRjRORMATH2tRTS~;;========================;:L}Istheenemyatanangle;tobedisplayedyet?;Theta+1passedinA.;========================; ENEMYSHOW:M}CLC ADC#$20 CMP#$40BCSNOTON;STAMATH1+1 LDATHETA LDX#6.1LSRMATH1+1(ROR2DEX:N} <BNE.1FRTSP;ZNOTONLDA#0dRTSn; xBYTEL.HS000103070F1F3F7FFF BYTER.HS0080C0E0F0F8FCFEFFLEFTR:O}IGHT1.HS01010000LEFTRIGHT2.HS01020201!LRDATA.DA#$80+96,#0,#$80+99;SCANERALDX#47 LDA#0.1STAS:P}CANLINE,XDEX BPL.1RTS01020201!LRDATA.DA#$80+96,#0,#$80+99;SCANERALDX#47 LDA#0.1STAS8%SC ;SAVE"D:DZONE7.SYN";;======================(;Themainloop!2;======================<; FMAINLOOP>R}PJSRDEBOUNCE dLDA#0nLDX#HORIZON+40 x.1DEX STAM,X BNE.1;STASIZEMLDATIMER BPL.2>S}LDAYSCAN BEQ.2LDASCANPOSSTAHPOSM0JSRSCANPUT.2JSRRANGECHECKJSRESHOW;,NOSCYET>T}JSRFIRE6JSRJOYSTICK@;J.1LDATIMERTBPLNOPAUSE^;hJSRDOENEMYrJSRHITDETECTwJSRDOSCANLN|;>U} LDACH CMP#$21BNENOPAUSELDYRTCLOCK+1JSRNOSOUND;.2LDAPORTA CMP#$FF BEQ.2ST>V}YRTCLOCK+1;NOPAUSELDA#$FF STACH;LDACONSOL CMP#7&BEQMAINLOOP0JMPSTART:;DESHOWL>W}DATHETA+1NJSRENEMYSHOW XSTAXPOSbRTSl;v;======================";Hitdetection.Didyougetit?;=====>X}=================; HITDETECTLDAS.PPL BEQ.1;LDABULLET EOR#$0F STATEMP LDAR+1LS>Y}RLSR0to15SEC SBCTEMPCLC ADC#2 *CMP#24BCCEXPLODE >BPL.1HLDAPCOLOR2 RBNE.2\>Z};f.1LDA#$0Fp.2STAPCOL.DLIzRTS; EXPLODE;========================;It'stheexplosionfolks!;=>[}=======================; INCDEAD LDA#0JSRSCANFILL;JSRNOSOUNDJSRSCANERASTAFIREC1>\}STAFIREC2 LDA#$FFSTABULLET$JSRB.CLEAR.;8;TurnoffbulletB; LLDA#30VSTAEXPTIM`LDAPCOL>]}OR2 jSTAPCOLt; ~ENEXPLJSRDRAWINGJSRESHOW;LDA#HORIZON-48SEC SBCJUMPTAY.0LDA>^}M,YANDRANDOM STAM,Y LDAP1,YANDRANDOM STAP1,Y LDAP2,YANDRANDOM STAP2,Y (LDAP3,>_}Y2ANDRANDOM <STAP3,YFINYPCPY#HORIZON+40 ZBCC.0d;nLDAEXPTIMxLSRTAX STATEMPBCC>`}NOWHITE LDA#$00BEQSCOLSNOWHITELDAPCOL AND#$F0 ORATEMPSCOLSLDY#2FADESTAPCOLOR1,YS>a}TACOLPM1,YDEY BPLFADETXA ORA#$80STAAUDC1"TXA,LSR 6ORA#$80@STAAUDC3 JLDA#$80>b}TSTAAUDF1^STAAUDF3h;rJSRJOYSTICK |LDAR+1 CMP#2 BCS.0 LDA#2 STAR+1 STAR.0DEC>c}EXPTIMBEQDONEXPLJSRDEBOUNCEJMPENEXPL;DONEXPLJSRNOSOUND JSRSETR; DOSCORELDAKFLA>d}GBNESCORS&JSRRESET0LDALEVEL :CMP#5 DBCC.1 NLDA#$06 XSTAACEbPLAlPLAvJMPSTART;>e}.1INCLEVELINCC.LEVELINCLIVESINCC.LIVES; SCORSSEDLDARANDOM AND#$70BEQSCORS>f}CLCADCSCORESTASCORELDASCORE+1 ADCLEVELSTASCORE+1 LDASCORE+2 *ADC#04STASCORE+2>>g}CLD HLDX#2 RLDY#0\.2LDASCORE,XfJSRSPLITpSTAC.SCORE,YzSTATSCORES+2,YINY LDATEMPST>h}AC.SCORE,YSTATSCORES+2,YINYDEX BPL.2JMPCHOOSEE,YzSTATSCORES+2,YINY LDATEMPST<J32600 IF FL THEN 3261632602 DIM L$(115),SV$(115),C2$(2),B$(115),M$(119),S$(98),E$(69),A$(1):FL=1:STMTAB=PEEK(136)+PEEK(137)*Bj}25632604 GRAPHICS 0:POKE 710,0:P=0:ABR=0:? "ALLOW ABBREVIATIONS";:INPUT A$:IF A$="Y" OR A$="y" THEN ABR=132606 B$(1)=" ":B$Bk}(115)=" ":B$(2)=B$32608 M$(1)="hhhhhͩ Dڬ˅ Dڭ "32610 M$(59)=" ٥ԍՍBl}mmаԭ`"32612 S$="hhhhhإXͥYήi(͐@`ɀi Bm}8@rױ Ȅ`"32614 E$="hhhإͥΠȱe͐ͅΰ7`"32616 OPEN #17,Bn}4,0,"E:":L$=" ":GOSUB 32662:START=032618 POKE 766,1:POKE 83,39:POSITION 1,3:IF LEN(L$)<39 THEN ? L$:GOTO 3262432620 IF LEN(Bo}L$)<77 THEN ? L$(1,38):? L$(39,LEN(L$)):GOTO 3262432622 ? L$(1,38):? L$(39,76):? L$(77,LEN(L$))32624 POKE 752,0:POKE 766,0:Bp}POKE 559,34:POKE 82,1:POKE 83,38:POSITION 0,10:? " ";:INPUT #17;L$:POKE 766,132626 IF (L$="P" OR L$="p") AND START=0 THEN P=Bq}1:L$=""32628 IF L$="E" OR L$="e" THEN E=1:POSITION 1,10:? SV$:GOTO 3262432630 IF L$="Q" OR L$="q" THEN 3269032632 IF L$=""Br} AND P=1 THEN 3268632634 IF L$="" THEN 3262432636 IF L$="B" OR L$="b" THEN GRAPHICS 0:? "TYPE 'GOTO 32600' TO CONTINUE":ENDBs} 32638 IF L$(1,1)="E" OR L$(1,1)="e" THEN E=1:TRAP 32624:EL=VAL(L$(2)):POSITION 1,9:LIST EL:GOTO 3262432640 SV$=L$:TRAP 326Bt}24:X=VAL(L$)32642 START=1:IF P AND NOT E THEN 3265232644 GOSUB 32674:IF NOT ABR OR P THEN 3265232646 POKE 766,0:? CHR$(1Bu}25):POSITION 0,3:L=VAL(L$):LIST L:? :? :? "CONT":L$=B$32648 POSITION 0,0:POKE 842,13:STOP 32650 POKE 842,12:A=USR(ADR(S$),ABv}DR(L$),4):L$=L$(1,A)32652 CHKSUM=USR(ADR(M$),ADR(L$),LEN(L$)):CHKSUM=CHKSUM+PEEK(1542)*6553632654 CHK=CHKSUM-(INT(CHKSUM/67Bw}6)*676):HI=INT(CHK/26):LO=CHK-(HI*26):C2$(1)=CHR$(HI+65):C2$(2)=CHR$(LO+65)32656 IF NOT P OR E THEN E=0:GOSUB 32662:IF NOTBx} P THEN 3266032658 POKE 83,39:POKE 752,1:FOR X=3 TO 5:POSITION 1,X:? B$(1,38):POSITION 1,X+7:? B$(1,38):NEXT X:POKE 83,3832By}660 POKE 766,1:POKE 83,38:POSITION 6,7:? C2$:POKE 752,0:GOTO 3261832662 GOSUB 32702:POKE 766,0:POKE 752,1:? "}":POKE 82,1:DLBz}=PEEK(560)+256*PEEK(561)+432664 POKE DL-1,70:POKE DL+2,6:POKE DL+3,112:POKE DL+4,112:POKE DL+5,112:POKE DL+13,112:POKE DL+14B{},11232666 POKE DL+22,112:POKE DL+23,112:POKE DL+24,65:POKE DL+25,PEEK(560):POKE DL+26,PEEK(561):POKE 83,3932668 POSITION 20B|},0:? "頠":POSITION 0,7:? "Ǡנ"32670 POSITION 0,1:? "B}}Šנ":POSITION 1,7:? ":";32672 POKE 559,34:RETURN 32674 GRAPHICS 0:POKE 559,0:POKE 766,1:POKE 82,0:POB~}KE 83,39:POSITION 0,3:? L$:? :? :? :? "CONT":POSITION 0,032676 POKE 842,13:STOP 32678 POKE 842,12:TRAP 32682:A=USR(ADR(E$),B}VAL(L$)):IF A=4 THEN POP :GOTO 3268232680 RETURN 32682 GOSUB 32662:SOUND 0,75,10,8:FOR X=1 TO 20:NEXT X:SOUND 0,0,0,0:POSITB}ION 1,3:? "SYNTAX ERROR!":POKE 766,132684 POKE 83,38:POSITION 1,10:? SV$:GOTO 3262432686 LINE=PEEK(STMTAB)+PEEK(STMTAB+1)*2B}56:IF LINE>32599 THEN 3269032688 OFS=PEEK(STMTAB+2):STMTAB=STMTAB+OFS:POSITION 1,9:LIST LINE:GOTO 3262432690 POKE 766,0:POSB}ITION 1,10:? "READY TO QUIT";:INPUT A$:IF A$<>"Y" THEN POSITION 1,10:? B$(1,38):GOTO 3262432692 GRAPHICS 0:? :? :? :FOR X=32B}600 TO 32636 STEP 2:? X:NEXT X:? "CONT":POSITION 0,0:POKE 842,13:STOP 32694 POKE 842,12:GRAPHICS 0:? :? :? :FOR X=32638 TO 3B}2674 STEP 2:? X:NEXT X:? :? "CONT":POSITION 0,032696 POKE 842,13:STOP 32698 POKE 842,12:GRAPHICS 0:? :? :? :FOR X=32676 TO B}32702 STEP 2:? X:NEXT X:? :? "POKE 842,12":POSITION 0,032700 POKE 842,13:STOP 32702 POKE 16,112:POKE 53774,112:RETURN TO @y78V l BFNABFF1LINRETRBACKSCHKSUEDILBYTDMOD@F}  GG9@,;@,F};@,;@,;@,;@, ;@,?6-A6-AU'6-A&36-?6-IF} AP-@@8(tart or ontinue? B AI(>:,(?-@@#(FILENAME'9AR@F}?( 25B:, @$-@ @+( 5 @@<?7@<@,0D:&6.D:567@,.? @FF} 6.P>:,4SA Z4 A0*@@4 Ad@-@@$)@( 66F}-%@@ An5@+@@ 5 Apxr A`*@@4 A@F}F-@@`(FILE ALREADY EXISTS!!rARH-@@%( ERASE IT? / AAAR@F}H(>:,,>:,4N)>:,4n"@, @0>:,0Y*>:,0yA0+@+@@F}? AP-@@3( נΠ: ?6-6-@#-@@W-@$+ @,%@F}$+!@ ,%@iAR|(BYTE #:  A$*"6-8,$ A 6-A:,F} 6. -@"%@ ( 0 68,-6-%$"!A06-&B) 6-%!A)6-&BF}O-@%@)AR9( CHECKSUM: E6-@O A*"Ap 6-A:,!-F}@"%@!( "A"/ A@6-@%6-/ A,O-@@'*@F}8,+ 96-%@E6-O Ap66-@- A-"@:Q,*"@*(A J++**+ @HF})!@W,A K"*46.O%%"*"*!@APT&&++"*(,)",*"A ^$ "F}AR@!( $$hAr2!@(6.7@<&@,2 A| 6.# (>:,6-&@F}# A '6-%@!6-' AP!67,.>:,(>:,! A  +^ A@-@F}@1( NO SUCH FILE!E-@AI T@^ @0tA@H72A@@F}K-@@PO q2t$U +@#@A1B7tACAYF}UA@U-6-F:A`,%AV$F:Aa,%@A&@@pU%@@_-@F}@9@-%@1 M-@@@@[%_ W%@A@e.%@BF:A`,F}E%@CF:Aa,W@?-@*(analog ml editor<AY@4?$>#@@F}K:0)@;@>$D:MLEDITOR.BAS(analog ml editor<AY@4?$>#@@D?