#@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  :ABF ŠқӠٛ###@}@K:( +-&&;@,;@,;@,2( >> FILE READER <<7 A < ( (} (A ACAR@F##(READ FILE OFF APE OR ISK?P)@6.>:,Z4TAd4}DAn @Ġś +AR@**("PUT YOUR DATA TAPE IN THE CASSETTE( AND }REWIND. A"("(PRESS ON CASSETTE.((THEN PRESS .##@@C: }A, ˛6 +;AR@@--(%PUT DISK CONTAINING THE FILE YOU WANTJ""(TO READ INTO DISK DRIV}E#1.T AYAR^(( ($(WHAT IS THE FILE NAME(h 6.D:67@,.r @@}Ġś +6-)@ (>:,6-%@ F:Ad,"AUA }AdAU"(( CHRS READ." A"AUA 6-@ A  ϛ++(}# The file will be read and shown to$$(you just as it is formatted.0(0(% When you want to stop, press .-}-(%The program will ask if you want more&(data to be shown.0 ( (:$ ԛ#(#(Press to continu}e)@$ ě@@ ( (!"@!( MANUAL ABORT.6-F:A,}"A0"A6( END OF FILE %"A8%(NO TAPE (OR DISK)2#"A@)"AB)"AC2(} READ ERROR ""Ap"(FILE NOT FOUND* "Ac ( SYSTEM ERROR ( CHRS READ.  D:FILEREAD({12 4 1 5 0 10 70 2 12 132DOCUMENTATION FOR: REPLACE.BAS MAKERAM.BAS MAKERAM.}SUBThese programs were published in Bill Wilkinson's "INSIGHT: Atari" column of the August 1986 issue of Compute! magazine.}These programs modify the D8: ramdisk of DOS 2.5, or either create a ramdisk if one has not already been installed.The RA}M disk which emulates drive 8 (D8:) is one of the nice features of DOS 2.5. One of the not-so-nice features is that the RAM }disk is always D8:. Many, many programs which want two disk drives assume that the second drive is D2:. Wouldn't it be nice} if we could change the RAM disk's drive number? Say no more. The BASIC program listings below accomplish this for you.Pr}ogram 1, "REPLACE.BAS," is for use with the RAMDISK.COM program supplied with DOS 2.5. After you boot the system with DOS 2.}5 and RAMDISK.COM, this program simply changes all the magic memory locations in DOS so that the RAM disk is now addressed as} D2:. (Or you can change lines 190 and 260 to make the RAM disk emulate any drive from D2: to D8:.) If you use Program 1, t}he DOS files DUP.SYS and MEM.SAV will be on D2:, but otherwise DOS 2.5 will be unchanged.Program 2, "MAKERAM.BAS," serves a}nother purpose. As you've probably noticed, DUP.SYS and MEM.SAV take up a lot of room on the RAM disk. True, keeping them o}n the RAM disk does make DOS easier to use. However, if your program won't use DOS but could use more RAM disk space, why no}t leave them on D1:? That's exactly what MAKERAM.BAS does. It initializes and installs the RAM disk, but copies no files to} it-all 499 RAM disk sectors are available for your use. Naturally, you may choose any drive number for the RAM disk (see li}nes 190 and 260 again). And, although we could change this program to allow it to work after RAMDISK.COM has booted, it is a} waste of time since this program reinitializes the RAM disk, anyway. Therefore, you should erase or rename the RAMDISK.COM }file when using MAKERAM.BAS (but don't erase your ONLY copy of RAMDISK.COM)!Finally, Program 3, "MAKERAM.SUB", simply chang}es Program 2 into a subroutine which you can include in your own programs. Use it anytime you want your program to initializ}e a blank RAM disk.subroutine which you can include in your own programs. Use it anytime you want your program to initializ#$\TiRAMDRIVENUINITDATJUNDRIVEBYTdn=== REPL}ACE BAS ===x COMPUTE! AUGUST 1986 P.107##A program to replace D8: withDn: where n is any drive$$number from} 2 to 7 (or even 8)5F:A, A(2 No RamDisk installed!5&(6-@(Change this as desired}A A)SAT9@H% AF:A,&A(88(for changes to line 260, see} "Mapping the Atari")4"F:A,"@*"@4A@;@,-@@""67},.>:, ,104,76,224,766-?:C:,,@JVerify it workedT^;@,h6.Dn:*.*r%%67@<}@,.>:@H%,| @@ A0)@ >:, A D:}REPLACE.BAS@H%,| @@ A0)@ >:, A D: =WjRAMDISKJUNDRIVE@@AS! A!Your program here'#(#==== M }AKERAM.SUB ====2#COMPUTE AUGUST 1986 p.107<#""ԠРϠŠˠĴF###Subroutine to set up RAM diskP#Z#7 }F:A,!A'4 Disk already installed!7&d#A @n#A)S@x#AT9@I#A }@#;@,#-@@"#67,.>:, #104,76,224,7#6-?:C:,,#66(any handy str }ing can be used instead of DRIVE$)#;@,#6.D4:*.*#((AT@#$ D:MAK }ERAM.1 be used instead of DRIVE$)#;@,#6.D4:*.*#((AT@#$ D:MAK '(xOeCRAMDRIVENUINITDATJUNDRIVEBYTAA6Br$} d""COMPUTE! AUG. 1986, PAGE 107n==== MAKERAM.BAS ====x''A program to set up a RAM disk onDn:, $}where n is any drive$$number from 2 to 7 (or even 8):F:A,!A'7 RamDisk already installed!:&$}6-@A A)SAT9@I4"F:A,"@*"@4A$}@;@,-@@""67,.>:, ,104,76,224,766-?:C:,,@J;@$},T6.Dn:*.*^%%67@<@,.>:@H%,hr|((AT@$} @@ Ap)@ >:, AP% D:PRTERM.BASD2:MAKE$}RAM.BAS @@ Ap)@ >:, AP% D:PRTERM.BASD2:MAKE$GHREPLYCMDRECDOCRECPRINTLINECLEARLINEHEADINGDATEFILECURINDELIN(} ""****************************""* *""* (} DOCUMENTATION *""* *""* MAKER *""* (} *$""* *.""****************************8;@,B;@,L;A,V(};A",`;@`,j;A,t;@,~;@ ,-@@`@7<,. (} ""****************************""* DISPLAY FUNCTION MENU *""**************************** A7  (}FUNCTION ===>  B. BUILD COMMAND FILE D. DISPLAY COMMAND FILE R. RUN COMMAND FILE K. RUN (}FROM KEYBOARD  X. EXIT -F:@,%@@ A(2 A < 4B AF 4(}D AP 4R AZ 4K Ad 4X+n Ax""****************************(}""* BUILD COMMAND FILE *""**************************** A7,, $MOUNT THE DISKETTE WHICH THE COMMAND(} FILE IS TO BE BUILT ON "" PRESS Π WHEN READY//@@D1:PRINTER.CMD(} A7 ENTER COMMANDS: A  ===> 4 A0" @, A06(}@@ AJ""****************************T""* DISPLAY COMMAND FILE *^""***************************(}*h A7r COMMAND FILE CONTENTS:| //@@D1:PRINTER.CMD A @(}  A@  PRESS Π TO RETURN TO THE MAIN MENU A""*(}***************************""* RUN COMMAND FILE *""**************************** A7 RUN FROM (}COMMAND FILE&//@@D1:PRINTER.CMD0 A:@D N  COMMAND: X B(}b A!0l A@v@ PROCESSING COMPLETED  PRESS Π TO RETURN TO THE MAI(}N MENU A""****************************""* RUN FROM KEYBOARD *""************************(}**** A7 RUN FROM KEYBOARD  ENTER COMMANDS: A!    ===>  * B(}4 A!0> A PH AR""****************************\""* PROCESS COMMANDS *f""*************(}***************p'7@<@,4H=' A" z'7@<@,4D=' A"'7@<@,4P=' (}A#@'7@<@,4L=' A0 *** INVALID COMMAND ***$""****************************""* (} SET HEADING *""**************************** .!B:,!@!.7@,$""**********(}******************""* SET DATE *""**************************** . !B:,!@!.7@(}, $$ ""****************************. ""* BUILD FILE SPEC *8 ""****************************B .7@(},L -V -@@ @`  !B:,' A$@j 7<,4.' A% t 7<,4 '(} A$@~   ""**************************** ""* COMPLETE FILE SPEC * ""**************************** (}.7@, ''7B:,%@:@',>:@, >:@',>:@,< 3F -P ""*(}***************************Z ""* PRINT DOCUMENT *d ""****************************n A(x @(} -%@ .7@, )7@<@,4;3) A& B:, @ A'  4 A'(} ,"7@<@,0SYSTEM:, A' . ((7@:@,T ""***********************(}*****^ ""* TEST FOR MORE FILES *h ""****************************r 7@,4$| A$@ ""************(}**************** ""* END OF INDEX PROCESSING * ""**************************** @ $ ""***************(}************* ""* BUILD FILE SPEC * ""**************************** .7@, -@@ @(}  !B:,' A0 7<,4.' A1@ 7<,4 ' A0   ""************************(}**** ""* COMPLETE FILE SPEC *& ""****************************0 .7@,: ))7B:,%@:@, 3>:@',>:@ , .  07@:@',>:@,  3 - ""************************(}**** ""* PRINT DOCUMENT * ""***************************** A6 4 @> -%@H B(}:,!A  A40R .\ A5f .7@<A ,p 3 z -%@ .7A!,(}3 !@W A2@ A3$""****************************.""* CLOSE FILE AND ADVANCE *8""* (} PAPER *B""****************************L@V!@c A7P`-%@j3t(} A6p~""****************************""* OPEN ERROR *""****************************@(}$!!***************************!!* DISPLAY SCREEN HEADING *!!*************************** +++ )}#----- DOCUMENTATION PROCESSOR ----- $ D2:DOCMAKERNG *!!*************************** +++ (E~ G1G2G3MBMENUPRNTEDIRTACOLWIOUTPUTABFILENAMEACFL1L2L3E1E2E3VTYLNCTRECCTINDEM-}ARKEUWREPLY -}-}e2 !"#$%Nd&'d;A,;@,;-}@P,;@0,XX6.N==============================================================================9AA%-}'AA%9A @ [ (} ((9(%ˠ٠ҡ[( PRINTS 4 COLUMNS-} WIDE6( ( (6(%ĠҠϠŠҠ?( ( ((9(%ԠŠԠˠΠŠŠ<(?(-}(((( PRESS WHEN READY A"p'+@%@'AAu2-@@2(@- }TURN PRINTER ON##@@P:(@>:@',@ (@>:@',E? (}- }AA%-AA%?A @ Z@(((0( = Ԡ3(6(9(V( = Ϡ- }ϠŠΠZ 4A A u 4B%D:MENU5( ((}2(ҠҠԠˠ5(*&((E- }XAMPLES: 66-A, 0021, DE22)* # 4@ @#*?6-6-'6-36-?6-@- } 4GG(@>:@',@>:@',G>:@',W>:@I,9@@>?9(@***********-}** DISK #  *************<(?(H--(@>:@',@>:@',ER ( (\6-%@f&&@@-}D:*.*p A"@zU(@ %6-%@36-%@U7@<@,4 FA-}"&"@(@&6-1"@(@%(@16- A!`" A-}"`6-P:'@,@6-%@(@@@(@ A p* -}B*F:A,"A8A %@(>:A%,% A :IAA(%@7AA(%@-}IA @ D:TRADELIS@(>:A%,% A :IAA(%@7AA(%@,'m&BNCTRECCTINDEMARKE 1}SUPER DISK LABEL PROGRAMANTIC MAGAZINE, JAN '84$$USES SUPER/SUB/COMPRESSED MODE ;@,;@@,* (1}}'(LOAD PRINTER WITH LABELS.*(.+(#TURN ON PRINTER/850 INTERFACE UNIT..()&(INSERT DISKETTE INTO DRIVE #1.)(1}# (PRESS WHEN READY.#( A##@@P:!<*@@')*@@Q1}<*@@%R%(@>:@',>:@,R(@>:@',>:@,>:@,(;@7($E1}NTER DISKETTE NAME ( FOR END);*# 4@ @#-?6-6-'6-36-1}?6-@ 2(@ DISK = <6-%@d&&@@D:*.*x A@T1}(@ $6-%@26-%@T7@<@,4 FA&"@ @&6-]"1}@ @% @16-]ҠҠƠӠΠ̬Ӡ A 6" A 81}6-P:'@,:@6-%@< @@ @@* B*F:A,"A8@ GD(E1}RROR #F:A, AT LINE F:A,%AV$F:A,G& D2:TINYLABL*F:A,"A8@ GD(E0R~ MAINMODENAMEPR1PR2PR3FILETEMPDUMP1DUMP2PRTGRAFILFPIBKCRCRCRDUMPRPRSCPICSTDKEPA5 }DLI1DLI2HLFJJ==  <I  ^ _ i B5!}@@@@@@@@B&5"}B0!@@ @!"j# $@%A $$KOALA PICTURE PRINTER VCAdss;A0,;5#}@a,;@,;Ar,;Ar,;Ar,;A,;@,;Ax,;Ax,i<<;@,;@,;5$}@,;@0,;@2,nsSHOW TITLE AND GET TYPExOF PRINTER TO BE USED}C +@@5%}1@@9CA@A (}KOALA PAD/ATARI ARTISTA(PICTURE PRINTER (Horizontal)^ AP(3(5&}Which printer are you using...6(Z(pson emini EC rowriter ^%%4E)4G)4N)4PA A@5'} A@!!PUT DISK I/O SUBROUTINES INPAGE FOUR CASSETTE BUFFERee162,16,169,0,157,72,3,169,0,157,735(},3,32,86,228,192,0,48,9,238,31,4,208,3,238,32,4,96,104,104,96%-A$AT"!% DISPLAY LIST INTERRUP5)}TROUTINES TO MAINTAINTEXT WINDOW COLORS""BY CHARLES JOHNSON 75066,404((6.HH  ԍЎЩhh@5*}**6. HH ԍЎЩhh@a 6-C:,6-P:'AV,-6-&$AVG67@<@,.>:,a67@#5+}<@#,.>:,a 6-C:,6-P:'AV,-6-&$AVG67@ <@ ,.>:,a67@%<@%,.>:,!!DU5,}MP$ IS A MACHINE LANGUAGE##ROUTINE THAT DOES THE PRINTERSCREEN DUMP...!!DUMP1$ IS FOR EPSON, GEMINI""5-}DUMP2$ IS FOR NEC, PROWRITERcc67@,.PhhhhhhhϩР˅ѥϭiͭi885.}ϭcc67@,.PiͭiΥ) JJ)  q͑JJѥ8%%67Aa,.5/}(̅ХД`cc67@,.PhhhhhhhϩР˅ѥϭiͭi88שϭcc650}7@,.PiͭiΥ)  JJ) q͑JJѥ8%%67Aa,.(̅Х51}Д`!!MODE$ IS A MACHINE LANGUAGE  ROUTINE TO CHANGE GRAPHICSMODE 8 TO ANTIC MODE EGG6.=h052}1eeAO ݩ֩N`"!!MAIN$ IS A MACHINE LANGUAGE'!!ROUTINE TO LOAD AND DISPL53}AY,KOALA COMPRESSED FILES16ww67@,.dhBDE   D 54}    ;ww67A,.d!  XY X!  FD))55}   @ww67A,.d ]GPee`/ee56}(eEm-67A,.eee`M67A<A,.>:@4,m67AW<AW,.>:@457},JO##READ DISK DIRECTORY AND STORET*.PIC FILES IN FILE$Y^c A(7("Insert a diskette with pictur58}es..._("What disk drive is the diskette incc06.D1:*.PIC0067@<@,.h_@+@@59}76-@?6. P67A,. _67@,.m((((Reading diskette directory...r1@15:}7@<@,0 AwV67@,.7@,/67@,..PICH67@$&@,.V6-%@| 5;}@9Ap06-&@@0A_()(Sorry, there are no .PIC filesK(currently on thi5<}s diskette...U A@_ APDISPLAY DIRECTORY AND GETNAME OF PICTUREp +AA5=}1AR@C-p((à堠|-@*6.7$@&@5>},i-++'@&P:'@,, ? ,$@ %@'@u @|(0 (- k AEA5?}@"(C(Type '0' to switch diskettesk("Which picture do you want to print9AR%"/+5@}9 APAPA(-("Sorry, that picture doesn't exist.7 A@A A046.7$@&@,5A}#6.4-@B:,)7<,0 )67B:,%@,.7<, @LOAD AND DISPLAY PICTURE5B}C((Loading ...& AC@@m+@%@!6-?:C:,,-6-?:C:,,8@L5C}-@A0aF:Ad,AUm6-A0S AdAU%6-@16-@=6-@I6-@S5D} A.(( I can't load $ A@. A0 SETUP PRINTER FOR GRAPHICSg Ap@85E}@@P:@4EI6-C:,\(@@3g6.L2 4G6-C:,'(@@326.L5F} 7 4N6-C:,*(@T16[Q76.S07727 4P6-C:,*(@T16[Q76.S07727 6.65G}7Ar,.+67@,.16.76. 6-C:,6-C:,!&SCREEN TO PRINTER LOOP+0K%6-F:@,%F:@5H},$AV7AdAUK-@958F:Ad,AU*AdAU5@8$:*6-A$5I}@@%%*6-?:<<<,? 0(@D$(@0$(@I7(@ )(@>:@5J},4@7$NSSELECT GRAY SCALES TO BEXUSED FOR PRINTER DUMP]b+@%@2'AY5K}EA@p$+&@,cA@p$+&@,A @p$+&@,A@p$+&@,g5L}AR@# >:A%,/6-?:C:,,Y6-F:A`,%F:Aa,$AV%As6-F:@,%F:@,$AV&A5M}hm&@AB+&@A046-C:,E6-P:'AV,U6-&$AVaAmAlW-5N}@7-@$@$%@O%%@@$@S W q]%@@e+%@@D%@5O}F:%@,]%@F:%@,vc&%@&P:'AV,$AV?%@P:'AV,QBBAcA5P}Y@4{N*("} Options: rint, enu, iew, orN( choose color to change (1-4);(/(# --1-- --2-- --35Q}-- --4--;@xE A@8@@K:E)@g"@)"A+( }5R}Printing I(Press any key to abort...S A] Ag A5"@w)"A +BB@d5 A5S}?"@)"A+BB@d5 A? A!! @I)!@RAE0@e0(} 1 2 3 4 5 ""( Choose new shade (1-5) ?44( Present shade for color &@H is S"@I(5U} Ap+6-&@HIA@p$+&@I,S A5S"@P( Ap+6-&@HIA@p$5V}+&@I,S A5S"@Q( Ap+6-&@HIA @p$+&@I,S A5S"@R(5W} Ap+6-&@HIA@p$+&@I,S A5 A@ A59#A5%$@+-A`Ac5X}/"59 9#A5%$@+-AdAg/"59 9#A5%$@+-AhAq/"55Y}9 9#A5%$@+-ArAu/"59 $DATA FOR GRAY SCALES15,15,15,1510,5,105Z},510,0,5,0 2,0,8,0 0,0,0,0DISPLAY PRINTER ERROR MSG R(}***PRINTER ERROR***:(Please 5[}check your printerR(and try it again.../ A@!-@A% / A5VIEW FULL PICTURE 5\}%+@%@H'AYEA@p$+&@,cA@p$+&@,A @p$+&@5]},A@p$+&@,*!6-?:C:,,!AY@4/8-@A ,F:Ad,AU86-A 45^} AdAU$9>ERROR SOUND EFFECTCHC -AP6@P<2@@@ 5_}C$RWGET COLOR CHOICE\f,)@, @:1,)!@:5,App$ D:KDUMP.BAS@@@ 4kNOCOLPENPIXEMEMLOCFILETEMPMEMLMEMHRSAVMSDLISMAINQLDZENMODEA@9a}A0 ? @@ @ A) A' @ @BCtB7(@KVV^w9b}@!==d1020 PICTURE MAKERx A A" ##@@P:(@*H*9c}I-@8,"@A&(@H&(@C8,A6-?:B&9d}<,, B'g@-6-F:A,F:A,-6-%AVT>>(@M,6@$+A&,*J0,4;1,0;0,-49e}hF:A,A| TITLE AND INITIALIZATION@@6.6hBDEHI  <9f}OO67@U,.<    ĩOO67A,.:AU,QQ67A),.>`RɥPee`/ee0GG67A,.4(e9r}eЕee:GG6.=h01eeAO ݩ֩N`D$XRR99s}@,9@,;@,;@,;AB,;A(,;@a,l' +@'0@'-@9t}@'(@1020*-@@*(@picture(-@@((@;AR@9u};(!(c)1984 George L. Graff A@ #A`(-@"$68,-( 712,708,7099v},710 $-@ 68,-$  6-@6-A)46-A'AH6-@\''READ MACHI9w}NE LANGUAGE ROUTINES305f #A@pM-@A"'67,.>:,+ ?-B&B(7C"IM z-A69x}AV{ " | ;@,OPEN PICTURE FILETRAP 940##(OUCH TABLET OR RAPHICS 8?9y}0T*0G A `G }ENTER FILENAME--@B:,:7<,4:='G A $! 6.6.D:9z}!67@,.8+@+@@LDISPLAY PICTUREV/ +@$/6-F:A`,%F:Aa,$AV9{}j %@t! 4G6-?:C:,,! A~6-?:C:,,6-?:C:,,6-@++POKE SAVMSC,MEMLO:POK9|}E SAVMSC+1,MEMHIA`6-?:C:,%@x,# -@ 6-8,"8,9}}"@8,AH("@8,A<"@8,@pP"@8,@d 9~}xI%@%@3%AI%A%@6-F:B2y,%"@6-@% A 9}"@$ A SELECT COLORS(Choose Pen Color:( Black ( Blue 9},( Green @( Red T( Blank hS-@B( Pen Color No.%@9}?8,FO68,-S | AGRAPHICS 7+ CONVERTERAND SCREEN LOADER FROMA.N.A.L.O.G. NO. 129}ZZ216,104,173,48,2,24,105,3,133,203,173,49,2,105,0,133,204,160,0,177,203,201,79,208,21]]169,78,145,203,165,203,24,105,29},133,203,165,204,105,0,133,204,169,0,240,14,201,15,208,6]]169,14,145,203,208,4,201,65,240,17,165,203,24,105,1,133,203,1659},204,105,0,133,204,169,0]]240,198,96,104,162,16,169,7,157,66,3,169,0,157,72,3,169,30,157,73,3,165,88,157,68,3,165==899},157,69,3,32,86,228,189,67,3,133,212,169,0,133,213,960PRINTER DRIVERD%%104,104,104,133,205,165,204,208X!!12,169,0,9}133,208,169,64,133l 206,169,1,133,207,169,1,36$$208,208,95,198,206,198,206,165##206,201,254,208,19,198,207,16$9}$15,230,208,165,208,201,192,144 228,162,0,134,204,76,7,128!!32,18,128,133,203,6,203,230!!206,32,18,128,198,206,9}5,203%%197,205,208,201,134,204,165,208 !!133,212,6,212,169,0,133,213 ""38,213,96,162,96,165,206,1334##85,165,2079},133,86,165,208,133H84,169,7,157,66,3,169,0\157,72,3,157,73,3,32,86p""228,96,230,206,230,206,208,2$$230,207,9}165,206,201,64,208,176 165,207,240,172,76,224,127 (@ A@GG162,16,169,1,157,72,3,169,0,157,73,9}3,32,86,228,48,1,96,104,104,96(#$-@@ (F:%,$ D2:BOBSPGM.V20162,16,169,1,157,72,3,169,0,157,73,8YCD<YYREKXXHXXINYISYINZINDBKFLAQFCZDDUMP @?P@=}@ @ 9#P` ?I$5b W5C A@ @#3333Af%5?R5wP@#3333@!`s@!PVe@A=}@((@BDK:hB@ Ahh=} 紶 -6$+&,6- -$=}+&, 6-G:, !) 6- @4 6-$ 6-$ 6-&$6-%$$ 6-%$6-A&=}&/6-%AY/% A / @4 ASETUP FOR PLOT  , A 6-! ASETU=}P FOR DRAW"   $-$+&,6-&-6$+&,( 6-G:,* !) 6- @`, 6-$. 6=}-$0 6-&$26-%$$4 6-%$66-A&&8/6-%AY/% A / @`9 A=}SET UP FOR PLOT: , A 6-; ASTUP FOR DRAW<   Ad 6-6- -6$+&,=}f-$+&,h 6-G:,i !6-j  6-k   l !6-m  6-n$M2A@=}@--A1 ;2MAdAU26-F:B2y,"@( A02 A"@=} #"@ A# A(F:Ad,"@((}( A AX+6-@6-6-=}!6.+ A Yo,AYA'/@ A9/AY@DK/AA]/AYAo/AYAG=}Zi,@ A'/@ @s9,AY@DE/AYW,AAi/A@s\E/AYAG=}'/@ @s3/AYE/A@s^u 6-6-@#6.- A 96-@G6.Q =}A ]6-@k6.u A `X 6-6-@6.=:,( A 16.=:,B6-@9&B:,N6-@X A=} bw6-@6-@#$6.=:,. A :6-@#C6.=:,M A Y6-@&_6-m6.HIGH Z=w A =}c86-@36.=:,'B:,!@86.7<@,dr A 6-@&%6-@36.LOW Z== A I6-@3=}R6.=:,aB:,!@r6.7<@,fb A 6-@%6-@26.Y-AXIS< A H6-@0U6.X-=}AXIS_ A b$<6-?:C:,<<:,4 e@+%AAHB(ŠҧӠҡe(Ġ=}Ҡ͠M,($ɠҭҠΠM(렦pQ(IINPUT FORMULA AS... Z=(=}IN TERMS OF X&Y) THAT SYNTAX IS CORRECT.p((eg: PAIRS OF PARENTHESIS)E (}AY%-@/(14=} ;-@E(40 J-@(104 &-@!/(CONT5-GAB@J&UAY@4'A=}B@U()}ҡӠ٠ΠMM(ENOTE: ALL THREE PRIMARY AXIS (X,Y,Z) BE IN SPECIFI=}ED DOMAINS!_( ( (Y(GAUTOMATIC BOUNDS SELECTION ENSURES FULL PLOTTING BUT TAKES MORE TIME..._6-g(U(JPLEASE C=}HOOSE |1] AUTOMATIC SCALING Z-AXIS BOUNDS |2] MANUAL SETTINGS.Yg"A @((INPUT LOWER LIMIT#<(I=}NPUT UPPER LIMIT@&!)!) (WOOPS!& A%(( LOWER LIMIT%6-"( UPPER LIMIT=}"6-&!)!) (WOOPS!& A N(.("DESIRED RESOLUTION (4=HIGH;10=LOW)2@6-%@N6-$>P =}@(((Π ADD LABELS & BORDERS@(Ԡ START OVER --(%Ԡ PLOT SURFACE TO 1020 PLOTTER6($(PRESS A=}NY KEY TO BEGIN...6AdAU F:Ad,"AUA@> " (4(# AUTO SCALING SEQUENCE IN ACTION!> A=}V6-A@'+&,'6-A@'+&,96-@C'+&,V6-O:$,%O:$$,%O:$$,9 +@$AAV+=}A /9 @`bb104,201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,215,104,133,214,104,104,168,104,133ji=}i217,104,133,216,104,104,240,236,133,212,24,165,214,101,88,133,214,165,89,101,215,133,215,152,240,15tff165,214,105,64,133=},214,165,215,105,1,133,215,136,208,241,132,221,160,0,132,220,177,216,160,0,170~XX16,1,136,132,213,138,41,96,208,4,169,64,1=}6,14,201,32,208,4,169,0,16,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,24=}4,2,133,219hh164,221,177,218,69,213,164,220,145,214,200,132,220,196,212,208,182,24,165,214,105,40,133,214,144,255230,=}215,230,221,169,8,197,221,208,159,96,207,96SHIFT TO DRAW COMMAND67B:,,.*D$@SWITCH TO PLOT COMMANDJ=}67B:,,.*MT$77PLOTTER SCALING AND DUMP STRING BUILDING SEQUENCE--67B:,%@,.=:P:@$'@,,=}67B:,%@,.,..67B:,%@,.=:P:6@$'@,,67B:,%@,.;$ PRINT THE DUMP$ .=}@.@@P: (@ (@I &&(@7@?@ABCD6-F:A,A}&@&A0+<6-AVE6-F:,Q6-Ad]6-B2y(Initializing...MATT*EDIT 14.0 6-A6A}6-A'6-36-@?6-@K6-@W6-@c6-@o6-@#{6-@76-A6-A}@6-@6-6-+$;,;,;,;,;@,+6.6K:67,. '67,. 667@,A}.(!-%A"! 20-%@T"! 0A F:,<` (} ((-A@AA @,A}(0 E(POKE 842,12:CONTK-]AB@`&F6 (} ((-@@@,(0 6(5P6(POKE 842,A}12:GOTO 90!-3AB@6&Z7+6-I:,&@;,&6.,6-76-P:',d4 (}@A-BA}7tA46.n+ A(!6-@+ A0x ( ΠՒ ( DISK MENU A}( Edit Text ( Load File ( Merge File( Save Text ( Print Text( Custom SetA}( Quit ( j 6-66-@ A&6-jAAA# A$PA$AA}(pA6A5p3-@6',2@`@0 3$(Try Again Please--@%-2AA}@@02A@@@# -20$_ A @(@(G)S"AU_6-@I"#6-&@H# )!A ,&(@  (}&6-6$@,(( OA}ut of range." A`, AJ 6- APT 6-^ AhU(4( ( ONLY=) A}8AB:,"G6-K(U Ar6-P:A:,,| *$@,( Out of range (- only).6 AP@ APA}(Bad input char(s)$$( #'s only, - valid. AP APAA@d!A=(A}}ԪԠ֠A(!!($+B:,,##(󠽠&%+B:, ,!@AR(A}!$( Are you G AA@d+A@( G) "@(6-A} $ "@x(6- $#( AP# Ap 6.6-1(< To Abort>1(Type text & A}press :4 6-F:,@"*( }Р4 A- 6-F:,-(- %--(-&> AP)A} "@'#'&'46.> A0A&A:2 6-&  A`!6-(6.2 A0D (>:A},6.7<, APN"AU(6-B:,$X7# @2)!A")"@- A`7 APb! (>:,6-A}%!67<,.>:,lA@v*(( Ϡǡ A`* A !& A@ AP 6-&A} 6- A0)( Š 6-# A)6-((Š to ??AA A0A@AA}EAFAG<(Ġ2(< AP(Š AP (Š text A}TO AP( AP (íԠĠ AP( AP(ˠҠ ((prA}ess only for )'6-@ A'!Au# 6-6- A# Ap 4C:6. A A}+ 6.D67,.=:,"67,.:+67,.- A(*( Working...-$ A6. ɯϠ 467B:,%,.A}=:F:A,,7'A A* 6.AD46-@ A0>(ˠ H(LIST/PRINT DIRRA}(LOAD/MERGE DIR\( ERASE FILE f( RENAME FILE p(LOK/UNLOK FILEz(FORMAT A DISK |(A} MAIN MENU ~(\ 6-66- A 6-\A A APA8pA9A9`A}AJ 6-6-,(۱ LIST ۲ PRINT DIR ?6 AJA A  B:," A J 6-6-,(۱A} LOAD ۲ MERGE DIR ?6 AJA A `# 6-6- A # A9 6-((Load Disk DIR into bufferA}.9B:,"A P)(< will be >) Ae (6. A $ 6-6. A $ A A}) 6-)(Merge into text buffer." A 6." A 4 6-6- A*6. Ԡ4 AA}  6-2( of Š ?"6-, A26-% 6.D67,.=:,%67,.:*.*G +),#(} foA}r this DIR)6-3 A96.G"A@67B:,%,.7B:,%,I( A&@*>@A}P:I(A) 6. A6-$()($- 6.6- A`#6.- A`.! AA}6-6!6-8;7<@,4 F167@<@,. ; AB 6.7,6.7<, 67,./6.7@,@67A}@,..O67@,.h67@<@,. n 67@<@,.|L( (V A0`(A} (j(Apt$  67<@,.$ Ap~.67@ <,.6.$ A`. Ap 6-%!A}' A@#6-$+&,% 67<%&,.#$ A(( (, "F:A,A6, AA}( A05  6.+67@<,.7@<,5 A` 6. A`A A(4( ;)>(A$- 6-&*6.Incomp. Load, full-$ 6. ERASE FILE 6-@ 6- A`A} (  Ae(A @ =@36.367B:,%,. = A  6.A}A0 6- A0## !#(> TOGGLE C-SETS(/( Ġ/(Π>& Scroll Up 1 Pg2!!(A}Ԡ>& Scroll Dn 1 Pg<9$(Ԡ>& Exit to EDIT Menu6@@9(F( Ԡ P( GoTo StartZA}( GoTo End d( GoTo LINE n( Delete Lnsx( Insert Lns( Empty BUFF( GoTo Main ( A}\ 6-66- A 6-\APA`AA0A0A"PA 6- AA}% 6- A% A0(6-$+&,%(7<%&,0A 6-&!Ap A 6- A}A0*( Go To 堣6-$ A@*6- A' B:, 6. Ơ' AD 6- A0.(A} line to Š46-> A@D6-:( line to Š$6-*6-4 AP:6-.($( LinesA} >  - . Ae"A,6. A6% "67$+&,%,.% A@!!67$+&,%,.7$A}+&,%%,J6-&&+&,TR6. >'67B:,%,.=:,767B:,%,.-H67B:,%,.=:,R A^<(} A}LINE(S) B:, 26. < Ah3(Insert Line # #6-- A@36-rH 6-&&(# of to A}insert ?8((MAX=) B A@H6-| Ae(A+( Working..-%%+6-$+&,%67<%&A},. -6L6-$+&,%!6-$+%&,%967<%&,.7<%&,H67<%&,.L U 6-%6.=:,:67B:A},%,. Lines before K67B:,%,.=:,U AA)AR6-%@"#!)6- (}A}Af B:, 6- A 6--6-$+&,% -(7<%&,6-% =AfA}AR!-7(LINE #  =6-7-@+(EDIT MODE 7AR 1-"(A}>:,>:@0,6-"6-& "(0- A@F:,AU#)- A:F:,"A@D*F:,@A}*  A`* A@N"F:,"@6-" A pX"F:,"@6-" A pb F:,"6- A plA}3"A%)+"@'*",) A`3 A@n@'Ap" F:,"AV" A@r" F:,"AVB}" A@vAWA@! 6-F:,6-F:,!AR/-@"(>:AV,)AR/-B (>B}:,0+"@1)"@0,*F:,!@88(>:,B A@4"+"@()"@),*F:,"*(>:,4 A@F:,"*B}AVA ! 6-F:,6-F:,!AR3"AV-@")(>:AW,3 A ;"*"AU6-B}@"%6-1@"; A p - (LINE # % 0AR1-0(>:,>:@0, 6-F:B}, @8A `"@"6- A p/ @"6-%%(>:AU,/ A ` 1(>:,>:@0B},  A@! 6-F:,6-F:,!AR 4-@,(READING PAGE 41* , A@B}4 -6-$+&%,%> -H+AB@+AB@RB:,"A!P\67B:,%,.7B:,%,B}f67<%&,. p 6-%!6-z "6-& A A" 6-%!6-& A B}A"@ 6-& 6- A 96.** Last line read >>/67B:,%,.=:,9 A&6.EmptB }y Ơנ *& A0!!( text from BUFF AeA# A+ 6.6-!6. B }+ A $ A6. Ġ 6- A`6- 6.$ A$.  B:,"A#pB }8 67B:,%,.7B:,%,B  6-%! A$@L 67$+&,%<$+&,%,.V A#P` j F:A,"A6B }A$0t A~ 6.ĭ A 7'6.Ơ쬠-6-7 A Ax 6B }. Š  6- A` A#@ B:,A% 6. Ơ A 6. 0@B}@2&6-@0 A0 (Šՠ  ( As Text File  (As PRINT Stmnts (As DATA StmntB}s  ( Main Menu  ( 6-66- A 6-  " A( L*(" blB}ank lines from buffer<( During SAVE F ApL6-2 A&A& A&P< <#(File # for PRINT statements<(B}(i.e. 6 for '? #6;')F (P # 6- A06-# A&`Z (Write DATA Statementsd 7(SB}tarting 堣 '6-B'g&1 A076-n =6-P:+B'g&,',-(Line 7 A@=6-x A 6-6. B}Š%6-@16-@; A`A6- - ,6-$+&,%"7<%&,4*, A(@ "A'  (B}6-% &A'@A'p ( ? (A'` (#; (>:@4, A' (B} DATA  6.7<%&, 6-?::@4, (  " BB}6.!167B:,%,. 堣>B67B:,%,.=:,,  2 A%6  B:,  A$@  6.B}@2J  6-@ A0T (ԠӒ ^ ( 40 Char Lines h (Newspaper ۲ Colr B}(Newspaper ۳ Col| ( Return to Main  ( 6-66- A 6- "AB} ^@(( for Printout46-@0> AD6.K0^67B:,%,. PG  6&(} text as it is B}printed:0 Ap66-  "6- A0  =6-@ $-(Left (max=)7 A@=6- !(!(VertB}ical line spacing: ""( Single (screen format) ( Double ( 6- A ! "6-@!6-@B} ! "6-@!6-@H  "6- A0 (* CHARACTER SET SELECT * ( USE ATARI SET 0(B} USE CUSTOM SET0( FROM FILE  ( 6- A6-& (Get  (And Press keyB} (< to abort>& ( A)("AUA100 5"@'%6.Ԡ+5 A:  A$ B}? AVD  6-6-&@N ,@P:,(A>:,OX !A2pb 6-@:K,B } A4`l -v 96-$+&,6.7%<%,$4/(@9 A2@ (+,A20 06-?: A5H  R (6-&A4@\ 6-B%}%+&,$!A4@f A5Pp  6-%!A2`z A2  6.=:,6-% $ 4-( !6B&}-$$ K( A5`6-B:,% A5@86-?::@',>:,>:,>:,U$ HB)}-%+"@,( +(A;(A>:,E A4H$ & 6- A5@#6-?: % A,)8"@'>6-H A @E 6.D67,.=:,(67@,.:;ATB7}E AOO104,240,10,201,2,240,7,170,104,104,202,208,251,96,104,133,213,104,133,212OO104,104,133,216,160B8},0,177,212,230,212,208,2,230,213,160,0,132,217,201,128LL144,4,41,127,198,217,170,133,218,224,96,176,11,169,64,224,32,144,B9}2,169LL224,24,101,218,133,214,169,0,133,215,162,3,6,214,38,215,202,208,249,24MM173,244,2,101,215,133,215,160,0,240,2,B:}208,187,162,0,177,214,230,214,208JJ2,230,215,69,217,149,228,232,224,8,208,239,162,0,22,228,42,232,224,8MM208,248,153,B;}220,0,200,192,8,208,238,162,0,181,220,201,155,208,4,169,151LL149,220,232,224,8,208,241,162,112,169,11,157,66,3,169,220,15B<}7,68,3,169DD0,157,69,3,169,0,157,73,3,169,8,157,72,3,32,86,228,198,216,208 166,96MM104,240,10,201,2,240,15,170,1B=}04,104,202,208,251,169,0,133,212,169,1,133QQ213,96,104,133,215,104,133,214,104,104,168,136,177,214,201,32,208,9,136,208B>};;247,177,214,201,32,240,1,200,132,212,169,0,133,213,96 D:RATEDIT.BAS iiiiiiiiiiiiiiB?}iiiiiiiii77,214,201,32,240,1,200,132,212,169,0,133,213,96 D:RATEDIT.BAS iiiiiiiiiiiiii@  pAADADDVALUTEMCNTENTBN   FA} &&;@ ,;@,;@ ,A' ENTER INSPECTION ADDRESS IN HEX+16.; AA6- 6-F:, A FB}(5/ HEX CONTENTS OF  ARE 7<@ ,2 5 2 @  A6--@B:,6.7FC}<,20A-7<,/9#6-$@%A:,- A2AA$3FA.%%6-$@%@:,&FD}@:A,%@8  BB$!!CONVERT DECIMAL TO HEX ****6-@  6-6-P:'@,6-&$@FE} ' @67<,.=:,' A  67<,.>:&@%@:A,, '6-&@' A @* BFF}$ D:INSPECT7<,.=:,' A  67<,.>:&@%@:A,, '6-&@' A @* BDXHSFPEK A6A`@@@ *** HEX DISK FILE JH}DUMP ***F +d&&;@,;@,;@,n6.0123456789ABCDEF 6.D1:""@@JI}K  ؠŠ ENTER DISK FILE NAME67@<@,.4A A  JJ}@@""@@P"2' Ӡ٠٠ϠԠ2 @,I> @JK}>:@,HEX DUMP OF FILE--> >:@,I @.FF @5BYTE# 0 1 2 3 4 5 6 7 8 9 A B C D EJL} F 6FF @5---------------------------------------------------- @AdAUr6-P:'AV, AJM}w6-&+$AV, A| @:  6.X$-@@$)@b A @ JN}g467,..(+!@1,*+ A#,467,.>:,l)6-%@ ) @  F:Ad,"AUApJO})@AR@ ++ #CONTINUE,RESTART, OR STOP (C,R,S) ?$)@$"@gAJP}"@A @A 9AR @+@6@976-F:A,A6JQ}- ERROR # 7 A3 @ " @3 @EOF#@@# A&6-P:JR}'@,&6-&+$@,== @7%@<%@,7%@<%@,$ D:HEXDUMP.BAS&6-P:Httu]& < ZTXTROZYCUZTXTCOZXCUZCURSOZZQZZCZRZCARREACURSOZDEZCZFZLZUSHFLOZ9Z3Z6INVFLPOKMSZ12NAMNT}EAG@@@@AR)(@@ ( AU AU @A&NU}@@H@WA@@2@dA@d@A(Q @2NV}繰%%ӠӠ͠ϠԠԠ%%Š̠ԠŠ!!THE INPUT ROUTINE ITSELF INW}SLINES 150 - 195""THE MAIN BODY OF THE PROGRAMSTARTS AT 1000$$INITIALIZATION BEGINS AT 32000  NX}B ))ӠӠŠ̠ԠŠ  K:6- 6.$ A"NY} !$$Au"Ae"  6-&""A`6.7<, Ae 6.>:,6NZ}-%'+"%) )!,6-&' Ae 67,.  Ae )"AF:,"*!6-& N[}$--ӠӠŠˠ٠ŠŠCALL THIS ROUTINE AFTEREVERY GRAPHICS STATEMENTN\}2 6-F:,!A' 6-&&2B7t$%%ӠӠŠΠ͠٠44AFTER INITIALIZATIN]}ON, CONTROL WILL RETURN HERE)) !}WELCOME TO THE SOLID GOLD BULLET)) !PROOF INPUT ROUTINE TEST PROGRAM.N^}" " LET'S START OFF SIMPLE..........FIRST JUST GET A TEXT STRING.....;@,I6-@6-@36.N_}ENTER YOUR NAME: ?6-@I AU"A 0 6. 0 THANKS FOR YOUR COOPERATION, %%........NOW GN`}ET A NUMBER....... W6-@)6.HOW OLD ARE YOU? : 56-@A6-@HM6-@WW AU"A5Na} 6-A:,22.............NOW BACK TO TEXT INPUT ........q6-@6-@C6.!DO YOU LIKE THE INPUT ROUTINE? :Nb} O6-@[6-@eg6-@q AU"AP$$$7@<@,4YAp)E ; 0I'LL BET YOU CNc}OULDN'T BREAK IT THOUGH. BYE, BYE.E Au.) )  YOU KNOW, , YOU'RE PRETTY0  SMART FOR  YEARS.3&}*Nd}*ӠӠŠΠΠ}" }&&;@,;@@,;@@,}"}+6-Ne}@e6-@% A+W AX0,1,4,32,64,96,128]""155,126,702,694,84,85,752,16 D:INPUT.BASNf}%6-@% A+W AX0,1,4,32,64,96,128]""155,126,702,694,84,85,752,16 D:INPUT.BASL>?ININ1OUTOUT1HOLDQCOLREGNUTITYPTYPTYPCOUNTRh}@ @&&Ri}** ANTIC ** SEP 84 ** PAGE 57 ** GRAPHICS CONVERTERBY CHARLES JACKSONANTIC MAGAZINE(h -@x@f6Rj}@,A8ALA Ah&`-@@d h 2RR;@,;@,;@,;@Rk},;@,;@,9@,<*'(} *** GRAPHICS CONVERTER ****(F9A@f'A@f9A Rl}AP((1) Micro IllustratorZ##( (Tech-Sketch, Koala, d( Chalkboard)(n((2) Micro PainRm}terx( (Datasoft)(((3) Moviemaker( (Reston)(((4) Fun with Art( (Epyx)(Rn}NUM = Number of types6-@6-@-(&(Type of source file (1-4) *-(!A( Ro} Filename (+6. +6. 467@<@,.D:467@<@,.+$(TyRp}pe of desired file (1-4) (+(!A@AC!(}NEEDLESS CONVERSION5-@A9 Rq}C @`@A@"6-@P,uA @'AA9AAu(7}Micro IlRr}lustrator files must be named 'PICTURE'61(-("Press 'Y' to name the output file.1@0Y@`J]6.PICTURERs}6-@/A@fAA@fSA A] A`TF!( Destination filename6( (No exRt}t.):C6-B:,F(^!!"@*!@A@h667@<@,.D:667@<%@,.r@ARu}|-#67%@<%@,..BKG- A 6-$% ( Please stand by . . ."("((Approximate converRv}sion( time:  minutes)##BRANCH TO CONVERSION ROUTINES+&+%@,,AA`AA Rw}A AA`ApAA@A Ap( Still working . . .%%+"@,)+"Rx}@,APDELETE TEMP. FILE''@@D:TEMP:/@3@D:TEMPRy}:@ AP((Micro Illustrator to Micro Painter= @@=@@Rz}5-@Av$)@1*@5 O*@@)*@@@<*@AO*@R{}AP&@@$0&&Micro Illustrator to Movie Maker: 6.6.D:TEMP AD 6.6. AR|} N''Micro Illustrator to Fun With ArtX 6.6.D:TEMP Ab 6.6. Al""Micro Painter to MR}}ovie Makerv= @@=@@!6-!A@f A?-R~}@@@$)@1*@?6-%@"A8DA 2-@@@$)@( R}2 APA-@@0**@. A*@A& B@#@&$((Micro R}Painter to Micro Illustrator= @@=@@5-@Av$)@R}1*@5 @@$""Movie Maker to Micro Painter = @@=@R}@9@@, 6-*-@@4>-@@@$)@1*@:6R}8,-> >/-@@@'*@8,+ / H5-@@$)@1*@5 R& BR}@#@&$\&&Movie Maker to Micro Illustratorf 6.6.D:TEMP App 6.6. A z!!MoR}vie Maker to Fun with Art 6.6.D:TEMP Ap 6.6. A##Fun With Art to Micro Painter= R}@@=@@)@)@1-@@$)@-68,R}-1 (-@AV$)@( -@Av)@!!!A@* A@A*R}@ +-@@'*@8,+ @@$''Fun with Art to Micro IllustratoR}r 6.6.D:TEMP A $ 6.6. A .!!Fun with Art to Movie Maker8 6.6.D:TEMP A BR} 6.6. A L##Micro Painter to Fun with ArtV= @@=@@`,R}-@Ab"(*@, j-@Avt6!A@* A@,*@6 A`~)@R}*@ )*@)*@1-@@$)@-68,-1 6@R}@6@@)*@AT)*@AT+-@@'*@8,R}+ @$ 254,254QQ1,2,3,4,112,112,112,78,0,80,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14SS1R}4,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14SS14,14,14,14,14,14,14,14,14,14,14,14,14,14,1R}4,14,14,14,14,14,14,14,14,14,14,14SS14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14 RR14R},14,14,14,14,14,14,78,0,96,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14SS14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,R}14,14,14,14,14,14,14,14,14,14,14SS14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14(SS14,1R}4,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,65,0,6,104,1702TT104,141,1,2,232,208,3,238,1,2,142,0,2,104,170,R}104,64,169,0,141,0,2,169,0,141,1<FF2,169,192,141,14,212,76,95,228,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0F#(#(} File: 7R}@:&A($+!A',,# A(*# A 0V} J6-%@168,-B:,%@J68,-8,%B:,&@%678,,.% A $ (BYV}PASS VARIABLE VALUES) -@ -@@ )@     $(SCAN TOKENIZED FILE)V}I)@6-#)@36-%AV$?"B'hI A@u,-@ , PROCESSING LINE ")@V}6-@"6-$)@6-%@$6-)@6-%@D")"@)-%@V}6)@: D A@L"@#-@@0)@>6-%@B L A@Ps"@V})@*6-%@6!<6-J-@W)@e6-%@i s A@PX!A'6-&AV}'+6-%@7688,,-@68,-O68,-X68,-   A@@   A@0 A@$ $ V}PROCESSING COMPLETE . . .$(SORT NAMES))6-6-)6-P:@D'$K:,,"6-%@"6-P:'@,V}=-@= SORTING: PASS  OF  PASSES6-@-@&6-%)78,<8,,278V},<8,,) AP`! 6-8,68,-8,!68,-! 6-8,68,-8,!68,-! 6-8,68,-8,!68,-6-V} " AP0!@ AP   SORT COMPLETED . . .$p(WRITE CROSS-REFERV}ENCES)u  WRITING FILE . . .z2 @@2A@a( @CROSS-REFERENCES FOR V}V @ VARIABLES, & REFERENCESa @-@' @' @78,<8,,<6-V}6-88,,'"2 @< A`@"@$P:'@,' @@ @ " @V}8,"6-%@" 6-8," A`P @ @  -@!$V}D2:CROSSREF.BAS" 6-8," A`P @ @  -@!$T@\] XASUTOTANPOLINU @0@@HAP@@"wf @@ Z} BCALCULATOR SIMULATOR;@,;@,##@@K:AR@Z} ' +'0@ AR@--(%--(%WALLACZ}E DUVALL'S | --(% ɠ | 0 --(% Ҡ | --Z}(% Ҡ --(% --(% Z} --(% Π Π Ǡ --(% --(% Z} --(% --(% Ӡ ؠ  --(% Z} ؠ !--(% "--(% #--(% Z} ؂ ؠ $--(% %--(% Z}&--(% ͠ ̠ '--(% С (--(% Z} )--(% *--(% 2#7\ @@Z}@&1@@O( S\6-A:,8I@@&'@@E( Z} I(9 6-< A"F"@@"(<G[!2%@@5-Z}@@9 [2P)@QAdAUU "A'(  @`ZZ}"AU [C"AX#&@'@3@9( C @`_ @de\ A@Z}@&1@@O( S\6-A:,nL@@&'@@E( Z}I(L$xL@@&'@@E( I(L$ A AdAZ}U F:Ad,AUA A A 6-%.@@!( $'. @p8 Z} A @%@+( .'8 @p A AdAU F:Ad,AUAp AZ}b A 6-&".@@!( $'. @p, A -AdAU. F:Ad,Z}AUA / A5 A6 6-$@.@@!( $'. @p^ A _AdZ}AU` F:Ad,AUAYa ARg Ah 6-'r.@@!( $'. @pZ}# 6-G:, A '# @p# 6-E:, A '# @p*6-+&, A  '* @p7 6-%Z}@@ /@@7(͠"Au' @p 7 6-&@@ /@@Z}7(͠"Au' @p&S@@&'@@F( I'S Z}@p?H6-!@@ 3@@;( >'H @pX# 6-8, A '# @pq# 6-M:,Z} A '# @p# 6-O:, A '# @p' A # 6-K:, A '# @p$ 6-+$, Z}A '$ @p:6-+'A,#6-+'A,- A0': @pg6-6--@@&?Z}@@P( 0 Z A]'g @p#-@@  "@@Z}( :@@%'@@:(WHICH FUNCTION\ A Q@@&1@@O( Z} S\6-A:,I@@&'@@E( I(  +$@Z},%A!>+ (}(MEMORY +%(________((+(?pp(h THIS FUNCTION STORES THE TOTAL AMOUNT CALCULATED (NOT NECEZ}SSARILY THEAMOUNT DISPLAYED) IN MEMORY.@l(i(^THE LETTER ͠ WILL APPEAR TO THE LEFTOF THE DISPLAY WINDOW WHEN THERE IS Z} A VALUE IN MEMORY.l(AB(B(7 USE FUNCTION M= TO DISPLAY AMOUNT IN MEMORY.B A)H+ (}(MEMORY -Z}%(________((+(Iff(] THIS FUNCTION SUBTRACTS THE TOTALCALCULATED AMOUNT (NOT NECESSARILY THEAMOUNT DISPLAYED)JoZ}( FROM MEMORY.(o(QTHE LETTER ͠ WILL APPEAR TO THE LEFTOF THE DISPLAY WINDOW WHEN THERE IS A VALUEKG( IN MEMORYZ}.(=("USE FUNCTION M= TO DISPLAY MEMORY.G A)R+ (}(MEMORY =%(________((+(Shh(` THIS FUNCTION DIZ}SPLAYS THE TOTAL OF THE AMOUNTS ADDED TO AND/OR SUB- TRACTED FROM MEMORY.TF(<(1NOTE: THIS FUNCTION DOES NOT CLEAR TZ}HE MEMORY.F A)\3 (}( MEMORY CLEAR-( ____________0(3(]JG(? THIS FUNCTION CLEARS THE MEMORY OF ALL VZ}ALUES (MEMORY=0).J(^jj(bTHIS FUNCTION DOES NOT CLEAR THE CURRENT WORKING VALUES, ONLY THE MEMORY WILL BE CLEAREZ}D_ A)f' (}(SIN(X)!(______$('(ghb(Z THIS FUNCTION CALCULATES AND DISPLAYS THE SIN VALUE OF Z}THE CURRENT WORKING TOTAL.e(h(h A)p' (}(COS(X)!(______$('(qhb(Z THIS FUNCTION CALCULATES ANDZ} DISPLAYS THE COS VALUE OF THE CURRENT WORKING TOTAL.e(h(r A)z! (}(+/-(___(!({@@(8 THIZ}S FUNCTION CHANGES THE SIGN OFTHE CURRENT TOTAL.|O((EXAMPLE:()(-5 BECOMES 5,(?(26 BECOMES -26B(E(O A)Z}- (}( ALL CLEAR'( _________*(-(SS(K THIS FUNCTION CLEARS THE WORKING TOTAL. IT DOES NOT CLEAR THE MEZ}MORY.a(T(IYOU MUST INPUT A NEW STARTING VALUE AFTER USING THE ALL CLEAR FUNCTION.W(a A)' (}(TAN(X)!Z}(______$('(hb(Z THIS FUNCTION CALCULATES AND DISPLAYS THE TAN VALUE OF THE CURRENT WORKING TOTAL.e(h( Z} A)1 (}( SQUARE ROOT+( ___________.(1(gg(_ THIS FUNCTION CALCULATES AND DISPLAYS THE SQUARE ROZ}OT OF THE CUR- RENT WORKING TOTAL.G(:(/THE OPPOSITE OF THIS FUNCTION IS X^2 (SQUARE).=(G A)7 (}(ABSOZ}LUTE VALUE1(______________4(7(TT(L THIS FUNCTION DISPLAYS THE POSITIVE DISTANCE FROM ZERO OF A VALUEK>Z}(6THIS FUNCTION WILL ALWAYS DISPLAY A POSITIVE NUMBER.A(K A)%' (}(LOG(X)!(______$('(hb(Z Z} THIS FUNCTION CALCULATES AND DISPLAYS THE LOG VALUE OF THE CURRENT WORKING TOTAL.e(h( A)- (}( SQUZ}ARE(X)'( _________*(-([[(S THIS FUNCTION MULTIPLIES THE VALUE BY ITSELF AND DISPLAYS THE RESULT.(Z} ( A)) (}(PERCENT#(_______&()(cc([ THIS FUNCTION ONLY WORKS PROPERLYWHEN USING IT IN CONJUNCTIZ}ON WITH MULTIPLICATION.((EXAMPLE:(-*("100 X 10 % = 10 CORRECT USAGE-(**("100 + 10 % =100.1 INCOZ}RRECT USAGE( ( A)' (}(EQUALS!(______$('(ll(d THIS FUNCTION DISPLAYS THE TOTAL OF ALL CALZ}CULATIONS THAT HAVE BEEN DONE. (EXCLUDING MEMORY)( ( A)# (}(PLUS(____ (#(EE(= THIS FZ}UNCTION ADDS FOLLOWING INPUT TO CURRENT TOTAL.( ( A)% (}(MINUS(_____"(%(KK(C THIS FZ}UNCTION SUBTRACTS FOLLOW- ING INPUT FROM CURRENT TOTAL.( ( A)+ (}(MULTIPLY%(________((+(PP(Z}H THIS FUNCTION MULTIPLIES CURRENT TOTAL BY VALUE OF FOLLOWING INPUT.( ( A)' (}(DIVIDE!(______Z}$('(PP(H THIS FUNCTION DIVIDES CURRENT TOTAL BY VALUE OF FOLLOWING INPUT.( ( A) .('(HIT TO START AGAIN+.%'.@@!( $#. @`'9,7,500,10000'9,11,525,10001'9,15,550Z},10002'9,19,575,10003'16,7,400,10004'16,11,420,10005'16,15,440,10006'16,19,1000,10007'23,7,600,Z}10008'23,11,625,10009'23,15,650,10010'23,19,675,10011'30,7,700,10012'30,11,725,10013'30,15,750,Z}10014'30,19,250,10015 '37,7,200,10016!'37,11,260,10017"'37,15,300,10018#'37,19,350,10019 D:CALCULZ}AT.OR1 "37,15,300,10018#'37,19,350,10019 D:CALCULXF CALCULATOR SIMULATOR *INSTRUCTIONS* The program will simulate apocket calculator. It will be easi^}estto use if you think of it as a reg-ular everyday calculator. to start-type run'D:CALCULAT.ORA screen resemblin^}g a pocket calcul-ator will appear and will be await-ing your input.(starting value towhich you will perform operations)S^}imply type your value and press. A small arrow will apearnext to the box in the upper leftcorner marked M+. Use ^}the [TAB] keyto move the arrow to the desiredoperation (+,-,%,etc...). When thearrow is next to the operation whichyou w^}ish to perform, press .Input your second value and press (See, it's just like aregular calculator!)After ^}entering your second value youmay tab over to the [EQUALS] box andhit which will display thetotal - or you may co^}ntinue toperform more consecutive operations. Now isn't that easy? It mightseem a little strange at first, butonce^} you get the hang of it, it works quite well. Try this example... 1.) Run the program. 2.) enter 10 as the st^}art value 3.) [TAB] over to +.HINT.. if you tab too far-SHIFT/TABWill make the arrow move backwards. 4.) enter 10^}. 5.) [TAB] over to EQUALS. 5.) press 6.) the number 20 will be displayed. Try some p_}roblems of your ownto get the hang of it. If you getstuck, [TAB] over to the HELP boxand press . Enter the numbe_}r of the item you need help with anda help screen will appear. ENJOY! W. Duvall numbe\x !CURSOAhA( #A-A6Ag"  "6-?:A6,+c},104,162,6,160,11,169,6,321 92,228,96,165,20,110,243,26110,243,2,106,106,106,106;!!46,243,2,46,243,2,76c},95,228D:CURSOR,11,169,6,321 92,228,96,165,20,110,243,26110,243,2,106,106,106,106;!!46,243,2,46,243,2,76`LMIROUTINRATCCOLOCURSOd"PMCURSOR.BAS"fBY JERRY Wg}HITEh33ANTIC MAGAZINE NOVEMBER '84 PAGE 68n A x#-A"#%2-@&g}@(% 2AR8-@@8(POKE 752,1 TURNS OUR CURSOR ON+(+( POKE 752,0 Tg}URNS ATARI CURSOR ON8(*(ENTER CURSOR FLASH RATE (1-64)4 A8!! @)!@dA%@Ug }>(&(ENTER CURSOR COLOR (O,255)0 A 4> B!! )!AUA %@t.(.(#Wg }ARNING: THIS ROUTINE USES PAGE SIX((AS P/M (PLAYER 2). 6-?:,",-AR@("(BASIC*(g }IS-6@C +AR@1@@C@@9JT^$$6-+F:A,&@3,$AVg }h'('(PLAYER CURSOR BY JERRY WHITEr.(.(!MACHINE LANGUAGE ROUTINE ADDRESS=|((%(STORING DATA AT LOCATION g }($##104,165,212,24,105,36,133,212!!165,213,105,0,133,213,162,7!!160,144,177,212,157,0,6,136$$202g},16,247,164,212,166,213,1697,76,92,228,173,240,2,240124,173,43,2,240,4,169,0240,6,173,8,6,24,105,8 141g},8,6,48,104,160,255,1690,153,0,6,136,192,8,208!!248,169,10,141,194,2,141,20 208,169,1,141,111,2,141,27 20g}8,169,0,141,10,208,169,0 141,7,212,169,2,141,29,208169,58,141,47,2,141,0,212&!!166,85,164,84,165,87,13,1470g}2,240,12,173,191,2,201,4:""208,35,152,24,105,20,168,138D 10,10,105,48,141,2,208,152N10,10,10,105,39,168,162,7Xg}189,0,6,153,0,6,136,202b 16,246,76,98,228,169,0,141l2,208,76,98,228v0,0,0,0,0,0,0,240DATA IN LINE 630 g}IS THEPLAYER CURSOR SHAPE.D:PMCURSOR.BAS141l2,208,76,98,228v0,0,0,0,0,0,0,240DATA IN LINE 630 d7  CABVxxx@@2@@@@##*****************************##*** k}FROM K-POWER MAGAZINE ***##*** APRIL 1984 PAGE 46 ***##***************************** (;A ,;A k},((>:A%,6-@gg6.]THIS IS A SHORT DEMO OF HOW EASY THIS SUBROUTINE IS TO USE. LIST THE PROGRAM AND LOk}OK AT ...( A0236-@)6.LINES 10-170 TO SEE3 A P66-@,6.HOW TO PRINT LINES. OR6 A k}n26-@(6.LINES 1000-2100 TO2 A 16-@'6.SEE THE ROUTINES.1 A ##*** LINE BREk}AK SUBROUTINE ***,B:,@86.6.) A ,$8#6-@8#-@@9L7<,4 6-&@k}`) 6.7@<,)6.7%@,~ A 6-%@ A0*** OUTPUT SUBROUTINE *** 6-B:,k}='@P:'@,/67@%,. =6-%@-@'@/-@ &/(7@<,7&%k}@,* 4$ D:OUTPUT.BAS,. =6-%@-@'@/-@ &/(7@<,7&%h*+,AQAFBRLYDSPPRQLIDNLo} o} * PROGRAM LISTER ** BY DANA NOONAN *$$* THIS PROGRAM WILL PRINTOUT *#$$* ANY LISTED BASIC Po }ROGRAM *%$$* IN A READABLE FORMAT *(SET-UP PROGRAM2]];A,;@,;@ ,;@,;@o!},;@,;@ ,;@0,<)6. )6.REM F-#@@K:- APP/o"}@6-F:AY,/AYZW A *@@J@@P:W@o#}d\F(@>:,7@,PAGE 7@,7@,Q(@\(@n\(@ | | = Inverso$}e7@, [ ] = Control7@,< > = Control Inverseg(@s6-@6-%@ A@xGET DATAo%} A @\ 6-B:,6-$6-06-\6-@e$+"@,%A $+"@,**CHo&}ECK REMS, QUOTES, AND LINE NUMBERS-@6-@:7<,,/"@4)!AY%6-@/ A -o'}-@@)@:7,,@2- *7%@<%@,0*6-@("(@(6-%@.o(} (@7@<, .6-%@-"* #(@7,- ACHECK ASC VALUE- 6--o)}6-@:7<,,-6-%@'q!+%@,5(@>:AU,7@,C6-%@q6-%@e$+"@,%Ao*} $+"@,,!!!@1* A%A`6!!!AY* ATA@!!!A'* AUA0J @o+}'A`T#^ "h  APmu+%,!+%@,9(@>:AU,7@,G6-%@u6-o,}%@e$+"@,%A $+"@,r%(@[]!6-%% |8827,8,ESCAPE,28,4,UP,29,6,DOWN,30,6,LEFT,3o-}1,7,RIGHT--125,7,CLEAR,126,10,BACK SPACE,127,5,TABJJ156,13,DELETE LINE,157,13,INSERT LINE,158,11,CLEAR TAB,159,9,SET o.}TAB**253,6,BELL,254,8,DELETE,255,8,INSERT INVERSE CONTROL CHARACTERS3"A(!(@<,>/6-%@o/}3 <6-&@d*(@<>:,>86-%@< CONTROL CHARACTERS3"!(@[,]/6-o0}%@3 <6-%@d*(@[>:,]86-%@< INVERSE NORMAL CHARACTERS3"AS!(@o1}<;>/6-%@3 46-&A(&(@|>:,46-%@ A@6-%@)6-%@7o2}6-@:7<,,G!+%@,i(@>:AU,7@,w6-%@6-%@e$+"@,%A $+"@,o3}B!AY* AS'6-&A(8(@>:,B A+(@|!6-%@+ A@ A0(@o4}|((@66-%@@ A&!!PRINT LINE AND GET NEXT ONE03"@!(@[.]/6-%@o5}3 :3"A#!(@[;]/6-%@3 D#(@>:, #(@N'6-%@ @`' Ao6}0X2#-@@&+&@`,.(@2 ba'(@7@,PAGE 2(@=(@K6-%@o7}W6-@a A0l ENDvd(@AY$+6-@@H( COPY COMPLETES@^@o8}ad TITLE( +((( ͠$( ( ( ENTER FILE NAME;$37@<@,0:o9}*7@<@,0:M67@<@,.D:\67@,.b6.s67@,. 67@ ,. 67@,.(o:}( DATE(( SOURSEJ(%( CONDENSED PRINT (Y or N))70Y*0N@(J A2 4Yo;}6-@#6-A /6-@2$2 4N6-@#6-@e/6-@2$ERROR TRAPPING F:A,"o<}A6A O A0@#@/AYO@@K: F:A,"ApAo=} F:A,"A8A9 (}-@@9(CANNOT PRINT THIS LISTING F-@@3(PRESS RETUo>}RN TO TRY AGAIN@)@CF%IF:A,"Ap(}0-@@I(NO FILE BY THAT NAME F-@@o?}3(PRESS RETURN TO TRY AGAIN@)@CF%*U (}-@@>(CHECK PRINTER AND PRESS RETURNK)@o@}U @4+(@>!6-&@+ AD:LISTER@>(CHECK PRINTER AND PRESS RETURNK)@lH12 MLDUMMYWORKHNEHOLTESTPMPAGPMBASDRIVsB} d,+"A @, AnV6-?:C:,&6-P:A6'+'@2,,&Aq2 @>6-@!sD}@56-@586-@%6-$@%@R+ 86-6@=AA+ @)!@=AsE}@pJ -B2H-B2I%@1 76-C-@J(w"-&@6@.-sF}@<(>:@,@ ^-%@@5@j-@s( w  A* INITIALIZATIONi1;@rsG},;@,;A(,;@2,]6-P:+F:AE,%@,'@,$@iBByoAY@F'B2wsH}@56-$AVI-@@rM"Y67,.>:,] oA;-%Ap%At"%) ;sI}B2H@$;-%A%A"%) ;B2I@2u-@@"'67,.>:,+ =ARsJ}@O-@@u(!̠=-@@=(#sK};-@@;(!275 280 285 290 295 300 305s Ap-@@K:?-@@\sL}(Which drive (1-4)? i)@s B:@6-&@H: @)!@Ap"uAi!sM}Ap@3ArEAsAUWAx@iAyu6-@$,W6-?:C:,,$F:AqsN},@6-@@M(W Ap6i-@@-( Testing Drive # ?-@@sO}_(Press START to change drivei A@* M/L ROUTINEJ]]104,104,141,5,3,104,141,4,3,104,133,204,104,133,203,216,16sP}9,0,133,212,133,213,32,83,228T__169,31,133,205,169,0,133,20,32,83,228,165,20,164,205,145,203,136,48,10,132,205,173,31,208sQ}^TT201,6,208,231,96,160,31,24,177,203,101,212,133,212,144,2,230,213,136,16,242,96h * SHELLr12,30,63,127,255| *sR} HEAD160,64,64,64,192,192,192* TEST ROUTINE104,76,83,228D:SNAIL SHELLr12,30,63,127,255| *pZ]qZZZZZZ1IOCFILERESPONSEDECHEXBLANKCIOSEGMENDECNUMBEFLAGFLAGKHEBYTECECNUMBEMLSTARMLENwT}SIZDECNUMEBLOCSUINITINITINILRUHRUGOADDERROwU} wV} !"#$%&'wW}""HEADER.BAS-DOS FILE ANALYZERK6-6-@'6-@36-@?6-@K6-@!6-@!wX}AR@00;,;,;A,;@2,;@1,% 6.D1:6-6-6-%6-6.123456789ABCDEwY}F$467@,. %67@2,. 467@,.. A%`8 ABCOMMAND ROUTINEL AV(-@wZ}( PRESS OPTION TO QUIT`)) !PRESS SELECT TO LOOK FOR RUN/INITj$$ PRESS START TO LOAD NEW FILEt2F:B2y,"@w[}*AdAU/2%~ F:B2y,"@A p F:B2y,"@A CTRL-R AUTO SCANS FOR INIw\}T F:Ad,"AhA p@w A@&AR!AdAU&DECIMAL-w]}TO-HEX CONVERTER6-A@ $ "6-6- -6-P:', 7%<%,  6-&$ 6-'w^}   ( "6-6-2$< SEGMENT AF FILE APCLEAR THE MESSAGE BOARDZ -w_}d n$x= >:A%,-= "HEADER.BAS - DOS 2.0 FILE ANALYZER0-@& ENTER NAME OF FILE0 A`w`} -** INPUT ERROR - TRY AGAIN>:AS,-A  Ap-@!@ 7@<@wa},-@!@67<,.7@<@, A 110DOS.SYS*0DUP.SYS*0MEM.SAVwb}A Ap -'' DO NOT USE DOS FILES>:AS,"-A , A 6""FETCH FIRST TWO Hwc}EADER BYTES@"@AJ67<,.T^ ))h)Apr Ap| -'' wd}THAT IS A BASIC FILE>:AS, A-@  FIRST BYTE =  6-6- A@ SECOND we}BYTE =  6-6- A@$ A""FETCH NEXT FOUR HEADER BYTES )) ))wf}6-@COMPUTE START AND END&6-%AV$06-%AV$:.6-P:&,%.!B) A&`wg}D-@!@N 7@<@,X-@!@b 7@<@,l-@!@v 7@wh}<@,-@ STARTING ADRESS =  6--@(@ A@ ENDING ADDRESS = wi} 6--@(@ A@ LENGTH OF FILE =  6--@(@ A@ Awj} !!MOVE POINTER TO SEGMENT END- 6-6--!B) A&`  A!@*;%@*+"A$)"wk}A&,16-; A!P4'!A%6-&A%' A!>6-?:C:,<,H 6-%6-&A!R A!wl}P\5 Ap-+ END OF FILE REACHED5 Af A!@))p-@ z-@ wm}1"AU*"AU# A*)1)!!"A$*"@A$!!"A&*"@A"COMPOUNwn}D LOAD FILE 6-6-< Ap-4 THIS IS A COMPOUND LOAD FILE<6-%:-@ : "THESE PARAMETERS ARwo}E FOR SEGMENT #%-@ -@  )) A0SIMPLE LOAD FILE ))wp}!!A')@A  )) -@$ -@.  INIT ADDRESS =8 6-B -@wq}(@L -@(@V ) A@AdAU) A'` 6-@ Aj  ))t /wr}"A%*"@%6-/ A$P~ /"A'*"@%6-@/ A$P A  )) ws}6-%AV$ -@ " RUN ADDRESS = "6- -@(@ ) A@AdAU) A'wt} A# %6-6-@% A ""MACHINE LANGUAGE BYTE READER ""DATA FROM DISK IS NOT SAVED. wu}EXECUTED ON FIRST RUN ONLY -@0 " 67<,.>:,  ( $2 104,162,48,169,7,157,66,3< 169,0,1wv}57,68,3,169,224,157F 69,3,104,157,73,3,104,157P 72,3,32,86,228,96Z CHECK FOR END OF FILEd  A&)n <ww} >:A%,"-@@2  FATAL ERROR< Ax F:A,"A6A!@ A&p TONE %%2wx}@P@@ -@@P  (%2($ D:HEADER.BAS %%2tn