@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} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 144ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uj|DSPLYTEMPBEGICALLCTITLEKBKEFNKEHIDIDSKSCALLEDRNUBUFFRCALLFCALLMDRCTYMENSECTVNUSIZLOCACAV}LLRAVSEMSGFILEPRNTSIZHSIZLVVTSTARADRHADRLW} X} !"n;@,xA@ Y}A B-B:,&@##%@:7%@<%@,, $6-@@@?6Z}-@6-@'"@36-@2?6-A`J++6-?:C:,:,[}67,.>:,/67%@,.7,$F:@, A($ B7tF:@,&A( @F:@,&A\}($V<-@@ *6-F:Ad,<AdAU`"F:B2y,6-j!6-F:B2y,@]}!$t"AU6-$~!A'6-&A(!@c6-&@d?"@*%!@-^}6-&+",?6-&+!,9"@*% '6-%+"@,96-%+ @,6-@$-_}@((6-?:C:,<<@+"@BH+@B0R+6-@@ B`+U 6.k}D :'67@<@,.=:,U67@<@,.7@ $+%,&@,+--6-?:C:,:@:7@<@,,%@,{67A<A,.7@<@,2 B Pa7 +@"y}AF:A,7AF:A,a--6-F:A`,%AV$F:Aa,%@a+%@@+%@@z}aE%@#@e.%@$F:A`,E%@%F:Aa,a0@a$e$6-P:'AV{},$6-&AV$e%%6-F:A4,%AV$F:A5,e%%6-F:A@,%AV$F:AA,e*6-P:+&,'AV,*6-&&|}AV$e3%@$%@3%@$%@e3%@$%@3%@$%@e3%@}}$%@3%@$%@e$Rq<<;@9,;@y,;A0,;@i,;@R,SqBB67@<@9~},.'hhhhhhhϠq̑`Tqjj67@<@y,.Oh 6hhhhhhhhh h R}  Ј Sխ`Uquu67@<@,.ZhhhЩԅդԱiբU) L)DȱЅȱЅͩeԅ̤̱  Hԩ.}hԑVquu67@<A,.Zݢ Ԩ) ?ϑNͤ΢̢d͢΄8ͨ}I0ԑWqMM67A<A0,.2ԥ)ϰΤϢ ԥԨ)Յԩ`Xq``67@<@i,.Ehh}e̤͑) ` e̤͑ͤ͑YqOO67@<@R,.4hhh˩&' ,`L} \`\qRR;A`,;A(,;A(,;A,;@,;A@,;@H,fq=67@,. %67A(,}. =67@,.7@,pq=67@,. %67A,. =67@,.7@,{qnn6.d}􀯲|qcc67A,.P02).4$)3+,! %,%8)44/ !}3)#%8)44/$/33%,%#4$2)6%./}qC#67A<A,.>:@4,C67A1<A1,.>:@4,~q=67A},.%67A@,.=67A,.7A,q6-@6-@ q$:ud6-?:A6<@,$ AD67}@<A`,.7Aa,d67Aa<A@,.7A,Du]%67AF<AU,. 1!B]67AA<A`},.NuWW67A<A@,.<Xu+ A}+@*@B@bu:#67AA<A`,.7A,:67Aa<A@,.lu"@ vu B}'u BQ B0 D:MENU.SAVEKBKEFNKEHIDIDSKSCALLEDRNUBUFFRCALLFCALLMDRCTYMENSECTVNUSIZLOCACA,) !"`3!3:@'},>:@d,00(@>:@',>:@f,>:@,00(@>:@',>:@Q,>:@,%%(@}>:@',>:@q,(@ %%(@>:@',>:@r,00(@>:@',>:@Q,>:@},00(@>:@',>:@f,>:@,&&@@D:*.* A@ A}@ A@  A@ A 6." 6., 6.1 6.6}""(@   @7 46-%@#@- Ap7 AJ86-%@@,(@} 86-@T A@^* B'g*F:A,"A8APh$(ERROR #F:A,$ A`r"@} A@|."@$(@ . A@-"@#(@ - A@,"@"(@} , A@+"@!(@ + A@*"@ (@ * A@)"@(@} ) A@$)( PRINTER IS OFF LINE!) A (} D:PRTLABEL.10X J (}G(9THIS Pe FABCDNX(@< K (}H(:THIS PROGRAM PRINTS DISK LAB}ELS ON A NEC 8023A-C PRINTER.K(RO(GTHE DISK'S DIRECTORY IS PRINTED ON STANDARD LABELS (3 in. by 1 in.).R(SS(KPR}INTING IS DONE IN CONDENSED PRINT MODE. THIS PROGRAM COULD BE MODIFIED(*'(TO WORK ON ANY SIMILAR PRINTER.*(2GG(?TH}IS PROGRAM HAS BEEN ADAPTED FROM A SIMILAR PROGRAM IN<# (* MICRO MEDIA MAGAZINE *#(F0-(%THIS PROGRAM IS IN TH}E PUBLIC DOMAIN.0(PMJ(BADAPTED BY FRANK BARAJAS FOR COMPUTER WIZARDS EVERYWHERE.M(Z11;@ ,;@ ,};@ ,;@,d$ PRESS RETURN WHEN READY.$n) (}&(LOAD PRINTER WITH LABELS)(x-*("TURN ON PRINTER AND }850 INTERFACE -(.+(#INSERT DISKETTE INTO DRIVE NUMBER 1.(F(PRESS RETURN TO STARTC(! (PRESS X AND RETURN TO }EXIT)F(4X(} AP##@@P: A-)( INSERT NEXT DISK AN PRES}S RETURN- 4X(}6-@(@BQ&&@@D:*.* A}@ A@ A@ A 6." 6., 6.6(@}  @7 46-%@#@- Ap7 AJ86-%@@,(@ 86-@T } A@^* B'g*F:A,"A8APh$(ERROR #F:A,$ A`r"@ A@|-"@}#(@ - A@,"@"(@ , A@+"@!(@ + A@*}"@ (@ * A@)"@(@ ) A@("@(@ ( A@$})( PRINTER IS OFF LINE!) A (} D:PRTLABEL.NEC< K (}H(:THIS PROGRAM PRINTS DISK LABI LNIMBFC@ } BBCONVERTED FOR ATARI AND COMPUTER WIZARDS BY MICHAEL L. EARLY 55REFE}RENCE: APPLE MAGAZINE "CIDER" JAN '84 P. 78OO9@b<@,;AU,;@,;@,;@,;@,}0,0,0,0,0(0,0,95,0,020,3,0,3,0<20,127,20,127,20F36,42,127,42,18P35,19,8,100,98Z54,73,86,32,8}0d0,0,3,0,0n0,28,34,65,0x0,65,34,28,034,20,127,20,348,8,62,8,80,0,64,48,00,8,8,8,0}0,0,64,0,032,16,8,4,262,81,73,69,620,66,127,64,098,81,73,73,7034,65,73,73,5424,20,18,12}7,1671,69,69,69,5762,73,73,73,481,97,17,9,754,73,73,73,546,73,73,73,62"0,0,54,0,0,0,0},64,52,068,20,34,65,0@20,20,20,20,20J0,65,34,20,8T2,1,81,9,6^62,65,93,85,30h126,9,9,9,126r}127,73,73,73,54|62,65,65,65,34127,65,65,65,62127,73,73,65,65127,9,9,1,162,65,73,73,122127,}8,8,8,12765,65,127,65,6548,64,64,64,63127,8,20,34,65127,64,64,64,64127,2,12,2,127127,4,8,}16,12762,65,65,65,62127,9,9,9,662,65,81,62,64127,9,25,41,7038,73,73,73,50&1,1,127,1,10}63,64,64,64,63:31,32,64,32,31D63,64,48,64,63N99,20,8,20,99X3,4,120,4,3b97,81,73,69,67l127,127,}65,65,65v2,4,8,16,3265,65,65,127,1274,2,1,2,4(>:A%, #@0B-@b+-}@/":68<,-> B  ( (#(HEIGHT OF LETTER (1-8)#(( @)!@)P:,A ( (}"(WIDTH OF LETTER (1-8)"(( @)!@)P:,A@$ ( (.,((NORMAL OR INVERSE LETTERS (N/I),}80N*0IApB ( (L( ENTER MESSAGEV3 (> 3B:,")B:,!AUA`(>:A%,}a##PRINT CONTROLS FOR GEMINI 10Xc##@@P:d9$(@>:@',>:@d,9INITIALIZE PRINTE}Re@$(@>:@',>:@H,@LINE FEED SET TO 1/8 INCHijF(@>:@',>:@w,>:P:+@&@ $,}'@,,jSET LEFT MARGIN TO CENTER LETTERSj+ 6. 6.*4I#6.*+6. t 6-B:,~-@}-@#-@(@# ;-@%-@3(@7 ; .-@(}@# .(@ ;6-@:7<,,&@2/ )!@b;6--@-@}6-8<,#-@(@# , -@6@,6-/@#6-@}/6-&+@#,-@ "(@"@(@   (.-@}(@# .(@2   < F-@P#-@(@# Z;-@%}-@3(@7 ; d.-@(@# .(@n x2(@>:@,2ADVANCE PAPE}R ONE PAGE}@<((PRINT A DIFFERENT MESSAGE (Y/N),<4YA` D:POSTER.SAV oSgSLSPPRXCLLI@ } ((( } A BANNER BANNER PROGRAM(%( BY ANDREW LIEB}ERMAN(( t<;A(,;A(,;A`,;A`,9@,H6-T6-@t@@K:}(-@A`$67<,. ( &(( LARGE MESSAGE&6-B:,#( SMALL MESSAGE#6-B:,(; @@}(HEIGHT; @)!@ @@*: @B(WIDTH: @)!@ @B-0#(POSITION PAPE}R--HIT ANY KEY0)@2cAY#-@/6-=6-@:7<,,I!A'W6-&A(c6-@}7;;6-&@2$+ @*!@1,%@d$+ @2,<R-@B68,-O:$AU&F:BsD%$@%,},F R6-AVF^6-'@.-@6@78, L67<%&@,.T6-%^ @KW68,-8},&-@56-%@&$+,E67<,.7<,S6-%@W PL -@ @637@<$@},: F6-@L6.U@@pZf AY@4((+(AGAIN?8)@D"@P6-}\6-@f @ \c`AY@4(>(!YOUR PRINTER IS NOT ON, TRY AGAINJ6-@V6-@` @E} D:BANNER.SAVRXCLLI@  Icy$$FROM GREKELCOM -- 405-722-5056 }mmDISK DRIVE TEST SPEED CHECK BASED ON A CONCEPT FROM THE MAY 82 COMPUTE & REVISED BY A.C.A.O.C.(qqRPM SPEEDS UN }DER 285 ARE TOO SLOW AND NEED ADJUSTMENT. SPEEDS 285- 290 ARE OK. LEAVE AS THEY ARE.2##SPEEDS OVER 290 ARE TOO F }AST.3ppTHIS TEST PROGRAM ASSUMES THAT 288 RPM IS PERFECT, ALTHOUGH THERE IS AN ACCEPTABLE RANGE THAT WORKS.4nnUNL }IKE MY FIRST DISKRPM PROGRAM DONATION, THIS ONE WORKS WITH THE NEW FAST FORMATTING DRIVE CHIPS.5ppLET THE DISK RUN U }NTIL YOU GET SEVERAL READINGS TO GIVE YOU AN IDEA WHAT YOUR DRIVE DOES WHEN ON.<$$REVISED & DONATED BY FRED WARD }d'@@'AR@n (}x9A 'A@9A@-@r }"A6% ( DISK SPEED READER!( (!( PUSH SYSTEM RESET'(( TO TERMINATE TEST!($(' }(##(TESTING WHICH DRIVE NUMBER;#@@K:0)@;@/6-&@H/ @) }!@A  ( (( RPM READING: A6-?:A6,!6-F:A,!6-F:A,"6- }+AV$%,'A6,6-P:A'%?P,6%%2@@P@@@-@AJ-@&@ }( T5 )2@,(/(2(5(r( SPEED IS |-@ @' A }( }TOO SLOW' Ap'!A( }TOO FAST' Ap&"A(PERFECT & Ap(O.K.  A }p104,169,1,141,10,3,169,0141,11,3,141,4,3,169,5141,5,3,173,74,6,141,13,169,82,141,2,3,169,5 }141,73,6,32,83,228,206,73 6,208,248,169,100,141,73,6169,0,133,19,133,20,32,83!!228,206,73,6,208,248,165,20! }!164,19,141,75,6,140,76,6,96D:RPMCHECK.SAV$$FROM GREKELCOM -- 405-722-5056 4KLD5KQQQQQQQ1Q1Q12Q17Q19Q25Q29OBJBDSAABCDEFGADTEM@@@@$}@ @@A( Ap Bv AV A  $}%%éԮîŮҠ$}%%٠󠨴qq󠠠训箠䠠$}䬠 6-6-@'6-@36-@?6-@K6-@ W6-@c6-@o$}6-A({6-Ap6-Bv6-AV6-A<+.(" ŠԭӠҠ <0@(D($}!(PLEASE PRESS Π.2;,;,;,;6.C:D6.S:P)@) A_(Ԡ$}d7 )( -@')-"36-7  "6-  "6-  "6- "@$}6- s(, ((3(ŠԠ6(P(# OF RECORDS: k6-P:+$A(,'A$,s($}K4 6-%$(*(START ADDRESS: 06-4 4 6-%$(*(INITIALIZE ADDR: 06-4 V($(END AD$}DRESS: %$.6-%$46-8 @6-&F6-N6-%V6-%((ϠԠӺK(START:6- $})(END :/6-3 A(INIT :G6-K % )E%  נ" 6-,< 6-6-P:',6-&$$$} 267<,.=:,< A@J67<,.>:&%@:A,,T 6-& A^( $7<,$D:CASSCHEK.SAV$}BCREGPOSVARAZSTPROGTOTVACUELNULASFINUNASENNVAAdBh(}F[ (} 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 (}l?-@@?(%ENTER PROGRAM NAME: (Dn:Filespec.Ext)v) } Ar @@ B$ @ Ap?CHECK FOR STRING OR ARRAY@") }B:,AT47<,4()7<,4$467B:,%@,.7<,$2STORE VARIABLES2 A2 B@267)}<%@,. 2=67<,.>:,/67%@<%@,.=:,=6-%@2$6CHECK REPEAT OF VARIABLE62B)}:, @@(67B:,%@,. 2 B@66-6B:,"B@6-@B:,@@66-%@)}6#47<%@9,'# BA7  736-%@6-%@367B:,%@,.7$:!!PRINT VARIABLS A)}ND 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 VARIABL)}ES DEFINED :@$:--@@-(ҠԠ;A-@@3(PRESS WHEN READY )}7A BPD:CROSSREF.SAVTOTVACUELNULASFINUNASENNVAAdBh(&78HEXDECNUMWBINBNYTRANSMAACNUBIBYTTO@-}  RR;@-},;@#,;@,;@,;@,;@,9@,128,64,32,16,8,4,2,1:-@@"$6-}8,-( :A@ >:A%,86.0123456789ABCDEF86.@ABCDEFGHI!!!!!!!JKLMNO(`('(PRESS OPTION F-}OR HEXADECIMALD( SELECT FOR DECIMAL`( START FOR BINARY*2( TRANSLATIONS&6-@26-A@2"-}F:B2y,"@" A<"F:B2y,"@" AF"F:B2y,"@" AP @Pd\(#(ENT-}ER HEXADECIMAL NUMBER6($0000 TO $FFFF:F6-R6-@\ AxJ-@B:,@6-$@%@:7@:7,,&-}@G,,&@dD J6-}(!AU6.........( Ap. -@6@.6-@#3P:',- }"@!67<,.1)6-&3 AP67<,.06-%@ )()( HEXADECIMALDECIMALBINARY(-!} ( ( @@T((ENTER DECIMAL NUMBER.( 0 TO 65535286->6-J6-A@T A!BU5-"} A @ A^-@@"6-P:',B67<,.7%@<%@,L6-&$Z6-'@-#}^ (!AU6.........( Ap. -@6@.6-@#3P:',"@!67<,.1)-$}6-&3 AP67<,.06-%@ )()(DECIMAL HEXADECIMALBINARY( " @@,-%}\((INPUT BINARY NUMBER7(00000000 TO 11111111:(N( 76543210 BITSR\ A1B:,@ A48--&}@@+A:7<,,!@.'8 A6 @/-@@$7<,41/6-%8,E   6-J^-@-'}@"6-P:',B67<,.7%@<%@,L6-&$Z6-'@^ T)()(BINARY HEXADECIMALDECIMAL-(}^(  @@ D:NUMCONV.SAVNUBIBYTTO@,2\ABCDNXCHRE@ Q (}N(@THIS P1*}ROGRAM PRINTS THE DISK DIRECTORY ON A GEMINI 10X PRINTER.Q(F0-(%THIS PROGRAM IS IN THE PUBLIC DOMAIN.0(PLI(AADAPTED 1+}BY MICHAEL EARLY FOR COMPUTER WIZARDS EVERYWHERE.L(Z<<;@ ,;@ ,;@ ,;@ ,;@,_1,};@P,d&" PRESS Π WHEN READY.&n (} (x-*("TURN ON PRINTER AND 850 INTERFACE -(.+(#INSERT DISK1-}ETTE INTO DRIVE NUMBER 1.(H(PRESS Π TO STARTE(! (PRESS X AND Π TO EXIT)H(4X(}1.} AP##@@P: AR*("INSERT NEXT DISK AN PRESS ΠN((PRESS X AND 1/}Π TO EXIT)R 4X(}6-@6%(TYPE IN DISK TITLE-MAXIMUM 402(CHACTERS600(@>:@'10},>:@x,>:@,00(@>:@',>:@,>:@,$$(@>:@',>:@q,%%(@11}>:@',>:@q,(@ %%(@>:@',>:@r,%%(@>:@',>:@r,00(12}@>:@',>:@,>:,&&@@D:*.* A@ A@13} A@  A@ A 6." 6., 6.1 6.6""(@14}   @7 46-%@#@- Ap7 AJ86-%@@ ,(@ 86-15}@T A@^* B'g*F:A,"A8APh$(ERROR #F:A,$ A`r"@ A@|16}."@$(@ . A@-"@#(@ - A@,"@"(@ , 17}A@+"@!(@ + A@*"@ (@ * A@)"@(@ )18} A@$)( PRINTER IS OFF LINE!) A (} D:PRTDSKDR.SAV@ Q (}N(@THIS P0ZUPITCHDISTVOL@@@ &&9@,9@,5:}9@,H-@@&68,-568,-@D68,-@H - +@-(@ SOUND-MIXER5;} (.$(@ . A<6-@ Ab6-+-@@ @7-@5<}M(@SOUND [6-%@_ b$:T:,"" A06-%@: AUJR:,"@5=},68,-8,%@;8,!AUJ68,-JR:,"@,68,-8,&@;8, J68,-AU5>}bR:,"@,68,-8,%@@-@@0D S8,!@b68,-bR:,"@5?},68,-8,%@@-@@0D S8,!@b68,-!@6-@$,-@%%@5@},(@.D-@%%@D(@,8,,8,,8, 8(2&@8,8,8,( A5A}D:SOUNDMIX.SAVOL@@@ &&9@,9@,4"BYTETOTALNAMELINEANFILENAMEASSIGNN7NNNNNNNNNNN1N1N1N1N1N1N1N1N1N2N3CN6N25N76N59C}327N2CHLBITNUDNAMEDDDCHARACTEXZZ1ZZ1APMBASICHABISYQESSSMN2N2N25TEM@@9D} 9E} !9F}"#$%&'()*+,-./09G}1234@56789:;<=>?@9H}ABCDEFGH&&CHARACTER DESIGNER TO CREATE NEW11CHARACTER SETS A9I}ND SAVE THEM TO DISK TO USE&&IN YOUR OWN PROGRAMS AND TO LOOK44AT YOUR CHARACTERS AS PLAYER-MISSILE GRAPHICS.00MI9J}CHAEL BELOFSKY 3-29-82 COMPLETED 7-12-826-6-@'6-@36-@7+CAOAR[6-9K}@g6-@s6-@6-@6-@6-@ 6-@6-@6-@6-@6-@9L}6-@'6-@36-@?6-@K6-@"W6-@2]6-i6-@du6-AU6-Ad6-B9M}2y6-@(6-@u6-AV 9<,9, =K:=;,;A%,;,;,;@5,;,9N} BAV'%6-AU%(- --)(| | | | | | | | |- - --9O})(- ((. -( ASCII VALUE-.(IS  #* --9P}-"(>:,& * ( --(0 2/ --68<,-'68,-+ / 4 6-6--(79Q}MAIN PROGRAM8 -( 98<,"-(<' 6-T:,@w' R:,%@`A 6-%6-% B 69R}-%6-& C 6-% E 6-&6-% F 6-&6-& G 6-& I 6-% J 6-&K 9S} 6-L !6-M  6-N !6-Q -(UF:,@3A0Z 6-%_"A%9T}6-d "6-i, ---$(>:,( , n  6-+%,$s*@6-+&,$x9U}!@6-$}Q6--)68,-F:%%,16-%7-C(8, M BQ "F:,"A AE9V}" F:," B" F:,"6-6-" AE F:," A@ F:," AP F:," B9W}F:,"@5 AuF:,"@b A F:," B 6- B " A  9X} @U8<,"A 68<,-6- A 68<,-6-6@ "6-A( "6-9Y} "6- "6- "6- "6- "6- "6-68,-8,%+$, -(8,9Z}  T:,"A ` 6- B$$8<,"-($ A@ -( F:,"A@F9[}:,"A@0 F:," AP A@F:,"A@0$, ---$(>:,( , E 9\}--(0 $68,-*6-4 B> BB E$ --/8<,"-( %68<,-/ 9]}AP -(68<,-; 68,-&8,-'(8, -6-7 B;  6-6-$pII104,104,19^}33,205,104,133,204,169,0,133,206,169,224,133,207,162,0,160zBB0,177,206,145,204,192,255,240,4,200,76,19,6,224,4,240,10,2329_}&&160,0,230,205,230,207,76,19,6,96L5 -.(ENTER CHARACTER TO CHANGE5)Q (>:, A A(# 9`}2#, A-((ENTER FILE NAME,4#6. 7#67<,.D:<#67#67@<@,.D:A#*-@!&( IS THIS RIGHT*F# 4N A$G# APK#9b}Z#_# -"d#-B:,6-@:7<,,i#"@6-@Dn# *s# *AU x#300009c} REM}#,,30005 DIM ZZ1$(1)[ZZ1(2500)[DNAME$(14)#30010 S=ADR(ZZ1$):S=S+1###30015 S1=INT(S/256):S2=S:S3=S#$$30020 S9d}=S3+(256-(S2-(S1*256)))#BB30025 IF ((S/256)/4)<>INT(((S/256)/4)) THEN S=S+256:G. 30025#30040 O.#4[4[0[DNAME$#::3009e}45 F.XX=0 TO 1023:GET#4[A:POKES+XX[A:N.XX:CLOSE#4#30050 POKE 756[S/256:RET.# A@#,-A#69f}-F:%,#*' ,# A$#67<,. 30027 DNAME$=#67:A%,0@-0E}@X( ** MENUPLUS **DISK TITLE HERE](`$2" --(>:%, "$<@+0-<(!INSEE}RT PROGRAM DISK, PRESS RETURN@FH@!@@9-6.D:*.*8B @@H6-PS A0E}B:, %'6-&I( 7<, FREE SECTORSS A0ZB6.7<,67,.7,267$%<$%,.7<,8 B(E} d5 > &'P:',+(5 A n;F:@,"@(-( NEXT PAGE 1; @@x 6-E}% @@( 6.6-U,($R - RUN K - LOCK (*) D - DELETEU($L - LOAD U -E} UNLOCK N - RENAMEa*("E - ENTER P - PRINTOUT Q - QUITM( Press RETURN to RUN againP(a6-F:@,&L E}A( COMMAND? *K:1)6>(>:,L"@pgg@*@u*@h*@v*@*E}@x*@i*@*@A"@-"@6-#P:- @pT @PE} A+(FILE NUMBER =>/86-A:,B A T )!AG6.7$%<$%,&67B:,%,..G67B:,%,.7$E}%@<$%,7<,4 6.7<,, 6.D:-B:,,7<,4 A`67B:,%,.7<,& "@E}#4 D:DOS.SYS&."@%"@v""@iAP,="@h6-@3)6.DELETE ,E}(=(? (Y/N)69"@h A@%@/ @P9 A@@"@u6-@5J"@6-@6E}T\"@x6-@2(,(NEW NAME0@67B:,%,.,N67B:,%,.\6.RENAME ^$ A`$ E}@ph F:A,AgA r] @P;(>:AS,FILE IS LOCKED; DO YOU WANT TOS(IT ANYWAY? (Y/N)] E}A@|#@ @P# A@6 A "@3,@66 API@6#E},67,.?@5I @p2((>:AS, * INVALID COMMAND *2 A0; @P;(>:AS,* E}ERROR IN PROCESSING  *)-A  @P) A@ K:) $Z @P(.( E} ...JUST PRESS RETURNQ(ENTER >:@4,>:@4,W-ZD:MENUPLUS.SAVDY/F !!***************************!!* I}*!!* BOOT MENUPLUS *!!* CREATES AUTORUN.SYS *!!* FROM BASIC *!!* I} *!!* BY PAUL MARENTETTE *!!* *!!*************************** . +I};@,.6. D:AUTORUN.SYSd-@@*(BOOTMENU UTILITY<-@@d(#NOTE: MAKE SURE THE DISK II}N DRIVE 1(9'(IS THE ONE ON WHICH YOU WANT AN9( AUTORUN FILE.2*( (*(DOS 1 OR DOS 2 FORMAT (1/2)<B @PI} B$6-P:,B @)!@@PF "@ 6. D:AUTO.SYSPf +-@@P( Writing I}DOS  format 7@, filef(to boot MENUPLUS.Z* Ap*@@dT"@"*@I}A25*@@ ? A TDOS 1 HEADER BYTESn>*@AU)*@AU>DOS 2 HEADER BYTESxI}""6@A@*@ A @ B%(%(BOOT FILE HAS BEEN CREATEDSI}@(/(*** ERROR ENCOUNTERED ***P(RUN PROGRAM AGAIN WHEN READYS&0,6,75,6169,18,141,33,3,1696,141I},34,3,169,15141,128,6,76,105,243251,243,51,246,33,6163,246,51,246,60,24676,228,243,0,172,1286,2I}40,9,185,60,6206,128,6,160,1,96140,33,3,169,228,14134,3,169,155,160,1"96,34,83,85,76,80,85,78,69,I}77,58,68634,78,85,82,252,1@254,1,255,5,-1D:BOOTMENU.SAV*******************!!* HJyzZANAMESSTRTLENGFILELINEFILEBUFINDEINFILOUTFILININBUFLENAMEOUTOUTINAPPNTMPCIOXISTAINDOUM}LOCKRETR@@ M} @@COPYRIGHT M}1981 - HOUSTON ATARI COMPUTER ENTHUSIASTSd%%DISK DUPLICATE PROGRAM 12/22/80nDUPLICATES D1 TO D19;@M},6.h V`9PLA/LDX #$10/JSR CIO/RTS;@,+FF(>This program will duplicate all programs otM}her than DOS.XR(JIt can be used under DOS 2.0S to copy DOS I disks to DOS 2.0S format disksU(X(,,($Have you formattM}ed and written a DOS!(file on the new disk! 0YL(Enter source diskV&&@@M}D:*.*`ee;@($@,;@(,9@(,9@(,;@0,;@,;@,;B@,ab-@M}A^67B:,%@,.2 b e6-B@j6-t AM}~@(..7@<@,4 DOS SYSAP..7@<@,4 DUP SYSAP..7M}@<@,4 MEM SAVAP>+7@<@,4BAD AP>IGNORE BAD FILES6-%@7767M}$@&@<$@,.7@<@,67,.7@<@, APSTART UP COPY6-&@M}@$-@ 68,-$ 6-@6-@6-77SET UP BUFFER FOR COPY FROMM} SOURCE TO DESTINATION6-@x!!A !NO MORE FILES&&6.7$@&@<$@,;;(INPUT: M}7@<@, 7@ <@, BFIX FILE NAME @@;8,!M}@-6-@;6-&@ 68,-68,-COPY FILE TO MEMORY6-) B)READ M}CHARACTERS INTO BUF$"A6A#!%@ ( READ ERROR#&@A; @6-%@M}1( ERROR - ; A/,($ERROR AFTER 5 RETRIES, COPY ABORTED./&@END-OF-FILEE (8,T@^M}6-%@h!!%@&A%Ar< A <BUFFER DOES NOT HAVE ROOM FOR ANOTHER SECTORBUFFER FULLM}(8,*@@%%COPY BUFFER TO DESTINATION DISK6-@&"@A0&BM}UFFER EMPTY#(Enter destination disk#&&6.7$@&@<$@,::(OUTPUT: 7@<@, M}7@ <@, BFIX FILE NAMEA! OPEN FILE FIRST TIME @@M}  A"4RE-OPEN FILE(APPEND)> @@ COPY FILES6- B WRITEM} OUT FILE@6-%@  A 0 CHECK IF FINISHED !A@ (Enter source diskM} A!!FINISHED, NOW PROTECT FILES4-@&7<,4*A@ * 4 AP/"@+(EnterM} destination disk/-@7<,4 AA&&6.7$@&@<$@,(LOCK:  M}BFIX FILE NAME((@5@  DONE(Copy complete.&'FIX FILE NAM}ME' 6.$' 6.D:.'-@@8'7<,4 BB'67B:,%@,.7<,L' t'67B:,%@M},..~'((67B:,%@,.7@ <@,'$*READ INTO BUF$+'AP@'READ CHARACTERS +6-C:7,,M}+;$AR&AV$P:'AV,;ASP:'AV, +6-%@&%+S6-A%$P:'A%,SDON'T READ A PARM}TIAL SECTOR AT THE END OF THE BUFFER*+;$AV&AV$P:'AV,;AWP:'AV,4+6-?:C:,,>+%%6-F:AVM},%AV$F:AW,C++6-F:AQ,(!@*A6+$H+68,-8,%R+ 6-%f+$.WRITE FROM BUF$.(M}AP@(WRITE CHARACTERS.6-C:7,,.;$AR&AV$P:'AV,;ASP:'AV,/ 6-8,/;M}$AV&AV$P:'AV,;AWP:'AV,/6-?:C:,,&/.F:AQ,!@+( WRITE ERROR:.&0/6-M}%8,:/$D:DUPFILES.SAVLELINEFILEBUFINDEINFILOUTFILININBUFLENAMEOUTOUTINAPPNTMPCIOXISTAINDOUL"NAHEXHEXCHRADDI &&;@d,;@,;@Q},-A6A("2 < Al (} (7(&*****THIS IS AN AUTORUN.SYS WRITER****:(l(- AT THE Q} PROMPT PLEASE ENTER YOUR COMMANDFE( (E(7THIS COULD BE 'Ģĺ͢'**OR** '΢ĺ͢'PI( (I(;YOU HAVE Q}ALSO LOADED FRIENDLY KEYBOARD FROM DEC/81 COMPUTEd Enter commandsnx 6-B:,6-@w%$ 6.6XX$6Q}.0123456789ABCDEF6-P:'@,67@<@,.7<,6-P:&$@,67@<@,.7<,Q}AG-AA%@:7<,,6-&@   Autorun built  enter  Q}Select Binary save,f, and reply AUTORUN.SYS,600,,,600/(f(2If you want to add to existing autorun then reply 6Q}$$(AUTORUN.SYS/A,600,,,600@G( (G(9AT THE PRESENT TIME THIS PROGRAM LOCKS UP ON ͠169,18,141,33,3Q},169,6,14134,3,169,10,141,128,6,76!!105,243,251,243,51,246,33,6""163,246,51,246,60,246,76,228243,0,172,12Q}8,6,240,9,18560,6,206,128,6,160,1,96140,33,3,169,228,141,34,3169,155,160,1,96,84,83,6984,58,68,34,78,Q}85,82,00,0,0,0,0,0,0,0D:MAKEAUTO.SAV &&;@d,;@,;@P3  D$AAOS@99PUT AND GET PROGRAM EXAMPLE (FROM ATARV}I DOS MANUAL) BY FRANK BRANDLE #3 + TRAP/STATUS DEMO&&9@P,;@,;@,8 +5(V}#PUT AND GET TO DISK PROGRAM EXAMPLE8((/(( Is this to be a read or a write?,/(24READA`<0WRITEV} ? @@FWRITE ROUTINEP9 A9@@D:EXAMPLE1.DATZ($(Enter a number less then 25V}6(d*@n$"@$ A0x @2 +(+(Read data in file now?/2( V}4NO0YESA0READ OUT ROUTINE9 A9@@D:EXAMPLE1.DAT-@V}@P)@68,-" A0 BYTE # = @G BV}@0A8*A99 HELP=(G A0++(#The disk drive door must be closed!73(* Type Y if you closeV}d the disk drive door.7@ @@D:DISKWRIT.SAV99PUT AND GET PROGRAM EXAMPLE (FROM ATARTJABW l UNIACTIOBUFLBUFHSECLSECHREEDSEPUUTSEBUFFERZSELSEZ } d nxc6-AiZ }6-Ap'6-Ar36-As?6-AxK6-AyW6-@c6-@囖'@Z }@8'@@;A(,;@,+ 6. 67A(,. +67@,./!-A6%A(%@Z }%"+/ 104,32,83,228,96M$(} ˠŠM($ Written by Z}Ric Mears 4/10/19816(NOT FOR SALE6( PUBLIC DOMAIN SOFTWARENN(F Remove line 450 if examining a Z} Non-Atari-DOS diskette.",S%(SECTOR or for next E(Directory in 36Z}1..368 O A@S6@Ϡ󠦠JT@^$$C:,&P:C:,'AV,$AVhZ}P:C:,'AV,r&P:'AV,$AV|P:'AV, 6-?:A6%A(,Z};F:Aq,@1(}; A!!!A`* AiAZ}(}SECTOR 6-..(% ,-@A(%(7 g6-@:7A',,%+@:7A&,,&P:@:7A&,,'@Z},$@,$AVk(: ADNXbW(}٠ Sector /(  StarZ}tW(#Status # Filename Secs Secl,,($ v-@@6-+&@Z},$@8 7%@<%@,3.( 8 A8 7%@<%@,3.(Active 8 AZ}( 6-@:7%@,,<6-&P:'@d,$@d*@22(* < A ( A%6-+&AaZ},$@%&@.( : @A( 88(7%@<%@,.7%@<%@,B-@(%@Z}B(@:7%@,,%AV$@:7%@,,B-@4%@B(@:7%@,,%AV$@:7%@,,(  (Z}(6-%@ A D:EXAMINE.SAVPUUTSEBUFFERZSELSEX3`a 7 M DSKINVBUFDCDCOMNHSECTODUMMDSTATDBYPATPATPAT1PAT2ISECTOANSBUFHBUFLDVSTAOLDCM^} ^}@@COPYRIGHT 1981 - HOUSTON ATARI COMPUTER ENTHUSIASTSK +K(9This program wi^ }ll test your disks and/or disk drives. -;@,)(INSERT DISK TO TEST-d/;@,6.h S`/PLA,JSR^!} E453,RTSn3;A(,$-@A(/67,. 3 s;A(,;A(,x6-@$@$@!^"}%@@!DRIVE 1*6-P:C:,'AV,*6-C:,&$AV%@%@776-@$@^#}$@%@$@%@ BMAKE DISK HANDLER CALL INPUT: SECTOR OUTPUT:DSTATS=ST^$}ATUS`6-P:'AV,j%@&$AVt%@~6-?:C:,,6-F:%@,$CHECK STAT^%}US6-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.',,(STATU^(}S= BAD SECTORS='@3'!"A(!( ***OR MORE***5'! A !"B8'-@@='^)}''6-@:7,,%AV$@:7%@,,B'!BU5!( BAD SECTOR=L' *''WRITE 10101010,01010101 ALTERNATE+6-A^*}p6-@ + B.''WRITE 01010101,10101010 ALTERNATE.6-@6-Ap. B:( TEST COM^+}PLETE: N( PATTERN 1= 2=*N-@A(4N67,.>:,67,.>:,>N HN%@@MN ^,}6.ON!!(STARTING FIRST WRITE PASSRN-@A@WN-%@\N AfN;@1(SECTO^-}R= WRITE STATUS=; A pN zN 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= RE^0}AD STATUS=: A D B`O+ 0+(SECTOR=, UNEXPECTED DATA$O )O-%@%@.O A8O^1}D@0(SECTOR= READ STATUS=: A D BBO+ 0+(SECTOR=, UNEXPECTED DATAGO LO VO^2}$D:DISKTEST.SAVDCDCOMNHSECTODUMMDSTATDBYPATPATPAT1PAT2ISECTOANSBUFHBUFLDVSTAOLDCM\*+zANREADADBTOOTOSTARFLELASSECTOb4} d +n;@,x(!!(PLACE BOOT TAPE IN PLAYER(REWIND TAPE - b5}(DEPRESS PLAY BUTTON(PRESS RETURN KEY(##@@C:)@)@b6})@)@@(SYSTEM PARAMETERS:(%%6-F:AD,%AV$F:AE,(BASIC MEb7}MTOP = %%6-F:AA,%AV$F:AB,( OS MEMTOP = ( FREE RAM = &"(,6-%AV$6(Yb8}OUR BOOT TAPE NORMALLY@(LOADS STARTING AT J"6-AVT( CONTAINS  RECORDS^6-A($b9}h(r(|6-%A 6-% A(WORK AREA REQUIRED(( TO ((INSUFFIb:}CIENT FREE RAM( (SORRY&-A6Ai"  104,162,16,169,7,157,66,3104b;},157,69,3,104,157,68,3&104,157,73,3,104,157,72,30""32,86,228,16,4,169,1,133,212:96D(REWIND THE TAPE AGAINb<}N(DEPRESS PLAY BUTTONX( PRESS RETURNb(l##@@A(C:v6-?:A6<<,@b=}@A(TAPE READ ERROR&(PUT A FORMATTED DISK IN(DRIVE #1 - PRESS RETURN(b>}Ai@Ap@Ay-A6A@"   104,32,83,b?}228 96*-@4$$Ar&AV$P:'AV,>AsP:'AV,HAxR6-?:A6,\b@}6-%A(f p(z (DONED:BOOTTAPE.SAV`E|nNNUHEXOPINIOPOPCODESOPCODEIOPRNDJFILESTARLASHEX4RSTARRLASADDBYTLINEANSPRNLSMSSECOFBYfB}TEBYTEHEX4BFILE2 @ fC} fD} ;@,(Dump to printer(#6-4Y#6-@d<<;@,;@fE},;@ ,;@,;@3,n (Enter file name to dumpx 6.D:67@,. @@fF}!"@3Dump of !3""SKIP OVER FILE HEADER(84,09))@)@GET START,END AfG}DDRESSES A 6- A 6-PRINT ADDRESS RANGES 6- A(from  6- fH}A( to ASK FOR RANGE TO DUMP(Enter starting address" 6-,"B:, A"fI}6-6!(Enter ending address!@ 6-J"B:, A"6-O)@)@T -^ fJ} AGET NEXT BYTEh++6.! r!)!A|* 6- A*67@<@fK},.* 6- A*67@<@ ,.$ A $67@<@,. APGET OPERAND+ @fL}!67@),.=:,+ A@3 A)67@(<@),.=:,3 A@67@'<@),.=:,67@3,.fM}>:,"("@3 @HEX CONVERTERINPUT: NUMOUTPUT: HEX$6fN}-P:'@,) @)67@,.>:@H%,)@)67@,.>:@U%,$6-&$@.) @fO})67@,.>:@H%,8)@)67@,.>:@U%,B$LHEX CONVERTERVINPUT: HEX$`OUTPUfP}T: NUMj.7@,2A.6-@:7@,,&@Ht.7@,1A.6-@:7@,,&@U~6-$@07@fQ},2A06-%@:7@,,&@H07@,1A06-%@:7@,,&@U$""GET 2 BYTE ADDRESS FROM DISfR}KOUTPUT: NUM)@)@6-%$AV$CONVERT TO HEX ADDRESSINPUT: NUM(OUTfS}PUT: HEX4$2 6-<6-P:'AV,F AP67@<@,.Z6-&$AVd$ A$67@<@fT},.n 6- $xHEX ADDRESS CONVERTERINPUT: HEX4$OUTPUT: NUM6.7@<@, A fU} 6-6.7@<@, A6-$AV%$lREAD NEXT BYTE FROM FILEvBYTE WILL BE NEW BYTfV}E&&BYTE1,BYTE2 WILL BE NEXT 2 BYTES 6- 6-6-$ Ap)@$ B$OP COfW}DE CONVERTERINPUT=NUMOUTPT=OPCODE$ (3)&&CHECK IF IT NEEDS TO INITIALIZED" A% 6.fX} =8,=6.7$@%@<$@%@, $ INIT OP CODE TABLE 6-@ #A&fY} ;@, ##;AV$@,9AU, +-AU'68,-6@+  6- "4*A%fZ}  A" A.67$@%@<$@%@,.768,-A A%` 6- $( 00,BRK,02 01,ORA,1 8D,STA,4H 8E,STX,4R 90,Bfd}CC,13\ 91,STA,5f 94,STY,6p 95,STA,6z 96,STX,9 98,TYA,0 99,STA,7 9A,TXS,0 9D,STA,8 A0fe},LDY,3 A1,LDA,1 A2,LDX,3 A4,LDY,2 A5,LDA,2 A6,LDX,2 A8,TAY,0 A9,LDA,3 AA,TAX,0Aff}C,LDY,4AD,LDA,4AE,LDX,4$B0,BCS,13.B1,LDA,58B4,LDY,6BB5,LDA,6LB6,LDX,9VB8,CLV,0`fg}B9,LDA,7jBA,TSX,0tBC,LDY,8~BD,LDA,8BE,LDX,7C0,CPY,3C1,CMP,1C4,CPY,2C5,CMP,2fh}C6,DEC,2C8,INY,0C9,CMP,3CA,DEX,0CC,CPY,4CD,CMP,4CE,DEC,4D0,BNE,13 D1,CMP,5fi}D5,CMP,6D6,DEC,6(D8,CLD,02D9,CMP,7<DD,CMP,8FDE,DEC,8PE0,CPX,3ZE1,SBC,1dE4,CPX,2fj}nE5,SBC,2xE6,INC,2E8,INX,0E9,SBC,3EA,NOP,0EC,CPX,4ED,SBC,4EE,INC,4F0,BEQ,1fk}3F1,SBC,5F5,SBC,6F6,INC,6F8,SED,0F9,SBC,7FD,SBC,8FE,INC,8*OPERAND GENERfl}ATOR INPUT: BYTE(VALUE OF BYTE)OUTPUT: LINE$(18,23)8,$rr8,AQARASATfm}AUAVAWAXAYA`AaAbAc$(addr,X)!!67@<@#,.( ,X)fn} 6-  A67@<@ ,.$P addrZ 6-d An67@<@,.x$ #fo}data67@<@,.# 6- A67@<@ ,.$ addr16" 6-, A6fp}67@ <@!,.@ 6-J AT67@<@,.^$|(addr),Y!!67@<@#,.( ),Yfq} 6- A67@<@ ,.$ addr,X67@ <@!,.,X 6- A67@fr}<@,.$Daddr16,YN67@"<@#,.,YX 6-b Al67@ <@!,.v 6- fs} A67@<@,.$addr16,X67@"<@#,.,X 6- A67@ <@!ft},. 6- A67@<@,.$  addr,Y67@ <@!,.,Y  6-* Afu}467@<@,.>$p labelz AT (label)!!67@<@#,.( ) 6- Afv}67@!<@",. 6- A67@<@ ,.$$8AB67@,.AL$disp(outfw}put address) 6-A(6-&AV6-%@%6-P:'AV, A67@<@fx},.6-&$AV A67@ <@!,.$'""ROUTINE TO PRINT ALL OPCODES';@,$' fy} A%.'-AU8'8, BB' 6- AL'..6.7$@%@<$@%@,V'fz}8,%@BBB B0B@BPB`BpBBBBB B0f{}t' ~'' 3 $'3(addr,X)$'3addr$'3data$(3addr16$ (3(addf|}r),Y$(3addr,X$(3addr16,Y$((3addr16,X$2(3addr,Y$<(3label$F(3f}}(label)$P( 3A$Z(3disp$D:DISKDUMP.SAVASHEX4RSTARRLASADDBYTLINEANSPRNLSMSSECOFBYdFVWFILEAUXAPPNOUTFILOUTININDECIONAMESLOCKSTRTLENGLINETMPBUFBUFLEISTALENj}@ @  @@j}COPYRIGHT 1981 - HOUSTON ATARI COMPUTER ENTHUSIASTSdCOPY PROGRAM9;@,6.h V`9PLA/LDX #$10/JSRj} CIO/RTSj +d(RThis program copies individual files from disk to disk or cassette or vice versa!g(j(`;@j},;B@,ab-@A^67B:,%@,.2 b e6-Bj}@START UP COPY6-@(Enter input file76-4C:$6-A(7SHORT RECORD GAPj}@@COPY FILE TO MEMORY) B)READ CHARACTERS INTO BUF$"A6A#!%@j} ( READ ERROR#&@A( ERROR - &@END-OF-FILET@(Enter outputj} file86-4C:$6-A(8SHORT RECORD GAPS@@COPY FILES6-@j} B WRITE OUT FILE@ DONE(Copy complete.&*READ INTO BUF$+'AP@'Rj}EAD CHARACTERS +6-C:7,,+;$AR&AV$P:'AV,;ASP:'AV, +6-%@&*+;$AV&Aj}V$P:'AV,;AWP:'AV,4+6-?:C:,,>+%%6-F:AV,%AV$F:AW,C++6-F:AQ,(!@*j}A6+$H+ 6-R+ 6-%f+$.WRITE FROM BUF$.(AP@(WRITE CHARACTERS.6-C:7,,.;$ARj}&AV$P:'AV,;ASP:'AV,/ 6-/;$AV&AV$P:'AV,;AWP:'AV,/6-?:j}C:,,&/.F:AQ,!@+( WRITE ERROR:.&:/$D:FILECOPY.SAVBUFBUFLEISTALENhP%&l ESUBRDCREFTIMJIFFIERPDRIVn} $$******************************$$* *($$* 810 DISK DRIVE -- RPM Tn}EST *2$$* *<$$* by Don Huston, (C) 1981 *F$$* *P$$* -Pn}ress 'SELECT' to pause *Z$$* -Press 'START' to resume *\$$* *^$$***********************n}*******d;@,;@,i +@-@n""(@ ˠs(@x##(@n} ҠĠ|-@~%%(@DON HUSTON, (C) 1981)6-Ah)** DEVICE CONTROL BLOCKn}+%@@+%@@+%@@+%@AS+%@@+%@@n}** LOAD DISK SUBROUTINE-@@"C:,%  A0C Ac+@! A@n}C( INPUT DRIVE # (1 to 4) B% @)!@%6-@%@ A46-?:Cn}:,%@,iF:%@,!@2(DISK DRIVE ERROR --5(_(%- CHECK FOR PROPER DRIVE / CONNECTIONi Ab8@n}'@ 8** RESET TIMER11** DO 20 READ'S FOR BETTER TIMER RESOLUTION-@@ n}6-?:C:,%@, %%6-F:@ ,%F:@,$AV"6-'@ ,..6-P:@'+'@`,$@`%?P,n}6 A;# A A0# A@@#!A A@# A@J A T AY F:B2y,n}@Ap^ F:B2y,@APc Ap*-@@ '(@ *$*-@@ n}'(@ ok *$*-@@ '(@*$*-@@ '(@*$+-@@n}+(@ *-@@*(@ RPM$-@A $ +@ARn}@'('( Press to pause(((( Press to resume-@&##(@ n}0$X104,32,83,228,96 D:RPM810.SAVlA?@0AAHDHDIADBGINOUSSANEVPOPOPRSCHCHSr} r} TAPEDUMPLLROUTINE TO GET BYTES FROM CASSETTE ANDr} PRINT HEX, DECIMAL AND OP CODESWITH PRINTER(11;@,;@,;@,;@,211;@,;@r},;@,;@,<AA;@ ,;@ $AV,;@,;@$AV,A1+(#PLEASE WAIT WHILE TABLES ARE r}SET UP.(1(FG6-B6-B'6-1 B; B G6-P2(PRINTER (Y/N)2B:,"r}@Q4YAR%(Enter skip count%6-U. @6-A:,$ B. @X6-r} BZ(Insert Cassette_3#@@C:3OPEN CASSETTEdFOR LABEL REFERENCEnFOR LABEL r}REFERENCE A6-&@ 6- 6- 6.$ A)@$ r}B 6.7@<@,<6-%@<6.7$@ %@<$@ %@ ,!..6.7$@%@( ҠH @ @JUST IN CASE(( I/O Error@(6-r}((( Type CONT and to continue& @'INPUT CONVERSION ROUTINE' GIVEN A$ (DIM A$(5)), WITH$'!!r}LEADING 0 FOR HEX, CONVERTS.'!!ADDRESS TO BINARY (DECIMAL)8'IN D. DESTROYS TRAP, WITHB'D=-1 IF INVALID VALUEL'!r}B:,"6-!$V'B:,"@B`'$$7@<@,40B j' B6-A:, Bt'r}$~'6-6@ B$'46- -@B:,4 BP'L7<,1A*7<,/FB6-$@%r}@:7<,,%@&@:A,L B`'D7<,10*7<,/9:6-$@%@:7<,,&@:0,D B`'6-6@'  r} $'OUTPUT CONVERSION ROUTINE'!!GIVEN D (DECIMAL), CONVERTS'!!TO FOUR CHARACTER HEX IN H$'(DIM H$(4)), USES Hr}I, D1,(D2. D IS NOT DESTROYED (6.0000 $(& 6-&-@@6@($6-P:'@,$6r}-&$@((6!@ ,67<,.>:@:A,%&@,6 B2(67<,.>:@:0,%,<( 6- $*'-Ar}U'D:OPCODES.LST+'-@@!'(AU&  +2"6-B:,6-$@ 2-@@ +$ !67%r}<%,. $ BP +67%<%,.7<,*+   4+$\+AABRK,ORA (I X),NOP,NOP,NOP,ORA Z,ASL Z,NOP,PHP,ORA IMM,ASL Ar}]+CCNOP,NOP,ORA ABS,ASL ABS,NOP,BPL,ORA (I) Y,NOP,NOP,NOP,ORA Z X^+CCASL Z X,NOP,CLC,ORA ABS Y,NOP,NOP,NOP,ORA ABS X,ASL r}ABS X,NOP_+EEJSR,AND (I X),NOP,NOP,BIT Z,AND Z,ROL Z,NOP,PLP,AND IMM,ROL ACC`+??NOP,BIT ABS,AND ABS,ROL ABS,NOP,BMI,AND (r}I) Y,NOP,NOP,NOPa+==AND Z X,ROL Z X,NOP,SEC,AND ABS Y,NOP,NOP,NOP,AND ABS Xb+AAROL ABS X,NOP,RTI,EOR (I X),NOP,NOP,NOP,EOr}R Z,LSR Z,NOP,PHAc+CCEOR IMM,LSR ACC,NOP,JMP ABS,EOR ABS,LSR ABS,NOP,BVC,EOR (I) Yd+??NOP,NOP,NOP,EOR Z X,LSR Z X,NOP,CLIr},EOR ABS Y,NOP,NOP,NOPe+CCEOR ABS X,LSR ABS X,NOP,RTS,ADC (I X),NOP,NOP,NOP,ADC Z,ROR Zf+AANOP,PLA,ADC IMM,ROR ACC,NOP,JMr}P IND,ADC ABS,ROR ABS,NOP,BVSg+EEADC (I) Y,NOP,NOP,NOP,ADC Z X,ROR Z X,NOP,SEI,ADC ABS Y,NOP,NOPh+CCNOP,ADC ABS X,ROR ABSr} X,NOP,NOP,STA (I X),NOP,NOP,STY Z,STA Zi+??STX Z,NOP,DEY,NOP,TXA,NOP,STY ABS,STA ABS,STX ABS,NOP,BCCj+EESTA (I) Y,NOP,NOr}P,STY Z X,STA Z X,STX Z Y,NOP,TYA,STA ABS Y,TXSk+CCNOP,NOP,STA ABS X,NOP,NOP,LDY IMM,LDA (I X),LDX IMM,NOP,LDY Zl+EELDA Zr},LDX Z,NOP,TAY,LDA IMM,TAX,NOP,LDY ABS,LDA ABS,LDX ABS,NOPm+EEBCS,LDA (I) Y,NOP,NOP,LDY Z X,LDA Z X,LDX Z Y,NOP,CLV,LDA ABSr} Yn+EETSX,NOP,LDY ABS X,LDA ABS X,LDX ABS Y,NOP,CPY IMM,CMP (I X),NOPo+CCNOP,CPY Z,CMP Z,DEC Z,NOP,INY,CMP IMM,DEX,NOP,CPr}Y ABS,CMP ABSp+CCDEC ABS,NOP,BNE,CMP (I) Y,NOP,NOP,NOP,CMP Z X,DEC Z X,NOP,CLDq+EECMP ABS Y,NOP,NOP,NOP,CMP ABS X,DEC ABSr} X,NOP,CPX IMM,SBC (I X)r+??NOP,NOP,CPX Z,SBC Z,INC Z,NOP,INX,SBC IMM,NOP,NOP,CPX ABSs+CCSBC ABS,INC ABS,NOP,BEQ,SBC (I) r}Y,NOP,NOP,NOP,SBC Z X,INC Z Xt+;;NOP,SED,SBC ABS Y,NOP,NOP,NOP,SBC ABS X,INC ABS X,NOP.'-AU'D:CHCODES.Lr}ST.'-@@!'(AU& .2"6-B:,6-$@2-@@.$ !67%<%,. $ B Pr}/67%<%,.7<,/  $D/EEHEART,RTINT,RTBAR,ULANG,LFINT,DLANG,RTSLANT,LFSLANT,DRTRI,DRSQRE/BBDLTRI,URSQRr},ULSQR,UBAR,DBAR,DLSQR,CLUB,DRANG,MBAR,INTRS,BLOTF/CCDHALF,LFBAR,DTEE,UTEE,LHALF,URANG,ESC,UAROW,DAROW,LAROW,RAROWG/KKSPAr}CE,!,",#,$,%,&,',(,),*,+,COMMA,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,<,=,>H/CC?,@,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Yr},Z,[,\,]I/HH^,ULINE,DIAMND,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,zJ/%%SPADE,VSTROK,CLRSCN,BACKSP,TABFK/FFIHr}EART,IRTINT,IRTBAR,IULANG,ILFINT,IDLANG,IRTSLNT,ILFSLNT,IDRTRIL/GGIDRSQR,IDLTRI,IURSQR,IULSQR,IUBAR,IDBAR,IDLSQR,ICLUB,IDRAr}NG,IMBARM/GGIINTRS,IBLOT,IDHALF,ILFBAR,IDTEE,IUTEE,ILHALF,IURANG,RETURN,CSRUPN/FFCSRDN,CSRLF,CSRRT,ISPACE,I!,I",I#,I$,I%,r}I&,I',I(,I),I*,I+,ICOMMAO/DDI-,I.,I/,I0,I1,I2,I3,I4,I5,I6,I7,I8,I9,I:,I;,I<,I=,I>,I?,I@,IAP/GGIB,IC,ID,IE,IF,IG,IH,II,IJ,r}IK,IL,IM,IN,IO,IP,IQ,IR,IS,IT,IU,IV,IWQ/DDIX,IY,IZ,I[,I\,I],I^,IULINE,IDIAMND,Ia,Ib,Ic,Id,Ie,If,Ig,Ih,IiR/22Ij,Ik,Il,Im,Ir}n,Io,Ip,Iq,Ir,Is,It,Iu,Iv,Iw,IxS///Iy,Iz,ISPADE,IVSTROK,BUZZER,DELCHR,INSCHRD:TAPEDUMP.SAVpeL= ( L 0q A    IB JC;? D W }001ᩀ멀  Lt11j8iR'Sx867X /E /XBz} / / / /1    I  Lȍ /ɠ R  z}  /  ` /! 8  /Q P 12 `詀R@ YLiix}