@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( 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=}EiͩkΩ͙kCop j`j {j`Hi͝Νh`,}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`0CD  AXLPB0NZ<( ((@@d"( $.} +AdAUcAA'A @9@@K@@7Q(}cAR@$/}++(#++(#| |++(#| DISK #36 - UTILITIES $0} |++(#++(# @ -@A$1} $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@$2}D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ <@ ,.$3}.i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(-$4}-@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@$5},.0$@(''7@<@,4FREE@- @ 2() <@F''7@$6}<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z$7}++(#| |[ ( |  |\++(#xAR$8}[@@9'-@@"C( SELECTIONM A0Q[ BP:,A0$9}0"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@,$@%@,L B3$:}7@<@,4 36.7@<@,!7@<@,4DOS!.0 6.-@B:,07<,4 AH$;}67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR@'-@@"?  $<} LOADING ? A@@91@@5%? BK-@@"-  CANNOT RUN 7$}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%|DLA}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BDB}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.C}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPECD}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#E}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SYF}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E G}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT AH}LLOWED IN DESTINATION 0 <.|K` ` `ύ΍͍  BHI V`&ɛ  T} Y' &`    Lt@W(N ATAD dL=_s] U} ح  UL ͅ΅υЅѩ!   - "( V}`ԅ إ8}}خ A ̦̽ AeЅХm) W}ɛ "(`eͥͅe΅ΥiةэЍ , AЅѩи -ͅ΅ύУ˅̤̹JJJ X}J 0 A̹) 0 Ḁ` Ω0̩˅͍Dˑ͈ͭΩ1̢ˑ͈m Y}imimimmmmii 0 ͈ ͥ  ͅ Z} l ͈ͥͅ΅ql2=========================================== [}======================== ` `ύ΍͍  BHI V`&ɛ  k5FQQQQQQQQQQQ1Q1Q1Q1Q1Q1Q2Q2Q3Q3Q3Q4Q7Q8Q12Q25Q50Q53Q55Q55Q70Q71Q71Q75Q76Q84Q]}99Q100WAIFILECFALINQ1 ^} _} !"#$%&'()`}*+,-./012345678a}9 ;;""kk0,1,2,3,4,5,6,7,8,9,10,11,b}12,13,14,17,20,22,30,31,34,43,75,82,125,255,500,535,555,559,709,710,712,752764,842,999,1000. +%((.( c} #( disk catalog (( -( 2( d} 7( <( CLARKSVILLE,TN.A,( (-$, F;e},;,;,KR  +%6-B2y-7(PROGRAM OPTIONS=-R( file makerLN -(-!(f}'-0(6-?(E-N(P: -( file finder$-:( exit programU3 -(g}-3(PRESS FOR ZC -#(PRESS FOR )-C(PRESS FOR _ 6-F:,F:,")"h} $dF:,")" &iF:,")"%n %s#"x  %} %%( &I -i}-(type number for kind of listing3-C( 1 file nameI-O( 2 disk number-1(3 cataloged disks9-%Oj}(4 program options 6-F:,")" $ "%(>:,  "% $ %  " $Ik}$(type in name of desired file(.-A(I'm looking...I $%4$(type in disk number desired(."4 $l}#%+%,$! "4 END OF DATA! E*4 -=(SORRY I COULD NOT FIND DISK ''E $%8 "6m}-%"2( 7<,/ USED8 %3 4* (>:,--(I'm looking...36.E "%-3(I'M GOINn}G TO CLEAR THE SCREEN;-? E6-4 46-%-4(  IS ON DISK # - !6-!%6-%'o}!%-6- -%" $& "( ' "* %(6-%'6-%? "*  %(6-%p}'6-%-"396-?-E ""(  %6-%-6-%3"9?6-E-I "6-q}6-!-I(#ŠӠŭϠԠӠ% "6-F:,"(>:,% $ " $ $ " $r}%C "*"-;(SORRY I COULD NOT FIND DISK ''C $% = -1( Disk #  7s}=U "*0-0(I COULD NOT FIND ''3(U( PLEASE RECHECK YOUR DATA+ -+(Another t}disk? Y/N' -%"'(another file? Y/N"" 6-F:,"*" " $%' "*  $, "% 1 u} $&6 ;K +%-+( IF new file1-K( IF update@F -F(5IF UPDATE PLv}ACE DISK WITH 'filename.lst' IN DB% -%( FOR options E 6-F:," $&J "6- $w}L "% O %&T#"Y  $&^ %%(cB +%-B(% x} hS -(put disk in %-:( when prompted@-S( type disk m5 -( y} #-5( WHEN READYr 6-F:,"  %%w %&|H  - (if done type 0&-;(and presz}s RETURNA-H( -( change disk B -!(type number of disk'-<(and press RETURNB- {}" &+%, "(>:,-5 ")-%+%,$%%+%,$%%-(1 5 / 6-%+%,$6-/|}D1:*.*& (>:,-( DATA &-1 7<,4FREE)(,,01 $%/ (,-!}}7<,0 +(7<,/ 7<,0 (.& -7<,0 "(7<,& (,7%<,# (,"(~}~#ESC DELETE "  6-% &+%,  %=  -!(a new file will'-=(be written }to D1.[ -(be sure the disk$-9(has enough room.?-[(press RETURN when ready 6-F:, &+%,}I (>:,-I(LIST>:,D1:FILENAME.LST>:,,,$   U -U(Aa file 'FILENAME.LST'} has been Ġ on this disk. (-  9  +%!-AF39}E'6-F:A`,%F:Aa,$AV%1&&9-A%E < - (disk directory&-9( }<$9  +%!-AF39E'6-F:A`,%F:Aa,$AV%1&&9-A%}E  < - (disk directory&-9( <$B (>:,-B(ENTER>:,D1:FILENAME.L}ST>:,( ( ((CONT-  &! &$+D (>:,6-6-6-"6-(6-.6-66. >6. D}6-0,+%%#),$: 6-6-&?  -%%% %D  $-%% %}I-%%%N$X4 6-(>:, &-1( 4(] #%$$b" " %&eF:%,%}((g ( 6-% $%l% -%%(Press RETURN for menuq 6-F:, %v %{H  -3(!Stand} by while I load the file...;-? E &H$u999,END OF DATA,-1 D:DISKCATQ55Q55Q70Q71Q71Q75Q76Q84Q[AB SDEDDEBUFFNAMEACONFIGPQFYDUMMYIOBDONALETIMEZ@}Ah AP }E'(} Single DriveE( File Duplicator=-@@ '6-Ah=6-%@f%@}t()( (C)1983 STEVE KAUFMAN,(Q( This program enables you to copyt(DOS 2.0 files from one density<+(}#to the other when only one drive is9( available<(O @ -(DENSITY OF SOURCE (1 OR 2)1O @)!@}@ 2 B6-@&(&@26-@(Z1;@,;@,;@,;@ ,H6-I:,&A}iZ;,;@,2104,76,89,228<6-@@"267B:,%@,.>:,6 A @ AF!!4}9,1,78,64,0,0,1,0,12,0,1,0P1 #@p!-@%"-%1 ZF 6-C:,6-P:'AV,+%@C%@}&$AVF$d@(-("NOW INSERT SOURCE DISK, HIT RETURN<( WHEN READY@nm6-?:C:,,&F:%@,!@M(}"DRIVE 1 IS NOT CONFIGURABLE, RESETj(DRIVE NUMBERS THEN RERUNms! A  A 0! A@x[#%@@$}+"@,;%@+"@,[%@A($+"@,x%@A(+%@@y76-?:C:,,N}F:%@,!@k(ERROR CONFIGURING DRIVE!n'x @ $9%(DO YOU WANT A DIRECTORY(Y/N))90YA}: A0@@D:*.*: A@( A`0@&(CAN'T DO DIRECTORY}!0 A@@ Ag6-@6- @#(?(WHAT FILE TO DUPLICATEC]7@<@,0}D:g AW A(READING 9@@>(M@W BQ@+%@}P:C:,'AV,Q%@C:,&F:%@,$AV?%@P:'AV,?%@&F:%@,$AV?6}-?:C:hLV,,"6-@9F:%@,"@?6-=($67,.>:F:C:,%&@,,3@= ApE)6}-F:%@,%AV$F:%@,E67,.>:F:C:,%&@,,@ A)]@(9(!INCORRECT SOUR}CE INSERTED, CAN'TI( REOPEN FILES B] A`*1(CAN'T READ THAT FILE' B1 A@+) 6.6.D:&6}7B:,%@,.)$X#(NOW INSERT DESTINATION DISK>(HIT RETURN WHEN READYBL @X6-?:C:,,[#%@@}$+"@,;%@+"@,[%@A($+"@,u%@A(+%@@y76-?:C:},,NF:%@,!@r(COULDN'T CHANGE CONFIG.--ABORTu A 0G B( WRITING... =@@}G AE @@ & B(@&@((TRANSFER COMPLETED}( A0$w,($INSERT SOURCE TO FINISH READING FILE?(AND HIT RETURNCM @W A c6-m A 0w A}K@@((COULDN'T WRITE FILE!6( TRY AGAIN@ AZF:A ,"A)Z+A(%A,F:A(%A},%F:@!$AV%@),*6-?:C:hL,,$*reinitialize DOS b @ A ;(INSERT SOURCE TO DO MOR}E FILES,J( HIT RETURNNX A 0b A@ D:DOSMASTERLETIMEZ@CBC+<REGPOSVARAZSTPROGTOTVACUELNULASFINUNASENNVAAdBU@}<Q } z1;A@,;A,;AQ ,;@ ,H6-I:,$?Z;,;@0,z@@}K: Ap6-6-@# A READ% 4FIN BP( ALOOK FOR BLANKS2}6-A:7@<&@,,<6-%@F# A#LOOK FOR TERMINATORK!@5!END INSTRUCTIONM!&@}@`P6.7<&@,T4DATA@5U4REM@5V" AP"CHECK FOR A NUMBERW@`}n! A@!CHECK INSTRUCTIONx@` B0 @`SEARCH FOR BLANKS" B:,6-@" }A 6-%@6-@:7<,,)@:7,,"@4 A0@) A$$(+@H*@,A+-@X}@d! + A'7<,4?A$INPUT PROGRAM LINE A P'6-6-}'6-@@67B:,%@,. 6-%@ B$ 6.FIN$ CHECK FOR }COMMAS 6-@ -@B:, @:7<,,"@4A0@  6-$ CHECK FOR COMMAS 6-}%@ -6-%@-@:7<,,@4A0P "6-%@6-%@"$CHECK FOR INSTRUCTION6-@} 4ABS$ 4ADR$ 4AND$ 4ASC$ 4ATN$  4BYE$ 4CLOAD$ }4CHR$$ 4CLOG$ 4CLOSE$ 4CLR$4COLOR$ 4COM$4CONT$ 4COS}$4CSAVE$ 4DEG$ 4DIM$ 4DOS$4DRAWTO$ 4END$4ENTER$} 4EXP$ 4FOR$ 4FRE$ 4GET$4GOSUB$4GOTO$ 4GO TO$!4G}RAPHICS$" 4IF$#4INPUT$$ 4INT$% 4LEN$& 4LET$'4LIST$(4LOAD$})4LOCATE$* 4LOG$+4LPRINT$, 4NEW$-4NEXT$. 4NOT$/4NOTE$0 }4ON$14OPEN$2 4OR$34PADDLE$44PEEK$54PLOT$64POINT$74PO}KE$8 4POP$94POSITION$:4PRINT$;4PTRIG$< 4PUT$= 4RAD$>4READ}$?4RESTORE$@4RETURN$A 4RND$B 4RUN$C4SAVE$D4SETCOLOR$E 4SGN}$F 4SIN$G4SOUND$H 4SQR$I4STATUS$J4STEP$K4STICK$L4STRIG$}M4STOP$N4STR$$O4THEN$P 4TO$Q4TRAP$R 4USR$S 4VAL$T 4X}IO$^ 4?$h6-$CHECK FOR A NUMBER6-@?37@<@,20)7@<@,3}9?6-$WINPUT PROGRAM NAMEX (}]8-@@8(REMEMBER THAT THE PROGRAM YOU _--(%WANT TO }REF. BE IN LISTED FORMATa00((IF IT IS NOT,THEN ,AND ATTEND TO ITl?-@@?(%ENTER PROGRAM NAME: (D}n:Filespec.Ext)v Ar @@ B$ @ Ap?CHECK FOR} STRING OR ARRAY@"B:,AT47<,4()7<,4$467B:,%@,.7<,$2STORE VARIABLES2 A}2 B@267<%@,. 2=67<,.>:,/67%@<%@,.=:,=6-%@2$6CHECK R}EPEAT OF VARIABLE62B:, @@(67B:,%@,. 2 B@66-6B:,"B@6-@B}:,@@66-%@6#47<%@9,'# BA7  736-%@6-%@367B:,%@,.7}$:!!PRINT VARIABLS AND LINE #'S:OAR@9(OUTPUT TO WHICH DEVICE? (E/P/R)F)@O6.>:,: 4P} BQ3 :* @@* B:d'(@CROSS REFERENCES OF X(@#==============}=====================d(@:6-:-@B:,@@:6-%@:!!(@7<%@9,}::-@B:,@:<@:7<,,"<(@A:7%@<%@,,, : (@DONE:44(@}#-----------------------------------: (@:,,(@ NUMBER OF PROGRAM LINES :;(@;(@} NUMBER OF VARIABLES DEFINED :@$:--@@-(ҠԠ;A-@@3(}PRESS WHEN READY 7A BP D:CROSREFFINUNASENNVAAdBU@9`a  DSKINVBUFDCDCOMNHSECTODUMMDSTATDBYPATPATPAT1PAT2ISECTOANSBUFHBUFLDVSTAOLDCM} }K +K(9This program will test your disks and/or disk drives.W-(%Ǻ}ԠW(%硡 ;@,-()(TEST DISK IN DRIVE #1(YES/NO)-}0YES*0NO@ ( 4NOd/;@,6.h S`/PLA,JSR E453,RTSn3;A(,$-@A(}/67,. 3 s;A(,;A(,x6-@$@$@!%@@!DRIVE 1*6-P:C:,'A}V,*6-C:,&$AV%@%@776-@$@$@%@$@%@ B}MAKE DISK HANDLER CALL INPUT: SECTOR OUTPUT:DSTATS=STATUS`6-P:'AV,j%@&}$AVt%@~6-?:C:,,6-F:%@,$CHECK STATUS6-F:%@,%@@}6-?:C:,,++(STATUS(F:%@,):CMD=F:,(, H/W=F:%@, (, T/O=F:%@, %@}*%@4%@>$'DISK FORMAT'(FORMATTING DISK'!%@@3! A'))}6-F:%@,%F:%@ ,$AV$'!!"@*"B.',,(STATUS= BAD SECTORS='@3'!"A(}!( ***OR MORE***5'! A !"B8'-@@='''6-@:7,,%AV$@:7%@,,B'!}BU5!( BAD SECTOR=L' *''WRITE 10101010,01010101 ALTERNATE+6-Ap6-@ + B.''WRITE 0}1010101,10101010 ALTERNATE.6-@6-Ap. B:( TEST COMPLETE: N( PATTERN 1= 2=*N}-@A(4N67,.>:,67,.>:,>N HN%@@MN 6.ON!!(STARTING FIRST WRITE PASSRN}-@A@WN-%@\N AfN;@1(SECTOR= WRITE STATUS=; A pN z}N N 6.N""(STARTING SECOND WRITE PASSN-@A@N-%@N AN;@}1(SECTOR= WRITE STATUS=; A N N N%@@N(STARTING READ PASSN-@}A@N-%@N AOD@0(SECTOR= READ STATUS=: A D B`O+ 0+}(SECTOR=, UNEXPECTED DATA$O )O-%@%@.O A8OD@0(SECTOR= READ STATUS=}: A D BBO+ 0+(SECTOR=, UNEXPECTED DATAGO LO VO$D:DISKTEST.BASMlA ##..........ALTERDOS...........##..by Gordon L Banks..........##................ }.............(, +;@@,,AR@2"4*A`<( @PF,, }Ӡ,P))This program will alter your DOS toZ++allow more descriptive names for yourdQQAUTORUN.SYS files. }You will hereafter,be able to use names that include thenGGletters of your choice in lieu of the,'x's shown in this exampl }e.xee, D:Axxxxxxx.SYS,,(Note that a file named AUTORUN.SYS, will still function as normal.),``Now names such a }s ARENUMBR.SYS or,ASCRNDMP.SYS (for RENUMBER or SCREEN-,DUMP) may be used.DD,Just remember to start the name with,an A an }d end with .SYS.,''If you are ready press RETURN.,,*#A6.A*.SYSIB:,!@(?(% NO MORE THA }N 12 CHARACTERS ALLOWED.I A0.-@B:,*AY%@:7<,,. ,-AY%B:,AY(AU,  })()( Now writing new DOS.SYS file.<<XIO 36,#1,0,0,"D:filename.ext" unlocks file if locked.2@6@ } D:DOS.SYS=@d@@ D:DOS.SYSn+|( I'M DONE,( AND YOU'REAR }D:ALTERDOS.BAS#..........ALTERDOS...........##..by Gordon L Banks..........##................ % 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,Hh}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURN}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  }JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#P},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭ}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DO}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξ}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE }FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥ}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAME} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 L}!ERROR- 165ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXA}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u @A BK A0D:MENUMATTEDIT.BASEDIT.BASEDIT.BASORUNH|MATTEDI@"-  CANNOT RUN 7$[DOSMASTR.BAS CANNOT BE LOADED FROM THE MENU....LOAD/RUN FROM BASIC...URYCURLINECONSOKEMMCNLLDRLLLCYB(GNOOOCCCCCCCCCCC1C1C1C1C1C2C12C15C25C25C40C42C49C116C166C193C75C104PAGEC182C223C380C-}123ABCDEFGHNUMBESECTOMMNNPPQQRRSSTTUUVVWWXXYYZZJKXXXXXXXLXXMNPXXXXXXXC13C14X-} 98 DEC. BYTES AVAILABLEIN THIS SECTOR FOR LONGER VARIABLE NAMES @@-}@@@@@@ @ @ @ @ @@@ A(AUAU-}AVAA AA`AdA0ARA@A6A A"0A8 A0!"-}#gq$DD%&'()AD*+,-AU.@"/01-}2345678zz9Gzz:;<=>?@AA-}ABCDEFGHIJKLMNA8OADP =-}=*** DISKSCAN Copyright 1982 by David Young 02/21/82 ***6-6-@'6-@36-@?6-@K6-- }@W6-@c6-@o6-@{6-@ 6-@6-@6-@6-@6-@6-@ - }6-A(6-AU6-AU6-AV'6-A36-A ?6-AK6-A`W6-Adc6-A0- }o6-AR{6-A@6-A6K6-A 6-AD'6-A"036-A8?6-A8K6-A0(- }E0 0(0# (}#(WAIT A FEW SECONDS...(99;,;,;A,;@h,;,;,;,;,-&6- }.hhhԩ`&6-?:C:,<,2! A#` A"P! A$</ AP A% A(`%$/#@pF01234567-}89ABCDEFP"KZ 6.H6.Ld- (}-( Πnf((COMMAND SUMMARY:(B(-} Assemble into sector = Af( Binary load file = Bxo'( Change current sector = CK( Direct-}ory of the disk = Do( Goto binary address = Go'( Hex conversion = HK( Image sectors -} = Io( Menu & format changes = Mo'( Print screen contents = PK( Read a certain sector = Ro( -} Scan for 1 or 2 bytes = So'( Toggle display format = TK( Write current sector = Wo( Disassemble -}sector = XN(.(#Display sectors in HEX or CHARACTERD(format? (H or C)K)N("@g6.C"@r-}6.H`-(%Do you want to scan sectors sequen-V(#tially or using the links? (S or L)])`("@-}6.S"@v6.L[,($In which drive is the disk beingA(scanned? (same)H)K(Q"[ A#-} @I)!@R# A6-&@H67<,.>:, 6.R6-6-jA@d'A--}-V(#A,B,C,D,G,H,I,P,R,S,T,W,X or M?])f6.>:,j(i_"@r)"@)"@e)"@)"@g)"@-}h)"@q)"@w)"@i Ap((SECTOR #B:,"( A`%  )!A  % A -} 6- Ap?0S*+4)", "%-5( END OF FILE? A  6.? 4S A0--}AA?AA" 4C Ap, 4R " 6 4M A@ 4W AJ -}4D A T 4B A`U 4H A'X 4X A0Y! 4I6. AP!6.Z-} 4A A4[ 4T A%\ 4P A&] 4G AE^ B A hr|-}% -"(NOT LEGAL NUMBER!%$ Ae $& 6-6-P:',%&67-}<,.7<,.6-+&+&,$,%%67<,.7<,+6-.$$ A 7<,0$$ A 6.7,-}E B:,"67,.7,(67<,.7<,867<,.7<,E67<,.06 B:,"67,.7,(67<,.7<,667<,.00'- } B:,"67,.7,'67<,.000&5@:7<,,!@d567<,.>:@:7<,,&@,0/@:7<,,!@d/67<,.>:@:-!}7<,,&,:/@:7<,,!@d/67<,.>:@:7<,,&,D/@:7<,,!@d/67<,.>:@:7<,,&,Ncc6-+@:7<,,&@-"}H,%$+@:7<,,&@H,%$+@:7<,,&@H,%A@$+@:7<,,&@H,X B$b A 6-A:, A-#}l 6-6 AvGosub #4 belowQQ67,.DhhhSRWHHHHHHHhhhhhhhh h -$} Sԩ`6-&A%E$Gosub #5 belowvv67@,.chh7h*hZhYhhZ YL@-%} E PL PۮYZԄ`YZYYZ`H67A,.H` 6-+-B:,$A5%@:7-&}<,,( +$1  6-6-A$%4S16-A'  4H A0; -+(Fir-'}st character of search/8B:,";$ 6-@:7<,,*b)( Second char (hit RETURN if none)-6B:,"HAA(-(}ZAA(b6.046-@:7<,, Ap>6 -&(First byte of search*3B:,"6$H%  6--)}!)  % A0Rb)( Second byte (hit RETURN if none)-6B:,"HAA(ZAA(b6.0\%-*}  6-!)  % APf` 6-/(  Search seq = $3 96-= @(`(Hit RETURN to abort sea-+}rchp% 6-%$6-6-%6-z" -( Sector =  " 6-?:<<<%,'F:Ad,"@$Ad-,}'$Ad" A! "6- !6-%Ae  B 6--0(Sequence found at--} byte $>6-&AeB $6-P:',%$6-$+&$+&,,% "6-&N(+(Is this the right one? (Y or N)1--.}8(<?)K"@N$S ( -@!;(Hit RETURN to abort searchI6-Ae%S A 6-A-/}c"6-> 6-AcF:%, $"5( END OF DISK;6->$, "-#(END OF FILE)6-,$-0} A$. 4L A8 6-%"A!6-B APL6-F:%AS,V6-+@d-1}$,'`6-&P:,j6-P:$,t6-$%F:%AT,~$E6-P:',(}-( SECTOR # = -2} ($1 ;6-&$? E() 4H A 6-?:C:,<%,$6-?:C:,<%,$6-?:<@:-3}R,<,0 --(CANNOT READ SECTOR !0$ 6- $ ( 2E 6--6(Write this-4} sector to sector :B0YE$<26-?:C:,<@:W,<,"*"(6-2 A@F1 -1(CANNOT WRITE TO SEC-5}TOR !P$Zdnx AP)S:0!0)0# -6-Aa%# -6}X (}-5(Filename Ext Start Size inX( Sector SectorsC -F:%$,"-@(T-7}here are no more entries.C$F:%$," A ''6-F:Ae%$,%$F:Af%$,''6-F:Ag%$,%$F:Ah-8}%$,0 -,67%<%,.>:F:Ai%$%,,0 . -%.(7<, 7<@, 1 ( A-9}!( ' 1( (  M -7((Did you find what you need? (Y or N)>)J"@-:}M$3  -0(There are no more entries.3$< -/(!THE PRINTER IS NOT RESPONDING!9 B<$"-;},6o A0 A`C6-F:AD,%AV$+F:AE,,%Ao6-P:+I:,&A,'A(,&@@k-@-<}@ B((You have room to create a binary loadk(file of  sectors. Starting withJb,($the current sector-=}, how many sectorsE(do you want to saveIXB:,"b APT; A` A' )!1 A; ->}A^#6-A%4S#6-A(hT6-&@-J6-?:C:,%@(<%$<@<@:R,<,T A0-?}r3 A@#")"@)6-3 Ap| k-@@ C()INSERT A DOS 2.0S FORMATTED DISK INTO-@}k(#DRIVE 1 (CURRENT DISK CAN BE USED).(What is load address B:," AP11()Output fil-A}espec is D1:DISKSCAN.LOD.9 A`9@@D:DISKSCAN.LODq A)6-$+%@,%&@<-B}*@AUO*@AUq*@&AV$P:'AV,i*@P:'AV,=*@&AV$P:'A-C}V,U*@P:'AV,i6-%$+%@,/$6-?:C:,<@<@:W,<<&,/@ A`$9-@-D}@+(ERROR F:A,6@9$b  -6($To change byte, position cursor withb('-E}. Type change. Hit ESC whenE(you are finished.-'(66-F:@,E6-F:@, )"@'-F}$& 4H Ap0"@0   :"@()"@) D6-@1   N"@0-G}  AX"@()"@) b )"@'$l "@0 v#"@()"@)# A-H}6-@1  #!@'* @2# A - 6- @2#6-%@d- A -I}' @6-&@2' A  )!A# A ' A`6-%@d' A 6-&@2-J}@6-@1+ 4C!+&,$%+&,'%+ A 6-&@H!6-&7 )!@@-K}-(>:AS,7 A  %6-+&,$%P:+&,',%%6-F:,;P:+&,',"+&,''6-&$P:',1%$; A -L} 6-$P:',%*@1 A!@4 6-% @0 > 6-6-%H   R 6- \-M}@0 A!f 6-&! p6-@)6-&z ! 6-@ @( A"-N} 6-& A!p@)  6-% A! &@@#(&$Gosub #2-O};A",67,.hhhHhH67,.>:, 67,. \h` 67@#,.>:, 6- aa67@$,.N \-P}hHJJJJ 0ii0 \hH) 0ii0 \ \ \hHJJJJ 0ii0 \hH) 0i$ ((67A,.i0 \ \hiH). $8 -Q}B Gosub #1L V ;A",[  &A` 67,.hhhHhHj 67,.>:,t 67,. \h`~ 67-R}@#,.>:, KK67@$,.8 \hHJJJJ 0ii0 \hH) 0ii0 \ \ \hH 67@,.>:, ((67@,.-S} ۅ] \ \ ((67A,. \hiH) $ ^;@e,[67,.Ahhh i@ԩhhS -T}hhh h Vԅԩ`^$  Gosub #3 above.   4C6.H A%0 6.C   $( -U}) * 2 ( A& -@"!-(4 0-B:,6-@:7<,,(!A'06-&6 %"A') @2-V}%6-@E8 '67<,.>:, 3 ' A&0< , -,(THE PRINTER IS NOT RESPONDING!F $    4-W}$(What is # for conversion(1B:,"4$   )!BU5 $ @ -( = $ 6-+6-P:',/ -X}96-&$= @$ H '@#6-%A),6-C:,0 66-<!H &A . 6-C:,6-%@ %(-Y}+6-.$    "@A00 2&;A0,;Ah,;A2,26-@ A1 Q A`-Z}6-Ad%6-16-=6-A%E4SQ6-A( Z-@@ =("Start disassembling at which-[} byteAH(WB:,"Z$ - A- )!&@A05  6-6-% ] 6-P:+%,'@,%@-\}P6-@$++%,&@$+&@,,%@V-](< 5-@)AR@56-@ $--]}@0$6-@$+F:%,, W!6-@:7%@<%@,,-"?( ???M6-%@W A1 !!6-@-^}:7%@<%@,, K&6.7$@&@<$@,7( K"A0 !!6-@:7%@<%@-_},, ooA2A2 A2A2%A20A25A2@A2EA2PA2`A2eA2uA2U --`}@3( 6-%  %!6-%& A15!  %"6-% A15&  + ] 6-P:+%,'@-a},%@P6-@$++%,&@$+&@,,%@V-](<0 FAR'-@@ F(Is that -b}enough? (Y or N)5 &)@(#"@&$: A0U?  "6-%@D 3-@-@0/( -c}3 I lAR'-@@ P(#End of sector. Stop here? (Y or N)])@i"@l$-d}N I A@#")"@5-@@F( END OF FILE!I$S B 6-&#-+%@,@>Ab%F:A-e}b%%,B X 9 A@ A`#6-Ad/6-9 A0U] b II6.?ADCANDASLBCCBCSBEQBITBMIBNEBPLBRKBVCBV-f}SCLCCLDCLICLVCMPCPXCPYDECg ff67B:,%@,.NDEXDEYEORINCINXINYJMPJSRLDALDXLDYLSRNOPORAPHAPHPPLAPLPROLRORRTIRTSSBCSECSEDS-g}EIl 3367B:,%@,.STASTXSTYTAXTAYTSXTXATXSTYAq $v LOAD TABLES{ A1e A2 $ (# #6-q}?b%DOS SYSb+AUTORUN SYSb*)DUP SYSb SUNICHECKOBJb.\DISKCAT BASbDOSMASTRBASb&CROSSREFBASbDISKTESTBASb ALTERDOSBASb-MENU bREADME DOCbDISKSCANBASbuGRAPHEZEBASb= MATTERS BASbm]MATTEDITBAS-F:%%@, A #$ *6-F:%%@, A * A2 (A $ 36-F:%%@,((' A -r}0(,X)3$ 36-F:%%@,((' A 0(),Y3$ +6-F:%%@, A ((,X+$ *6-F:%%@-s}, A * A2E +6-F:%%@, A ((,Y+$ *6-F:%%@, A * A2U @6-F:%%@-t},6.+*!A'26.-@6-AV& ( $ N ((6-F:%%@,' A :6-F:%%@,D A -u}K()N$ nn67@,.[ ##% #  #  ##-v} @@67@,.-# #   ! 67A7,.>:@4, @@67A8,.-#$%&(-w}'(')*(+,- nn67A,.[.(/0 123456(78-9 :;<= >( ?@*-x}ABCD nn67At,.[EF!GH$IJ!KLMN!OP  QRSTUV!WXY Z-y} nn67Ae,.[[\] ^! _`+abcdef)gh&ij)kl mn)op  q nn67AV,.-z}[rstuv)wx/y z{|} ~) 0201 ]]67AG,.J6-{}201 0201 80 7 67A!,.>:AU, ##67A",.0 -|} nn67A8,.[  43    nn67A),.-}}[  5     nn67A ,.[-~}     , ..67A ,.,,-} 67A 8,.>:@4, RR67A 9,.?, ,,., % ,,67A,.-},  4 oo67@,.\hhhh \h Mh >hhhheԅ-}ԩeՅՠ9 <<67@,.) hHhԅԩ`hhhhhhhԅ`> $H A 6-@:,6.H!6-6@-6-@-}A"@A40R 2&;A0,;Ah,;A2,26-@\ A1f A@p 1  -.(DISKSCAN.DIS-} IS NOT ON DISK!1$    1-@B:,&@17<,0 A5@ 6.7@,  B:, @-}6.$ L6.7@<@,)B:,"@56-@B6-6@L A8 D6.7@,#-@B:,D-}7@<@,0 A5p 6.7@,  +7@<@,4$+6.7@, $$7@<@,0#-}A5 H67@<@,.$(6-@2 A>!AUE6.H$ A8 ;;7@<@,0+*7@-}<@,0-A5 U6-@&6.7@<@,56.7@,? AK!A'R6.U$ 4-6-}-AV& A8$$7@<@,0(A6 +7@<@,4$+6.7@,Y67@<@-},.$>-B:,&@@6@Y6.7%@<%@, ..7<,0)*7<,0X*7<,0,A6  4Y-}6-@  4X6-@ 26.7@<,&4)*@26-@ A A8$|Y7@-}<@,4A*B:,"@*+7@<@,4R)7@<@,4S,e6-@r6-6@| A8.%%7B:,,-}4Y)7B:,,4XA6@0*6-@B:,!@*6-@1(7@<@,4J(6-@3: A7&67-}@<@,.$0 A: A88X6.7B:,,+6.7@6-@2 AU*7@<@,4X>-}6-@Q A8D-B:,@6@=67%@<%@,.7<,A D$mm6-?:C:,6-P:'AV,H AeW67@,.$2 A`-@ @2(Š-}A&(Start assembling at what byte*AB:,"AB- A6-A$!4S-6-A''!)-}  A' A@d6-P:'@,%@H6-@$+&@$+&@,,%@O( ]-&@d(-}>hB-@@ '( INSTRUCTION+BB:,ABm' 6.>:,-@@$('$r- A5 B-}:,"#(- AB|( (-&@( -@B:,@Y6-@:7<,, A096-@:7%-}@<%@,,C A0O6-@1Y A0uu+&@,$@%P:+&@,'@,%@*+&@,$@-}%P:+&@,'@,AB9-@@ ?(%End of sector. Write this sector out^(and go on to n-}ext sector?k)@@ABb6-?:C:,<@:W,<,$@6-@@X(CANNOT WRITE TO SECTO-}R !b AB1 6- A@1")"@A N A0 A`)-@@0( ?6-F:@-},N6-F:@, 3 (>6-F:@,)6-F:@,3 AB A@6-C:,&%%$-}p-@@ <("What is base address (if same asU(before, hit RETURN)YpB:,"AE 0 A-}# )!BU5- A0$^ 6-2(#In which sector is base address6@ A^!* A!-}AE A$T 6-0(In which byte of sector  isF(the base addressJT A!! )-}!A'AE 6-"AEM6-P:'AV,)(Base addr=$3 A C6-&AV$M A -}1( in Sec  ,Byte $$6-. A 1(:$(What is destination address(7B:,":$+ A+-} )!BU5AEE 6-& )-@@B(CAN'T GO BACKWARDS!E$1 6-6-%6-A%-}%4S16-A(6-P:',[- A0% A@5 @*G-@@X( END OF FILE[$-} P A`6-&$)-@@F(Address found at byte $P A X6-P:'@,%@H6-@-}$+&@$+&@,,%@N-U(<X$w 6.S A0 A`K6-F:AD,%AV$+F:-}AE,,%Aw6-P:+I:,&A,'A(,&@h-@@ A(%You have room to make an image of -}h("sectors. Starting with the currenta+(#sector, how many sequential sectorsD(do you want to saveHWB:,"-}a AQ; A` A' )!1 A; AP@6-A(6-X6-&@-X-}6-?:C:,%@(<%$<@:7@<@,,<@:R,<,) A@"@6-) AQ d-@@ -}>($Insert the destination disk intod(!drive 1 (formatted with DOS 2.0S)$(and hit RETURN.$)@ P 6--}-B6-?:C:,%@(<%$<@<@:W,<,L A@P F A`$ D:DISKSCANPAGEC182C223C380C,h()9 :AHEXBYTEEEMPRINTTEXTWAIRAMTOSAVMSYTYTXTXTYMIYXMAXXMINYMAMSDMSDWMAXTITLEYTITLE1}PTITLESPACETYXYSSPACEXSPACEYSELECYSCLXSCLXPLOTYPLOTXPLOYPLOVHDUMDUMSIGNYSCLSIGNXSCLSNDGFMEXYPRX1}PRSIGNSCLYIDXXIDXADEHSTHETDUMDUM1MESSCHSAD@@1} @1}@ !"#$%&'1}()*+@,@-@.@/01@2@34561}@7@89:;<=>?@@ABCDEF1}@GHIJKLMNOPQ Q +@-@@:(1}@ GRAPH E'S ! !QDisplay Program Namex-@@,(@ FORMATTED>-@@P(@PL1}OTb-@@x(@PROGRAM!-A ( +22( ( (2(!Loading Machine Language R1}outine.<~~;@P,9A,9A,;@@,;@$,;@@,;@@,;@@,;@$,;@@,;1}@,Fss;@@,;@$,9@ ,9@ ,9@ ,9@ ,9@ ,9@ ,;@ ,;@ ,P1}GG;@,9@ ,9@,;@,;@,;A,Z- A7@-@@P:d A7P1}(@nL A LMACHINE LANGUAGE ROUTINE TO DRAW GR. 0 TEXT ON GR. 8 SCREEN.xb +b(P Select array size1},ND. Large ND's give smoother curves, but are time consuming.KH(@ ND=10 (Useful to check graph1} format.)K(DA(9 ND=100 (A good starting value)D('$( ND=400 (** MAXIMUM **)'( (1} (+ (ND=(('-A+ J A JTo set graph format and select graph grid/tic arrangemen1}t.Z(CLEARING ARRAYS+-A/ >6-F:AY,PAYZDMA offP-A&68,-1}568,-9 PTo clear out arrays.AY +((((((!(Select plot by number.!1}(( (1) Sine Wave( (2) Parabola!!( (3) Circle or ellipse( (4) Discrete Points"""( 1} (5) Other (Your plot?), ( ((((((6[(COMPUTING ARRAYS,-A0 ?6-F:AY,QAY1}[DMA off@//A) A)pA00A0A1@JQAYQEnter title of plot and axis legends. [Alph1}anumeric or symbols]TA +=(+Enter Title of Plot (40 characters or less)A^73(+Enter y axis legend (23 characte1}rs or less)7h73(+Enter x axis legend (26 characters or less)7r116.' |0061}.& !!6. ;;Imbed titles in the middle of centered blank1} strings.4467@ &B:,'@<@ %B:,'@,. 6.4467@ &B:,'@<@ %B:,'@,.1} 6.4467@&B:,'@<@%B:,'@,. 6.''Choice of auto or manual scaling.3/('DO YOU WANT1} (A)UTO OR (M)ANUAL SCALING)34MA0 4A A1P0AA A)%(ENTER MAXIMUM1} VALUE OF Y AXIS))%(ENTER MINIMUM VALUE OF Y AXIS)&)%(ENTER MAXIMUM VALUE OF X AXIS)0)%(ENTER MINIMUM V1}ALUE OF X AXIS):26-+&,'@2(M)ajor (S)cale (D)ivisionD6-+&,'@N+@%@X0@1}@b0@@@l @vE'AA`A!0A#ETo draw axes and grid/tics.1}33Plot subroutine. For sequential points only.6-((6-AP$++8,&,'+&,,%@E006-AP&A1}P$++8,&,'+&,,%@% @E)!A%6-@E% @)!Ac%6-Ac ,-@1}((6-AP$++8,&,'+&,,%@E006-AP&AP$++8,&,'+&,,%@!! @E)!AAp1}!! @)!AcAp /  Print title subroutine! 6.6-!6- ; A;1}Causes TEXT$ to be printed on screen @ H,V.*Print x legend4! 6.6-!6-@#> AHPrint y l1}egendR-@B:,\(6.7<,6-(6-&@f Ap zPrint y scale.-@@1}68,-&+&@,$-68,-N:8,,-Separate sign and value.68,-O:8,,6-@$68@,-@1}968@,-@N68@,-@c68@,-@x68@,-@ 68@,-@68@,-@1}68@,-@68@ ,-@68@,-@68@,-@ 8"@ A& 8To select1} scaling factor,EX. 6-8,? 568,-8,$+P:+@#6,%?,,? A B&68,-8,'P:+@#,%1}?,BTO ASSURE MULTIPLES OF 106.!"@6. ! AP6.=:8,,6.0000??Suppress 0 1}before decimal pt. and reduce to 3 characters.=8, @&67B:,%@,.=6.7@<@,R'8,!@1}*P:8,,&8,;67B:,%@,.R6.7@<@, 40006. 0$ APrint YSCL(J).6-1}@Print sign.8!"@6. ! A B$8, 6.-$ A L 6.+V8,"6.1} ` Aj t76-6-@#7Print yaxis scale factor.~ A5 67B:,%@,.6. 1}APrint X scale.-@@68,-&+&@,$-68,-N:8,,-Separate sign and value.1}68,-O:8,,R$P:'@,&'@"06-@": APRIF J IS EVEN THEN....6-@!68@1},-@-68@,-@B68@ ,-@W68@,-@l68@,-@68@,-@!68@1},-@$68@,-@'68@,-@068@,-@368@,-@7"@ A'p 61}-8,? 568,-8,$+P:+@#6,%?,,? A &&68,-8,'P:+@#,%?,6.1}(6.=:8,,2See 1020<=8, @&67B:,%@,.=6.7@<@,FR'8,!@*P:8,,&8,1};67B:,%@,.R6.7@<@,P 40006.0Z APrint XSCL(J)dPrint sign of x scl.1}n 68,-8,&@ 6-8,x:$P:'@,&'@"06-@": A 6-@!$8, 1}6.-$ AP 6.+8,"6.  A 76-@46-@#7Print Xaxis scale fact1}or. A5 67B:,%@,.6. A A$p!6-Af!M.L. SUBROUTINE@6-A @LOC1}ATED TO GIVE ROOM FOR GRAPHIC DUMP PROGRAM. #A-Ae"" %, 6#@$JZZ1041},201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,215,104,133,214,104,104,168TVV104,133,217,104,133,216,104,104,240,231}6,133,212,24,165,214,101,88,133,214,165,89^YY101,215,133,215,152,240,15,165,214,105,64,133,214,165,215,105,1,133,215,136,21}08,241hUU132,221,160,0,132,220,177,216,160,0,170,16,1,136,132,213,138,41,96,208,4,169,64rWW16,14,201,32,208,4,169,0,16,1}6,201,64,208,2,169,32,133,218,138,41,31,5,218,133,218|__169,0,162,3,6,218,42,202,208,250,109,244,2,133,219,164,221,177,2181},69,213,164,220,145,214WW200,132,220,196,212,208,182,24,165,214,105,40,133,214,144,2,230,215,230,221,169,8197,221,21}08,159,96P6-?:<< H1}$R4,@EAc'/@E@4Fine grid.\@,@7@'/@E@@At omitted yscl value.f',1}@EAc'/AAcp :GRIDz2-@Ac@2(Y)(T)IC (L)ARGE,@B/A1} 3-@A`@3(Y) (T)IC (S)MALL,@E/A 3-@EA@%3(X)1} (T)IC (L)ARGE,Af/@ 3-@EA@3(X) (T)IC (S)MALL,Ac/@1} $b,@EAc'/@E@9,@DAcK/@D@bDOUBLE WEIGHT LINES. @,@71}@'/@E@@At omitted yscl value. K,@EAc'/AAc9,@EAdK/AAd1} :GRID$ 2-@Ac@2(Y)(T)IC (L)ARGE. Z,@B/A/,@E%@C/A%@1}ZDOUBLE WEIGHT LINES.8  B 3-@A`@3(Y) (T)IC (S)MALLL ,@E/AV  ` 31}-@EA@%3(X) (T)IC (L)ARGEj C,Af/@/,&@AcC/&@@t  ~ 31}-@EA@3(X) (T)IC (S)MALL ,Ac/@   $ TTReturns here from 2520 to suppress1} "READY" prompt until finished with display. =="OPTION" key provides the options shown in 2550 to 2600 9B2y@2}$6-F:B2y,9READ CONSOLE KEYS. 6"@A%06"OPTION" bypasses hard copy. B"@ A6 B"START2}" activates 49 sec. screen dump. A$p + ( Choose option( ( (1) New plot?( &#( (2)2} New plot,current ND&( DA(9 (3) New plot,current ND and grid formatD( C@(8 (4) Current plot,new t2}itles and scalesC( *'( (5) Current plot,new scales*(( ( (6) Exit (2 ;;A A2}AA0ApA4`< 88To scale y axis values to reduce number of digits.F A+8@,@*8@,2}A76-A A'`P 8@,!AA&`Z A'd -@@n ))6-8@,'P:+@2}#,%?,x !! A*!@A'`   8@, @A'  A'` ""-6@6@62}@ ,,6-8@,$+P:+@#6,%?,, !! A*!@A'`   $ 88To scale X axis values2} to reduce number of digits. A+8@,@*8@,A76-A A) 8@,!AA(2 } A(P -@@ ))6-8@,'P:+@#,%?, # A*!@# A)  " 2 }8@, @A(p, A)6 ""-6@6@6@@ ,,6-8@,$+P:+@#6,%?,,J # 2 }A*!@# A)T  ^ $h Sine Curver -| / 68,-@$@$+',/68,-G:8,, 2 }  $ Parabola - 68,-'+?$, 68,-8,#@   $ Circle or ellipse 2 }- 6-+@$@$,' #68,-E:,#68,-G:,'?r   $ Discrete Points #A1 2}& ?6-@ -#",68,-568,-;6-? 0 AA0,7,10,25,15,30,30,50,40,60,50,80,70,20,80,32,90,70,100,2}100: $D Your SelectionN Auto scaling subroutinesX ?6-8,!6-8,06-8,?6-8,b 2}-@l  8,!6-8,v  8, 6-8,  8,!6-8,  8, 6-8,   00(YMAX= Y2}MIN= XMAX= XMIN= #A4P 6-+&,'@ -6@@ -@@" g0 P:A2}$$@#+,%?P,'A]6-P:A$$@#+,%?P,'Ag A3  #A4P  !!-@2}6@6@ '+$,$+!$&?$,'6-$   6-&@$ #A4P 6-+&,'@ 2}-6@@* -@@"4 g0P:A$$@#+,%?P,'A]6-P:A$$@#+,%?P2},'Ag A4>  #A4P H !!-@6@6@R '+$,$+!$&?$,'6-$\  f2} 6-&@$p $z 1,2,5 +@ Closing display. -@ ))(@SEE YOU NEXT SESSION 2}  -A  +  Inverse scale factor.  6.6. 6.=:, -@B:,2} 68,-@:7<,, 68,-8,%A( 67<,.>:8,,  6.$$o #A7!-@@a%"32}A5%7 Y6-F:@,%F:@,$AVo6-%@@$A.``THIS IS 49 SEC. SCREEN DUMP PROGRAM. POKE IN M/L2} PROGRAM AND SET UP DISPLAY MEMORY POINTER8 A7@B8((@>:@',A>:@,8-%@9L$$SET LINE2} SPACING AND MAKE LOOPV96.>:,*67A,.>:,967@,.`B6-?:A6<:@',K>:2}A,>:,j66PASS BOTH VALUES TO M/L PROGRAM AND PRINT STRINGt ~ll104,104,141,21,6,104,141,20,6,104,141,2}27,6,104,141,26,6,160,193,173,255,255,136,240,35,141,255,255,238cc26,6,240,21,173,20,6,56,233,40,141,20,6,144,4,24,76,19,2}6,206,21,6,76,19,6,238,27,6,76,33,6,96$##@@K: (Please turn printer on!!4( ( (+2}(Press any key to continue..(1(4()@AUA@D2:GRAPHEZE.BASTLEYTITLE0sOFFPARBOD 6!} *** MONEY MATTERS ***** BY WARWICK 6"}WAKEMAN ** ANTIC MAGAZINE ** FEBUARY, 1984 ***********************/+@%@/0@6#}@@ ,-@@,(@ FINANCIAL /-@@/(@ CALCULATION%-@ @6$}%(@+-@@+(@WARWICK!&-@@u?# &(0 +'0@@6%}@*(-(0(#++ #THIS PROGRAM WILL COMPUTE FINANCIAL()) ! CALCULATIONS FOR INVESTMENT AND-( 6&} BORROWING2( ((CHOOSE:(7--(% . WHAT WILL MY INVESTMENT BE WORTH?<$$( . VALUE OF REGULAR SAVINGSA%%( 6'}. ANNUITY OR PENSION INCOMEF))(! . HOW MUCH DO I OWE ON MY LOAN?K--(% . GROWTH OF INTEREST BEARING INVESTP--(% . 6(}DEVALUATION OF THE $ BY INFLATIONU++(# . FURTHER DETAIL ON 1 THROUGH 7.Z @P_??AAA6)}AA AA d- +'0@@@*(-(i((( ŠȠƠΠn(s6*}(((ORIGINAL INVESTMENT $x A}(((INTEREST RATE % A%(((COMPOU6+}NDING PERIODS PER YEAR # A5(((TOTAL YEARS # AE6-'$?66,}-$+@%,#+$,((Š = $""(P:$A%?`,$?( ԠĠ  ( 6-} A0 A,- +'0@@@*(-(1''(ŠŠƠҠ6(;''(AMOUN6.}T EACH DEPOSIT $@ AE''(INTEREST RATE %J A%O''(DEPOSITS PER YEAR 6/} #T A5Y''(NUMBER OF YEARS TO SAVE #^ AEc6-'$?h''6-$++@%60},#+$,&@,'m(r(Š = w""(P:$A%?`,$?|( ԠĠ  ( 61}A0 A- +'0@@@*(-(++(#ԠѧĠҠ٠Ҡ((((AMO62}UNT OF PLANNED WITHDRAWALS $ A (((EXPECTED INTEREST RATE % A%(((PLANNED WITHDR63}AWALS PER YEAR # A5!(((NUMBER OF YEARS TO MATURITY #& AE+6-$?0556-$'$+64}@&@'++@%',#+$,,,5(:%%(͠Ԡѧ = ?""(P:A$%?`,$?D//(65} $ Ӡ  I(N A0S A- +'0@@@*(-(%%( 66} ŠǠΠ((((REGULAR PAYMENT $ A(((ORIGINAL AMOUNT BORROWED 67} $ A%(((NUMBER OF PAYMENTS PER YEAR # A5(((ANNUAL INTEREST RATE % A68}E(((TOTAL NUMBER OF PAYMENTS MADE # AU6-'A 6-'CC6-$+@%,#&$++@69}%,#&+@%,,'&+@$, ((Š = ""(P:$A%?`,$?(  6:} (% A0* A- +'0@@@*(-(( ȠƠ((6;}!!(INITIAL AMOUNT $ A !!(INTEREST RATE % A 0-@-$+6<}@%'A,#(( = #(( = $-%@(##(FOR ADDITIONAL YEARS, H6=}IT 1""(TO CONTINUE PROGRAM, HIT 2 A "@A E"@ A0 A L- +6>}'0@@@*(-(Q(V++(# $ ΠԠŠƠ[(`&&(ORIGINAL VALUE 6?} $e A j&&(INFLATION RATE %o A0t&&(YEARS #y A@6@}~(::6-P:A$$+@&'A,#%?`,$?( = ( ԠĠ  6A} ( (##(FOR ADDITIONAL YEARS, HIT 1""(TO CONTINUE PROGRAM, HIT 2 Au"@A"6B}@ A0 A  ( (,,(#ENTER NUMBER OF ADDITIONAL YEARS -  A66(-ENTER INFLATION R6C}ATE FOR ADDITIONAL YEARS - % A ::6-P:A$$+@&'A,#%?`,$? -% ( (6D}##(Π $ = ( ԠĠ  ( Au- +'0@@@*(6E}-(hb(Z THIS PART OF THE PROGRAM WILL GIVE FURTHER DETAILS ON THE VARIOUS CALCULATIONSe(h((CHOOSE:-6F}-(% 1. WHAT WILL MY INVESTMENT BE WORTH?$$( 2. VALUE OF REGULAR SAVINGS%%( 3. ANNUITY OR PENSION INCOME))(! 4.6G} HOW MUCH DO I OWE ON MY LOAN?--(% 5. GROWTH OF INTEREST BEARING INVEST--(% 6. DEVALUATION OF THE $ BY INFLATION6H}( 7. BACK TO MAIN MENU A ??A!A!@A!pA"A"5A"`@041 +@6I}10@@@9/(,(! ŠȠƠΠ/(>qq(h This function will compute the worth of a6J}n investment at a specified futuretime. The original investmenCMM(Et can be asavings account, a term deposit, bondsor a r6K}etirement fund.Hh(h(\ It may also be used to estimate the future value of an antique or a piece of real estate. M__(6L}W Just enter what you estimate the appreciation rate is in place of the Ԡ.R A1W A\7 +6M}@10@@@4(7(a-(-(" ŠŠƠҠfgg(^This function will compute 6N}the future value of regular equal amounts deposited in an interest kdd(\bearing investment such as a savings account, in6O}surance policy or retirement savings plan.p A1u Az7 +@10@@@4(7(6P}/(/($ ͠٠Ԡoo(fThis function will compute the amount required to provide regular incom6Q}e over a specified period ofkk(b time such as pension payments. It can also be used to determine the amount requir6R}ed to provide??(7 living expenses while attending college or university. A1 A7 +@6S}10@@@4(7(*(*( ŠǠΠmm(dThis function will compute the balanceowin6T}g on a loan after a specified number of payments such as a!!( bank loan or a mortgage. A1 A7 +6U}@10@@@4(7(#(#( ȠŠƠpp(hThis function will show how money 6V} grows year by year when placed in an interest bearing investment. A1 A 7 +@10@6W}@@4(7(/(/($ $ ΠԠŠƠoo(fThis function will compute the effect on inf6X}lation on the dollar. It can also be used to calculate oo(gdepreciationon a piece of equipment. Just enter the depr6Y}eciation rate in place of the ΠŮ A1 A ( ((CHOOSE: ''(1. CONTINUE WITH THIS FUN6Z}CTION? ((( 2. FURTHER DATA ON CALCULATIONS? (3. BACK TO MAIN MENU?  A0 "@$ "@6[}A  "@@0 ((CHOOSE:! (1. TO USE THIS FUNCTION& ''(2. FURTHER DATA ON CALCULATIONS+ (6\}3. BACK TO MAIN MENU0  A0@5 "@$: "@A ? "@@0 D:MATTERS.BAS4}y55PROGLNPLCCCCOLCCSILCC2AWBLTBMAXLIXCURYCURLINECONSOKEMMCNLLDRLLLCYB:^}DSINECLSLPPLPDNHL :_} :`} !"#$%&'()*:a}+,-./0123456789::b};< u;A,;@U,$6-C:,-6-C:,96-E6-@Q6-@]6-Ai6-@:c}u6-@K-A"#67<,.>:,' 5-@U9"G67<,.>:,K <<+6-I:,&AV$6-@7:d}06-@<6-@#F@ ;%,;,;,;,;,'6.5K:@6-P:',P@6-@6-@!6-,67:e},. 767,. @67,.Z6-B2y6-Add4 (}@A-B7tA46.n%A(6-:f}@% A0x ( ΠՒ ( Disk Dir ( Edit Text ( Load File (:g} Merge File( Save Text ( Print Text( Kill File ( Quit ( j :h}6-66-@ A&6-jAAA# A$PA$A(pAPA5p3-@6',:i}2@`@0 3$(Try Again Please--@%-2A@@02A@@@:j}# -20$_ A @(@(G)S"AU_6-@I"#6-&:k}@H# )!A ,&(@  (}&6-6$@,(( Out of range." A`, AJ 6- :l}APT 6-^ AhU(4( ( ONLY=) 8AB:,"G6-K(U Ar6-P:A::m},,| *$@,( Out of range (- only).6 AP@ AP(Bad input char(s)$$( #'s only,:n} - valid. AP APEA@d!A>(}ԪԠA(E(!!(:o}$+B:,,##(󠽠&%+B:, ,!@AR(!$G AA@d+A:p}@( G) "@(6- $ "@x(6- $#( AP# :q}Ap 6.6-1(< To Abort>1(Type text & press :4 6-F:,@"*( }Р4 A:r}- 6-F:,-(- %--(-&> AP) "@'#'&'46.> A0A&A:s}:2 6-&  A`!6-(6.2 A0D (>:,6.7<, APN"AU(6-B:,$X7# :t}@2)!A")"@- A`7 APb! (>:,6-%!67<,.>:,lA@v*(( Ϡǡ A`:u}* A !& A@ AP 6-& 6- A0)( Š 6-# A)6-(:v}(Š to ''AA A0A@<(Ġ2(< AP(:w}Š AP (Š text TO AP(Š ((press only for )'6-@ A':x}!A 6- A Ap + 6.D67,.=:,"67,.:+67,.- A(*( Working..:y}.-$ A6. ɯϠ 467B:,%,.=:F:A,,7'A A* 6.AD46-@ A0>( :z}ˠҒ H( List DIRR( Print DIR\( Load DIRf( Merge DIRp( GoTo Mainz( :{}R 6-66-@ A&6-RA A A A `A 6- A  A( 6-:|}((Load Disk DIR into buffer.<(< will be >2( Are you < Ap (6. A :}}$ 6-6. A $ A ) 6-)(Merge into text buffer." A 6." A 4 6-6-:~} A*6. Ԡ4 A  6-2( of Š ?"6-, A26-% 6.D67,.=:,%67:},.:*.*L +),(((Š for this DIR .6-8 A>6.L"A@67B:,%,.7B:,%,K( A:}&@*>@P:C(K(A) 6. A6-$()($- 6.6- A:}`#6.- A`.! A6-6!6-8;7<@,4 F167@<@,. ; AB} 6.7,:}6.7@ ,467@ <@ ,..C67@,.]67@<@,. c }67@<@,.| L( :}(V A0`( (j(Apt$  67<@,.$ Ap~.67@<,.6.$ A`:}. Ap 6-%!' A@#6-$+&,% 67<%&,.#$ A(( (, ":}F:A,A6, A( A05  6.+67@<,.7@<,5 A` 6. A`D :}A((7( >)A(D$- 6-&*6.Incomp. Load, full-$6. Kill File:}6-@ 6- A`3( )( Are you 3 Ap(6. A =@3:}6.367B:,%,. = A 6.A0 6- A0(.( Ġ.(>& :}Scroll Up 1 Pg2!!(Ԡ>& Scroll Dn 1 Pg<8#(Ԡ>& Exit to Edit Menu5@@8(F( Ԡ P:}( GoTo StartZ( GoTo End d( GoTo Line n( Delete Lnsx( Insert Lns( Empty BUFF(:} GoTo Main ( \ 6-66- A 6-\APA`AA0A0A"PA:} 6- A  6-  A0(6-$+&,%(7<%&,0A 6-&!Ap A :} 6- A0*( Go To 堣6-$ A@*6- A ' B:, 6. Ơ' AD 6- A:}0.( line to Š46-> A@D6-9( line to Š#6-)6-3 AP96-C($(:} Lines >  - 9(Are you Š C Ap"A,6. A6% "67$+&,%,.% :}A@!!67$+&,%,.7$+&,%%,J6-&&+&,TR6. >'67B:,%,.=:,767B:,%,.-H67B:,%,.=:}:,R A^<(} LINE(S) B:, 26. < Ah3(Insert Line # #6-- A@36-:}rH 6-&&(# of to insert ?8((MAX=) B A@H6-|-( Are you  Ap-(A+( W:}orking..-%%+6-$+&,%67<%&,. -6L6-$+&,%!6-$+%&,%967<%&,.7<%&:},H67<%&,.L U 6-%6.=:,:67B:,%,. Lines before K67B:,%,.=:,U A)AR6:}-%@"#!)6- (} B:, 6- A 6--6-$+&,% -(7<%&,6-%:} 1AR-+(LINE #  16-7-@+(EDIT MODE 7AR 1-:}"(>:,>:@0,6-"6-& "(0- A@F:,AU#)- A:F:,"A@D*:}F:,@*  A`* A@N"F:,"@6-" A pX"F:,"@6-" A pb F:,"6- :}A pl-"A%)"@'# A`- A@vAWA@! 6-F:,6-F:,!AR/-@":}(>:AV,)AR/-B (>:,0+"@1)"@0,*F:,!@88(>:,B A@4"+"@()"@),*F:}:,"*(>:,4 A@F:,"*AVA ! 6-F:,6-F:,!AR3"AV-@")(>:AW:},3 A ;"*"AU6-@"%6-1@"; A p - (LINE # % 0AR1:}-0(>:,>:@0, 6-F:, @8A `"@"6- A p/ @"6-%%(>:AU,:}/ A ` 1(>:,>:@0,  A@! 6-F:,6-F:,!AR 3-@+(READING PAGE :} 31* , A@4 -6-$+&%,%> -H+AB@+AB@RB:,:}"A!P\67B:,%,.7B:,%,f67<%&,. p 6-%!6-z "6-& A A":} 6-%!6-& A A"@ 6-& 6- A 96.** Last line read >>/67:}B:,%,.=:,9 A$6.Empty Ơ *$ A0!!( text from BUFF ( Are you  Ap:}A# A+ 6.6-!6. Ơ+ A $ A6. Ġ 6- A`:}6- 6.$ A$.  B:,"A#p8 67B:,%,.7B:,%,B  6-%!A$@L 67$+&,%<$+:}&,%,.V A#P` j F:A,"A6A$0t A~ 6.ĭ A 7'6.Ơ:}̬Š-6-7 A Ax 6. Š  6- A` A#@ B:,A% 6.:} Ơ A 6. 0@@2&6-@0 A0 (Šՠ  ( As Text Fil:}e  (As PRINT Stmnts (As DATA Stmnts  ( Main Menu  ( 6-66- A:} 6- "A( L*(" blank lines from buffer<( During SAVE F ApL6-2 A&A& :}A&P< <#(File # for PRINT statements<((i.e. 6 for '? #6;')F (P # 6- A06-:}# A&`Z (Write DATA Statementsd 7(Starting 堣 '6-B'g&1 A076-n =6-P:+B'g&,',-(L:}ine 7 A@=6-x A 6-6. Š%6-@16-@; A`A6- - *6-$+&,%:}*7<%&,4*A(@ "A'  (6-% &A'@A'p ( ? (A'` (#:}; (>:@4, A' ( DATA  6.7<%&, 6-?::@4, (  " B6.!167B:,%,. 堣>B67B:,%,.=:,,  A%:}6 B:, A$@  6.@2J 6-@ A0T (ԠӒ ^ ( 40 Char Lines h :}(Newspaper ۲ Colr (Newspaper ۳ Col| ( Return to Main  ( 6-66- A:} 6- "A X@()( for Printout56-@0? AE6.X67B:,%,. Pg  6&(}:} text as it is printed:0 Ap66-  "6- A0  =6-@ $-(Left (max=)7 A@:}=6- !(!(Vertical line spacing: ""( Single (screen format) ( Double ( 6- A ! "6:}-@!6-@ ! "6-@!6-@H (Get  (And Press key (< to:} abort>& ( A)("AUA100 -"@'#6. - A:  A$ D  6-6-:}&@N ,@P:,(A>:,OX !A2pb 6-@:K, A4`l -v 96-$+&,6.:}7%<%,$4/(@9 A2@ (+,A20 06-?: A5H  R (6-&A4@\ 6-%+&,$!A4@f :}A5Pp  6-%!A2`z A2  6.=:,6-% Q(@ A5`!6-B:,+ A5@>6-?::@',>:,>:,>:,U$ H-%+"@,( +(A;(A>:,E A4:}H$ & 6- A5@#6-?: