#@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`  `8  ɐ     `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.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8: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 ALLOWED228 FREE SECTORS COPYING---D1:DISKFIX.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- 160ɛ+,' 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 D8u8<<  B JKIHiDiELV`L8 8 BLV`LxT}8t8l Lu8hihiHHȱȱL8c !#3`Lu8JJJJ`H 8h`HU}ȩh Q8L8 Z8L8 8L8 8L8 8L8S:@9E:E9H '9 H9I9 8 '9h)0ICV}9D9L8 L :::: :Lr:::IEL[::i:iIIL[:`:i::iX}::L:`L{:w:w: C`L:L: D8:MEM.SAV: 8| 9 '9`L:L: D:DUP.SYS:̩ 8Y} x:ɀL: '9`88 |9Y:X: '9L); D8:DUP.SYS; 8::88 9 '98? :`;WL`; 9Z}Ln; ` :Y;Y;L;L;)} Setting Up ATARI 130XE Ram Disk; 9L; ; -9  [} L;D8:; :9 :Y;L-@m}@ $( SELECTION >0@@ @] Ap-@$@ +( =-@$@ OAdAn}UY A], 4DOS@e@) A ,.S27@<@,4P*+"@)"@,=@o}I6-@S AL7@<@,4P(6-@B0@L AG7@<@,4Dp}(6-@2 A =@G A$$7@<@,4SA: 6-A:,& @)!&@&0 Aq}: A_ B(}@;@@G6-S"@_6-@4$-@%r} @$ +67@<@,.7@<@,S67@<@,.7@<@,l67@<@,.s}.67@<@,.7@<@,Y 6.-@@,6-@:7<,,B"@F)"@XY67B:,%@,t}.>:,H1+!@G* @X,)+!@d* @,H67B:,%@,.>:,G @@+@e@=Au}RG Apr +@-@@4(@LOADINGF-@@d(@7@<@,nv} A@r%h A(@4(@FILE NOT FOUNDT(@OR NOT A LOAD FILE^ A`h AXC Bw}AR@1@C@@9b1 }ATARI SYSTEM STATUS1  ...WORKING...glhh;Ax},;@@,;@@,;A,;@,;@,;@@,;@@,;A#,v8 AP-@@y}P:8@,@,6.P: G A@<@@D2:*z}.*G@LL6.BD1: ˠŠD2: ˠŠ A--6.#D1: ˠ{}Š C A @8@@R:C@aa6.WR1: ӭԠ|}R2: ӭԠR3: ӭԠOO67B:,%@,.7R4: Р}}1@1@@D:*.*-@@@''7@<@~},4SECTA-@!   ''7@<@,4SECTA@ A $@ -}@"@!$ *. A .7@5<@5,42A04 A>''@@D2:*.*H}@R''7@<@,4SECTAp\ A@f-@"@# p--@ @"- }IJz8@ -@ @ 8 ı7-7 ATARI SYSTEM STATUS UP TIME:i-}@B 'DEVICES PRESENT SYSTEM DRIVE FILES:T-@#@i EXT U-@$  E:} 3  S: D  K: U  C: *-@*  -@ }( 4(6.P: D7@4<@4,4 D6.!D2: ˠŠW 4W6}.FR1: ӭԠR2: ӭԠf 4f67B:,%@,.GR3: ӭԠ}R4: РXX ODEVICES NOT PRESENT } h-@ . ź?  BASICh #٠ź})6-AP!%I:,)  Bytes/=6-+'A$,46-P:$@%?,'@= K.-@} |.-@33 *$E-@E *}.--@@#-@) |- 8.-@ @##-@* |. B F:Ad},AUA`LaE6-P:+F:@,$BU6%F:@,$AV%F:@ ,,'@Y'C@,S!%@Ya6-%@`V6-}P:'@`,6-&`D 6.=:,"67B:,%@,.:. @D67B:,%@,.0j67B:,%@,.=:,t-@1}  ~ A"F:Ad,"@1" A"F:Ad,"@0" A04F:Ad,"@}*AdAU4 APF:Ad,"@(*@@4+FAdAUP A66POKE 82,2:PO}KE 83,39:GRAPHICS 0:POKE 764,255:NEW!6.D:*.*!AdAU AP"6.D2:*.*"AdAU A}P6.SYSTEM DRIVE FILES:67@<@,4266.DISK DRIVE 2 FILES:-@ @ 5 A}@5@@ -@@@''7@<@,4SECTA`(-}@! 2 <''7@<@,4SECTA`F@ A@P"@AZ8-@}-@!4  8 d-@"@!n9@'7@<@,429-@"@#x }%- % A@% D:D!n9@'7@<@,429-@"@#x 8]  BRBRAAf@A6AA6SAVE "D:SOUND1.BAS"A}7-@32A@7  9@,9@,9-@@&68,-}568,-9 68@,-@P-68@,-@B68@,-AFW68@,-A(l68@,}-A68@,-A68@,-A68@,-Av68@,-A68@,-Av68@ },-@P68@,-@(9B7aAd'B7eAd9B7h@26-@#A< AP}d"""6@#A""iYF:B2y,"@,-@H2L V BYn})6-%@"@)6-@x*B7b8,6-A6*6-A6}8,6-B7c-8,}6-B7g-B7f8,5B7`#B7d%@5B7gA`H -@@6@.A}%DA(%&@H 'B7gA`'B7cA` A%%0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0%%}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0L;;60,60,53,60,72,72,81,81,91,91,108,108,121,121,108,108VBB91,81,91,108,121,121,144,144},162,162,144,144,121,121,108,108`ii121,108,121,144,162,162,121,108,121,144,162,162,121,108,121,144,162,0,162,0,144,0,144,0},121,0,121,0j@@108,0,108,0,91,91,91,91,91,0,91,91,91,91,91,91,91,91,81,81t2272,72,72,72,72,0,72,72,72,72,72,72,72,72,0,}0~-1 +@'0@@A0@@[0@@@u0@@@}0@7-@7(@/-@@/(@ Š}7-@7(@DESIGNED BY K. EZCAN[-@@/(@ composed byA-@@}[(@ yellow magic8-@#8(@ $0u? +?(Fehler Nummer F:A}, ist aufgetreten.:u-@A % D1:SOUND1.BAS@AF?(Fehler Nummer F:A]eBRBSAVE "D:SOUND2.BAS"} B B6-6-@2-6-%@"@)6-@-"3/6-@#@:7<,,}/6-@4OF:B2y,"@,-@H2L O7?!2@@:7<,,@}?2@@:7<,,@8-@@ <06-%@"""6@,#A0"FK2}@@K2@$@%@@@K%%2@dB -@@6@}>2@@:7<,,@B n @P0,0,0,0,0,0,00,0,0,0,0,0,00,0,0,0,0,0,00,0,0,0,0,0},0031,31,33,31,31,400,40,40,40,53,53,530,64,64,68,64,64,810,81,81,81,81,81,810,31,31,33,3}1,31,400,40,40,40,53,53,53$0,64,64,68,64,64,81.0,81,81,81,81,81,8186,47,47,50,47,47,40B6,40,40,40,4}7,47,47L12,42,42,42,47,47,47V12,53,53,72,64,64,81`0,81,81,81,81,81,81j0,0,0,0,0,0,0o0,0,0,0,0,0,0t}0,0,0,0,0,0,0,0,-1';@,;@,'6.lQly٭l$'6.2.'[ +@-@A}(@[0@@@8'K-@@1(@ŠK0@@}@='8-@8(@ B'$0u? +?(Fehler Nummer F:A, ist aufg}etreten.:u-@A % D1:SOUND2.BASn.:u-@?(Fehler Nummer F:A, ist aufgL0@A RSCBLA@@AA6@@@ S}AVE "D:SOUND3.BAS" B7-@32@@7 POKE 559,0 B!6-@}!B7h@2e6-%@!@)6-@-"9B7bG6-%@S"@eB7h}36'@P:'@,6B7cA%@4OF:B2y,"@,-@H2}L O5""6@ A6=B7aA`%+B7eA`%=6-&+!,7S6-A6}'6-B7a3B7`GB7d%@S6-@<G"6-B7a'A6;A6%@G6-@}PB7gA(%8,ZT -@@6@,B7f:A`%P%@A`%T d9B7f}'B7gA`9B7cA`n @P((14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0((14,0,0,0,0,0,0,0,0,0,0},0,0,0,0,0,0))152,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0--152,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,10811152,96,96,0,108,96,0,}108,96,0,0,0,0,0,0,0,0--152,0,0,0,0,0,0,0,0,0,0,0,0,0,0,144,121&55176,108,108,0,121,108,0,121,108,0,0,0,0,0,0,0,0+))}176,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0099200,128,121,121,0,0,0,128,121,121,128,121,0,0,0,0,0:))200,0,0,0,0,0,0,0,0,0,0,0,}0,0,0,0,0D55206,128,128,0,128,0,128,0,128,128,0,0,0,0,0,0,0N--206,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,108X11152,96,96,0,}108,96,0,108,96,0,0,0,0,0,0,0,0b--152,0,0,0,0,0,0,0,0,0,0,0,0,0,0,144,121l55176,108,108,0,121,108,0,121,108,0,0,0,0,0,0},0,0v))176,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,099200,128,121,121,0,0,0,128,121,121,128,121,0,0,0,0,0))200,0,0,0,0,0,0,0},0,0,0,0,0,0,0,0,055206,128,128,0,128,0,128,0,128,128,0,0,0,0,0,0,0))206,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,014,96,-}1AY@4'79@,$-@@368,-7 '6-@'?68@},-!68@,-068@,-?68@,-$'?68@,-!68@,-068@,-?68@,-.'B7h}@$0u? +?(Fehler Nummer F:A, ist aufgetreten.:u-@A % D:SOUND3.BA}S@@@@@@, ist aufgetreten.:u-@A % D:SOUND3.BA2 !q5 J BRBRST@@ SAVE "D:S }OUND4.BAS" B7-@32A@7  9@,B68@,-A(-68@ },-B68@,-A((3B7h@!6-A03B7cA026-@#A< AP }d"""6@#A""iF:B2y,"@n)6-%@"@)6-@s)6-&@" })6-A x96-A6B7b-B7gA`96-A6-8,6-B7g-B7f8,; }B7`/B7d%@;6-B7aV -@@6@.A%<A`%R%@ }A`%V  A0,0,0,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,0,0L**162,81,81,81,81,81,91,81,81,81,81, }81V++102,81,81,81,81,81,108,81,81,81,81,81`//121,81,81,81,81,81,121,91,136,102,144,108j55162,121,144,108,136,102,144 },108,162,121,182,136t55162,121,144,108,136,102,144,108,162,121,182,136~55204,144,217,162,243,204,243,182,217,162,204,21 }755162,121,144,108,136,102,144,108,162,121,182,13655162,121,144,108,136,102,144,108,162,121,182,136%%108,0,108,10 }8,0,121,0,0,0,0,0,0%%136,0,136,136,0,144,0,0,0,0,0,0))162,0,162,0,162,0,144,0,144,0,144,0%%136,0,136,0,144,0,162, }0,0,0,0,0%%108,0,108,108,0,121,0,0,0,0,0,0%%136,0,136,136,0,144,0,0,0,0,0,0))162,0,162,0,0,162,144,0,144,0,0,144 }%%136,0,136,144,0,162,0,0,0,0,0,0-1u +@'0@@@A0@@[0@@ }@u0@@@Q0@@@/-@Q(@1-@ }@1(@ŠԠ7-@7(@DESIGNED BY K. EZCANa-@@/(@ } composed byA-@@a(@jean michel jarre8-@#8(@  }$0u? +?(Fehler Nummer F:A, ist aufgetreten.:u-@A % D1:SOUND4.BASn.:u }-@?(Fehler Nummer F:A, ist aufgetreten.:u-@A % D1:SOUND4.BASn.:u ,- RTRCRAHLHHHT $} SAVE "D:SOUND5.BAS" B';@H,'6.((((($}3367@<@%@,.((3367@3<@3%@,.((((22<<6-@36-@$} B6-@2A6-%@"#6-@5B2yA6-@3;@:7<,,;2@$}@:7<,,@@4$ 6-"$"6@A5+"AV"6-@2+6-@I8!6-$}@!6-9"AV":=2@@+76-@=6-;=-@@ =2@$}< -@@6@62@L2@@^6-&+!@,x6$}-&? $+!,2@@ > F:B2y,"@A0A%%2@P $}@P%%2@ -@6?P<2Ab@X2@Ac@$}t2@A(@2@@@@ %%0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0%%0,0,0,0,0,$}0,0,0,0,0,0,0,0,0,0,0%%0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0%%0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0%%0,0,0,0,0,0,0,0,0,0,0,0,$}0,0,0,0--0,128,0,0,0,128,0,0,0,128,0,0,0,128,0,0))0,128,0,0,0,0,0,0,0,176,0,0,0,0,0,0&--0,128,0,0,0,0,0,0,0,176,0,$}0,0,0,256,0,00))0,128,0,0,0,0,0,0,0,176,0,0,0,0,0,0,,0,128,0,0,0,0,0,0,0,176,31,0,31,0,31,01131,128,53,0,40,0,31,0$},53,176,40,0,31,0,53,01140,128,31,0,53,0,40,0,31,176,53,0,40,0,33,0000,128,53,0,40,0,33,0,53,176,40,0,33,0,53,011$}40,128,33,0,53,0,40,0,33,176,53,0,40,0,31,0000,128,53,0,40,0,31,0,53,176,40,0,31,0,53,0$440,176,31,0,31,0,31,0,31,116,$}33,0,35,0,256,0,37.**40,128,0,0,0,0,0,0,0,176,0,0,0,0,0,08,,0,128,0,0,0,0,0,0,0,176,31,0,31,0,31,0B1131,128,53,0,40,$}0,31,0,53,176,40,0,31,0,53,0L1140,128,31,0,53,0,40,0,31,176,53,0,40,0,33,0V000,128,53,0,40,0,33,0,53,176,40,0,33,0,53,0$}`1140,128,33,0,53,0,40,0,33,176,53,0,40,0,31,0j000,128,53,0,40,0,31,0,53,176,40,0,31,0,53,0t440,176,31,0,31,0,31,0,3$}1,116,33,0,35,0,256,0,37~**40,128,0,0,0,0,0,0,0,176,0,0,0,0,0,0,,0,128,0,0,0,0,0,0,0,176,53,0,47,0,45,01142,176,45$},0,47,0,53,0,47,116,45,0,42,0,45,01147,176,53,0,47,0,45,0,42,116,45,0,47,0,53,01140,128,42,0,47,0,53,0,40,176,42,0,47$},0,53,01140,128,42,0,47,0,53,0,60,176,64,0,72,0,81,02285,176,108,0,85,0,72,0,60,116,53,0,47,0,42,01147,176,53,0,5$}7,0,53,0,47,116,53,0,57,0,60,0**64,128,0,0,0,0,0,0,0,176,0,0,0,0,0,0,,0,128,0,0,0,0,0,0,0,176,53,0,47,0,45,0..42,$}176,0,0,0,0,53,0,47,116,45,0,42,0,0,0000,176,53,0,47,0,45,0,42,116,45,0,47,0,53,0..40,128,0,0,0,0,53,0,47,176,42,0,40$},0,0,0000,128,53,0,47,0,42,0,40,176,42,0,47,0,53,0 ..42,176,0,0,0,0,53,0,47,116,45,0,42,0,0,0440,176,47,0,53,0,47,$}0,53,116,60,0,64,0,256,0,72..81,128,0,0,0,176,0,0,0,128,0,0,0,176,0,0(++0,128,0,0,0,0,0,0,0,0,108,0,81,0,72,0-  $}қ22268,128,72,0,81,0,108,0,81,176,72,0,68,0,72,0<2281,128,108,0,81,0,72,0,68,176,72,0,81,0,50,0F000,158,53,0,60,0$},53,0,50,128,53,0,60,0,53,0P..50,158,53,0,0,0,60,0,0,128,72,0,0,0,85,0Z110,176,108,0,85,0,72,0,60,116,53,0,50,0,53,0d$}1150,176,53,0,50,0,53,0,50,116,53,0,45,0,47,0n..50,158,0,0,0,158,0,0,0,158,0,0,0,158,0,0x**53,176,0,0,0,0,0,0,0,116,0,$}0,0,0,0,0..40,128,0,0,0,0,42,140,0,0,0,0,45,146,0,0..0,0,0,0,47,152,0,0,50,158,0,0,53,176,0,0Ӡқ..57,1$}82,0,0,0,182,0,0,0,182,0,0,0,182,0,0000,182,0,0,0,182,0,0,0,182,50,0,50,158,50,02250,176,53,0,60,0,72,0,85,116,108,0,$}85,0,72,01160,176,53,0,50,0,53,0,50,116,53,0,45,0,47,0..50,158,0,0,0,158,0,0,0,158,0,0,0,158,0,0..53,176,0,0,0,0,$}0,0,0,116,108,0,81,0,72,02268,128,72,0,81,0,108,0,81,176,72,0,68,0,72,02281,128,108,0,81,0,72,0,68,176,72,0,81,0,50,0$}000,158,53,0,60,0,53,0,50,128,53,0,60,0,53,0..50,158,53,0,0,0,60,0,0,128,72,0,0,0,85,0110,176,108,0,85,0,72,0,60,$}116,53,0,50,0,53,01150,176,53,0,50,0,53,0,50,116,53,0,45,0,47,0..50,158,0,0,0,158,0,0,0,158,0,0,0,158,0,0**53,176$},0,0,0,0,0,0,0,116,0,0,0,0,0,0"..40,128,0,0,0,0,42,140,0,0,0,0,45,146,0,0,..0,0,0,0,47,152,0,0,50,158,0,0,53,176,0,06$}..57,182,0,0,0,182,0,0,0,182,0,0,0,182,0,0@++0,176,0,0,0,140,0,0,0,116,0,0,0,0,0,0J3353,128,108,0,81,0,72,0,64,176,72,$}0,81,0,108,0T..85,176,72,0,0,0,50,0,0,116,53,0,0,0,81,0^1181,128,81,0,85,0,81,0,85,128,81,0,72,0,68,0h5564,128,64,0,$}68,0,64,0,68,128,64,0,60,0,256,0,57r1153,128,53,0,57,0,53,0,57,128,53,0,47,0,42,0|,,81,128,0,0,0,0,0,0,162,128,0,0,0,0,$}0,0 -1,0' +@'Q0@@70@@Q0@@@$' @,@$}5@1,@5@ C,@5@"U,@5@#g,@6@!y,@9@/@7@/%}@7@#/@9@#.'',@7@!'/@9@!.qq6-C:dT%}UPPPDADDDADDDAPD,.%%6-F:@,%AV$F:@,.1-%@F:,%}*6-%@. 1$0u? +?(Fehler Nummer F:A, ist aufgetreten.:u-@A % D1:S%}OUND5.BASn.:u-@?(Fehler Nummer F:A, ist aufgetreten.:u-@A % D1:S$0CDKEVOPMPMBASA$@"@@ +9AY)}@b'B2HA9AA6-$AV%A$()-AU%%) 2B2w@)}</-@!"+%%A / ==252,248,240,224,192,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,02R:)},"@&6-&@2B2H2R:,"@&6-%@2B2HhR:,"@5-@)}@6@V%A%%F:%A%%,Z h6-%@_R:,"@,-@M%A%%) }F:%A%%,Q _6-%@ AD1:DATAMOVE.BAS<<@A%AB%%(yH_tABsDA$@6@ - +'0@-(}6-A- }$$AV(-A#2B@%F:%,< F;AU,P-@5Z"d-- }@n"x((B@%@$+@:,&@2,%  ' +'0@eAV@@- }=(# **********************************e(# * *S+(# * -} *S(# **********************************SSA,1,1,1,1,1,1,0,0,B,0,1,0,3,3,255,0,0,C,0,0,0,3,3,255,0,2,D,0,7,0,3,3,2-}55,0,0UUE,0,0,0,3,3,255,0,7,F,0,0,2,5,5,3,6,12,G,0,24,12,6,3,63,0,0,H,1,1,1,1,1,255,0,0[[I,0,8,20,0,0,255,0,0,J,0,0,0-},0,0,255,0,0,K,0,0,0,0,0,95,80,112,L,0,4,10,0,0,95,80,112ZZM,7,0,6,9,6,255,0,0,N,2,0,6,9,6,255,0,0,O,0,0,0,12,50,211,12,0-},P,0,0,0,0,0,239,40,16aaQ,0,12,18,14,2,3,0,0,R,0,28,34,34,10,246,0,0,S,0,16,40,36,2,254,0,0,T,0,0,56,36,18,201,56,0YY-}U,0,0,60,36,24,231,0,0,V,0,1,0,1,1,3,6,28,W,0,0,0,1,1,3,6,28,X,0,0,36,33,33,18,12,0]]Y,0,0,12,33,33,31,0,0,Z,0,0,0,33,33,-}31,0,4,#,0,0,0,0,70,73,36,24,$,6,12,24,30,3,255,0,0ee%,0,1,13,21,17,25,15,0,&,0,7,12,24,16,255,0,0,',0,24,36,40,28,35,32,-}24,@,16,16,22,26,20,255,0,0__[,32,32,44,52,36,40,48,0,],0,0,12,18,34,254,0,0,_,0,17,9,5,3,63,0,0,\,0,28,34,24,4,60,0,0-} D1:ARAVIT.BAS\#@(o6-Q6-A`6-A'6-A36-@#?6-,]]PLAYER MISSILE GRAPHIC-}S PLAYER GENERATOR WRITTEN  PLAYER MISSILE/(E( GRAPHICSJ(d(,1A(1,1P@@8-}<,-% $68<,-@@dMISSILE/(E( GRAPHICSJ(d(,1A(1,1P@@8,)AFROTA$@'@BsDBq SAVE"D1:AMRAMHEB.BA1}S";6-F:AV,$AV;6-+F:A,&@,$AV-A#(%F:%,2 <;AU,F1}-@&P"Z-@d"n""%@$+@:,&@2,%x   +i1}AV'AV@($************************************i($* <<<     >>> *U,($* 913144:' , 1};   -    *U($*      , -38/5   */,($************************************/hha,66,98,50,901},76,70,66,0,b,124,124,4,4,4,126,126,0,c,126,126,2,14,30,50,98,0,d,126,126,4,4,4,4,4,0gge,126,126,2,2,66,66,66,0,f,24,24,81},8,8,8,8,0,g,124,124,16,24,8,16,32,0,h,126,126,66,66,66,66,66,0iii,70,78,90,66,66,126,126,0,j,24,24,8,0,0,0,0,0,k,126,1261},2,2,2,126,126,0,l,64,126,126,6,12,24,112,0nnm,126,126,34,34,34,38,38,0,n,14,14,2,2,2,126,126,0,o,126,126,34,34,38,60,56,1 }0,p,66,98,50,26,14,126,126,0XXq,126,126,98,114,2,126,126,0,r,70,102,60,24,12,126,126,0,s,126,126,2,2,70,92,88,64t,11!}26,126,2,2,2,2,2,0llu,82,82,82,90,78,126,126,0,v,126,126,34,34,34,98,98,0,w,126,126,98,58,2,2,2,2,x,66,66,102,60,24,12,6,1"}2JJy,24,24,8,8,8,8,8,8,z,62,62,2,2,2,2,2,2,;,126,126,66,66,66,126,126,0D1:AMRAMHEB.BAS;1#}0f#A @f 9" A !A6%/6-%@9 @AA16,16,80,66,255,255,0,2,0,2,0,5%}2,0,2,0,2,0,2,0,2,0,2,0,2,0,2@@0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,65,0,6(**169,0,141,48,2,169,6,141,45&}9,2,96,9992 A6%@F:@,=A6%@F:@,OA`aAa@s@ AU5'}@@U@@@@<@@8 D1:LINES.BAS AU4p 34f | MSTISK@A)@ @ A@%@"@ A9)}G% 9@$<@!,D-@@$+-@@!<68<,-@ D   +@@9*}-Ah@,/AG( 2-AG@<,/Ah9+}F d6-@6-@n @3,$@%@$@%@Y,$@%@$@%@9,},$@%@$@%@,$@%@$@%@x @3,$@%@$@%@9-}Y,$@%@$@%@,$@%@$@%@,$@%@$@%@336-%+9.}R:,"@,&+R:,"@,336-%+R:,"@,&+R:,"@,!!6-%+ ,&+!@#,9/}!!6-%+ ,&+!@ ,MT:,""@C68%@<%@,-@M AMR:,90}"@ "@C68%@<%@,-M A"R:@,"@" A"R:@,"@" A91} A,++-$@%@$@%@6/,$@%@//$@%@@ J,A92}%A%^ A +@-@A`@%-@A5@%-@@$93}-@@! +8<,"@, ,%%    & +@@))(!WHAT 94}SIZE DO YOU WANT THE PICTURE##-@ @#$%@ ##-@ @ $%@ -@&95}N<8+&@ ,'%@<+&@ ,'%@,"@D,%N/%%0 : D N&X +@@96}]6-A)b-@@$l-@@!v*8<,"@*,A`%@%  K,A97}SA'/ASA09/AsA0K/AsA-A5 @!,Ac&@5,Ad98}&@% @,Ac%,Ad 6-&?%,AT/Ar A& 99}ApD1:TASHBEZ.BASD1:TASHBEZ.BAS@6-&?%,AT/Ar A& 8=~(DSSCHLNI@6@B1B3AA0A@ @q A6=;} A! @aA +@$!-@@5%"3A5%7 A Aff104,162,0,165,208,24,105,40,133,208,165,=<}209,105,00,133,209,232,160,00,177,208,73,255,145,208,200((196,206,208,245,228,207,208,225,96\%6-F:@,%AV$F:==}@,96-%+$@@%,J6-P:'AV,\6-&+$AV,BAA 'A3AB6-?:A6=>}, $dDEMO DECTION...nM @)-A@5,I/A&AM x6-P:H:=?},$@0,6-P:H:,$A`,))6-P:H:,$+@8&,,%@))6-P:H:,$+A&,,%@=@}%-@A % @ A D1:INVERTER.BAS,,%@))6-P:H:,$+A&,,%@<H0FGSNINIRNIRLIOC@pA A  9@,AB}6-A dc + #AR@=0@O-@c(͠ˠx,-@AC}@,(F - TO FORMAT DISK/-@@/(D - TO MAKE DISK KARM%-@@%( E - TO EXIT##@AD}@K:)@@"@:F, A"@:D, A"@:E, AE}APc + #AR@=0@O-@c(͠ˠ5-@@AF}5(PRESS TO FORMAT DISK"F:B2y,@" A &-@@&( formating.....AT@AG}D:*.*.-@@.(PRESS TO MENU"F:B2y,@" A`%c +AH} #AR@=0@O-@c(͠ˠ%-@@%( PLEASE WAITAI}'-BcBy #' 7-@@7(PLACE FORMATTED DISK IN DRIVE)-@@)(PRESS SAJ}PACE BAR"F:Ad,"AU" A0%-@@%( PLEASE WAIT36-A6!AA3AAAK}&""6@ A0 6-%@: APD6-BcN""6@ A X AL}6-%@b Al6-?:A6,v6( ( DONE$A@d6A@dz(PRESS FOR MAM}ENU|"F:B2y,@" A6~%*** DISK SAVER*********::104,169,0,141,11,3,133,240,141,4,3,169,1,AN}141,1,3,141;;10,3,169,49,141,0,3,169,87,141,2,3,169,12,133,245,169??64,133,241,165,240,141,4,3,165,241,141,5,3,24,165AO},240,105BB128,133,240,165,241,105,0,133,241,32,83,228,238,10,3,198,245208,223,96,-1***BOOTSTUFFER********5AP}567,12,0,6,6,6,76,34,6,162,0,160,0,169,0,145,25199200,192,0,208,247,230,252,165,252,201,15,208,237,76((FOR XL/XE VERAQ}S. THIS IS 177,197 177,197DD0,169,35,133,251,169,6,133,252,169,196,141,200,2,141,198,2,162883,32,210,8,162,4,AR}32,210,8,32,117,8,162,20,32,210,8 ;;32,117,8,32,5,9,32,245,8,201,76,208,14,169,155,32,245778,32,143,9,32,7,7,76,9,6,20AS}1,83,208,48,169,155,32 88245,8,32,117,8,32,76,9,32,117,8,162,21,32,210,8,32*77117,8,32,5,9,201,67,208,6,32,64,10,76,60,AT}6,201,68477208,9,32,189,6,32,143,9,32,80,7,76,60,6,162,11,32>::210,8,32,131,9,76,60,6,162,15,32,210,8,162,16,32,210H5AU}58,162,18,32,210,8,32,5,9,32,117,8,32,38,8,32,52R998,96,32,252,6,32,161,6,173,1,12,133,253,32,149,9,32\<<190,9,24,173,AV}241,11,109,1,12,144,27,162,12,32,210,8,32f;;5,9,201,89,240,12,169,1,141,241,11,238,242,11,32,76,9p::96,76,60,6,24,162,1AW}9,32,210,8,32,117,8,96,169,49,141z550,3,169,1,141,1,3,96,32,165,8,162,1,32,210,8,32::5,9,72,32,245,8,32,117,8,104,24,2AX}33,47,133,247,32,64@@9,169,0,105,12,166,247,240,5,105,15,202,208,251,170,189,91<<11,141,10,3,232,189,91,11,141,11,3,3AY}2,117,8,96,162,255BB232,189,91,11,201,197,208,248,134,248,134,249,96,32,213,7,32;;143,9,32,171,6,32,77,8,174,1,12,134AZ},255,202,138,72,32==65,8,104,170,224,1,208,244,162,15,32,210,8,162,3,32,210998,162,18,32,210,8,32,5,9,32,117,8,173,24A[}1,11,141,10;;3,206,10,3,173,242,11,141,11,3,169,87,32,52,8,166,255==202,138,72,32,65,8,104,170,224,1,208,244,32,95,8,A\}32,176777,162,10,32,210,8,96,169,0,141,4,3,169,11,141,5,399169,11,141,10,3,169,0,141,11,3,169,87,141,2,3,32,83772A]}28,48,4,32,65,8,96,76,150,6,32,65,7,32,117,8,162;;6,32,210,8,169,11,133,245,32,5,9,32,245,8,201,155,208EE11,230,248,1A^}98,245,208,250,166,248,202,208,11,166,248,157,91,11@@230,248,198,245,208,224,134,250,32,117,8,162,8,32,210,8,32::137,A_}9,32,117,8,32,5,9,201,89,240,10,32,117,8,165,249$::133,248,76,216,7,96,32,252,6,169,0,141,10,3,141,11,3.99169,82,96,141A`},2,3,169,11,141,5,3,169,128,141,4,3,328==123,8,32,83,228,48,1,96,76,150,6,166,250,232,24,173,241B@@11,157,91,11,232,173Aa},242,11,157,91,11,96,24,173,241,11,109L==1,12,141,241,11,144,8,173,242,11,105,0,141,242,11,24,96V::169,155,32,245,8,96,Ab}24,173,4,3,105,128,141,4,3,144,3`22238,5,3,24,238,10,3,32,145,8,96,173,10,3,201j66FOR ENHANCED DENSITY CHANGE LINE 1140Ac} TO DATA 16t16~208,12,173,11,3,20155FOR ENHANCED DENSITY CHANGE LINE 1170 TO DATA 44''208,5,162,2,32,Ad}210,8,96,162,0,134AA246,169,0,133,245,138,72,189,91,11,32,245,8,104,170,232,230DD245,165,245,201,13,208,237,138,72,32Ae},117,8,104,170,232,232,230DD246,165,246,201,10,208,216,96,232,134,240,162,0,189,122,10,232EE201,155,208,248,198,240,2Af}08,244,189,122,10,232,134,254,32,245,8@@201,155,240,4,166,254,208,239,96,162,11,142,66,3,162,0,142::72,3,142,73,3,76,Ag}86,228,162,80,169,3,157,66,3,169,3899157,68,3,169,3,157,69,3,169,4,157,74,3,169,0,157,75883,32,86,228,169,7,157,66,3,Aq}B%DOS SYSB*)DUP SYSB SRAMDISK COMB\AUTORUN SYSB7^MENU BASBSOUND1 BASB SOUND2 BASBSOUND3 BASBSOUND4 BASB,SOUND5 BASBDATAMOVEBASB ARAVIT BASB AMRAMHEBBASB$LINES BASB(TASHBEZ BASB:INVERTERBASB>AKARMDISKBASB AM 2 BOROAD BASBZPMBASE BASB8=MLX BuSWEETDR BASB HEBRW BASB HEB BASBAUTBOOT BAS7LOADIT BASBINCONV  SORTDEMO  STRGSORTBAS WORDSORTBAS WORDSORT2 $MULTISORDEM,8MULTISORM65dHEBSORT BAS169,0,157,72,3,157,73,3@@32,86,228,133,241,169,12,157,66,3,32,86,228,165,241,96,2014410,176,5,201,0,144,1,96,76,60,6,Ar}173,242,11,201 55FOR ENHANCED DENSITY CHANGE LINE 1300 TO DATA 44@@240,24,56,169,0,237,241,11,133,253,32,149,9,3As}2,190,9,162,7($$32,210,8,162,0,76,210,8,56,169266FOR ENHANCED DENSITY CHANGE LINE 1340 TO DATA 16<16F237,241,At}11,133,253,32P99149,9,32,190,9,162,7,32,210,8,162,9,76,210,8,169,64Z@@141,198,2,96,169,244,141,198,2,96,169,196,141,198Au},2,96,169dEE48,133,225,133,226,133,227,56,165,253,233,100,144,6,133,253,230nCC225,16,246,56,165,253,233,10,144,6,133,25Av}3,230,226,16,243,230xBB227,198,253,208,250,96,165,225,32,245,8,165,226,32,245,8,165;;227,32,245,8,162,14,32,210,8,96,1Aw}62,16,169,3,157,66,3::169,4,157,74,3,169,128,157,75,3,169,0,157,68,3,169,0AA133,234,133,236,169,6,157,69,3,169,12,133Ax},235,32,86,228,230>>236,169,7,157,66,3,165,234,157,68,3,165,235,157,69,3,169@@128,157,72,3,169,0,157,73,3,24,165,234,Ay}105,128,133,234,165??235,105,0,133,235,32,86,228,48,21,206,1,12,208,206,169,12::157,66,3,32,86,228,48,6,165,236,141,1Az},12,96,76,150,6;;162,15,32,210,8,162,13,32,210,8,162,5,32,210,8,162,188832,210,8,32,117,8,32,5,9,169,12,141,252,2,32,A{}211,97732,195,6,32,213,7,32,143,9,32,252,6,32,77,8,174,1;;12,134,255,32,109,7,96,155,84,72,73,83,32,66,76,79,67>>A|}75,155,83,69,76,69,67,84,73,79,78,63,155,198,213,204,204FF155,160,196,201,211,203,173,203,210,193,205,160,155,98,121,32,8A}}2@@65,78,68,89,32,66,79,89,68,155,208,210,197,211,211,160,208==204,193,217,155,78,65,77,69,32,63,155,32,76,69,70,84,3A~}2>>79,78,155,83,85,82,69,63,32,89,47,78,155,212,200,201,211"II160,196,201,211,203,155,196,207,206,197,155,194,207,207,A}212,160,197,GG210,210,207,210,155,211,205,193,204,204,197,210,160,191,155,66,796::79,84,32,84,65,80,69,155,45,83,69,67,A}84,79,82,83,155@AA32,32,73,78,83,69,82,84,155,194,207,207,212,173,173,196,201JII211,203,155,155,200,201,212,173,173,210A},197,212,213,210,206,155,208TCC210,207,199,210,193,205,173,207,235,161,155,76,41,79,65,68,32^9979,82,32,83,41,65,86,69,A}32,63,155,67,41,65,83,83,32h::79,82,32,68,41,73,83,75,32,63,155,48,46,197,77,80,84r9989,32,32,32,32,32,32,48,32,49,46,1A}97,77,80,84,89,32|9932,32,32,32,32,49,32,50,46,197,77,80,84,89,32,32,329932,32,32,50,32,51,46,197,77,80,84,89,32,32,32A},32,329932,51,32,52,46,197,77,80,84,89,32,32,32,32,32,32,529932,53,46,197,77,80,84,89,32,32,32,32,32,32,53,32,54::A}46,197,77,80,84,89,32,32,32,32,32,32,54,32,55,46,1979977,80,84,89,32,32,32,32,32,32,55,32,56,46,197,77,809984,89,32,A}32,32,32,32,32,56,32,57,46,197,77,80,84,89//32,32,32,32,32,32,57,32,13,0,0,0,0,0,0,-2$D1:KARMDISK.BASD1:KAA}RMDISK.BAS//32,32,32,32,32,32,57,32,13,0,0,0,0,0,0,-2$D1:KARMDISK.BASD1:KA@*AFROTA$@'@BsDBq;6-F:AV,$AVE};6-+F:A,&@,$AV-A#(%F:%,2 <;AU,F-@&P"E}Z-@d"n""%@$+@:,&@2,%x   +iAV'AV@($*****E}*******************************i($* <<<     >>> *U,($* 913144:' , ;   -    *U($* E}     , -38/5   */,($************************************/nna,0,102,102,54,108,102,102,0,b,0,120,12,E}12,12,12,126,0,c,0,124,6,6,62,102,230,0,d,0,126,12,12,12,12,12,0mme,0,124,6,6,102,102,102,0,f,0,28,12,12,12,12,12,0,g,0,6E}0,24,24,24,24,24,0,h,0,252,102,102,102,102,102,0eei,0,102,110,102,102,102,126,0,j,0,28,12,12,0,0,0,0,k,0,124,6,6,6,6,124,E}0,l,96,124,6,6,6,6,124,0oom,0,220,102,102,102,102,110,0,n,0,14,6,6,6,6,126,0,o,0,254,102,102,102,102,124,0,p,0,54,54,54,5E}4,54,124,0RRq,0,254,102,102,6,6,124,0,r,0,102,54,28,12,6,126,0,s,0,126,6,6,102,108,96,96t,0,124,6,6,6,6,6,0^^u,E}0,214,214,214,214,214,252,0,v,0,252,102,102,102,102,230,0,w,0,238,102,102,124,96,96,96ccx,0,252,102,102,102,6,6,6,y,0,14,E}6,6,6,6,6,6,z,0,60,6,6,6,6,6,6,;,0,254,102,102,102,102,126,0D1:AM.2;E}DOpT& 'CARCARDIFLAGFLAGTIMDASPSPEEDISSCCOLC1C1JUMPPMMXCOLC2C2MXLOORAMTOSCRBASPMBASDDHIBYTI}LOBYTHLPTINDEDLBYTPICDA@@@6@ @At @ A'I} @ ?V%% A,@yBBhdAPA@@AA`AHADI} BVBVBVA9 A!BiH"BW5#A$A%Aq&B%'B6(@)I}*** ROADRACE ***(C)OPYRIGHT 1987BY NIR DAREY s AP6-%6-16-@=6-I6-I}U6-g@s6-d[6-%@$+R:,"@,$+ @,&@$+R:,"@I},$+!@P,q@&'@2A@&@@n\AV'AW@2,(D6-+&I}@P,'@P!A\6-@xAp""H:,$!@Ad6-P:H:,$@I},9A$@%@H6-H:,d6-+?P,&+ ?P,/#6-A%@$+"@,/6-@9;%6I}-?:C:,<%Ah%<%@$,1B2P; Ae 6-%!@#6-G6-?:C:,<%Ah%&<%@d,I}O6-%[6-e A7$+H:, ?*!@5,+6-676-@5"+6-%$+&@0,'@I}5 AW6-%@$?+"@*A%+&@0,'@,K6-W6-AJ2+"6@*AI}%$+&@0,'@,>6-J6-AYM6-?:C:,<%Ah%<%@$%@$+!@P,%@$+!@f,,I}YB2PA`""H:,$!@Ad6-P:H:,$@,9A$@%@I}H6-H:,d6-+?P,&+ ?P,/#6-A%@$+"@,/6-@0;%6-?:C:,<%A%<%@$I},1B2Q; Ae 6-%!@#6-G6-?:C:,<%A%&<%@d,O6-%[6-e AI} 7$+H:, ?*!@5,+6-676-@5"+6-%$+&@0,'@5 AW6-%@I}$?+"@*A%+&@0,'@,K6-W6-AJ2+"6@*A%$+&@0,'@,>6I}-J6-AYM6-?:C:,<%A%<%@$%@$+!@P,%@$+!@f,,YB2Q$F:@,I}"%@$ A"IAV'AW@",(IF:B2`,"@A,S%6-?:C:,<%Ah%<%@dI},G6-?:C:,<%A%<%@d,S6I-@A@4AF:B7p,IAF:B7p,I}@]0%A%P:H:,$@,F:B7p,]%A(%P:H:,$@,F:B7p,J2@@CI}2@A&@@`B2WH:,$@}B2VH:,$@ T%2I}G2@YAV@kAW(GAME OVER-PRESS ^ T:,"@I}APhAV@'AWP(#    \6-@`h6-~@I}&'@A@PimaB2V@'B2W@9AAHa6-?:C:,<%A%@<%I}@d,r]A@p56-?:C:,<%A%@<,]6-?:C:,<%A@,%@<%@,|AV'I}AW>( speedPAVbAW@"r( AW@2(6-?:AI}6,62A@&@@B6-N6-Z6-@lB2xx6-6-@I}6- A<6-F:@,*+"@)"@",<AAFU+"@)"@ ,-I}AADU6-?:C:,<%A%@<%@d,I"@!AI6-?:C:,<%A%@<%@vI},!"@$!AAH2AV@'AW2(:00@% Au6-I}!@3AV@EAWQ(0:00 _6-%@u!AP$A`%6-?:C:,<%AhI}%<%@d,G6-?:C:,<%A%<%@d,SV'` A@$.6-F:A, 6-&@.6-&@I}I+@%@'@3@I(@>:A%,1A+@1;A ,;@%,I}A%6-F:A`,%AV$F:Aa,36-%@A6-%@&6-P:'AV,&6-&+$AV,/ #AP`!-A6I}Ax%"+/ 104,169,11,141,40,2,169@@6,141,41,2,216,173,48,6,24,105,4,201,12,208,2,169,0,141,48886,17I}3,49,6,24,109,48,6,141,102,6,169,2,141,26,2,9636-A6-A'6-At36-AqKK6-C:>hhhhhhhI}hhhhψ͑ˈeЅːeυ͐`,C B6-$AVC6-?:<:,- d??104,104,133,204,104,133,203,104,133,207,104,133,206,160,0n++177,206,145,203,200,192,12,208,247,I}96x/6-$AV!-%@%"+/ ((0,0,0,0,24,60,24,219,24,255,24,195$$0,0,0,0,36,0,24,0,195,24,195,0I} 0,0,0,0,0,0,0,0,0,24,36,36$$0,0,0,0,0,0,24,60,24,90,126,90**0,0,0,0,24,60,24,219,219,255,219,255??0,0,0,0,0I},0,0,0,0,0,0,0,0,0,0,0,24,60,90,255,189,90,36,249F:AG,@'6-?:AI,9A(A0]A@PI}'A@p9AApKAA]B2V@iB2W@'B2X@9B2Y@I}EBByWB2w@iAY@Fg#6-?:C:,<%A%@<,K6-?:C:,<%A@%@<%@I},gA#+@3%@,6-%@E@q1%@@E%@@Y%@@er%I}@F:%@,%@F:%@,6-@`6-~AV'AW>( I}speedPAVbAW@"g(yAW@2~(''2A@&@@I}"- %@-@&'@,l$6-?:A6,8-@VB2R%@dI}&@$Z lA@|$ Nww67@,.dWUUWUUUUI}UUUW!Nuu67A,.bU|UUUUUUUUUUUUUTUUUUUUUU]UUUUUUUUUeq5eUI}UUUUUuUUUUUUUUUe eUUUUUU"Nuu67A,.b]UUUUUUUUUeeUUUUUUWUUUUUUUYU|UUUUUWUUUUUUUYU=UUUUUUUUUUUUYV UUUUUUI}UUUUUUYZUU#Nuu67A,.bUUUUUUUUUUYTUUUUUUUUUUUUUYPUUUUUUUUUUUUYUUUUUUUUUUYUUUUUUUUI}U$Nuu67A,.bUYUUUUUUUUV*UYUUUUUUUUZ YUUUUUUUU|YUUUUUUUUTUYUUUUUUUUPI}%Nuu67A,.bYUUUUUUUU@YUUUUUUUUUUZUVUWUUZUVU?UZUVU&Nuu6I}7A,.bUZUVUUZUVVUZUVZ*ZUV| ZUVU'Nuu67AI},.bUZUVTUZUVPZUV@ZUW@U(N-!67A,.I}@$$-RAOWAYNww67@,.dWUUWUUUUUI}UUWNuu67A,.bU|UUUUUUUUUUUUUUUUUUUU]UUUUUUUUUUUUUUUUUuUUUUUUUUvuI} VUUUUUUNuu67A,.b]UUUUUUUUVVVUUUUUUWUUUUUUUUVTVUUUUUUWUUUUUUUUVPUUUUUUUUUUUUVUWUVUUUUUUUUUUVUVUUI}Nuu67A,.bUUUUUUUUUVUhVUUUUUUUUUUUVU)VUUUUUUUUUUUVU@VUUUUUUUUUUUVUVUUUUUUUUUUUVTVNuu67I}A,.bUUUUUUUUUUW?UUYUUUUUUUUYUUUUUUUUYUUUUUUUUYUUUUUUVNuu67A,I}.b*UYUUUUUUZ YUUUUUUUUYUUUUUUTUYUUUUUUPYUUUUUU@Nuu67A,.bI}YUUUUUUUVUWUUVU?UVUUVUNuu67A,.b UVI}VUVZ*V| VUUVTN1!67A,.UV$$1FI}IRST ROADNww67@,.dWUUWUUUUUUI}UWNuu67A,.bU|UUUUUUUUUUUUV\UUUUUUU]UUUUUUUUUV`&UUUUUUUuUUUUUUUUUV@UUUUUUUNuuI}67A,.b]UUUUUUUUeWUeUUUUUWUUUUUUUUeheUUUUUWUUUUUUUUe)eUUUUUUUUUUUUUe@eUUUUUUUUUUUUUeeUUUNuu67AI},.bUUUUUUUUUU|UYUUUUUUUUUUU=UYUUUUUUUUUUZ YUUUUUUUUUU|YUUUUUUUUUUNuu67A,.bYUI}UUUUUUUUUPYUUUUUUUUUU@YUUUUUUUUUUYUUUUUUUUUUUYUUUUUWNuu67A,.b?UUYUUUUI}UUYUUUUUUYUUUUVUYUUUUZ*YUUUU|Nuu67A,.b YUUUUUI}UYUUUUTUYUUUUPYUUUU@YUUUUNuu67A,.bUUUWI}UUU?UUUVUZN2!67A,.$$2SECOND ROADI} D1:ROAD.BASWUUWUUUUUUUWI} D1:ROAD.BASWUUWUUUUUUUWHY,,QQQQQQQQQQQ1Q1Q1Q25Q7Q3Q3Q3BEEDOQ70Q5327Q55Q4Q5324Q1Q1Q1Q1Q1Q1Q1Q2Q2Q2Q76Q7M}5Q16Q51Q51Q2Q2Q5327CVALFILETEMPFCHARSUMTOTALADELACPMBASSIZBCLUKYBUDOWYYUPCODEDOWNCODEBYTM} M}M} !"#$%&'()*@+,-.M}/0@1@2@3@456789:;<=M}>?@ABCDEFGHIJKLdM}6-6-@*6-@66-@B6-@N6-@Z6-@f6-@r6-@~6-@ 6M}-@6-@6-@6-AU6-@w{6-@26-@4'6-@636-A ?6-A PK6-M}AW6-B2wc6-AYo6-@F{6-B2H6-@6-@'6-@36-@?6-@K6-@M}W6-@c6-@ o6-@!{6-@"6-Ad6-ARQ6-A`6-A'6-A36-@#M}?6-@$K6-B2yQ,]]PLAYER MISSILE GRAPHICS PLAYER GENERATOR WRITTEN BY PAUL ABELL,OCT.,1981, REVISION 3.20M}^d+ ((*( PLAYER MISSILE/(E( GRAPHICSJ(d( PLAYER GENERATORR /(!COPYRIGHT BM}Y PAUL ABELL,JUNE,19812(R( Press any key to begin F:," AP  &*9,;,;,;@M},*6..SHPX& 6--68,-"6-%& 19<,9,9,9<,1A(1,1)=X,A(2,1)=Y% -68<,-M}!68<,-% $68<,-68<,-$68<,- '68<,-668<,-6'68<,-6RR68<,-68<,-6%68<,-M}168<,-6=68<,-6H68<,-R A%,2@P- )2,$#8<,(>:, 68<,-#$M} (>:,68<,-$DRAW EACH LINE OF PLAYERL) -8<,")68,-8,%8&,~ %%%8, M}68,-$ ERASEF --x68<,- -(>:,  AP  6-6-@$rINVERSEM} ROUTINE --#8<,"68<,-# AP68<,-:% -8<,"(>:,% APl (M}  AP  6-6-$GENERATE RANDOM DESIGN4 --f68<,-P:H:,$,8<,"68M}<,-8<,"68<,-% -8<,"(>:,% A$. (`   AP   6-6-$ +0M} ? ( INITIALIZING..?( ABOUT FIVE SECONDS( ! AX!LOAD MACHINE CODEZ & BM}&SET UP PM VALUES ( 6-&-68,-$6-'(  (}  --"  -(>:,DOTT 68<,-M}    -68,-   6-6-6-6- ; -( (B)ackgrd-)((C)olor/-;((E)rase  -M}( (I)nverseN D -( (L)uminance-1( (M)ove screen7-D((R)andom  -((S)ize * ! - (-M}(-!(  -(%6-6- F:A2, A@PH *F:AD,"-  * APz 6-F:, M} " ACP %"@7% AG " APB%"@B%M} At " AuP%"@b% Aw " AE %"@@N}% A P< -( - n! -(>:8<,,-!   A3P/6-%8:8<,,) - 0$J1 1MOVE PLAYER BACK TO ORIGINAL POSITION| 6-&"$   AW6-?:<%N }%,6-& AUD6-?:<%%,6-%v AU ;,6-C:, ;,6-C:, hhTHIS 'USR' ROUTINN }E FOR VERTICAL MOVEMENT IS USED BY PERMISSION OF COMPUTE! MAGAZINE, P.O. BOX 5406>GREENSBORO, NC. 27403p -% N }"  %%MOVE PLAYER UP CODE8!!104,104,133,204,104,133,203j160,1,177,203,136,145,203200,N }200,192,7,208,245,96 -% " 2 %%#$dMOVE PLAYER DOWN CODE!!104,104,133,204,104,133N },203160,6,177,203,200,145,203 136,136,192,255,208,245,96,  +^!A@d!A N}AP AhP0( (*( PRESS ANY KEY WHEN READY0F:,"Ai& X. (}( SAVING AS $ BN}P. B 4 ' B6 6.INTERPRET FILENAME-B:, 7<,4:AsPR  6.D:N}67,.-B:,7<,4.6.$ L67B:,%,.6.$~CHANGE COLOR OF PLAYER 6-%!N}6--A8,%-*(P:8,', -$# 6-%#CHANGE SIZE OF PLAYERF "6-x !6-BN}2V -(%$GET FILENAME@. (}.CLEAR SCREEN,TURN OFF PLAYERr% -%((B)ack to design screeN}n, -((E)nd-,((L)ist program= -!((P)rint player data'-=((R)etrieve design  -( (S)avN}e design: 6-F:,l U "(} ) AT56-@`A6-@%K ATPU A0P ""@BN}+" = " $6..LST. Ag=LIST PROGRAM!A " # BP- AGAPRN}INT PLAYER DATA4!G"@@% AP/ AP9 AGGLOAD DESIGNf!M"@b% AP/N} A5? AGMSAVE DESIGN!  AP!O  (} AP(D:*.*OOPEN DIRECTORY, PRINT, GEN}T FILE NAME!4-@d" AP&(* 4 A.", B"F:A,"A6, A`"%F:A,"N}(7<,% A"<+(#Disk not available, using cassette!096.C:<$"C-(NAME"-=( N} C(}" 4 ' A(# ApP$Z#& AP&LOAD DESIGN# A#"F:AN},"A6" AP#F B-4(Shape not found !B-AF "$2 -( ( AN}P2 APT$2 -)$%%%. B2 $ ))))$*8,%B2V"0N}*0$2- ( Design loaded.-A2 %& -#( &$N%SAVE DESIGN% N}A% A%C B-+(Create error !9-A= C-&*(  AyN}P* AH& -( SAVING AS z& --&!8<,"!68,-8,%8&,& ' *8,68,-B'N } t' ****'=-+(Design saved 9-A= ' -( $N!} (: BP(}%6-A%16-@u:6.P:<($ BP$n(U(( Color=  LuminaN"}nce = -(U( Size = *% Background= (J(( Player data (J(8,,8,,8,,8,N#},(DD(8,,8,,8,,8,,8,,8,,8,)??(,8,,8,,8,,8,,8,N$},8,6)55(,8,,8,,8,,8,,8,h)O -68,- (@( Press any key to continue.N%}EO ATP)+ F:, 0(0+$) BP)% B6.E:% B0*REGENERATE N&}DESIGNb* -*5P:'8&,,"68<,-+6-&8&,5 B*68<,-* *+$\+SET UP PLAYER MISSLE DN'}ATA+16-@`6-@%1SET PLAYER POSITION+J6-F:A,& BBy.6-AV$JSET PLAYER MISSLE ADDRESN(}S+# #SET HORIZONTAL POSITION$,8-%%A@ 8CLEAR OUT PLAYER FIRSTV,+A@8+SET COLORN)} TO ORANGE, ENABLE PM GRAPHICS,$, BP B-$ -68,-F:%%%,! $$P-6-N*}-//($10 REM PLAYER MISSLE GRAPHICS DEMO-XX(M30 GOSUB 120:GOSUB 320:REM LOAD MACHINE CODE, COURTESY OF COMPUTEN+}! MAGAZINE-55(*31 REM P.O. BOX 5406, GREENSBORO NC. 27403.>>(20 H= :POKE 752,1:?>:@4,}>:@4,N,}J.MM( 40 SE.2,,0:SE.4,&,0:X=120:Y=48:REM SET BACKGROUND COLOR|.%%(50 REM X,Y STICK ROUTINE.TT(IN-}60 X=X+POS(STICK(0),1):IF X<230 AND X>30 THEN POKE 53248,X:REM LOCATE X.&&(70 IF Y>120 THEN GOTO 100/PP(E80 N.} IF POS(STICK(0),2)=1 THEN D=USR(DOWN,PMBASE+511+Y):Y=Y+1:GOTO 60D/##(90 IF Y<1 THEN GOTO 60v/OO(D100 IF POS(SN/}TICK(0),2)=-1 THEN D=USR(UP,PMBASE+511+Y):Y=Y-1:GOTO 60/( 110 GOTO 60/00(%120 DIM POS(15,2):REM SET UP PM DATN0}A 0::(/130 FOR I=1 TO 15:POS(I,1)=0:POS(I,2)=0:NEXT I>0VV(K140 POS(10,1)=-1:POS(11,1)=-1:POS(9,1)=-1:POS(6,1)=1:PN1}OS(7,1)=1:POS(5,1)=1p0WW(L150 POS(10,2)=-1:POS(14,2)=-1:POS(6,2)=-1:POS(9,2)=1:POS(13,2)=1:POS(5,2)=1033((160 X=N2}120:Y=48:REM SET BACKGROUND COLOR0UU(J170 A=PEEK(106)-8:POKE 54279,A:PMBASE=256*A:REM SET PLAYER MISSLE ADDRESS1XX(N3}M180 POKE 559,46:POKE 53277,3:REM ENABLE PM GRAPHICS WITH TWO LINE RESOLUTION81MM(B190 POKE 53248,X:POKE 53256,0:REMN4} SET HORIZONTAL POSITION AND SIZEj1XX(M200 FOR I=PMBASE+512 TO PMBASE+640:POKE I,0:NEXT I:REM CLEAR OUT PLAYER FIRST1/N5}/($210 POKE 704,38:REM SET PLAYER COLOR1\\(Q220 FOR I=PMBASE+512+Y TO PMBASE+512+H-1+Y:READ A:POKE I,A:NEXT I:REM DN6}RAW PLAYER2( 230 DATA 22 -&(8,, d2 (8,2..(#240 DIM UPCODE$(22):UP=ADR(UPCODE$)2N7} (250 FOR I=UP TO UP+202$$(260 READ BYTE:POKE I,BYTE,3++( 270 NEXT I:POKE UP+17,H+3:RETURN^3&&(280 REN8}M MOVE PLAYER UP CODE3//($290 DATA 104,104,133,204,104,133,2033--("300 DATA 160,1,177,203,136,145,2033,,(!3N9}10 DATA 200,200,192,7,208,245,96&444()320 DIM DOWNCODE$(22):DOWN=ADR(DOWNCODE$)X4$$(330 FOR I=DOWN TO DOWN+204$$N:}(340 READ BYTE:POKE I,BYTE444()350 NEXT I:POKE DOWN+8,H+1:RESTORE:RETURN4(((360 REM MOVE PLAYER DOWN CODE N;}5//($370 DATA 104,104,133,204,104,133,203R5--("380 DATA 160,6,177,203,200,145,2035..(#390 DATA 136,136,192,255N<},208,245,9656 +6(%Use 'ENTER' to load your new program. D1:PMBASE.BAS2035..(#390 DATA 136,136,192,255LW:DBEFISTARADSTARTADABUFFERTFCIOSECTORDSKINVADDMEDIPINIDTYPREACKSURICCOICBADICBLR>}EICSTANDSTATBASDUNIDCOMNDBUFLDBUFHDBYTLDBYTHDAUXDAUXBrAbAAA*'R?}Qe y   A @h@2A@1@@h@R@} !"#$%&RA}'()*+,-.d_ +76-F:A`,%AV$F:Aa,%@KRB}&@@q_%@@nW-@(MLX/-@#B(TAW(RC}xQ(Starting Address3( Ending Address7M(Run/Init AddressQVV9@,;&%A',;@ ,;RD}@ ,;@,;A(,;@,:#@@K:&(:( ape or isk::6.>:,%67&RE}%@0,.467@,.:6.U 6-6.hhh+67@,.>:Ap,=67@,.LVU67@,.>:A(,.)RF}@.@*@hAp) (>:, (@:T,6.) API6-&@$ 6.>:,I67@,.RG}>:P:+&%A','A(,,H6-P:'AV,$6-&$AV667@,.>:,H67@,.>:,V6-%@"6-P:'RH}AV,26-&$AVD67@,.>:,V67@,.>:,e-@@$"'67,.>:,+ e24,96,169,60,141,2,RI}211,169,0,133,10,169,0,133,11,76,0,0H6-P:'AV,$6-&$AV667@,.>:,H67@,.>:,'67@#,.RJ}>:,'67@$,.>:,@:D,A`%(%(Boot isk or Binary ile:.)@.@h*@pApRK} (>:,"@pA`"I6-&@0 6.>:,I67@,.>:P:+&%A','A(,,,H6-P:'AV,RL}$6-&$AV667@,.>:,H67@,.>:,6N 6-6-P:'AV,*6-&$AV<67@,.>:,N67@,RM}.>:,@5 #A0!-@@0%"167,.>:,5 JSS169,0,141,231,2,133,14,169,0,141,232,2,133,15,169,0,133,10,16RN}9,0,133,11,24,96TH6-P:'AV,$6-&$AV667@,.>:,H67@,.>:,^H6-P:'AV,$6-&$AVRO}667@",.>:,H67@&,.>:,hC +A@1A@CA @r (: -@RP}@|2 Ap"6@(6-&@2 A%"6@6-@:D,% A &"6@-@RQ}& A ? A"6@(.( New Address25(? Ap" B'g"6@A= A0("(RR} Display:From&/(To3= B'gS )!) )!) I(>:AS, At least , Not More Than S A0RS}i-@((:3-@E6-F:C:,%%&,O6.000i67@&B:=:,,,.=:,8F:Ad, ART}U%)@('+'.(8 Ap2 (, (>:A&," %(((2 Ap ( Ap 68,-RU} [6-&P:'AV,$AV2-@@=6-%8,W6-&AV$+!AU,[ v6-A(12ARV}@@; Ap]2i6-v(>:A&,3  (&( Incorrect>:ASRW},)(3 Ap@ -@6@<2@P@@ 5-@@1C:,%&%&@RX}8,5 &6-%@Ap0 A:6-6-D8)@8"AU)"@D)"@2RY}ApN @26-6$XA&A0bH A#"@*"@D06-6@>(>:A&,H ARZ}l Apv!! @H)!@WA% (>:%,%6-$@%&@H3!AU(>:AS,)6-A&R[}3 A%6-%@% @A'"(>:AS,' Ap (, $fAR@)R\}-@@7(>:@0,D)@Z@D*@Xb(>:,f *AR'( >:A&,*$CR]} +A@&1A@&CA @"@:T,A ˠ (( Load File(R^}@pA@H(.(#Enter AUTORUN.SYS for automatic use1(D(Enter filenameHJ 6.B:,!@27@R_}<@,0D:;6.D:J67@,. Q Ap@?@@&@$B(Q( Working...R`}6-@@()@, 6 A  )*@AU)*@AU*y6-P:'AV,$6-&$ARa}V1*@>*@O6-P:'AV,_6-&$AVl*@y*@4* A p*F:A,!@Rb}Ap>")APH*@A$)*@@<*@A%O*@@`6-P:'AVRc},p6-&$AV}*@*@RF B'g@&( Finished.*-(0(<-F A`\fIRd}-(Error F:A, trying to access1(<@?(I A`pԠŠz (( Read TapeE( ("(IRe}nsert, Rewind Tape.3( Press PLAY 8(E(& RECORD$($(Press when ready:T A `@B@Rf}@&@$A(C:E(T( Working...* A p*F:A,!@A `F@ B'g&( FinisRg}hed.)(,(0<-F A`V(>(Error F:A, when reading/writing boot tapeA(L@V ARh}DDϠ売䠠Ľ嬠Ľ6-@2File#2,$2036-A46-A6Ri}'6-A@36-A5B6-P:C:,'AV,*6-C:,&$AV2%B%%@L6-&%@$6-P:'AVRj},46-&$AV<%L%%@)%@&@$)6-?:C:,<,AF:,$ҠɯϠRk}A$*(*(Format Disk In Drive 1? (Y/N):..)@.@x*@Ap8 (>:,"@xARl}BW(( Formatting...@AT@D:T(Format CompleteW(LY 6-P:+&%A','A(,Rm}<67&%@,.>:,@O( Reading...Y A V( Writing...`-@6-j4 A *67$A(Rn}&A',.4 A`t6.7$A(&A',~ A F:,@A  ( ( (-Ro} A`@(Error on disk access.6(May need formatting.@ A@ҠӠśDriRp}ve ONEPass buffer in SECTOR$sector # in variable SREAD=1 for read,READ=0 for write6-@$ARq}V -6-%@6-%@-6-%@6-%@6-%@6-%@6-%@ (6-%@Rr}6-%@2DIM DSKINV$(4)<% 6.hLS%67@,.>:A(,F9@6-C:,)6-P:'AV,96-&ARs}V$P Z d@&@$n'P:'AV,'&F:,$AVx6-?:C:,,$D:MLX*.*Rt}D:MLX d@&@$n'P:'AV,'&F:,$AVx6-?:C:,,$D:MLX*.*P0>?_ u BBBBBB' +'0@Vv}C( ( ('( SWEET DREAMSC( ==============)( ( ()( SONG BY URITHMIX( Vw} BY NIR DAREYAR@ -@@r"2@@(-Vx}$@P2W2@@@;2@@@W2@@@<- )2Vy}- F"AR@#" @0,2,144,121,9660,2,144,121,9660,2,144,121,9672,2,14Vz}4,121,9660,1,182,144,12160,2,182,144,12160,2,193,153,12864,3,193,153,12860,1,144,121,9660V{},1,144,121,9672,1,144,121,9660,3,144,121,9672,2,144,121,9660,1,182,144,12153,3,182,144,121V|}60,1,193,153,12864,3,193,153,12860,1,144,121,9660,1,144,121,9672,1,144,121,9660,3,144,121,96V}}60,1,144,121,9672,1,144,121,9660,1,182,144,12160,2,182,144,12160,2,193,153,12864,3,193,153,V~}12860,2,144,121,9672,1,144,121,9660,2,144,121,9672,3,144,121,9660,1,182,144,121 60,1,182,1V}44,121 53,1,182,144,121 60,2,193,153,128 64,3,193,153,128 47,1,144,121,9647,1,144,121,9660,2,V}144,121,9647,2,144,121,9660,1,144,121,9647,2,217,173,14453,2,217,173,14453,4,193,153,1284V}7,1,144,121,9647,1,144,121,9660,2,144,121,9647,1,144,121,9647,1,144,121,9660,1,144,121,96V}47,2,217,182,14445,3,217,182,14447,1,193,153,12853,3,193,153,12847,1,144,121,96 47,1,144,121,96V}!60,2,144,121,96"47,2,144,121,96#60,1,144,121,96$47,2,217,173,144%53,2,217,173,144&53,4,193,153,V}128'47,1,144,121,96(47,1,144,121,96)60,2,144,121,96*47,2,144,121,96+60,1,144,121,96,47,2,217,18V}2,144-45,3,217,182,144.47,1,193,153,128/53,3,193,153,128053,0,193,153,12810,0,0,0,0D1:SWEETDV}R.BASETDR.BAS @ @(53,3,193,153,128053,0,193,153,12810,0,0,0,0D1:SWEETDT6P^_ XSTARXFRB6%&@@;@ ,e AF:A,&@Z}*+K6-+F:A,%@,$AV_AV'AVb(e((<;@8,<6.%h˅ͩΥji͑ΥZ}`26-?:C:,,#@<!""6@ A!$F3-@"%%%) 3 @`P512,0,6Z}2,34,34,34,34,98,0Z%%520,0,146,146,146,162,194,254,0d528,0,28,4,4,4,4,60,0n536,0,124,4,4,4,4,127,0x544,0,60Z},4,4,28,36,36,0552,0,126,2,2,34,36,32,32560,0,126,2,2,2,2,126,0568,0,66,34,18,10,6,124,0576,0,60,4,4,Z}4,0,0,0584,0,28,4,4,4,4,4,4 592,0,126,66,66,66,66,66,0600,32,64,126,2,2,2,4,0608,0,126,2,2,2,2,2,2Z}616,0,66,34,20,8,4,126,0624,0,92,34,66,66,2,126,0!!632,0,126,66,66,66,66,126,0640,0,126,34,34,2,2,126,0Z}648,0,62,34,34,34,34,98,0656,0,126,2,2,2,2,2,0664,0,126,8,8,8,8,8,0672,0,70,34,20,40,68,98,0"680,0,2Z}8,4,4,4,4,4,0,688,0,126,2,2,66,66,66,06696,0,66,34,20,8,4,2,1@ 704,0,126,34,34,34,34,28,0J 712,0,70,74,66,6Z}6,66,126,0T720,0,62,8,8,8,8,8,0^768,0,66,34,20,8,4,2,1h984,0,126,34,34,2,2,2,2r-1  6-@Z}@6(++++++++++++++++++++++++++++6-@@6(+ 800XL     +6-@@6(Z}+ 1987   '  +6-@@6(++++++++++++++++++++++++++++ D1:HEBRW.BASHEBRW.NIRBRW.NhZ}˅ͩΥji͑Υ`F++++++++++++++++++++++++ D1:HEBRW.BASHEBRW.NIRBRW.NhX;P^_XSTARXFRB6%&@@;@ ,e AF:A,&@^}*+K6-+F:A,%@,$AV_AV'AVb(e((<;@8,<6.%h˅ͩΥji͑Υ^}`26-?:C:,,#@<!""6@ A!$F3-@"%%%) 3 @`P512,0,6^}2,34,34,34,34,98,0Z%%520,0,146,146,146,162,194,254,0d528,0,28,4,4,4,4,60,0n536,0,124,4,4,4,4,127,0x544,0,60^},4,4,28,36,36,0552,0,126,2,2,34,36,32,32560,0,126,2,2,2,2,126,0568,0,66,34,18,10,6,124,0576,0,60,4,4,^}4,0,0,0584,0,28,4,4,4,4,4,4 592,0,126,66,66,66,66,66,0600,32,64,126,2,2,2,4,0608,0,126,2,2,2,2,2,2^}616,0,66,34,20,8,4,126,0624,0,92,34,66,66,2,126,0!!632,0,126,66,66,66,66,126,0640,0,126,34,34,2,2,126,0^}648,0,62,34,34,34,34,98,0656,0,126,2,2,2,2,2,0664,0,126,8,8,8,8,8,0672,0,70,34,20,40,68,98,0"680,0,2^}8,4,4,4,4,4,0,688,0,126,2,2,66,66,66,06696,0,66,34,20,8,4,2,1@ 704,0,126,34,34,34,34,28,0J 712,0,70,74,66,6^}6,66,126,0T720,0,62,8,8,8,8,8,0^768,0,66,34,20,8,4,2,1h984,0,126,34,34,2,2,2,2r-1  6-@^}@6(++++++++++++++++++++++++++++6-@@6(+ 800XL     +6-@@6(^}+ 1987   '  +6-@@6(++++++++++++++++++++++++++++ D1:HEB.BASHEBRW.NIRBRW.Nh^}˅ͩΥji͑Υ``F++++++++++++++++++++++++++ D1:HEB.BASHEBRW.NIRBRW.Nh\96LBFbbPROGRAM 1 - makes -creator- file wich can convert basic program into autbootb} cassette files. IIwrites the data starting at lise 150 into an autboot cassette file.b$6-+F:A,&@$,$AVb}breserve a safe area at the top of RAM as a temporary bufferV-@F")A6%- Vload then new sb}ave routine into page 6(PP104,104,133,204,104,133,203,104,133,206,104,133,205,162,16,169,11,157,66,32II165,203,157,68,3b},165,204,157,69,3,165,205,157,72,3,165,206,157,73,3<32,86,228,96,67,58,155D1:AUTBOOT.BAS32II165,203,157,68,3`f EF\qABCPBBADDSEMXY(Bf} Bh @!@ LOAD*IT Bf}Y KARL STIEFVATER A11;@ ,;@,;@@,;@,( A A2L6.LOAD(0@f}@B0@@@L A<+@+@@F>)@)@f}(@3@>@P!!"AU*"AUApZ!!"*"A @d!!!@G* @Xf}A pn%xN0@@ @70@@ D6.RENAMEN AA-@@ )(What sf}hould I=(rename it as? A7-B:,@6@*7<,0 -'7 A` '67%@,.,'67%@f},.Z-@@ '( Renaming!2@W@2@Z%N6.DELETE*0@f}@@D0@@N AC-@@ %( Delete 9(are you sure? C A@36-f}@#@+6-@#@0(3%*-@@ *( Deleting 6@3@3@f}6% +'0@A0@@@[0@@@o%@@f}%@ @-@@(FORMAT![0@@[(9WARNING: This will erase all data on f} this disk!(((Are you positive? ( A@36-@#@+6-@#@0(3%9@9f}AT@D:*.*%"H0@@@70@@@H( } create,J(*f}(Insert the new Load*It disk and=(press J)@6a((Format this disk?' A@+6@aAf}T@D:*.*@L((Analyzing disk...'@L@@D:*.SYSJ1@f}17@<@,0 A`T*7@<@,4DOS*6-@^ A0h@(%(Write DOS to this df}isk?/ A@4(@6-@r;6-A:7@<@,,;!@&$@9A |::(Sorry, Load*It needs @f}&$@2 sectors(( with DOSC((This disk only has  sectors<-@A @ C% f} A`9@9@@ D:AUTORUN.SYSf(P(DThis disk already has an AUTORUN.SYS on it. Shouf}ld I write over it?Z A@fA`-@A %B A@B@@f} D:LOADIT.BASf(P(DThis disk already has a LOADIT.BAS on it. Should I use it anyway?Z A@fA-@f}A %+ A(+(Beginning the write...Y((Writing DOS.SYS'@N@@f} D:DOS.SYSY@_(Writing the AUTORUN.SYS*@U@@ D:AUTORUN.SYS_#APf}""6@A@*@ A >(Writing main program...*@; D:LOADIT.BAS>%&ll255,25f}5,0,6,81,6,216,24,173,48,2,105,4,133,204,173,49,2,105,0,133,205,24,160,0,177,204,105,162,133,2120kk160,1,177,204,105,0,133f},213,160,32,185,49,6,145,212,136,208,248,169,13,141,74,3,96,0,48,47,43,37,0,24:bb20,18,12,17,18,26,50,53,46,0,2,36,17,26,4f}4,47,33,36,41,52,14,34,33,51,2,0,226,2,227,2,0,6,-1DJ6-6-% A,(}8( J-@@f}N1@1@@D:*.*X2@27@<@,4 FA0bK6-%@( f} )@K7@<@,4 FA0l( Avr-@@ (+-@!Y(=" =f}NEW DISK =ABORT =LCK/UNLCKk-@r(->Q6-@6-!6-'6-2@Q@@f}K.)@.6-%+"@a,&+"@E,+ @6-%@+6-@&+!%@6-@f}+6-@&D )-$@ "(->0-$@ 8( >6-D6-"@x A"@ef}%"@BA@%"@C6-@% A@ AP++-$@ %@$@ %@% f}1!67&$@ ,.>:,% , 6.D:,67@,.7@<@,: -@@6@-7<,0 0'f}: A  067%@,..067%@,.7@, ;;7@<@,4 *7@<@,4 AP*f} ( $4o A0@5@@@@e@5@o A>=f}@3@6@= AH]@-@@K:)@F"@xf}N(No!Z6-]$R'"@(Yes!$6-@'$\ A@f +'0@@@A0f}@[0@@@o%@ @%@@-@p:(BINARY LOADING5-f}@1&B:,'@@:(z8( (.( Turn off BASIC? (XL/XE only!) 8 A@+@+@@f}A 06-?:AUv,%6-?:C:,,% +'0@@@A0@f}[0@@@o%@ @%@@-@@(LOADING'"-@1&B:,'@f}@'(% +'0@@@A0@[0@@@o%@ @f}%@@-@@(ENTERINGA0@@<-@1&B:,'@@A(_f}-@@(NEW (#(&(=(ENTER>:@4,@(C(F(_(GR.0:POKE 842,12:RUN*-@@'AB@f}*&A +AR@A6-F:A`,%F:Aa,$AVk0@70@f}Q0@@k0@G%@@d%@3%@@G%@&@Hf}"-@"(load it/#( By Karl Stiefvater&()(,(/($!!( .!!( f} | Load! |8!!( | Rename! |B!!( | Delete! |L!!( | Format! |V!f}!( | Create a |`!!( | Load*It |j!!( | Disk! |t!!( f}~&( (&( Choose one::@-@@K:)@!! @I)!@Sf}A`77&@H@PA AA0A* +*( System error F:A,8 #A !f}-@@%"167,.>:,5 8$??104,169,255,141,1,211,24,165,106,105,32,133,106,76,200,21 D1:LOADIT.BASf} D:LOAD.IT111 FR,5 8$??104,169,255,141,1,211,24,165,106,105,32,133,106,76,200,21 D1:LOADIT.BASd!h\ m BDHGDLDDIGIDD@f @@BIj}NARY TO DECIMAL AND DECIMAL TO BINARY CONVERSION PROGRAM(c) 1981 by Jerry White//ORIGINALLY PUBLISHED IN COMPj}UTE! MAGAZINE**P.O. BIX 5406, GREENSBORO, NC, 27403*;@,;@,*6.00000000K +'0@j}9AR@K-@@ N%(TYPE B TO CONVERT FROM BINARY((N(! TYPE D TO CONVERT FROM Dj}ECIMAL";#@@K:0)@;@$"@f@P&"@hA( @4j}2(>:A%,*0@66-HAR@K(u(%BINARY TO DECIMAL CONVERSION PROGRAM: AUj}`a55LINE 100 HAS 8 INVERSE VIDEO SPACES FOLLOWED BYb77TWO NORMAL VIDEO SPACES FOLLOWED BY TWO UP ARROWScWITHj}IN THE QUOTESd(( enR( ((7@<@,4E2+5(G( LOADING MENUR%D:MENj}Up7@<@,4R%x6- A`$$7@<@,40A 6-%A($$7@j}<@,40A@6-%@d$$7@<@,40A`6-%@2$$7@<@,40Aj}6-%@$$7@<@,40A"6-%@,$$7@<@,40A 66-%@j}@$$7@<@,40A@J6-%@T$$7@<@,40AU^6-%@c+-@@j}(+(BINARY =d/-@&@( /-@@h((DECIMAL VALUE=rL(( TYPE E TO ENDj}.(TYPE R TO RERUNL(OR TYPE A BINARY NUMBER. B As(>:A%,*0@<ARj}@?(i(%DECIMAL TO BINARY CONVERSION PROGRAM:s A@@LINE 510 HAS 5 SPACES THEN TWO UP ARROWS WITHIN THj}E QUOTES(( U( ((+7@<@,4E5+8(J( LOADING MENUU%D:MENUj}7@<@,4R%$ A$A:,!AUA! 6-A:,6.&-@@06-A:,'@j}6-P:,:3 "P:,)67@ &<@ &,.03 AD 67@ &<@ &,.1N 6.=:,X  0-@@j}(0(DECIMAL = *(( BINARY VALUE=4M(( TYPE E TO END.(TYPE R TO RERUNM(OR TYPE A DECIj}MAL NUMBER.> B A D:BINCONVALUE=4M(( TYPE E TO END.(TYPE R TO RERUNM(OR TYPE A DECIh4[ABCLRELML   @@@@dATARI BASIC STRn}ING SORTnTUTORIAL BY JERRY WHITEp..ORIGINALLY PUBLISHED IN COMPUTE MAGAZINEq**P.O. BOX 5406, GREENSBORO, NC, 27403n}x*** SETUP ***e&;A0,;@0,;@0,767@,. H67A0,. W67@,.^6.e6.C n}+'0@9@@C A *** SORT A$ ***=6-P:'@,%@,-@n}&=-@6SS7$@0&@)<$@0,/7+%,$@0&@)<+%,$@0,An&6.7$@0&@)n}<$@0,n67$@0&@)<$@0,.7+%,$@0&@)<+%,$@0,..67+%,$@0&@)<+%,$@n}0,. -)2%@&@@- !@A`!!*** DISPLAY SORTED DATA ***K%2n}2(>:A%,K(*** SORTED DATA ***6-@2(7$@0&@)<$@0,6 n}*** CONTINUE OPTION ***K(*( PRESS OPTION TO ADD DATAK( PRESS START FOR MENU F:B2y,"@n}A0"BF:B2y,"@"+%(7( LOADING MENUB%D:MENU, A6*** DATA ENTRY ***@0(0(%ENTERn} UP TO 100 RECORDS TO BE SORTED:J<6-%@((( ENTER RECORD /6.3<6-B:,TH"6-&@#6n}->(*** S O R T I N G ***H A`^0067$@0&@)<$@0&@)%,.h A0 D:SORTDEMO#6lw[ABCLRELML   @@@@@dATARI BASIC STRr}ING SORTnTUTORIAL BY JERRY WHITEp..ORIGINALLY PUBLISHED IN COMPUTE MAGAZINEq**P.O. BOX 5406, GREENSBORO, NC, 27403s}x*** SETUP ***e&;A0,;@0,;@0,767@,. H67A0,. W67@,.^6.e6.C s}+'0@9@@C A *** SORT A$ ***=6-P:'@,%@,-@s}&=-@6SS7$@0&@)<$@0,/7+%,$@0&@)<+%,$@0,An&6.7$@0&@)s}<$@0,n67$@0&@)<$@0,.7+%,$@0&@)<+%,$@0,..67+%,$@0&@)<+%,$@s}0,. -)2%@&@@- !@A`!!*** DISPLAY SORTED DATA ***K%2s}2(>:A%,K(*** SORTED DATA ***6-@2(7$@0&@)<$@0,6 s}*** CONTINUE OPTION ***K(*( PRESS OPTION TO ADD DATAK( PRESS START FOR MENU F:B2y,"@s}A0"BF:B2y,"@"+%(7( LOADING MENUB%D:MENU, A6*** DATA ENTRY ***@0(0(%ENTERs} UP TO 100 RECORDS TO BE SORTED:J<6-%@((( ENTER RECORD /6.3<6-B:,TH"6-&@#6s }->(*** S O R T I N G ***H A`^0067$@0&@)<$@0&@)%,.h A0D1:STRGSORT.BASp|"#AWORDALLSWAPZZOFEDE w }  (}$$( WORD SORTING UTILITY'$( w }'(;@,;A@,(&-@A@"67,. & 2I(HOW MANY WORDS'!@ ?(MAXIMUM OF 20 w }WORDSI @P<-@F(ENTER  WORDZ67$@ ,.d n67A@,. xPRINT UNSORw}TED LIST&(UNSORTED6-& ASORT THE WORDS6--@&@6-$@ w}6-%@ ++7<%@,17<%@,A6.7<%@,67,.7<%@, 67,.67w}A@,. "6-%@, 6/!A/REPEAT UNTIL NO SWAPS@PRINT SORTED SEQUENCEJ6-@w} AO}@@5@@K:G-@@#e(PRESS ANY KEY TO CONTINUEr)@w}}@TG#@@K:G(}DO YOU WANT ANOTHER SORT(/)?Y)@^;-"@)"A!)"w}AI)"A8@;%h]-"@x)"A)"A8)"AO(}IT WAS NICE WORKING WITH YOUZ@]w}rh@x)@^(@BE KIND AND ANSWER YES OR NO ONLY AND STOP YOUR FOOLISH GAMES!!!h AEDISPLAY STRINGSw}D@@'-@.(2 9(D(SORTED-@$$(7$@ <$@ %@,w} $D1:WORDSORT.BAS.(2 9(D(SORTED-@$$(7$@ <$@ %@,t #$AWORDALLSWAPZZOFEDE {}  A (}$$( WORD SORTING UTILITY$$( {} (((HOW MANY WORDS-'';@,;+%@,$@ ,2@67@,. 167+%@{},$@ ,. @67@,.<-@F(ENTER  WORDP08AC:,!AB:,06-?:A6{},Z67$@ ,.d n 67+%@,$@ ,. xԠĠԛ&(UNSORTED6-& A{}ԠŠӛ6--@&@6-$@ 6-%@ ++7<%@,17<%@{},A6.7<%@,67,.7<%@, 67,. 67+%@,$@ ,. "6-%@, {}6/!A/Ԡ̠Ϡӛ7-@8&&6.7$@ <$@ %@,908AC:,!A{}B:,06-?:A6,:&&67$@ <$@ %@,.; @ԠĠśJ6-@ Ah{ }٠ӛD@@'-@.(2 9(D(SORTED-@$$(7$@ {!}<$@ %@, $TVҮ`ήj6-tE ""6@G~"A6{"}%6-%@"F$..104,164,205,177,203,153,100,6,136,16,248>>162,0,164,205,136,189,100,6,145,203,232,136,16{#},247,96,-1 D:WORDSORT.2.104,164,205,177,203,153,100,6,136,16,248>>162,0,164,205,136,189,100,6,145,203,232,136,16x`2 I MKSRECPNDFLPMK $$MACHINE LA%}NGUAGE SORTS, PART 1BY KEVIN PECK(c)1988, ANTIC PUBLISHING A2SET ASIDE ROOM FOR DATAF11;A`&},;@,;@,;@,Z""FILL DATA STRING WITH BLANKSdAND THEN READ DATAx+ 6. 67A`,. +6'}7@,.9-@@ 96-++&@,$@#,%@ "67<%B:,,.##67%@<%@(}%B:,,.##67%@<%@%B:,,.  PRINT HEADING AND UNSORTEDDATA TO SCREEN A )}&((Unsorted data....& ANOW SORT BY LAST, FIRSTAND PRINT NEW DATA"NN6-?:C:,MARY,JOHNSON,DRIVERH2}AMANDA,JAMES,PROGRAMMERRBOB,HUNT,DRIVER\JERRY,PECK,TRAINERfMICKI,SMITH,PROGRAMMERpLEROY,JOHNSON,DRIVER3}zJIM,HUNTER,TRAINER= (}-@=(Ԡ Ԡ Π9-@@ 96-++&@,4}$@#,%@NN(7<%@, 7%@<%@, 7%@<%@",   $;A,Z5}Z6.Phhhhhhhhhe˅hhhheЅhhhhׅ8̅΅եe̅Ԑդcc67@,.P5.6} Hԑhe̅ԥi3367Aa,. ЬЦe̅ͥiІЀ`$7}D1:MULTISOR.DEMHԑhe̅ԥi3367Aa,. ЬЦe̅ͥiІЀ`$|0100 ;MACHINE LANGUAGE SORTS, PART 10110 ;BY KEVIN PECK0120 ;(c)1987, ANTIC PUBLISHING0130 FLAST = $00 ;End, outer loo9}p0140 FLENKEY = $CB ;Key length0150 RLEN = $CC ;Record Length0160 OFFSETKEY = $CF ;Key offset0170 FIRST = $CD :};1st element ptr0180 SECOND = $D4 ;2nd element ptr0190 LAST = $D6 ;End, inner loop0200 FENDKEY = $D8 ;End, key f;}ield0210 ORDER = $E1 ;Order, sort 0,10220 FLENSEC = $D0 ;2nd field lngth0230 OFFSETSEC = $E0 ;2nd " " offset0240 F<}ENDSEC = $D1 ;End 2nd field0250 ;0260 *= $40000270 ;0280 CLD 0290 PLA 0300 ; Retrieve arguments from BAS=}IC0310 PLA 0320 STA FIRST+10330 PLA 0340 STA FIRST0350 PLA 0360 STA LAST+10370 PLA 0380 >} STA LAST0390 PLA 0400 PLA 0410 STA FLENKEY0420 PLA 0430 PLA 0440 STA OFFSETKEY0450 CLC ?} ;Find end of 0460 ADC FLENKEY ;First key 0470 STA FENDKEY0480 PLA 0490 PLA 0500 STA FLENSEC@}0510 PLA 0520 PLA 0530 STA OFFSETSEC0540 CLC 0550 ADC FLENSEC ;Find end of 0560 STA FENDSEC ;seA}cond key0570 PLA 0580 PLA 0590 STA RLEN0600 PLA 0610 PLA 0620 STA ORDER0630 ;0640 ; All parmsB}. now in zero page.0650 ; Next, set pointer to the end0660 ; of the outer loop0670 LDA LAST+10680 STA FLAST+1069C}0 SEC 0700 LDA LAST0710 SBC RLEN0720 STA FLAST0730 BCS SETSECOND0740 ;0750 DEC FLAST+10760 ; SD}tart of outer loop.0770 ; Adjust the second pointer to0780 ; point to the first pointer0790 ; plus the record length.0800E} ;0810 SETSECOND0820 CLC 0830 LDA FIRST+10840 STA SECOND+10850 LDA FIRST0860 ADC RLEN0870 STA F}SECOND0880 BCC SORTKEY0890 INC SECOND+10900 ; Start of the inner loop.0910 ; 1. Compare the Key field of0920 ; G} the two sort elements.0930 ; 2. If we find a mismatch,0940 ; do we need to swap them?0950 SORTKEY0960 LDY OFFSETH}KEY0970 ;0980 KEYLOOP0990 ;1000 LDA (FIRST),Y ;get a byte1010 CMP (SECOND),Y ;of each.1020 BEQ CHKMORE ;If I}= Continue.1030 ;1040 BCC NOSWAP ;If FS swap.1070 ;1080 CHKMORE1090 ;J}1100 INY ;Adjust pointer1110 CPY FENDKEY ;All done?1120 BNE KEYLOOP ;No. Continue.1130 ;1140 ; At tK}his point, all bytes in1150 ; the key field of both sort1160 ; elements are equal. Drop to1170 ; SORTSECOND and check theL}1180 ; secondary fields.1190 ; If their lengths = 0, then1200 ; we don't have 2ndry fields.1210 ; We are only doing a oM}ne-field1220 ; sort--goto the Noswap routine.1230 ; If the key fields are equal,1240 ; there is no need to swap them.1250N} ;1260 SORTSEC1270 LDA FLENSEC ;A second field?1280 BEQ NOSWAPBD ;No.1290 ;1300 LDY OFFSETSEC1310 SECLOOP1O}320 LDA (FIRST),Y ;Compare byte1330 CMP (SECOND),Y ;by byte...1340 BEQ CHKMORE2 ;If = do more.1350 ;1360 P}BCC NOSWAP ;If Fs Swap.1390 ;1400 CHKMORE21410 INY ;Point to nexQ}t.1420 CPY FENDSEC ;End of 2nd?1430 BNE SECLOOP ;No, do more.1440 ;1450 ; Now, both the key and the1460 ; secondR}ary fields of both sort1470 ; elemtents are equal. Goto1480 ; the noswap routine through the1490 ; "back door." No need toS} check1500 ; the order, no need to swap.1510 BEQ NOSWAPBD1520 ;1530 ; This is where the swapping1540 ; occurs. FirstT}, check the1550 ; swapping order.1560 ; (Assume swapping in ascending1570 ; order.) If order<>0, then1580 ; sort in desceU}nding order.1590 ;1600 SWAP1610 ;1620 LDA ORDER ;Get order1630 BNE NOSWAPBD ;Not 0, No swap1640 ;1650 ; SwapV} routine's back door.1660 ; If NOSWAP decides we need to1670 ; swap by checking the order,1680 ; we need to come here (insW}tead1690 ; of SWAP) or we would go into1700 ; a continuous loop.1710 ;1720 SWAPBD1730 LDY #01740 SWAPLOOP1750 X}LDA (FIRST),Y ;Key byte1760 PHA ; to stack.1770 LDA (SECOND),Y ; 2ndry byte1780 STA (FIRST),Y ; to kY}ey.1790 PLA ;Key from stack1800 STA (SECOND),Y ;to 2ndry.1810 INY ;Next byte.1820 CPY RLEZ}N ; More?1830 BNE SWAPLOOP ;Yes. Continue.1840 ;1850 ; All bytes have been swapped.1860 ; Now adjust pointers to t[}he1870 ; next elements for the sort.1880 ; Goto the noswap back door.1890 ;1900 BEQ NOSWAPBD1910 ;1920 NOSWAP1930\} ;1940 LDA ORDER ;Is ORDER=1?1950 BNE SWAPBD ;Yes. Swap them1960 ;1970 NOSWAPBD1980 CLC 1990 LDA SEC]}OND2000 ADC RLEN2010 STA SECOND2020 LDA SECOND+12030 ADC #02040 STA SECOND+12050 CMP LAST+1206^}0 BNE SORTKEY2070 ;2080 LDA SECOND2090 CMP LAST2100 BNE SORTKEY2110 ;2120 ; We've made one pass through_}2130 ; the sort's inner loop. Now,2140 ; adjust the outer loop and2150 ; check if we're done with it.2160 ; If not, read`}just the inner2170 ; loop pointer to the outer loop2180 ; pointer + the record length.2190 ;2200 CLC 2210 LDA FIa}RST2220 ADC RLEN2230 STA FIRST2240 LDA FIRST+12250 ADC #02260 STA FIRST+12270 CMP FLAST+12280 b} BNE SETSECOND2290 ;2300 LDA FIRST2310 CMP FLAST2320 BNE SETSECOND2330 ;2340 RTS ;Goto BASICc}2350 .END D2290 ;2300 LDA FIRST2310 CMP FLAST2320 BNE SETSECOND2330 ;2340 RTS ;Goto BASIC=>p ABCLRELMLWORDDDUMMCOUNKEHOKEDATLOODARE :::@@@e}@@  @& : A6@AU@5f} 6-""6@@A6%6-%@( @ 2..104,164,205,177,203,153g},100,6,136,16,248<>>162,0,164,205,136,189,100,6,145,203,232,136,16,247,96,-1F""----------------------------P*** SEh}TUP ***Z1;BP,;@0,;@0,;@0,B67@,. S67A0,. b67@,.i6.p6.w6.i}6-d##@@K:n; +@@1AR@; A x*** SORT A$ j}***=6-P:'@,%@,-@&=-@6SS7$@0&@)<$@0,/7+%,$@0&@):A%,Q( *** SORTED DATA ***4-n}@46.7$@0&@)<$@0,dAB:,;AC:,&+P:C:,'AV,$AV,UAP:C:,'AVo},d6-?:A6,D(6-%@!"@ -6-7 AD(>:A%, *** CONTINUE OPTION ***p}N(*( PRESS OPTION TO ADD DATAN( PRESS START TO DATA((( PRESS SELECT TO DATA F:q}B2y,"@A0",F:B2y,"@" AP, A',F:B2y,"@" AP, A, Ar}6*** DATA ENTRY ***@9 (} (6(%ENTER UP TO 500 RECORDS TO BE SORTED:9(J$6-%@ A $6-B:,ThhPOKs}E 205,LEN(B$):POKE 203,ADR(B$)-(INT(ADR(B$)/256)*256):POKE 204,INT(ADR(B$)/256):DUMMY=USR(1536)^203-204 ADDR / 205 LENht}M"6-&@#6-C( *** S O R T I N G ***M A0r0067$@0&@)<$@0&@)%,.|u} A0<AdAU(<( PRESS ANY KEY TO CONTINUE F:Ad,"AUA$\ 6.6-v}@"6-@54-@@!\(# =-@@=(#w})-@@ )( ENTER RECORD:)@J"A&-@!$( 26-%@@6-x}&@J AP"AUA (-@!(>:,(67<,.>:,6-%@6-&@!@)y}A  AP$&0&@@D:*.*0 Ap+(( ٠0@z}( A`:@ B$X1AR(-(LOAD FILE NAME:1b @@l{})@n8-@$@0&)@467<,.>:,8 v*AR@ @* A1AR|}(-(SAVE FILE NAME:12 @@2AR*@8-@$@0}}'6-@:7<,,4*@8 *AR@ @* A`D1:HEBSORT.BAS8-@$@0_