#@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 XPITCHOLTIMQUARTERNOTCTRLA@@ @7&&BASSNOTE TUTORIAL }BY JERRY WHITE;;ORIGINALLY PUBLISHED IN A.N.A.L.O.G. 400/800 MAGAZINE! A AP! A(e%2})"56-@A6-@U0@e2*<-@@ 9( SOUND 0,},, <$2n-@A =2I6-U6-a6-k @}Bn$F-@@P $P@-@@% =2@$d<<102,90,85,82,75,7}2,67,67,60,57,60,67,75,67,51,60,75,90i5-@@! @@+ @P5 @Pn+ @@ @p! @@+} @px! @@ @P! @P+ @@ @p! @@+ @p! @@ @P! @P/-}@@! @@+ @p/ + @@ @! @@+ @ @@ @# m# @@} @P,ARL( PRESS OPTION TO RERUNm( PRESS START FOR MENUF:B2y,"@%} F:B2y,@A00(>:A%,(%( LOADING MENU0%D:MENU#(( PITCH = NOTE# A,'('(2}5=E27=D#28=D 30=C#6%%(31=C 33=B 36=A#37=A @%%(40=G#42=G 45=F#48=F J%%(51=E 55=D#}57=D 60=C#T%%(63=C 67=B 72=A#75=A ^%%(82=G#85=G 90=F#97=F h (102=E A|+(+( TH}E ATARI BASIC SOUND COMMAND:;(.(#SOUND VOICE,PITCH,DISTORTION,VOLUME8 A;$XP +AR@) A}P(" THE THEME FROM BARNEY MILLERl;(.(#BASSNOTES USING SOUND DISTORTION 128 A;$,-@@6}%(>:@,) ,$##***************************** ##* D=DISTORTION V=VOLUME **##* GOSUB 50 FOR WHOLE NOTE *}4##* GOSUB 70 FOR QUARTER NOTE *>##* GOSUB 80 FOR EIGHTH NOTE *H##* GOSUB 700 TO DRAW A LINE *R##**************}*************** D:BASSNOTE*>##* GOSUB 80 FOR EIGHTH NOTE *H##* GOSUB 700 TO DRAW A LINE *R##**************"ab DDTIMCLICSTAKBEWAIROLTOTAPPOINBUZPITCOFVOLUMWONTWOTHREEFOURFIVESIXDICIERAS@@}@AAA@ @ @! AQ @ "}3DUAAH@D +AR@) @DDICE DEMO BY JERRY WHITE( $}1( $2( $3( $4( $5( $6 GG;@,;@,;@,;@},;@,;@, AA160,160,160,29,30,30,30,160,148,160,29,30,30,30,160,160,160 AA148,160,160,29,30,30,30,160,16}0,160,29,30,30,30,160,160,148 AA148,160,160,29,30,30,30,160,148,160,29,30,30,30,160,160,148AA148,160,148,29,30,30,30,1}60,160,160,29,30,30,30,148,160,148AA148,160,148,29,30,30,30,160,148,160,29,30,30,30,148,160,148AA148,148,148,29,30,30},30,160,160,160,29,30,30,30,148,148,148=-@@")67<,.>:,- 7 @:(=(=-@@}")67<,.>:,- 7 @:(=(=-@@")67<,.>:,- 7 @:(=(=-@@"})67<,.>:,- 7 @:(=(=-@@")67<,.>:,- 7 @:(=(7-@@")6}7<,.>:,- 7 @-@A o +'0@@9@@K@@9}]A@oAR@-((TEXT MODE GRAPHICS!(-6-A(#(( CRAP GAME# Ad-}@@nG%6-P:H:,$@,%@G6-P:H:,$@,%@x2 A0-@@# 26}-?:BG(,2 A@-@"@# 26-?:BG(,  B$Q0@@)6-;-}@@Q( YOU HAVE $ ;-@@)-@@7(>:AV,; W-@@'AR};(PLACE YOUR BETE A WAdAUG A B-AR@3( G"A0}* 6-P:,* @)!AA%6-%@%!@A= A6-%="@)"@})"@A!!"@)"@A8 6--@@8(YOUR POINT IS   A  }A0,) A6-%)"@A6  A  A0@ A.0@@@.CRAP}S YOU LOSE9-@@1( YOU LOSE $ 96-&W-APAP32@@W2@}%@@@ O'2@%@@@K2@%@@@O  7-}@327  C A #+&(=(EASY COME, EASY GO@(C A  A}X80@@@87/11 OR POINT....YOU WINb9-@@1( YOU WIN $ 96-%l@ -}AP@6@<2@@@ nX -@6?P<2@X2@}@@p?2@@@;2@@@? v A  A-@A} $`AR@'-@@B(BET FROM 1 TO 100 L A V A ` A0-@@ })B2y- 0$ - +("( LOADING MENU-%D:MENUD:DICEA ` A0-@@ XZERWOTETIMESECONDKOLOQUIEANOTLOCATIOSETWOFVOLUMPITCBLINKEBUTTOBUZCOUNBLINKWAISTALSUBS}UHEADINGTIMVOICDISCOUNSNREVERSIJ@@@ @!@%@0@5@! }@ @t8H @@@@E@P@UA@`A@ }  @e!"A`#@377ATARI BASIC SUBROUTINES IN ENGLISH BY J}ERRY WHITE11ORIGINALLY PUBLISHED BY ZAPATA MICROSYSTEMS??THIS IS A TUTORIAL PROGRAM DESIGNED TO DEMONSTRATE ITS}ELFGGBEGINNERS WILL FIND THE SUBROUTINES USEFUL IN DEVELOPING PROGRAMSMMLIST THE PROGRAM TO DISK OR CASSE}TTE AND START A LIBRARY OF SUBROUTINES VARIABLE DEFINITION c6-6-@'6-@36-@ ?6-}@!K6-@%W6-@0c6-@5 S 6-%6-@@#6-@E/6-@P;6-@UG6-@`S6-@e} 77OPEN IOCB #4 AS THE SCREEN THEN SET TIMER TO ZERO-#@@S:- @ 11DIMENSION STRINGS }AND SKIP OVER SUBROUTINES;,;@0, A<<LINE 20 RESETS TIMER AND LINE 21 GETS THE CURRENT TIME$-}@@ ! $$N6-#-@@ 66-$AV%F:,: K6-P:'@`,N$,,SET GRAPHICS M}ODE AND BACKGROUND COLOR+0$TURN OFF ALL SOUNDS"-@2 "$"PING SOUND ROUTINE}#-62 $'BLINK INVERSE VIDEO(J6-@0-@/AU@3 ?AUC G} J$,..GET FROM KEYBOARD AND RETURN NUMBER AS K-6@K:#)(66-&@H.!@ (}(>:,$/(( OPTION $1SENSE BUTTONS (B)2/AR(/(PRESS OPTION FOR OPTIONS3N6-F:B2y,}"@0-@@ K( N$4F"@!-@@ <(SELECT KEY WAS PRESSEDF @Q}5F"@!-@@ <( START KEY WAS PRESSEDF @Q6 @Q7MAKE CONSOLE BUZZER SOUND8$-}@PB2y! $$;HESITATION ROUTINE< - $@TURN ON A SOUNDA 2$c==IF YOU GOT HER}E, YOU DIDN'T ENTER THE PROGRAM CORRECTLYdK(0(%CHECK YOUR PROGRAM. YOU SHOULD NEVER3(H(GET TO LINE 100.K&KKRES}ET ANY TRAPS, PICK A RANDOM COLOR, GOSUB, THEN TURN OFF THE CURSOR. B6-H:,$@" .ARLLSUBROUT}INE MENU (LINE 220...TYPE ALL WITHIN QUOTES USING INVERSE VIDEO""6.ŠŠҠ+@@ '-@ }@+(((1 SET CLOCK TO ZERO((2 PRINT SECONDS((3 SHUT OFF ALL SOUND"("(4 ONE SHORT }CLEAR SOUND" ( (5 BLINK INVERSE VIDEO,((6 SOUND THE BUZZER6((7 TURN ON A SOUND@((8 EXIT THIS PR}OGRAM22READ FROM SCREEN AND CHANGE TO INVERSE VIDEO3 A 6-$@# 3-@ $%<-@ @2}!-$%.)@<6-%A( -$%*@ 6-A  $A  AO } -@ @4(THE CLOCK HAS BEEN7(H( SET AT ZERO.L O$<  -@ @5( SECONDS ELAPSED}.9 <$ <  -@ @5(ALL SOUNDS ARE OFF.9 <$P -@ @1(TYPE PITCH (0-255); A@}?I BM P$   $p   $X;  ( (#(TYPE VOICE (0-3)- Ap1; Bb )!@Ap}6((TYPE PITCH (0-255)( Aq,6 B )!AUAq P((TYPE DISTORTION AS8(0 2 4 }6 8 10 12 OR 14B ArFP B* )!@Ar4'P:',Ar6((TYPE VOLUME (1-15)( }As,6 B )!@As   $?GGRESET LEFT MARGIN TO TWO, RESET GRAPHICS MODE TO CLEAR THE SCR}EEN@9@+(9( Your wish is my command!J%D:MENU>>SET THE BACKGROUND COLOR TO DARK BLUE, CLOSE }SCREEN IOCB%0@@"@% D:ENGLISHD:MENU>>SET THE BACKGROUND COLOR TO DARK BLUE, CLOSE B0dvPP@@@@@ %%JOYSTICK by Jerry White 11/6/81(A +@(@ }#(@A(@ JOYSTICK DEMO2-(@-(@ BY JERRY WHITE<E(@(@$(@ }E(@ PLUG JOYSTICK INTOF.(@.(@ JACK NUMBER ONE.PF(@(@$(@F(@ }HOLD TRIGGER TO DRAWZ##(@ RELEASE TO ERASEd R:,@A0n T:,@A0x } A/6-@6-@/STARTING POSITIONd +@AdAU1AR@K0@ }Z6-R:,d Ac6-R:,'F:Ad,AU1+CAdAUF(X( LOADING MENUc% }D:MENU"@AP+"@6-%@+6-%@+"@6-&@+6-%@" }@6-%@+"@ 6-&@+6-%@+"@6-&@+6-&@"@6 }-&@"@6-%@"@6-&@ 6- 6- }!@96-@9!@6-@"( STICK(0)=,%B2y%CLICK SPEAKER6 T: },"@A0@) 6-6-@,) APJTRIGGER PRESSEDT ,^ @,h 6 }-6- AP D:JOYSTICK@,) APJTRIGGER PRESSEDT ,^ @,h 6 %YZr AAMTJWPPDDDDJMOHAMJTAMKKKKKJVOJAFEMAAPMAJUJUAUSEOCNODEA Ab $}@@fBB@Bu B @ @ @0 ?F8F@1fffg@0@@$$}@@@@@@ @0@ @@ @0@ @ @ !@0$}"@ d##GRAPH (c) 1980 by Jerry Whiten//ORIGINALLY PUBLISHED IN COMPUTE! MAGAZINEo**P.O. BOX 5406, GREENSBORO, NC$}, 27406px0&;@ ,9@,9@,0 A[ +@'0@@@A0@@@$}[0@@96-@6-/6. MONTHLY GRAPH9 Apg @,@@ 1/AX$}@ C/AX@uU/@@ug/@@  AK%6-F:A`,%F:Aa,$AVK6-F:%@$},%F:%@,$AVZ-@B:,>6-BsD%++@:7<,,&@2,$@,Z6-%$@ %%&@7-$}@,%$@ F:%,0 4 7$)-@@ 8,!)6-8, 6-'@e<-@$}@,6-@u&+8,',868,-P:,< *B 6-P:'A,* A*A 6-P:'A,* A$}*A 6-P:'@,* A 6-P:,16-'@6-P:&,16-P:&+$@,,"-6-P:&+$@$},,-6-P:&+$@,,,3 6.=:,6-@&B:,)6-@3 Ap6!! @)!@A`@3 6.=:,$}6-@&B:,)6-@$3 ApJ3 6.=:,6-@&B:,)6-@83 ApT3 6.=:,6-@&B:,)6-@R$}3 Ap^3 6.=:,6-@&B:,)6-@f3 Aph9@'@@@9AR@r$}2(2(' K J F M A M J J A S O N D|//(' E A E A P A U U U E C O E//(' Y N B R R Y N $}L G P T V C%-@@%6-&@,@%+$@,8,/@%%+$@,8,!!/@%$}%+$@,@u!!/@%+$@,@u-@%+$@,8,=Ae@=@@$}S:A -@6@928,@= A 9@@'@@9%}9AdAUg+F:Ad,AU)F:B2y,@5+GAdAUJ(\( LOADING MENUg%D:MENU %} A[ +'0@A0@@[0@(( MONTHLY GRAPH%}-(*( TYPE AMOUNTS FOR EACH MONTH:-()&( DO NOT USE NEGATIVE AMOUNTS)(&5 AP(JAN=+68@%},-5 B05 A`(FEB=+68@,-5 B:5 Ap(MAR=+68@,-5 BD5 %} A(APR=+68@,-5 BN5 A(MAY=+68@,-5 BX5 A(JUN=%}+68@,-5 Bb5 A(JUL=+68@,-5 Bl5 A (AUG=+68@,-%}5 Bv5 A0(SEP=+68@ ,-5 B5 A@(OCT=+68@,-5 B5 A%}P(NOV=+68@,-5 B5 A`(DEC=+68@,-5 B$D:GRAPH5 A$wNOGSECBYTRECDESCBLANRECORARRASECTOBYTCHOICERWAICHOICNUMBEITEML@@) } FFINVENTOR) }Y TUTORIAL PROGRAM TO DEMONSTRATE RANDOM ACCESS UPDATING*** BY JERRY WHITE ***(;;ORIGINALLY PUBLISHED IN A.N.A.L.O.G) }. 400/800 MAGAZINE2R<9A,9A,;@0,;@0,;@,H6-R APd&&*** CREATE INITIAL ) }DATA FILE ***n(-@@0$67<,. ( x6@6@@ D:DATAFILEK67@<@) },.,K67@<@0,.,ITEM DESCRIPTION FIELD-@AM @)67@<@,.00C6)}7@<@,.=:,M A L A(67@<@,.0B67@<@,.=:,L A 67@<)}@,.=:,6667@<@,.=:H:,$A%A,) @(!(RECORD %() @ )}AP,*** CREATE INDEX ***6%"@6-A% A@J A @@@@ D:)}DATAFILEJ Bh&-@A&@|.(.(RECORD  SECTOR  BYTE & 68,-68,-")}@& %@@%6-@$$*** RANDOM ACCESS DATAFILE ***6@6@@)} D:DATAFILET(>:A%,(2(TYPE D TO DISPLAY A RECORD5(T(TYPE U TO UPDATE A RECORD04DA)}D4UA X(>:AS, A@A()(TYPE RECORD NUMBER TO DISPLAY3 A7A B"" *!)}*"P:,A`4(>:AS,*(INVALID RECORD NUMBER4 A@8,8, 5@(>:A%, )}(.(RECORD 1(5( B(%(PRESS ANY KEY FOR OPTIONS:7AdAUB@4G+F:Ad,AU)F:B2y,)}@=AdAUG APH A D(,( TYPE RECORD NUMBER TO BE UPDATED6 A :D B"" *)}!*"P:,A `4(>:AS,*(INVALID RECORD NUMBER4 A @8,8,@(>:A%)},((RECORD ((X($(TYPE 1 TO UPDATE QUANTITYE(TYPE 2 TO CHANGE DESCRIPTIONX(TYPE 3 TO EXIT )}A B7  @)!@)P:,-(>:AS,7 A$AAA8:@8)},8,% @0@: APL\(1(&TYPE POSITIVE NUMBER TO INCREASE ITEMS\(&TYPE NEGATIVE NUMBER TO DECREAS)}E ITEMSt A B%6-A:7@<@,,%6-%B!A (>:AS,8(ITEMS CANNOT EXCEED 9)}99B AK (>:AS,A( ITEMS CANNOT BE A LESS THAN ZEROK A M @)67@<@,.)}00C67@<@,.=:,M AL A(67@<@,.0B67@<@,.=:,L A'67@)}<@,.=:,' A((>:A%,(!(RECORD $((((2(2('TYPE NEW DESCRIPTION UP TO 22 POSITIONS<) }6-B:,P>!@"(>:AS,>(FIELD TOO LONG, EXTRA IGNOREDd"@"A x+-@"'67B:,%@)!},. + $67@ <@0,.$ A7(>:AS,(7(DATAFILE NOT ON DISK:TRAP 40000%-@A)"} % AP((*** INITIAL DISPLAY OF OPTIONS ***b +@(@9(@ INVENTORY OPTIONS:D(@)#}b(@ 1= CREATE FILEX(@/(@ 2= DISPLAY/UPDATE:(@X(@ 3= END PROGRAMT)$}@.@@K:;)@F@T6-&@H!! @)!@APU +)%}@@90@UAAA`p? +@@"(4( LOADING MENU?%)&}D:MENUD:INVENTUAAA`p? +@@"(4( LOADING MENU?%(@WHQEHOLOF@@@@@@MUSICEND BY JERRY WHITEdK +'0@-(}@9@@K@@9nE( (-( MUSICAL END OF JOB ROUTINE0(E( by Jerry White-)}x1( (1("ENTER THE DURATION OF A WHOLE NOTE A  B!AU6-AUSAR@-*}(,( WHOLE NOTE==6-P:'@,@(S( HALF NOTE=-6-P:'@,(-( QUARTER NOTE=66-P:'@-+},(,( EIGHTH NOTE=6 AA@ F:A@,!A$5%2@H@@-,}+6-5 A5%2+6-5 A5%2@c@@+6-5 A--}5%2+6-5 A5%2@c@@+6-5 A5%2-.}+6-5 A5%2@W@@+6-5 A5%2+6-/}-5 A"5%2@c@@+6-5 A,5%2+6-5 A6%2-0}@@Q@@G2@G@@i2@@7@@2@@1@-1}@@'( (( THAT'S6-' AJ& A`( ALL6-& AT%2@@H@@G2-2}@E@@i2@@5@@2@@)@@^Q 6- A A`-3}/@@AARD(G(Q Aph:-@327 :$rG(&( -4} PRESS OPTION TO RERUNG( PRESS START FOR MENU|F:B2y,"@% F:B2y,@A- +-5}("( LOADING MENU-%D:MENU D:MUSICENDU|F:B2y,"@% F:B2y,@A- +,8Z[[*,*CERASEPMBASPMGDATPMADDATSYNVVVBNBBOMPLLINENUMNAMELINLNUMBE17} 18}99PLAYER MI19}SSILE DEMO/UTILITY (c) 1981 by Jerry WhiteGGNOTE REMARKS BEGINNING AT LINE 9500 FOR PROGRAM ENTRY INFORMATIONCCIF YOU1:} DID NOT PURCHASE THE DISKETTE VERSION OF THIS PACKAGE.&&******************************** ;@, PLAYER CURSOR1;} 6.(p 1B2w'B2H1 A*** SUBROUTINES ***6-?:C:,<,6-?:C:,:@$F:@,%@@,[B2HF:@,$@%@He @:0)@(-F:@1>},F:@,0(>:,<h667@<@,.>:@$F:@,%@@,[B2HF:@,$@%@He @h1?}$>%%*******************************?%%STRINGS FOR ALPHABET OF PLAYERS@%%*******************************A!6.d1@}<>````nnff>>!$H!6.dffff~~ffffff!1B}$I!6.d~~~~!$J!6.dff<<!$K!6.dffllxxxxllff!$L!6.d``````````1C}~~!$M!6.dccwwkkcccc!$N!6.dffvv~~~~nnff!$O!6.d<:A(,6 @0J-@@@VB2H1I}Z l-@@{(@J @% @:E,667@<@,.>:A(,HB2HA R @0o-1J}A @6@{B2H s-@@$(@E. @%7 @:R,W67@<@,.>:A(1K},iB2HA s @0e -A @6@,B2H0 B-@@Q(@R[ @%e 1L}@0{-@A#B2H' 9-@@H(@RR @%[ @:Y,{67@<@,.>:A(1M},wB2HA  @0<-A A6@HB2HL ^-@@m(@Yw @%1N}kA@'-@@6(@@ @%R-@@a(@k @%k-@@1O}$(@. @%@-@@O(@Y @%kA@ @:E,B2H@>67@1P}<@,.>:A(,H @0d-A(AD@~67@<@,.>:, @0p -@A`1Q}'B2H+ H-ADA(6@b67@<@,.>:,l @0p .-@@$(@. 1R}@%"-@A 8-AP@6@T2@@X z21S}B2H,_-)-@@I(@ M _A@16Z-@1T}@)(@PLAYER;-@@P(@MISSILEZ @%@Z @:T,,67@<@,.>:A',1U}6 @0J-@@AVB2HZ E5-@@$(@T+6.5 @%J @:E,B2HA1V}R>67@<@,.>:A,Z-AA(@t67@<@,.>:,~ @0 M0 -ARA1W}6@,B2H0 O.-@@$(@E. @%Tc @:X,,67@<@,.>:A(,6 @01X}S-A A 6@_B2Hc Y.-@ @$(@X. @%^b @:T,B2HA:1Y}-A'AD@T67@<@,.>:,^ @0b c'-AA(#B2H' hH -ADA(1Z}6@:67@<@,.>:,D @0H m.-@@$(@T. @%|-@@+01[}@G-@AP@e2@$@2@$@A  1\}%2G2@S6-@eB2wwA-@1]}AUA E @%+)AA@;A ARE AP *** SETUP P/M G1^}RAPHICS ***8A8;AU,;@,;@$,$6-F:A,&@$PM AREA(AY@1_}b(SINGLE LINE RES.BBy&A@1&PLAYER 0 COLOR&6-+%@,$AV&PM0 BASE""6.1`}hhh̢`[[6.Qhhhhhhh˙e΅ѥ`!B21a}w@!ENABLE PM"@A *** CREATE P/M STRINGS ***(Pb(>:A%,"A @1b}-@M@@K:_AR@b(UL;AU,;@,'6-I( CREATE PLA1c}YER STRING:L(d0(0($ENTER PLAYER MISSILE NUMBER (0 TO 3)i9 @P6-&@H9 )!@AR k61d}-%@67<,.>:,n9 Ap((9( ENTER VERTICAL POSITION (40-230)p9 @P6-&@H9 @)!1e}@ AR0q? 6- @P!6-&@H? )!@ AR0r9 6- @P"AU/6-$@%1f}9 AR9s/6-&@H/ )!@ AR0u;6-$A%$@%; @@)!A0AR0w6-%1g}@67<,.>:,x/ Ap((/(HOW MANY BYTES (1-255)y9 @P6-&@H9 @)!@ AR@1q}B%DOS SYSB*)DUP SYSB SRAMDISK COMB\AUTORUN SYSB7^MENU BASBBASSNOTE BDICE B!ENGLISH B JOYSTICK BGRAPH BINVENT B'MUSICEND BU6PMDEMO B RJUSTIFY B*SOUNDEMO B TIMER BHELLO BMODE123 BTABDEMO BGR8TEXT BPADDLE BKEYDEMO BKEYBOARDBASB.BASICOFFBASB 1GR8WRITEML B>NEWCURSRBASBCROMRAM BASBGNULLHANDBASBLMULCOL BASBQSPLITSCRBASBUBASE MATBdPRIMES MATBfNUMSORT BASB kWORDSORTBASB xCODE BASBSINWAVE BASBKEYBUFF BASB FIND LSTB,XREF BAS#DSKERRORBAS AUTODIR1BAS*DISCEDITBASDSKRENUMBAS>7ARTSHOW BASuDISCVIEWBASz/ 6- @P"AU%6-/ ARP{G6-&@H6-! @P-"AU=6-$@%G ARP|/61r}-&@H/ )!@ AR@;6-$A%$@%; @)!AUAR@6-%@67<,1s}.>:,;(>:A%,(-( ENTER  BYTES:;-@& Ap(&( BYTE = 9 @P6-&@H1t}9 )!@ ARp/ 6- @P"AU%6-/ ARy/6-&@H/ )!@ ARp1u}9 6- @P"AU/6-$@%9 ARy/6-&@H/ )!@ ARp;6-$A%1v}$@%; @)!AUARp16-%@67<,.>:,# 16-%@B(>:A%,((B(&ANOTHER 1w}DRWG IN THE SAME DISPLAY (Y/N)D @P"@-67<,.>:A(,:(>:A%,D AR @xAR1x}67<,.>:,dB2H'Af4(>:A%,7(a(%ϠҠŠǠΠҠͺd(*1y}(*((1) FIX LINE # AND STRING NAMEH)(!(2) MOVE THE CURSOR OVER THE LINEB( AND PRESS E(H("s3(ź IF1z} DATS$ CONTAINS A (>:@4,),R( CHANGE IT TO A BLANKs( AND ADD THIS NEW LINE:,T%( NNN DATS$(X,1{}X)=CHR$(34)((Q($WHERE X IS THE POSITION OF THE BLANKT(&6-P:'@,&Af@@"6( 996 DATS$1|}=>:@4,>:@4,@ A`W"@M(996 DATS$(1,90)=>:@4,7@<@,>:@4,W AU`1}}A(996 DATS$(1,90)=>:@4,7@<@,>:@4,(997 DATS$(91,180)=>:@4,7@<A,>:@41~},J@(998 DATS$(181,)=>:@4,7A<,>:@4,J A`??( 997 DATS$(91,)=>:@4,7@<1},>:@4,pQ @%AR1B2wCAfN@QX" @%AdAU1}"$(#e +A1AR@CA@F(I(e( ҠŠϠ<#](0(% This pr1}ogram demonstrates the use3(](%of Player Missile Graphics and can beP#D(0(%used to create strings from decimal3(D1}( player data.d#](0(% Special thanks to Fernando Herrera3(](%for his contribution of the assemblerx#I(0(%routin1}es used to put players on the3(I(screen and erase.#:((( Press to begin.:A @#FF:B1}2y,@*AU@<AU@F A #5AU@!6-@++@5 AP%*******1}*************&%CONVERT PROGRAM DATA+%* TO STRING FORMAT *0%********************:%ffENTER EACH LINE OF DATA AS S1}HOWN IN THE DOCUMENTATION LABELED "PMDEMO DATA FOR CREATING STRINGS.D%N%ooIN EACH CASE, THE DATA LINE NUMBER WILL BE 991}00 (NOTE: DATA FOR PM$ WILL USE LINES 9900, 9901, AND 9902).X%b%KKAFTER CREATING DATA FOR EACH STRING, TYPE GOTO 9700 A1}ND PRESS RETURN.l%v%\\TYPE THE LINE NUMBER FOR THE STRING (NOT 9900). EXAMPLE: THE FIRST LINE NUMBER IS 10.%%QQ1}TYPE THE STRING NAME INCLUDING THE $. EXAMPLE: THE FIRST STRING NAME IS C$%%EEREPEAT THIS PROCEDURE FOR EACH STRING1} TO BE ENTERED (TOTAL=29).%%EXAMPLE FOR C$ IN LINE 10%%##*****************************%GGSTRING DIMENSIO1}NS FOR PROGRAM DATA TO STRING CONVERSIONS%##*****************************%Q A Q;@,;@,;1}@,;A,;@$,;@,%!((ENTER LINE NUMBER!&4 A 6-A:,4 @)!APA 1} &!((ENTER STRING NAME!&+ 6-B:, A@+7<,0$A@H&< #AAf@"(<( =1}>:@4,\&# AP"(>:,# A &0,40,2,136,112,0&4(>:@4,'!@d* @4(:RETURN&C1}Af#(>:@(,1(>:@(,CAd@&  ''EESEE DOCUMENTATION FOR INFORMATION ON CONV1}ERTING DATA TO STRINGS$'.'DDTHE FOLLOWING IS A LIST OF LINE NUMBERS AND PROGRAM TEXT WHERE8',,TEXT MUST BE ENTERED IN1} INVERSE VIDEO.B'L'LINE# INVERSE VIDEO TEXTV'===== ==================`'110 demo byj'180 W Ht'1}190 I T~'220 E'115370 TO ENTER THE STRING IN YOUR PROGRAM:'5400 RETURN'5410 NOTE:' 9000 1}PLAYER MISSILE DEMO'9100 STARTD:PMDEMORING IN YOUR PROGRAM:'5400 RETURN'5410 NOTE:' 9000 06*+{)RJATEMPBAMOUNTDSWORAMOUNBUZTOTAD    ( BU#BU#@B5}U# @dRJUSTIFY BY JERRY WHITEn<<;@,;@,;@,;@,;@,x 6. 6.5} 6.] +'0@9A@K@@]@@91(1(&ENTER AMOUNTS 5}OF LESS THAN ONE MILLION>(1(&PRESS RETURN FOR TOTAL RIGHT JUSTIFIED4(> AC 6.#6-P:A$,'A/5}"@6. 0.00C$ 6-&?6.=:%>P,L6.7@<@&B:,,I67B:,%@5},.7@:A%,(9(! SOUND ROUTINES BY JERRY WHITE<(?(B$2E-@@!39}( PRESS START TO CONTINUEEB2y4 F:B2y,@@R5$dW-(% One simple clear sound can be 9}madeW(%to sound differently just by alteringnT+(#it's duration and volume. Each ofT($the following routines play the9} samexS,($note (middle C). Notice the how theS("sound is altered, just by changingI (the volume and duration.#(I9}(! The sound command used to playk,($middle C is SOUND 0,121,10,8. The 4?(variables are:B(k($SOUND VOICE,PITCH,9}DISTORTION,VOLUME.! @P @@!A`;%2A!@@16-@; @0&6-A 9} @0(&AS-@@92A!@@E6-@O @0S &6-A  9}@0(&A;%2A!@@16-@ ; @0&6-A  @0(&A S-9}@@92A!@@E6-@ O @0S ! @P @@!A@-@@9}+-@@G2A!@K h-@6@2A!@  9}&6-A  @0(&A`X-@@4-@6? P2A!@T X 9}r6-A  @P# @@J(" The following routines also user(#the clear distortion level 10. Thed-(%diffe9}rence will be changing the pitchF(with FOR NEXT loops.P @PZ @@dA"~-AU32@9}@7 T-AU6@p2@@t ~ @ ,#6-A  @0#A69}-AU@;2@@? \-AU6@x2@@|  9}@ @g @P @@>(" Now we will use multiple voicesg($which will force us to use more thanJQ+(#one lin9}e in many routines. We willQ(!still use only the clear sound ofTR*("distortion level 10 and change theR(#pitch, the v9}olume, or both with the^5(FOR NEXT loops.! @P+ @@5A`he-@AU32@@9}W2@AU&@@[ e @ r&6-A  @0(&A|m-AU@;29}@@_2@AU&@@c m @ ) @P @@)AAN -@9}6?P4-@@J2@N =-@@%@52@@9 9}= +6-A  @0+A0A`M-@3-AA@I2@M 9}9-AA@52@@9 9-AA"@52@@9 G-A$9}A2@52@@9 = G @ f @P @@>(" The key to using Atari's soundsf(9}#with Basic is the FOR NEXT loop andN(( experimentation. These last fewN(!routines will create a variety ofN,($sou9}nd effects by combining differentN(distortion levels and voices.X(/($ I hope you've enjoyed this littleX($demons9}tration and that you will soonI+(#be creating your own sound effects.5 @P? @@IA -@@9}4-@6@J2@f2@@@|2@   @ &9}6-A  @0(&A@[ -@6?P=-@6@S2@W [ 9}&) @P @@)A`Ap0-@@092@%@@[2@@9}@o-@@2@%@@2@@@ :%29}G2@K h-@6?2@%@2@9}@ D&6-A  @0(&AN -@6? <2@%@X2@A@9}@~2@AU&$@ X) @P @@)AA bV -@6@9}<-@@`@R2@V lt-@pA@@52@@9 V-A9}@6@Pl2@@p t v&6-A  @0(&A@ -@6?<29}@Q@X2@A@t2@@Q@2@A@ W @@(9}((5( PRESS OPTION TO RERUN8(W( PRESS START FOR MENUF:B2y,"@% F:B2y,@A9}`,(!( LOADING MENU.....,%D:MENU D:SOUNDEMOENUF:B2y,"@% F:B2y,@A8DlP1P1P2HMISETSETTT  =} @0 L"6-F:@,$AV$AV;6-%F:@,$AVL6-%F:@ , J6-P:'B!`,%6-P:'A6,J6=}-P:'@`,&$@`&$@` 226-P:'@,&$@&$A&$B`\6.  @867@=}<@,.0R67@<@,.=:,\ @67@<@,.=:,L @(67@<@,.0B67=}@<@,.=:,L @67@<@,.=:,L @(67@<@,.0B67@<@,.=:=},L @ 67@<@,.=:,67@<@,.=:,4-@@"(@4"*"@P =} @M +AdAU1A4(7(M(SET TIMER HOURS 8 @0 B$6-P:,8=} @0(((SET TIMER MINUTES*B @@ B$6-P:,B!@Y) @@,9@=}'@9@ .@ +@;@,,-@@@(@Һ0T-@@=}*(@<-@@Q(@T$2AdAU<BF:Ad,AU"+%=}(7( LOADING MENUB%D:MENUF3)(>:AS,PRESS ANY KEY FOR MENU3 @`NP##TIMER TUTORIAL BY JERRY WHITER=}T,,USE INVERSE VIDEO FOR THE FOLLOWING...UV%%LINE 14 THE THREE COLONS IN T$XLINE 46 TIMER:ZLINE 48 =} hour=\LINE 48 mins=D:TIMERNG...UV%%LINE 14 THE THREE COLONS IN T$XLINE 46 TIMER:ZLINE 48 <*''HELLO INTRODUCTION by Jerry White AY+@*(@*(@ ADVENTURA}E!!(@ INTERNATIONAL((@ 2((@((@ <(@ A} F (@ ӠP (@ JERRY whiteZ0@@70@@A}Q0@@@k0@@@0@@ AY@4%D:MENUD:HEA}LLOQ0@@@k0@@@0@@ AY@4%D:MENUD:HE@/0DINDISPLAYLISCHANGWAITHREVOLUMLOOBAC@AB@"@@@@@E} @ d""MODE123 (c) 1981 Jerry WhitenDISPLAY LIST MODIFICATIONx% +@6-%6-E}AMODIFY DISPLAY LIST TO DEMONSTRATE GRAPHICS MODES1, 2, AND 3 ON THE SCREENAT THE SAME TIME}E--6-F:A`,%F:Aa,$AV%@&@@q%@@%@@)E}-@@!%%@) %@"@e%@#F:A`,%@$F:Aa,0E}@@"0@@@,0@@@60@@@@0@E}J@@T2-@. @ THREE LINES2 ^2-@@. @ OF GRAPHICSE}2 h0-@@, @ MODE TWO0 r-@A |@@3-@@/ E}@ two lines of3 8-@@4 @graphics mode one8 -@A GG17,13,18,12E},19,11,20,11,21,12,22,13,21,14,20,15,21,16,22,17,21,1820,19,19,19,18,18,17,17)@@)-@@E} @",B -@6@>2$@@B  -@@?E}-@9/P:H:,$@,;,@!?   -AU6@'A#-@E}@'  #6-@ 6-@# &- +("( LOADING MENU-%D:MENU0:DING SUBROUTINEE}D= -@6? 62@: =$ D:MODE123NG MENU-%D:MENU0:DING SUBROUTINEDOETeBLANKTANUMBERA@@A@TABS DEMO BY JERRY WHITE & +I};@,&6.  NAR@'@@9@@8KA@N(4-@@I}0(>:A',>:AX,4 @@((+-@@'(>:AY,+ F#(>:A%, ( TAB I}DEMO#(P1-@A16-P:H:,$A,Z @( d(>:A', n8(@@I}8( PRESS START FOR MENUx F:B2y,@A - +("( LOADING MENU-%D:MENU D:TABDEMI}O( PRESS START FOR MENUx F:B2y,@A - +("( LOADING MENU-%D:MENU D:TABDEMHQ{WWMTEXTWB1B98@ @@@0Bt$& A&GR8TEXT BY JERRM}Y WHITE(N%6-F:@,%F:@,$AV76-%$@@%NB:,"A*<-@B:,"6-@:7<,,.!M}A'<6-&A(,1!@1* @'6-&@21 @H. @26-%@d067<,.>:, 2wM}-@B:,"6-@:7<,,86-BsD%$@L-@a%$@@F:%,e s6-%@w <*!AM}#-@A' *%Fh( }ENTER TEXT$6-@26-%@ ^(&}DISPLAY RATE= 6 CHARACTERS PER SECONDM}h @@dz;@0,6-@(6-@ 2+@V6. *** Graphics Mode 8 Text ***p0@zM}@ng,@@'/A@9/A@0K/@@0]/@@g @@- +(M}"( LOADING MENU-%D:MENU D:GR8TEXT/A@0K/@@0]/@@g @@- +(L/GcsVOLUMDISTORTIODELAPITCWAI--PADDLE (c) 1981 by Jerry White 11/Q}6/81??DEMONSTRATION USING PADDLES TO MANIPULATE A SOUND COMMANDb +@AR@1AAECQ}AAEUA@b(>:@(,(PADDLE(0)=PITCH(PTRIG(0)=DISTORTION(PADDLE(1)=VOLUMEQ}(PRESS ANY KEY TO ENDAdAU6-@6-@6-A 6-Q:,*S:Q},"&6-%@* "@6-6-P:Q:@,'@,!@6-@TF:AdQ},AU"+4AdAU7(I( LOADING MENUT%D:MENU"@-@@@(@sound 0,,Q}, ,26G0@+0@@=@wG A0@-@AQ} $D:PADDLE6G0@+0@@=@wG A0@-@APLM ^ TESBUTTOKEKEYWAIDELETdKEYBOARD DEMO (KEYDEMO)nbV}y Jerry White 10/13/81'A@'PRINT TAB WIDTH#@@#LEFT MARGIN$@@9$V}RIGHT MARGIN! Ap!BYPASS SUBROUTINE$$CLEAR SCREEN & TURN OFF CURSOR +AR@V}DISABLE BREAK KEY6-F:@,5!A(6-&A()@5B7t$FROM SUBROUTINEV} A-(-(" THIS PROGRAM READS THE KEYBOARD"++(# AND DISPLAYS THE KEY PRESSED PLUS,(IT'S ATASCII VALV}UE.6)( (#(PRESS START FOR MENU&()(JT OPEN KEYBOARD AS DEVICE #1^TO READ ONLYh##@@V}K:r| DISABLE CONTROL CHARACTERSAf@##POKE LAST KEY PRESSED TO NULLAdV}AU""WAIT FOR KEY OR BUTTON PRESS33F:Ad,"AU*F:B2y,"@AP6-F:B2y,"@V}A"@A)@"@'(ESC"@((UP"@)(DV}OWN"@0(LEFT&"@1(RIGHT0"@2(SPACE:"AU(RETURNDV }"A%(CLEARN$"AW$( INSERT SPACE X#"AU#( INSERT LINE b#"AV#( DELETE CHAR V }l#"AT#( DELETE LINE v"A'(CLR TAB"AX(SET TAB"AY(TABV } (>:,%6-%@%@A-@@P POSITION CURSORENABLE CONTROL CHV }ARACTERS36-!-@@ 3AfDELETE OLD DISPLAY)-@@%(>:AV,V }) ""GO TO BEGINNING OF MAIN LOOP  A ENABLE BREAK KEY*'@@d'B7tAGV}4>ENABLE CONTROL CHARACTERSHAfR\TURN ON CURSOR AND ENDfARpzV}RESET PRINT TAB WIDTHA@""CLOSE KEYBOARD DEVICE & EXIT8@+(-( LOADING MENV}U8%D:MENU D:KEYDEMO@""CLOSE KEYBOARD DEVICE & EXIT8@+(-( LOADING MENT +AYĠΠ٠ΠҠ̮ϮӮԠZ}̠Ӡě ӠӠכ "LOAD "D1:"-> CTRL+4 "SAVE "D1:" -> CTRL+5 DIRECTORZ}Y -> CTRL+6INITILIZE -> CTRL+7NORMAL SYSTEM -> CTRL+8##BOOT COMPUTER -> CTRL+SHIFT+CURSOR AT TOP -> CTZ}RL+0 "OPEN #1," -> CTRL+SHIFT+O "GRAPHICS" -> CTRL+SHIFT+G"""X=USR( )" CTRL+SHIFT+U!!LOWER CURSOR = CTZ}RL+SHIFT+!!HIGHER CURSOR= CTRL+SHIFT+##RUN PROGRAM=CTRL+SHIFT+ΛԠРҠś7 #@2!Z}-@%"3A6%7 !;;104,169,1,133,12,133,2,169,6,133,13,133,3,169,1,133,9"))169,255,141,229,2,169,Z}124,141,230,2$##169,0,141,8,2,169,125,141,9,2&169,125,32,176,242*88169,0,141,198,2,169,10,141,197,2,169,132,141,20Z}0,2,__169,65,32,176,242,169,67,32,176,242,169,84,32,176,242,169,73,32,176,242,169,86,32,176,242.55169,69,32,176,242,169Z},33,32,176,242,32,64,21,962!!īӠ37 #@R!-A%%"3B %7 5173,9Z},210,201,204,240,516##201,206,240,50,201,207,240,498##201,181,240,48,201,178,240,47:##201,220,240,46,201,203,240,45Z}<##201,152,240,44,201,157,240,43>##201,253,240,42,201,200,240,41@##201,179,240,40,201,155,240,39B76,25,252DZ}РӠF76,97,125,76,115,125G76,122,125,76,129,125H76,140,125,76,151,125I76,154,125,76,217,125Z}J76,4,126,76,27,126K76,75,126,76,118,126L76,144,126PΠŠREE169,82,32,176,242,169,85,32Z},176,242,169,78,32,176,242,76,25,252TҠҠV169,0,133,84,76,25,252WҠҠX1Z}69,23,133,84,76,25,252Y̠īZ,,169,64,133,12,169,21,133,13,76,116,228\%%ҠԠРƠZ }Π^**165,82,133,85,169,0,133,84,76,25,252`ԠҠb76,119,228cؽҨd__1Z!}69,88,32,176,242,169,61,32,176,242,169,85,32,176,242,169,83,32,176,242,169,82,32,176,242fdd169,40,32,176,242,165,85,133,20Z"}3,169,32,32,176,242,32,176,242,32,176,242,32,176,242,32,176,242h00169,41,32,176,242,165,203,133,85,76,25,252jZ#}ılMM169,76,32,176,242,169,79,32,176,242,169,65,32,176,242,169,68,32,176,242nWW169,34,32,176,242,169,68,32,176,Z$}242,169,49,32,176,242,169,58,32,176,242,76,25,252pŠırXX169,83,32,176,242,169,65,32,176,242,169,86,32,Z%}176,242,169,69,32,176,242,76,237,125tӢv__169,71,32,176,242,169,82,32,176,242,169,65,32,176,242,169,8Z&}0,32,176,242,169,72,32,176,242xWW169,73,32,176,242,169,67,32,176,242,169,83,32,176,242,169,32,32,176,242,76,25,252zZ'}ΠĠ|;;169,79,32,176,242,169,80,32,176,242,169,69,32,176,242~;;169,78,32,176,242,169,32,32,176,242,169,35Z(},32,176,24233169,49,32,176,242,169,44,32,176,242,76,25,252ϠĠ169,0,133,203,166,203!!189,9Z)}6,6,32,176,242,230,203165,203,201,14,240,376,122,126,76,25,252٠169,0,133,203,166,203Z*}""189,110,6,32,176,242,230,203165,203,201,56,240,376,148,126,76,25,252ԠŠ7 #ARZ+}!-@i%"3A2%7 //88,46,50,53,52,44,35,49,44,48,44,48,44,34JJ67,76,46,35,49,58,79,46,35,49Z,},44,54,44,48,44,34,68,58,42,46,42,34,58hh70,46,88,61,49,84,79,49,50,56,48,58,71,69,84,35,49,44,65,58,63,67,72,82,36,40,65Z-},41,59,58,78,46,88$AY@F$6-?:A6,D1:KEYBOARD.BAS58,71,69,84,35,49,44,65,58,63,67,72,82,36,40,65XN>U22THIS PROGRAM TURNS BASIC OFF AND GOES TO DOS --@T")A6%-^/} kk173,1,211,9,2,141,1,211,169,192,133,106,162,96,169,12,157,66,3,32,86,228,162,96,169,3,157,66,3,169,37PP157,68,3,1^0}69,6,157,69,3,169,0,157,75,3,169,28,157,74,3,32,86,228,76,159,23(A=USR(1536)D1:BASICOFF.BAS9,37PP157,68,3,1\i  MATIL@ @d@QBV A@, +@Ab2},;A,V(6.GRAPHICS 8 CHARACTER GENERATOR46-@6-@L6-@V A#B6. A A O b3}# 3 6-@,6-@H86-B A(9 6.N6-@#6-@Q/6-9 A)9 6.L6-@b4}#6-@Q/6-9 A*9 6.G6-@#6-@Q/6-9 A+9 6.26-@ #6-@b5}Q/6-9 A2%"6-?:A6<<:%@Uz\},00( >:@@,>:%@U,>:@A, @(}Conversions#(#( 1. Base X to base 10z]}#(#( 2. Base 10 to base X (( enter choice : !! @)!@AAAp.z^}$86-6-:++(#}1. Convert base X to base 10=( ENTER NUMBER B( ENTER BASE Lz_} 6-B:,6-6-@V6-&@`117<,2>:@H,)7<,3>:@W,APe6-A:7<,,j6-$+#,z`}o0@t' 6-%6-&@'6-%@~6-&@ @A A 0@za}( ((NUMBER: (BASE :  (==(NUMBER: ( BASE : 107<,4A6zb}-@7<,4B6-@7<,4C6-@7<,4D6-@7<,4E6-@zc}7<,4F6-@ A0 D1:BASE.MAT-@7<,4D6-@7<,4E6-@x9@@ 6-6-%@-@'@( '&P:',"@~e} 2 < (,F @  D1:PRIMES.MAT6-%@-@'@( '&P:',"@|;$%NUMSORTNUMBECOUNTEMOFENUA AB @@@@ g} @ (}(HOW MANY NUMBERS9,9,( (}2-@<(ENTER #Fh} 68,-68,-P 6--@&@8%@,8,A6-8%@,68i}%@,-8, 68,-6-%@ ,!A6-@@(8,8,J D1:NUj}MSORT.BAS8, 68,-6-%@ ,!A6-@@(8,8,J D1:NU "#AWORDALLSWAPZZOFEDE  AA@@@`@ @l} @ @ (}$$( WORD SORTING UTILITY$$( m};@,;A@,(&-@A@"67,. & 2I(HOW MANY WORDS'!@ ?(MAXIMUM OF 20 WORn}DSI @P<-@F(ENTER  WORDZ67$@ ,.d n67A@,. xPRINT UNSORTEDo} LIST&(UNSORTED6-& ASORT THE WORDS6--@&@6-$@ p}6-%@ ++7<%@,17<%@,A6.7<%@,67,.7<%@, 67,.67Aq}@,. "6-%@, 6/!A/REPEAT UNTIL NO SWAPS@PRINT SORTED SEQUENCEJ6-@ r}AO}@@5@@K:G-@@#e(PRESS ANY KEY TO CONTINUEr)@}s}@TG#@@K:G(}DO YOU WANT ANOTHER SORT(/)?Y)@^;-"@)"A!)"At}I)"A8@;%h]-"@x)"A)"A8)"AO(}IT WAS NICE WORKING WITH YOUZ@]rhu}@x)@^(@BE KIND AND ANSWER YES OR NO ONLY AND STOP YOUR FOOLISH GAMES!!!h AEDISPLAY STRINGSDv}@@'-@.(2 9(D(SORTED-@$$(7$@ <$@ %@, w}$D1:WORDSORT.BAS.(2 9(D(SORTED-@$$(7$@ <$@ %@, !"bZmALPHACODEMESSAGECMESSAGEA6dd@<F<<;y}@',;@',;A,;A,;@,P%%6.ABCDEFGHIJKLMNOPQRSTUVWXYZ Zd* ENCODINGnx?&(z}}TYPE IN YOUR ENCODING SYSTEM,?(ONE LETTER PER LINE.>;(3(FOR EXAMPLE: 'A=E' MEANS A WILL BE REPLACED BY E)>(-{}@@&(7<,="@A-@&@7<,0A7'(YOU'VE ALRE|}ADY USED THAT LETTER*(-'7 AP 67<,. 67@'<@',. 9(*(DO YOU WANT TO ENCODE}} OR DECODE9( A MESSAGE 4E A 4D A A@",* ENCODE A MESSAGE6@~} (}J 6. 6. T33(+TYPE IN THE MESSAGE THAT YOU WANT TO ENCODE^.+(#(UP TO A MAXIMUM OF 100 CHARACTERS).(h}r 6-B:,|-@-@@'7<,07<,A  67<,.7<,' A@ }!@'67<,.7<,  (YOUR ENCODED MESSAGE IS:($* DECODE A MESSAGE 6.} 6. )(&(TYPE IN THE ENCODED MESSAGE)(& 6-B:,0-@:-@@'D7<,0}7<,AN 67<,.7<,' A X b!@'67<,.7<,l v!!(}YOUR DECODED MESSAGE IS:} ( $ D1:CODE.BAS<,' A X b!@'67<,.7<,l v!!(}YOUR DECODED MESSAGE IS:O 6XXLOOX @@tx(y@;@,(AR@}2++(#}TYPE IN A WORD UP TO 10 CHARACTERS<P-@`?0Z++6-@ &B:,'@%+@$G:},,d-@n ( x ( D1:SINWAVE.BAS?0Z++6-@ &B:,'@%+@$G:J  2NAMEB ADA(A60uĠқ:uOO104,173,8,2,141,96,6,173,9,2,141,97},6,169,0,141,14,212,120,169,52,141,8,2DuSS169,6,141,9,2,169,98,141,36,2,169,6,141,37,2,169,192,141,14,212,169,0,133,204Nu\}\133,205,88,96,173,9,210,201,159,240,36,152,72,173,252,2,201,255,240,19,164,204,192,100Xu]]240,9,230,204,200,173,9,210,153},143,6,104,168,104,64,165,204,197,205,208,231,104,168,76bu]]95,6,173,252,2,201,255,208,35,165,204,197,205,240,23,230,205,16}4,204,192,120,176,15,164luUU205,192,120,176,9,185,143,6,141,252,2,76,98,228,169,0,133,204,133,205,76,98,228vu6-}u F:A!,"@BPu-@ACu"6-%uA5%u u,B )(CHECK DATA S}TATEMENTS,&u6-?:A6,D1:KEYBUFF.BASu"6-%uA5%u u,B )(CHECK DATA S50 GOTO 3273532735 ------------------------------32736 RESTORE 32755:FOR A=1536 TO 1668:READ B:POKE A,B:NEXT A32737 CLR :DI}M LINE$(120),S$(120),LN(200):D=0:TRAP #ENDA:LINE$(1)="":LINE$(120)="":LINE$(2)=LINE$32738 CLS :POSITION 9,1:? "ĠӖ}"32739 ? :? :INPUT "ENTER SEARCH STRING:",S$32740 IF LEN(S$)=0 THEN 3273932741 ST=DPEEK(136):POKE 82,032742 A}=USR(1610)32743 ------------------------------32744 # MAIN:IF DPEEK(ST)=32735 THEN GO# ENDA32745 POSITION 0,0:LIST DPEEK(S}T)32746 A=USR(1562,ADR(LINE$))32747 N=UINSTR(LINE$,S$)32748 IF NOT N THEN ST=ST+PEEK(ST+2):A=USR(1536):GO# MAIN32749 LN(D})=DPEEK(ST):D=D+1:ST=ST+PEEK(ST+2):A=USR(1536):GO# MAIN32750 ------------------------------32751 # ENDA32752 GRAPHICS 0:FO}R A=0 TO D-1:LIST LN(A):NEXT A:END 32753 ------------------------------32754 REM Šӛ32755 DATA 104,24,165,88,105},40,133,207,165,89,105,0,133,208,160,0,169,0,145,207,200,192,160,208,249,9632756 ------------------------------32757 REM ϖ}̠ϠɠĠŠΠŤ32758 DATA 104,165,88,24,105,40,133,203,165,89,105,0,133,204,104,133,206,104,133,205,16}0,0,177,203,201,9632759 DATA 16,12,201,64,16,5,24,105,32,208,3,56,233,64,145,205,200,192,120,208,231,9632760 --------------}----------------32761 REM ԠРԛ32762 DATA 104,169,86,141,48,2,169,6,141,49,2,96,112,112,66,101,6,0,66,64,188,2,2,2,6}5,86,6,0,0,0,0,0,0,0,0,032763 DATA 166,169,174,164,128,141,128,162,249,128,179,225,230,229,242,237,225,238,128,175,230,229,2}4232764 ------------------------------169,174,164,128,141,128,162,249,128,179,225,230,229,242,237,225,238,128,175,230,229,2(BBHEADSIZVSVARSVCOUNBUFVCOUNRAWINFILEQPMAXCOFRECHAINCHPTCHADPTLPTCURLINSAVPTSPTSTMTO}KEVSPFIRSLASFORWARLINA  1} E Y} AP!!****************************""* VARIABLE XREF FOR BASIC} A+*!!* WRITTEN BY BILL WILKINSON* OF OSS,INC.** COPYRIGHT (C) 1981, OSS** PERMISSIO}N IS GIVEN TO* MODIFY OR ENHANCE THIS""* PROGRAM PROVIDED THAT THIS * NOTICE IS LEFT INTACT.!*'!!*****}**********************"ĠҠ"1-@@$)@1)@68,-%AV$ G}8@,((=("Һ not a BASIC A+ fileG AY6-8@,&8@,GET ALL VARIABLE NAMES`}6-8@,&8@,,;%@,F67%@,.>:,XC@C:,`6-& [6-8@,&8@,+}-@8)@< D6-&[THROW AWAY VALUE TBL 6-COUNT OF STMT BYTESL!!GET LINE/STMT BUFFER INIT'DV}5!AV6-&AV5C@C:,AV`$@C@C:,$6-jA~IF ANY MORE TO FILE=}!AV6-&AV=C@C:,%AVAV,@ C@C:,%AV,6-AACOUNT }VARIABLES6-8-@#@:7,,VA(16-%@4A8  $"Š"9@@}'@@79A@STATIC DIMENSIONS, ETC.!;A,!67A,.*9@,&&};@ ,;@ ,;@,|"Š"X+(#}Ӡ.(1(X("Note: this program pro}duces a list))(! of the variables used in anyQ+(# BASIC A+ program that is SAVEdQ(! on disk. For each }variable,P)(! a list of all lines where itJ( is found is also given.M(P(R*("Please enter name of program} to beR(#referenced. Disk drive designationG)(!is optional. Name extension mustD(be given if it exists.G(<}Program name >> #6-B:,((9( 䠠<0-@6.7<,06.>:@:,VA',%1a*/z%6.>:@}:,V@,67<,. \6-X:<:<,."@)!@1(R( bad drive designator\ AY}1 6.@6.D1:.67B:,%@,.1A0* AYP*@@: D$!(}㚰}堠$(NO(,(!Should I send the cross-referenceO to the printer (Y or N) ? XA4Y)4y6-@7}@P:A AW@b/0N*0n%(٠Π/ AWg AWpl AW@vN(+( Printer is} how many columns wideN (for 80, hit ) ? 6-@B:,6-A:,66-P:+&@,'@,* @}66-@  A` "󩠠"/(/(#䮮 }-@A  %>0(#( Couldn't find &(0 AYf0(-(" Not enough memoryto xref0&p}"󠠠"q/)(!󮮮,(/(r z A>$6-+I:,&A},VB'd>FREE IS A MULTIPLE OF 4! ;,6-@$!6-C:,AY(亠6-@}>*** DO A LINE ***&6-@:7%@,,&6-U:C:7,,, 6-6-6@(6-%@(TO TH}E STMT LEN BYTE 3**** DO THE STMTS ****8 >B6-@:7,,L%6-@:7%@,,%6-%@V4!@}* @4IF NOT REM,DATA,OR ERRORj > %t6-@:7,,~ A(IF NOT A VAR"@6-%@}-"@-6-%@:7%@,,%@@IF THIS IS A VAR"ҠӠġ"6-@$+VA',!}6-U:%,!6-U:%%@,  NOT FIRST USE THIS VAR*U:%,*DON'T XREF TWICE PER LINE28%%@#8}%%@2A NEW 'LAST'* 8%*AND A NEW LINE (NO PTR, YET)6-%@A@FIRST USE OF A VAR 9 8}%8%%@9'FIRST' AND 'LAST' ARE SAME* 8%*AND A NEW LINE (NO PTR, YET)6-%@(AOF 'IF} FIRST'2AOF OP OR VAR<6-%@Z?DID A STMTd%@%THIS IS 'REM','DATA', OR ERRn 6-xA?}MORE STMTS? 6-%PT TO NEXT LINE 6-& *!AVSLIDE*++67@<AV,.7AW<A,4=}!AV6-&AV=C@C:,%AVAV>,@ C@C:,%AV,6-HAR6-&AV\}AfAYp?@PRINT IT OUTJ( ( ((T2- "==== VARIABLE CROSS REFERENCE ====2(^( fo}r file h( ((r6-@-@6-+&@,$@* >:@:7,,VA',*6-%@}>@:7&@,, A(- >:@:7,,VA',*6-%@-? ( !6-U:%,!6-U:%%@, (}NO REFS& $$  --- no references ---: @D -I ( 6-N >X !6-U:%,!-U:%%@},b ( 6-%@l ' !(6-'(  ? A ( (  '#& D1:XR}EF.BAS ( 6-%@l ' !(6-'(  ? A ( (  '#& D1:XR#$STARSSBFDYYMMCOLDS } KKRl!PROGRAM 2: disk version. Creates an AUTORUN.SYS m}aster fileAAcontaining the generator routine and all error messages 36-At$3Address where code will be loade}dT6-%@"6-P:'AV,26-&$AVTaddress to jump to on coldstartu6-F:A,&@$&A0}+uReserve a buffer for the code, so it can be saved in one operation(.6-$AV.Address of start of buffer2}6-#A<""6@@FC %6-%@# @`CRead machine code into bufferP$};A, A$#AZ6"-@B:,2%%&@@:7<,,6 d6-%B:, @nS 6-%A}$+%@@?%@A%S%@@x5%@%@5Write 6-byte footerY6}-%&@$6-P:'AV,46-&$AVYAddress of last byte before footerP6-%@"6-P:'AV,26-&A}V$Pnew value for MEMLO pointerE%@%@EInsert file end address into header<%@4}%@9<Insert new value for MEMLO..@@ D:AUTORUN.SYS-%@*@}F:%, 255,255,0,29,0,0JJ76,156,29,165,12,141,25,29,165,13,141,26,29,169,24,133,12,169,29,133EE13,76,27,29},32,76,29,169,35,141,231,2,169,30,141,232,2,173,33,3NN133,205,173,34,3,133,206,160,15,177,205,153,19,30,136,16,248,169,11}3,141GG23,30,169,29,141,24,30,160,77,162,29,169,6,32,92,228,96,173,15,30KK208,29,165,185,240,25,16,3,56,233,106,170,2}02,142,15,30,169,19,141,33FF3,169,30,141,34,3,169,0,141,14,30,76,95,228,172,14,30,192,11,240GG9,185,145,29,238,14,30,}160,1,96,165,205,141,33,3,165,206,141,34,3FF169,155,160,1,96,88,61,85,83,82,40,55,52,50,52,41,104,169,35,133"II203,169},30,133,204,206,15,30,240,32,48,56,160,0,177,203,48,3,200,16,MM249,200,140,18,30,165,203,24,109,18,30,133,203,165,204,105,}0,133,204,766GG165,29,169,0,141,17,30,172,17,30,177,203,48,9,32,239,29,238,17,30@II76,207,29,41,127,32,239,29,169,0,141},15,30,169,155,32,239,29,96,141JEE16,30,169,11,141,66,3,169,16,141,68,3,169,30,141,69,3,162,1,142T8872,3,202,142,73,3,3}2,86,228,96,0,0,0,0,0,0,0,0,0,0^0,0,0,0,0,0,0,0,0,0,0,-1hr**The error message table starts here.|mmTHE LAST L}ETTER IN EACH MESSAGE, AND THE ASTERISKS AT 790 AND 850, MUST BE TYPED IN INVERSE (see text).Out of memorIllegal} numeric valu囚Too many variableString length exceede䛮DATA list exhauste䛸Number greater than 3276}++Tried to INPUT wrong type of variabl%%Array or string dimension erroExpression too compleCan't divide b}y zerNon-existent line numbeNEXT without FOқLine too lonGOSUB or FOR line deleteRETURN with}out GOSU›##Can't make sense of this lin&Incorrect use of VA̛0Not enough RA͛:Can't use channel 0 or >D}Not LOAD formaN""BREAK key pressed during I/ϛXChannel already opebNon-existent devicl$$Channel opened fo}r output onlvXIO syntax erroChannel not ope""Can use only channels 1 to !!Channel open for input onl}End of fil囨%%I/O error: data record too lon盲Device does not respon䛼Device malfunctio Serial commun}ication faulCursor out of rang Serial communication faul Serial communication faulCan't write to th}is disRead/write inconsistenc$$Requested action is impossibl &&Too little RAM for GRAPHICS mod , }Serial port already ope*%%Concurrent mode I/O not enable4""Illegal user-supplied buffe>++Serial port can't do 2 }things at oncH%%Operation needs concurrent modR,,,,\""Drive must be D: or D1 to DfToo many files ope}pDisk fulzUnrecoverable I/O cras蛄))POINT error, or directory scramble䛎Illegal file nam囘POINT data }length erroFile locke䛬Unknown XIO comman䛶Disk directory fulFile not foun""Can't POINT beyond o}pen filD:DSKERROR.BASUnknown XIO comman䛶Disk directory fulFile not foun""Can't POINT beyond o 3IaaRl!PROGRAM 1: Prints disc directories to screen or printer, with Basic in control ..}@@ D:AUTORUN.SYS""6@*@ @ (255,255,2,29,237,292II165,}12,141,24,29,165,13,141,25,29,169,23,133,12,169,29,133,13,76,26<HH29,32,36,29,169,4,141,231,2,169,30,141,232,2,96,104,141,}239,29,240FII47,104,104,162,32,142,239,29,32,229,29,162,32,169,3,157,66,3,169,88PBB157,68,3,169,29,157,69,3,169,8,157,7}4,3,169,0,157,75,3,32,86ZEE228,16,5,76,204,29,80,58,162,16,32,229,29,162,16,169,3,157,66,3dDD169,130,157,68,3,169,29,15}7,69,3,169,6,157,74,3,169,0,157,75,3nEE32,86,228,16,8,76,204,29,68,58,42,46,42,162,16,172,239,29,169,5xEE157,66,3,169,9},153,66,3,169,240,157,68,3,153,68,3,169,29,157,69EE3,153,69,3,162,16,172,239,29,169,20,157,72,3,153,72,3,169,0,157FF7}3,3,153,73,3,32,86,228,48,8,174,239,29,32,86,228,16,222,192,136JJ240,8,140,238,29,169,158,141,252,2,162,16,32,229,29,174,}239,29,240,3LL32,229,29,96,76,37,29,169,12,157,66,3,32,86,228,96,224,2,225,2,2,29,-1D:AUTODIR1.BAS32,229,29,174,o;<HXHIISPCSECTORCIOHDDHCIDTSDCALROCODEDD} ***}******************DISC SECTOR EDITOR**BY B.WOODLAND **(c)ATARI USER ********************* } AINITIALISE( A SCREEN SETUP2 A"GET SECT No.< A$GET SECTORF A(}DISPLAY SECTP$ A0$PASS TO MENU CONTROLINITIALISATION##@@K:&&;@,;@},;@Q,;@d,;A(,&&;@,;@I,;@C,$ AAEMPTY STORE8 6-C:,6}-BSETUP MC ROUTINESL" A0V# %6-%@# Aj 6-C:,$SCREE}N LAY-OUT"(>:A%,"-@(ˠҠ!!(""(|0|1|2|3|4}|5|6|7|( ATASCII ""("@"(  0-@06-P}:'@,%@H**'@!P:'@,*6-%A(4(>:,: >@@$GET SECTOR} NUMBER&-@(&( "-@("(  A"P6-A:,!! @)!A} A"  B$_ ` LOAD SECTOR FROM DISCj A%0t %Ai@%=DRIVE NUMBER~ %Ap}@%=READ COMMAND SUPPLY DISC SECTOR NO. AyP:'AV, ""Ax&F:Ay,$AV GIVE RA}M STORAGE ADDRESS. AsP:'AV, ""Ar&F:As,$AV ""PASS CONTROL TO DISC HANDLER 6-?:,}  B$  B-@" ##(DISK ERROR!  -A $  DI}SPLAY SECTOR DATA )Af@)-@ -@ !!-$@%@%@ 6-F:}%%$@,"  AB(|,   (|6 -@@ -%@(%@J (>:F:%%$@,,T }  -@@ ^ !!(h Af$  ROUTE TO OPTIONS -}@"( -@" --($View Edit Write Print Exit &)@(>:,&6-&@I (}A1 !! )!@A0 ''A5A2A8A1  A0 ! A" A$! A(}& A00  SAVE SECTOR TO DISC -@"( -@" !!(Save on sector  OK? } )@@$ &Ai@&= DRIVE NUMBER $Ap@$= DISK WRITE DISC SECTOR NUM }BER AyP:'AV, $$Ax&P:'AV,$AV ADDRESS WHERE DATA STORED AsP:'AV, }$$Ar&P:'AV,$AV PASS CONTROL TO HANDLER 6-?:, $G  EDIT RAM DATA -@" }( (-@"(( Address(HEX)   AC !!!A') A5 6-P:'@, ;%6-+ }&$@,$@%@;6-$@%@ +!@%6-&@$+6-%@ -  -(|!} 6-%!-@'%'@$$6.7@<@,$ AC. (>:,8-@"(L -@"} (More?V$)@$"@A5`$sPRINT DISPLAYED SECTOR A@`3Dump of sector} 9931 0 1 2 3 4 5 6 7 8 9 A B C D E F;;33___________________________________________________  }-@ 6.=:,(67@,.|(-@6-F:%%$@,($ AB6. $67@,.}267B:,%@,. <67B:,%@,.|F 3 P;;33___________________________________________________d}PRINTER TEXT DUMPn -@ 6.=:,x(67@,.|(-@6-F:%%$@,!}A(6-&A(% @2)!A"%6-@2 6. 67@,.>:,67B:,%@,. 67B:},%@,.|3 ;;33___________________________________________________ 3 3 $PRINTER ERROR TRAP,}-@"(,-@" (Try turning on printer!-A $EMPTY STORE}6.6. -@"67B:,%@,.,67B:,%@,.6   $ghDECIMAL/HEX} ROUTINEr6. |6-?:C:,>208,56,233,48,201,10,144,3,233,7,24,22,212,22,212,22,212 }>>22,212,117,212,149,212,200,152,106,144,227,202,16,224,96OPDEC. TO HEX DATAZ66104,104,133,213,104,133,212,160},0,169,36,145,212d44200,152,106,104,144,5,72,106,106,106,106,41,15n4424,105,48,201,58,144,2,105,6,145,212,200,192,5x}208,228,96,-1D:DISCEDIT.BAS,144,5,72,106,106,106,106,41,15n4424,105,48,201,58,144,2,105,6,145,212,200,192,5x&   ..@@ D:AUTORUN.SYS6-""6@}(*@ @02255,255,16,29,50,29<II165,12,141,38,29,165,13,141,39,29,169,37,133,12,169,29,133,13,76,40 }FFF29,32,50,29,169,46,141,231,2,169,32,141,232,2,96,76,29,45,32,169PKK0,141,62,29,141,55,29,104,240,16,170,201,2,240,26,!}104,104,202,208,251ZII169,253,32,234,31,96,169,10,141,60,29,141,57,29,169,0,141,61,29,240dLL13,104,141,61,29,104,141,60"},29,104,104,141,57,29,169,128,133,213,169,0nFF133,212,32,236,30,173,54,29,16,3,76,97,29,32,149,31,32,124,31,16xGG3,76,9#}7,29,172,52,29,177,205,141,51,29,140,52,29,162,8,189,165,30KK205,51,29,240,11,202,208,245,32,101,31,16,227,76,174,30,173,$}51,29,201II30,208,8,200,200,140,52,29,76,234,29,201,7,208,22,172,64,29,136,177GG205,201,27,208,3,76,185,29,173,64,29,%}56,233,9,141,52,29,172,52,29NN200,177,205,201,14,240,76,201,20,240,193,201,22,240,189,173,62,29,240,41KK162,16,160,32&},32,203,31,162,27,160,32,32,203,31,160,0,177,205,133,212NN200,177,205,133,213,32,236,30,173,53,29,133,212,173,54,29,133,2'}13,32,184LL31,172,52,29,200,200,177,205,201,18,240,63,201,20,240,4,201,22,208,241II76,185,29,200,140,52,29,32,69,31,3(}2,210,217,32,236,30,176,43,173,53KK29,133,212,173,54,29,133,213,32,170,217,173,62,29,208,10,173,52,29,24II105,6,168,7)}6,110,30,32,85,31,177,205,201,18,208,29,140,52,29,76,234HH29,238,55,29,162,9,160,32,32,203,31,162,27,160,32,32,203,31,32,*}173GG31,76,185,29,201,20,240,12,201,22,240,8,173,62,29,208,3,76,252,29BB76,185,29,96,0,4,13,35,30,7,11,12,10,173,62,2+}9,208,12,173,55FF29,240,1,96,238,62,29,76,150,29,32,149,31,160,2,32,136,31,48,219KK173,61,29,145,205,136,173,60,29,14,}5,205,173,60,29,24,109,57,29,141,60GG29,173,61,29,105,0,141,61,29,32,158,31,16,215,96,173,60,29,141,53"NN29,173,61,29,-}141,54,29,165,136,133,203,165,137,133,204,160,2,177,203,141,KK58,29,136,177,203,48,53,197,213,240,5,176,47,76,30,31,136,17.}7,203,1976NN212,240,39,176,35,165,203,24,109,58,29,133,203,165,204,105,0,133,204,173@DD53,29,24,109,57,29,141,53,29,173/},54,29,105,0,141,54,29,76,0,31JJJ56,96,24,96,172,52,29,162,0,177,205,149,212,200,232,224,6,208,246,96TLL172,52,29,162,00},181,212,145,205,200,232,224,6,208,246,96,172,64,29,204^JJ59,29,240,12,177,205,141,64,29,200,140,52,29,76,144,31,32,158,311},160hMM4,140,52,29,136,177,205,141,64,29,136,177,205,141,59,29,136,177,205,160rNN1,177,205,96,165,136,133,205,165,137,12}33,206,96,165,205,24,109,59,29,133|OO205,165,206,105,0,133,206,96,160,0,177,205,133,212,200,177,205,133,213,32OO170,213}7,32,230,216,166,243,164,244,32,203,31,169,155,32,234,31,96,134,207HH132,208,160,0,140,63,29,172,63,29,177,207,48,9,32,234}4,31,238,63,29HH76,212,31,41,127,32,234,31,96,141,56,29,169,11,141,66,3,169,56,141CC68,3,169,29,141,69,3,162,1,142,725},3,202,142,73,3,32,86,228,96QQ85,110,107,110,111,119,238,78,111,110,45,110,117,109,101,114,105,227,32,108OO105,110,106}1,32,114,101,102,101,114,101,110,99,101,32,97,116,160,224,2,2252,16,29,-1D:DSKRENUM.BAS,32,108OO105,110,10fqSTDMNNNNNNNNNN1DLOASLBYTEN25PN10AUTNPIFTFIRSTCOCODLDLADCOLOCOOORTFƯ8}XXRADDDDDDDDDPAGLD 9} :} !"@#$%&'()*;}+,-./0123456789:<};""****************************""* PICTURE HANDLING UTILITY *""* FOR ATARI USER *""* BY=} MICHAEL A.BAXTER 1986 *""**************************** 6-6-@'6-@36-@?6-@>}K6-@W6-@c6-@o6-@{6-@ 6-@6-AV6-A$6-A 6-$6-?} W 6-6-2;A ,;@ ,9@,96.E6-@yQ6-@bW6- .6-F:A`,!6-F:Aa,.@}KA@e""ŠŠӠx+AY%@@d7B7t@dA}CARUA @a@xF:,"AApC -"% %#AQ03-A7"?%B}C %-BBR"!% -&&" '-@U"#A%' ``104,160C},1,162,129,142,64,127,169,80,141,128,126,24,105,40,153,128,126,144,1,232,138,153,64``127,185,128,126,200,192,192,144,235,D}169,27,160,0,32,38,113,162,4,160,17,185,80,159,157,196__2,136,202,16,246,160,12,162,3,185,80,159,157,116,159,136,202,16,2E}46,169,0,141,112,159,174ee87,159,202,142,114,159,173,116,159,133,207,173,118,159,133,206,162,0,142,113,159,32,216,112,201F}bb128,144,26,41,127,208,3,32,198,112,170,32,216,112,133,205,32,153,112,202,208,245,206,113,159aa16,240,48,220,170,208G},3,32,198,112,32,216,112,133,205,32,153,112,202,208,250,206,113,159,16cc245,48,196,165,207,205,117,159,176,14,165,206,205H},119,159,176,7,32,183,112,165,205,145,203,32bb231,112,240,1,96,104,104,96,164,206,185,128,126,133,203,185,64,127,133,204,I}164,207,96,32,216``112,48,233,141,113,159,32,216,112,170,208,3,206,114,159,96,142,115,159,169,0,168,32,38,113ee48,209J},174,115,159,96,173,114,159,240,22,230,207,165,207,205,117,159,144,12,230,206,173,116,159cc133,207,164,206,204,119,159,96K},164,206,200,200,132,206,204,119,159,176,1,96,173,112,159,240,2dd230,207,73,1,141,112,159,24,109,118,159,133,206,164,207,L}204,117,159,96,162,80,157,72,3,152,157DD73,3,169,7,157,66,3,169,80,157,68,3,169,159,157,69,3,76,86,228 cc104,74,74,170M},134,207,104,104,149,205,104,104,149,203,104,104,149,208,202,16,241,162,6,160,81[[173,36,2,72,173,37,2,72,169,7,32,92,228N},166,207,181,203,24,117,212,149,212,202,16,246cc141,10,212,166,207,180,205,181,212,153,22,208,202,16,246,173,252,2,74,176O},223,104,170,104,168(dd169,7,32,92,228,96,166,207,180,205,181,208,24,121,196,2,153,196,2,149,212,202,16,240,76,98,2282ooP}16,16,80,67,0,0,3,2,2,48,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,48,3,3,3,0,03$$65,48,117,255Q},255,0,112,64,113PQQ104,168,170,132,204,133,205,165,89,72,173,10,210,201,31,176,249,133,203,165ZLL89,24,101,203,133,89,R}169,0,172,10,210,145,88,104,133,89,72,230,204,165d??204,240,3,76,174,6,230,205,165,205,201,152,144,212,104,96WΠϯS}ӠŠXWBF:@,-BF:@,?A`@HQAaAW-gY(PȠԯϯT}ŠҠg40 CTRL U's2&(Programmed By M.A.Baxter 1986)(,(/(U}2(*'( 1. ENTER PICTURE DISPLAY ORDER*(*'( 2. SET UP COLOUR SCROLL VALUES*(?)( 3. PICTURE DISINTIGRATE TOGGLEV} -5(ON ? ApV (OFFN( ( 4. NEXT PICTURE BY ,"@D(TIME DELAY/N ApX(ůW}/KEYPRESS (( 5. START ART SHOW (( 6. LEAVE PROGRAMME(O-@!=((ŠӠӠX}OAY@4* )6-&@H* )!Ap77AqArAsAtAuAs`Y}ŠҠŠ1 AsPAY%A`1Aa/ Aq#D:*.*)6-/6Z}-9AY97@<@,0PICAqN -(7<,6-%&!@46-%@:6-N!@[}0Aq AqfF:A,A6" AsP.-@"\((ԠĠŠf Ap\}sA`@H'AaA9AY@4E-@!s((נŠŠ٠ҠG6]}-@6-6-!6-'6-3-@:(~@6-G6.Z )2 @')!@)*AUAq%86-H"^}@(*!P6-&Z Aq)7"@(*"*!@+6-&@76-@7#"@)*"@* @016-_}%@76-!"@)* @!6-%"AUAq@/"@' AsP%AY/ Ap2 -`}( -(~"6-(6-2 Aq%I"AU1&@)@25,@ I"@2Aq%N 1&a}@2#@2/,@ ;-@ D(>:&,N Aq%#  -&(0# Aq` -&( 6b}-%6-@W 1&@2#,@ /@2=67<,.>:,E6-%M6-&W Aqb"67<,..6-c}%" Aq%##ԠРҠ̠Ӡ 8 AsP-@2(Colour Scroll Setup:5(8(%k(1. FAST SCROLLd} UP(2(2. SLOW SCROLL UP5(M(3. FAST SCROLL DOWNP(h(4. SLOW SCROLL DOWNk(&.(5. NO MOVEMENT(.(6. RANDOM e}SCROLL'<-@!<((ԠŠƠŠŠ* 6-+* )6-&@H* )!Ar,A7f}Ar Ar!Ar"Ar#Ar$Ar%A Ar4%6-@y6-@b% ArP5%6-@y6-AC% g}ArP6%6-@y6-A0% ArP7%6-@y6-A)% ArP86-@y6- ArP9 6-6-h} ArPR# AsPAY# Ap!!ϠŠŠ "6- Ap 6- Api}$-@ -(! $$ +  ӠҠŠ٠ "6- Ap 6- ApKj}ĠŠL" AsP-"4AuM_Au_(KPictures will be loaded one after another after ak} certain time delay.NG Au-C(*Please enter time delay (in sec's) GO AuV2"(See pictul}re loading ? Yes'(2(No W& )"@6-& AuX"@x6- AuY!"AUAum}! AuZ Au6-[ 6.6.D:6-`U67<,.7<,6-%#6-%07<,4.C67B:,%,..PICK6n}-%U Au%b Au eB +@1@@d1B7t@d6(BAYf.6-?:,.o}AY@4jAuUk5@@ '@5AV&laB6-+F:@,$BU6%F:@,$AVp}%F:@ ,,'@IKP:,"WAu`a Aum F:Ad,"@(APt Au2M )6-&@H-q}"6@!AP7 )!CAu`M Au0(6-P:H:,$AV,06-P:H:,$AV,O -68,-F:Ar}%,# 26-?:<<<,:-KA%8,O 7-@@  -AdAU7 AuU6-?:As},$@4(,You have not entered the picture order yet!@-@!00((Ӡ٠٠ϠŠ* )t} AsP AY* Ap D:ARTSHOW.UTI!@-@!00((Ӡ٠٠ϠŠ* )7\J KBUFINBUFOUTVTOCBINANDBINORTEXTGSECTPSECTCATHXESCDCBULPRFDRIVPMBASXYTYPSECMABINANijv}FREEFREEFREXXYYOLSTPOSSTDABINOERCFILGSECPSECXX,,w},,     ((:$'a @A`B@%@'@&x}@@BdA%@Bh8Bh@ @!A"Ag#Ap$A%@&y}AW'@r(B)B*B2H+@s,A(-Bh.@/@'01@2Bh83Bh4 1I:z}, B).(NOT ENOUGH MEMORY1hh;A(,;A(,;A0,;@,;@,;@,;@D,{};@D,;A$,]];@,;@,;@,;@,;@,;@@,;@9,;@,2>6-F:A|},&A&@>6-+&@,$AV<B +AR@1-@@B( INITIALISINGF B}}P##@@K: BDISPLAY SECTOR MAP DATAP.(# *** CALCULATING SECTOR DATA **~}*8@>,P/%+@$,] @6-%6-16-Q-@+%@,'@]6-A}(6-?:<<@:7<,,,!!!)"A!76-%+$@,%@76-%+$@,&@; ,}/%@%,%@;/%@%@ !A6-&@ A 6-&@46-%@}6-%@%!16-@?6-%@I@[,%+$@,y/%+$@,%+@$,@>'!@}6-'@' A H 6-%Re6-%A6-%A16-%+$@,K6-%+$@,&@W"@}&e6-%@E\M @,/,%/3,%A M/%A %+@$,f-%+@$,@}p ,/%A z $!!POSITION PMG BASED ON S & T=-%@# =6-%+&@,$}@sA@#%@AD7%@ADK%@AD_%@ADs%@A@}%+,$@$DISPLAY SECTOR CONTENTS 6-$%D 6.=:,(67@<@,. D67@&B:,<}@,. 76-%+$@,%@76-%+$@,&@ 1 -"-67@<@!,.EMPTY $ -}"@-67@<@!,.HIDDEN. -"@-67@<@!,.IN USE8 h 6.=:,)67@&<@0,. } E67@1&B:,<@0,.h67@0&B:,<@0&B:,,.(B ( $ WRITE VTOC BACK TO DISK ::(}# *** CALCULATING: PLEASE WAIT *** N67@,.>:,367A0,.>:,B67@,.H6.N6. G6-}6-;-@+%@,'@G6-A( 76-%+$@,%@76-%+$@,&@ 1} <"*!.6-?:<<@:7<,,,<67<,.>:, 16-%@!#6-@16-%@ '!@}6-'@' A%@  (  6-C:,@2 7"@#%@A7%@@< 7"@&}#%@AB7%@@F %@?:<<AU,P %@'AVZ ++67@<A,.7}@<@,d 6-C:,n ++67@<A",.7@<A(,x %A"?:<<AU, %A#'AV} e6-A` B%@Q($ *** DISK WRITE ERROR: SECT 360 ***[ Be B 6. \6-A$} B%@R(% *** DISK WRITE ERROR: SECT 1024 ***\ B B DISPLAY/EDIT VTOC  +@}AY@X1AR@K0@e0@@0@@@ + @}6-A+@@ k -(! DISK VOLUME TABLE OF CONTENTSI( 7@<@),k( *** }PLEASE WAIT *** ..6.$ SECTOR 0000 HIDDEN (0000 FREE) B ++67@<@,.7@<A, E6}-A6-'6-A$1 BE@A1 C6-A#6-AC67@<A(,.7@<A"}, 36-@%6-@''"@36-@@X ;6-%AV%6-@s)@5";6-b )6-&}@#6-%@P) B l 16-@'6-&@(%$@1 B!v =6-&@6-=-%@%}A @ L!@ 6-&@> B%+P:'@,$@,L6-%@ >0 B%++&P:'@,$@},$@,>6-%@   36-&@ B)6-&@3 B0 )6-&@6-%@) B} 36-@3-%@%%+@$,@% L!@ 6-&@> B%+P:'@,$@,L6-%@} >0 B%++&P:'@,$@,$@,>6-%@   @@ A  /6-@6-}% A"/ A# )@ %"@'% B "@2 A5 '"@E*!@}'6-&@* !"@a* !6-%@4 '"@C*!'6-&@> '"@B* @9'6-%@}H 5"@(6-&@) @56-@R )"@)6-%@#!)6-\ 5"@06-&@}) 56-f 5"@16-%@)!@956-@9p U"@x6-%@#!/6-@}=6-%@I!@9U6-z U"@f6-&@) @/6-=6-&@I U6-@9} @A4 00 % WARNING!! WRITE VTOC TO DISK? (Y/N) HA@d'A4)@H}"@A% ! A" A#! A30 "@$ @& %%+$,!A%6-%&@ %}%+$, A %6-%&@ 6-% > ,/%@%,%@;/%@%@>$EDIT DIRECTORY} DATAG(!0@@@;0@@@G6-U$( DIRECTORY VIEW/EDITE( } 7@<@,H(K(U B-@m6-%Aa B'@Y( *** DISK READ ERROR:} SECT %Aa ***c Bm BCC67+$A(,%@<+%@,$A(,.7@<A(," 6-} AB6""WRITE DIRECTORY BACK TO DISK@-@JQC67@<A(,.7+$A(,%@<+%@},$A(,Q6-%AaTa B@M( *** DISK WRITE ERROR: SECT %Aa ***W Ba B}^  Bh PRINT 9 ENTRIES ON SCREENr-&@&@|%-@%@&(7+$@},%@<+$@,%@, 7+$@,%@<+$@,%@,7 %-@%@&7( } * -@@ *(File  ~-@@ ~(-> 7+$@,%@<+$@,%@,} 7+$@,%@<+$@,%@, <--%@%@@c%-@%@&(7+$}@,%@<+$@,%@, 7+$@,%@<+$@,%@,7!@c%-@%@&7(} ? -@@--@@8;(>:@,? a6-@%6-$@%@16-@:7},,=-@a(N.Name: 7%@<%@,;-@%@;(E.Ext: 7%@<%@,Z-@%}@Z(F.First Sect: @:7%@,,%@:7%@,,$AV Z-@%@Z(T.Total Sects: @:7%}@,,%@:7%@,,$AV Q-@!Q(O.Open for write:>:+?:<<@,!,$@%@x,Y}-@!%@Y(2.DOS 2 file: >:+?:<<@,!,$@%@x,Y-@!%@Y(I.Entry in us}e: >:+?:<<@d,!,$@%@x,Y-@!%@Y(D.Deleted: >:+?:<<A(,!,$@}%@x,`-@%@ (9?:<<@g,"@M-@%@`(Dos 2.0 hidden&Y-@!%}@Y(L.Locked: >:+?:<<@2,!,$@%@x,00(0($Select from above or W)rite or Q)uit4}A'A@d4)@5"@(6-&@) 56-5"@)6-%@})!@c56-@c5"@E6-&@) 56-5"@a6-%@)!@c56}-@c!!"@')"@B/"@y)"@H%6-@/ AH%"@P6-@% AH}%"@s6-@d% AH%"@v6-@2% AH%"@h6-A(% AH%"@p}6-@% AG %"@6-@% AG%"@x6-@% AI %"@i6-@}% AI*@AF4.. # WRITE NEW DIRECTORY TO DISK? (Y/N)>HA@d'A4)@}H"@AAPR#-@"(# AB\ENTER NEW SECTOR NUMBERSfJ-@"+( En}ter new 7"@J( sector count p""@"( first sector z/AR AG@+6-/W}AR@HP:,) @)!A#)+!A*"@,M(W AG\ B,67%<%,.>:?:<<AU},,Y67%%@<%%@,.>:P:'AV,,\$TOGGLE BIT PATTEN6-?:<<,"6-%!}6-&67<,.>:,$$ENTER NEW FILENAME.F-@"+( Enter new 7"@F( filename} 8"@( extender B#AR AI@#LYAR@JB:,")B:,!@)+B:,!@}*"@,O(Y AIV7 B&-B:,%@@367<,. 7 `7"@767%<%%@,.7}@<@,j7"@767%<%%@,.7@<@,t$DISPLAY/EDIT BOOT SECTORG(!0@}@@;0@@@G6-^-@:( DISK BOOT INFORMATION (SECTOR 1)T( 7@}<@2,^ Ba6-@ B%@((M( *** DISK READ ERROR ***W Ba B0 6}-C:,@@0-@@&&(Boot Flag .............. F:,..(No. of boot sectors .... F:%@}, Q"(Boot load address ...... 36-F:%@,D6-F:%@,N AYQ(Q"(Boot INIT address ...... 36-F:%}@,D6-F:%@,N AYQ(U&(Boot Continue vector ... JMP 76-F:%@,H6-F:%@,R AYU((}Y-@@E(No. of active buffers .. F:%@ , Y!ASxQ"(Address of buffers ..... 36}-F:%@,D6-F:%@,N AYQ(J"(DOS present/Sector size. 9F:%@,"@(NoJ ARp&&(}Yes (F:%@,$A()JJ(1st sector of DOS.SYS .. F:%@,%F:%@,$AV Q"(Address for D}OS.SYS .... 36-F:%@,D6-F:%@,N AYQ(33(Offset to sector link .. F:%@, )-@}@)-@..(Drive %@ active? ........ ..6-?:$pVIEW/EDIT SECTOR LINKSz|(!0@@@;0@@@[(} SECTOR LINK EDITOR|( 7@<@,8-@8( Enter sector number }A`@6-E6 @)P:,)!A#)+!A*"@,;(E A` # B-@@#(}[( B@G( *** ERROR READING SECTOR  ***Q B[ B'@@'-@}@-@(-@@=%6-@:7$@%<$@%,,1"AU=6-@' (>}:,  !( (!( SECTOR  $@8\-@@\(Bytes used this sector .. }?:<@:7A(<A(,,<A', Bd-@@d(File reference number ... ?:<@:7A&<A&,,<AR},'@ Lz-@@5(Next sector number ...... z6-?:<@:7A&<A&,,<@,$AV%@:7A'}<A',,V!( `%"(EOF%6-%@jd-@@ ;(!Select B, F or N to alter }values,d($ W)rite, C)ontinue or Q)uitLA'A@d4)@F-@@ L(}!!"@)"@'B"@g6- A``]"@f6-A%% AeS67A(<A(,.>:}%+ A%,$A(,] Aat"@p6-@c% Aej67A&<A&,.>:?:<@:7A&<A&,,<@},%$@,t Aa"@Af@x( AbP'6-A#"@'6-A4 Ae}467A'<A',.>:?:<<AU,,KK67A&<A&,.>:?:<@:7A&<A&,,<AR,%P:'AV,, Aa}dGET NUMBER UP TO 'MAX'n,-@@ ,( Enter new x!"@c!( file number  "A%} ( byte count %!A%(next sector no. /AR Ae`+6-/GAR@'-}@@ +(8P:,)!=(G Ae B$WRITE SECTOR AND GO ON 6.Z B@}F( *** ERROR WRITING SECTOR  ***P BZ B 6- A``'GET SECTOR INTO BUFIN$'6-?:C:,}<:@,J( *** NOT} DOS 2 FORMAT! ***T BW'a Bd($*PLOT ZERO*a,&@&@'/&@5/%@K/%@}&@a/&@&@+$+PLOT ONE+I,&@&@',&@-/;,&@I,%@} +$ +PLOT TWO +o,&@&@',&@=,%@&@S,%@&@a/&@o/%}@+$+PLOT THREE+Y,&@&@//%@&@=/%@K/&@Y,&@+}$*+PLOT FIVE++},%@&@//&@&@E/&@&@S,&@i,%@&@o,}},&@3+$R+PLOT NINES+o,&@/%@5/%@&@K/&@&@a/&@}&@o,&@[+$.MESSAGE "TRACK".Q,&@&@/,%@&@=,&@C/Q6-%}@.},&@'/&@&@=/%@&@S,%@&@a,&@o/%@}6-%}@.g,&@'/&@&@=/%@&@K/%@Y,&@g6-%@.Y,%@}/&@5/&@&@K/%@&@Y6-%@.,&@'/&@&@5,&@}C,%@Y,%@&@o,%@&@,%@&@.$D/MESSAGE "SECT"E/,&@}/%@5/%@&@K/&@&@a/&@&@w/%@&@6-%@ F/g,%@}/&@5/&@&@K/%@&@Y,&@g6-%@ G/Y,%@/&@}5/&@&@K/%@&@Y6-%@ H/C,&@&@/,%@&@=,&@C/}I/$ NMAIN MENU*N +AR@1@@K0@@@e0@@@0}@@4NF((( DOS 2.0/2.5 DISK VIEWERF( 7@<@#,>N'('( By Andre Willey}, 1987HNW-@@2(D) View/Edit Directory5(W( V) View/Edit VTOC dataRN+(+( S) View/Edit S}ector Links\N(((( B) Show/Edit Boot datafN3(3(" C) Change drive (Current = )pN"("( E) Ex}it to BasiczN--@@"-(Please enter choiceN4A'A@d4)@N"@h}