@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`  `1  ɐ     `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.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -} 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 !BD .}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0. /}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC 0}COPY--FROM, TO?OPTION NOT ALLOWED145 FREE SECTORS COPYING---D1:ACCOUNT.OBJl# 0|D .L/%# 1}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY 2}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 3}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A 4}LLOWED IN DESTINATION 0 <.|K}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2 ?} 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 A}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,Hh B}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURN C}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <. D},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  E}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#P F},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭ G}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DO H}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξ I}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE J}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L! K}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥ L}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAME M} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 L N}!ERROR- 165ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXA O}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u P} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u L 䙣ލȎ!"` !"H h`lDD $R}SAB.UNEM:D"NUR 䙣ލȎ!"` !"H h`lDD $./u''AINOUTXMAYMALBSBLLSPCTHYX(T} %%****************(U}***************%%* MATTHEWS LABEL MAKER *%%* PAGE 6 MAGAZINE - ENGLAND *%%******************************(V}* N&;A,;@P,;A,.6. ?67A,. N67@,.u6-@46-@'6-36-(W}?6-@K6-@W6-@c6-@u@@##@@K:(';@,'6(X}. d###############################n### #x### Matthews' Label Maker #(Y}### #### A public domain program #### for the editing and #### printing of (Z}labels on the #### Atari computers. #### #### This program will print ###([}# any size of label, on any #### format of label paper, #### from one to three wide. ####(three copies will(\} be made)#### #### All size labels can be #### used, with any spacing #### (]} between them. #### #"### Commonly printed labels #,###can be saved for later (^}use.#6### #@### Underline and enlarged #J### text on EPSON printers is #T### (_} available. #^### #h### This program was written #r### by Matthew Jones #(`}|### Prestel Mbx 019996027 #### ################################!!(} (a} Matthew's`"( A( ̠Ҡ`( !!( (b} public domain3( ( ((3( Use [CONTROL]-[H] for Help A&)@ @2& A#(c}!A$* A(# A#!AT* A`# A!AR A+6-%+@5$,%@+67<(d},.>:,&) (>:,6-%@ ) A0/6-6-%@#"/6-:(-@@%((e}( AX' 6-&@' APb "6- APl' 6-&@' APv (f}"6- AP*-@%@% (* A'"@)6-%@' A'"@(6(g}-&@' A'"@06-&@' A'"@16-%@' A"A% A (h}"A& A 1"A'6-'6-1 AP3"AU6-)6-%@3 A (i}%"@6-% AP'"@&6-&@' AP *"@ 6-P:'@,* A*"(j}AVA @4"AW A >#"@!)"@# APH"@AR"@A\%(k}"@6-% A a"AUApf%"@ 6-@% A k"@A1p"@(l}A2u"ATAPz AQ-@@!3( Ҡ̠= AQ@A(m}Q 6. 67A,. +67@,.76-=6-G AQ A"" A"DELETEK(n}6-&@+6-%@%+@5$,867<,. A( K AQ-@@!3( ŠŠ= (o}AQ@A"&@ A pW-&@+6-+$@5,%@S67<%@4,.7%@5(p}<%@i,W p%6-++&@,$@5,%@\67<%@4,.# f Ap A(q}Q-@@!3( ԠŠ= AQ@A"&@ A `-&@(r}6@46-+$@5,%@\67%@5<%@i,.7<%@4,` f6-+$@5,%@R67<%@4,(s}.# \ Af AB-@@L* (-@(# *((t}V'-@(| '(`&-@( &(j["-&@6@O(|7+(u}$@5,%@<+$@5,%,S [(t A@~"@!6-@ "@6-@ A@(v}7-@@"7( ŠՠŠٯΩB)@B@*@x*A*A!A(w}"A!6-@-@@!(#-@%@% (#$"@4 A`U6-+$(x}@5,%@)-@3Q67%<%,.7%%@<%%@,U 4 67%@4<%@4,. * A4 A(y}"@4 Af6-+$@5,%@:-@4%@6@b67%<%,.7%&@<%&@,f(z} (67%<%,.  A( AU(} :( РU( ({} ,,($(,,($| [CTRL]+ | Action initiated |2,,($(|}<,,($| A,C,Z | Move cursor in line. |>,,($| DELETE | Delete char, move line.|A,,($| INSERT | Insert s(}}pace,move line.|F--(%| U () | Underline On/Off |P--(%| E () | Enlarged On/Off |Z,,($(~}d,,($| M | Modify parameters |n,,($| S | Save current label |x,,($| (}L | Load a label |,,($| P | Print label(s) |,,($| T | Thick printing. |,,(}($,,($|[SHIFT] with [DELETE] or [INSERT] |,,($| act on whole lines of the label.(} |,,($|To clear label, use [SHIFT][CLEAR]|,,($((( (})@ Ah&(} G( ҠӠh( (} 0( (0( 1. Label width (characters) = -(-( 2. Label depth (lines) = -(-( 3. Lines (}between labels = -(-( 4. Spaces between labels = -(-( 5. Number of labels across = -(-( (} 6. Number of labels down = ,[-@@8( [( ݠ(}66-6-@&)@"AU& AJ# @I)!@T# AT"-@@"((}^E6-&@HEA@APA`ApAAhQ( Enter new label width+6-@476-(}@A AG6-Q ArU#( Enter new depth for label/6-@;6-@E AK6-U A|R ((} Enter new line spacing,6-@ 86-@B AH6-R AV$( Enter new number of spaces06-@<(}6-@F AL6-V AY'( Enter number of labels across36-@?6-@I AO6-Y A(}W%( Enter number of labels down16-A=6-@G AM6-W A*-@@! A0&6.(}*  4 ' A6-P:A:,,U  )!-@@ K('Out of range error- Please retryU A(} B$&D-@@ :( Entry error- Please retryD A76-6-@'6-(}7PRINT ROUTINE A#P2-@@!2( 1-&@%6-16-(}N 6.-@*6-%+$@5,86-@:7<,,D!@1N A"P@ A"0I 6-6"@(}/67B:,%@,.-0 9 A"UIUNDERLINE OFF567B:,%@,. -1& A"U5UNDERLINE ON)6-%@(}!@)6-J"@%67B:,%@,.36-&@= A"UJENLARGE ON?67B:,%@,.'6-(}&@1 A"U?ENLARGE OFF67B:,%@,.>:,6-%@%  %"@%67B:,%@,.(}"@6.EG@6.67B:,%@,.B!@.67B:,%@,.7@<,B67B:(},%@,.B!@.67B:,%@,.7@<,B67B:,%@,.3 -@3 6-(}%@ A! ( A. &&(} ҠҠ8 ,( (,( Please check your prin(}terB \( ( (((((((!(E( R)@\ A E-@@3(Plea(}se enter the filenameEA@d *-@@! A0&6.*  4 ' A )B:, @)6(}7B:,%@,.  FFBefore entering the next line, type POKE 82,0 to set the margin. g7@<@,0D:*7@(}<@,0D1:*7@<@,0D2:*7@<@,0C:m6.v6.D:67@,.  B$ Z"(}(} >( Š̠Z( & QQ(IA previous file will be erased (}if it has the same same.0 y A0 A34@@H-@A[*@@:7,(},_ l(@y(@: L(@(@*(@7(@B@L A Z"(} (} >( Ġ̠Z(   A0 A34@@(}H-@AU)@a67,.>:,e r@@ ^@@*@7@(}B@N6-T6-^ A " A3@" B j&(} M(" !!!(}!! ˠҠ !!!!!j(  .( (.( Please check your disk drive. 9( ( ()( Erro(}r number F:A,,(9(File  H( ( (1( >)@H A D:LABEL.E(}NGumber F:A,,(9(File  H( ( (1( >)@H A D:LABEL.E(mn^/TDTLLKUPESCPGSUSFILCFRSCROCOFNMFEXTFLSCTFLSCTSPCFILNLNSLILNLBLNSPCCNTLNSIIROICO,})(@HA @ @ Q_,}b@e22@P@ Iiniti,}alization11;A,;@ ,;@ ,;@@,11;@,;@,;@,;@P,dM67@,.,} %67@P,. M67@<@P,.7@<@I,n6-@Px4#@@P:4(@@,}Main Menu BAF:A,--(%}РĠ렠̠ ( ( (((,}Press:&#(#( 1 - DOS disk labels0!(!( 2 - Manual Labels2.(.( 3 - Set Label size () 4,}#(#( 4 - Return to 6#(#( 5 - Return to Ӡ:6-$AD AD"@:1, AN,}"@:2, A X"@:3, Ab"@:4,(}l"@:5,.v Ap !Set label size*,} A-@@4$$(Vertical length in inches: >H APrint DOS Labels--(%} Р,}ĠϠӠ̠ A *-@@*(Enter disk id B:,"A B:,},!@ A   6.-@@33(Put >:@4,>:@4, in drive 1$(then press any key,}. AL-@@V(Printing label for `1'@@D1:*.*1 Aj& A,}6-&6-6@t@~((7@<@,0 FREEA6-A:7@<@,, A,},6-@%$@ ,67<%@,.6-%@ A@@ B'6-@  A'Pri,}nt titlea6-@Y(@>:@,3>:,7@<@#, Available Sectorsa6-%-@,}-@<#6-@%$A%$@ <6-P:'@ ,%@!A@T6.7%@<%,}@ ,96.7%@<%@,T6.7%@<%@,77B:,,4 -6.7@(C,}(Type label in box or,H(Press Ԡ to printR( Π to quit\-@ @( f;6-@ ,}6-@'@;@%@pB2y@z F:B2y,"@A%\F:B2y,"@,}*@@<@@9G@R@\ A F:Ad,"AUA!p@@,})@(>:,!6-F:@,!6-F:@,!@6-@ A!p  '@@,}'@@9 -@@  6.-@ @( - ! "*" A! A% ')@,}'67B:,%@,.>:,   A    A A @ASkip to top of next labelJ",}A@T(@J>:&,^6-h$Print Expanded line$$(@>:@,3>:,}, 6-B:, "AP47@<,AP+-@6@'7<,4 + 6.7@<,},!!(@EG>:@,= @=(@7@:@ ,HF(@6-%$(#)#Clear Buffer2#M67@,. %67A,. M67@<A,},.7@<Ay,<#$##Get a keypress###@@K:#-AdAU")@,}-@#$ D:LBLPRT.BAS#Get a keypress###@@K:#-AdAU")@,&^OeTFRFOTMPTEMPiuu @ @@@##*** FROM FAM0}ILY COMPUTING ***##*** By Joey Latimer ***##*** 12/83 ***##*** - - - - - - - - - - ***0}##*** Makes Gift Wrapping ***##*** ***  ;A,;@,;@0},(;@,d(>:A%,n(THIS PROGRAM PRINTSx(HOLIDAY WRAPPING PAPER.(..(&PLEASE PRESS AFTER EACH RELPY( (WHO IS THE PRESENT FROM(WHO IS PRESENT FOR(>:A%,##(WHE0}N YOUR PRINTER IS READY,((( PRESS ANY KEY TO START PRINTING.##@@K:)@(TO0} STOP PRINTING,##(PRESS THE SYSTEM RESET KEY.,-@@6"@6.7@<@,J..67@$&0}@<@$%@,.^ h##@@P:r-@@|6-@$&@6-0}@$%@88(@7<,7<,7<,7<,7<,7<, QQ(@>:@ ,>:@ ,>:@ 0},TO  HAPPY HOLIDAYS FROM (@ Ap" + "" *** "" *O**0}* "" ****O** "" *O*****O* "" ****O****** "" I "" "0}D:WRAPPING.PAP**O** "" *O*****O* "" ****O****** "" I "" "034 PRPR1PRPR2PICSCSTHDFNCIOVDLMIPAMAS4} ^*** SCREEN DUMP ****_* BY JERRY WHITE 4}& *`*FERNANDO HERREA *a* ANTIC MAGAZINE *b* JANUARY 1984 *c********************dР4}n_ +@@1AR@CAA`UA@$_ A`s РҠҠ4}ӛxp@.@@P:p(@>:@',>:@d,>:@',>:@Q,>:@$, 6-C:4},6-C:,ΠϠҠЛb-@9/6-A$@@%%D6-?:A6<<<,Q(@^(4}@b 0@+(%(BASIC-(IS0РӛGG;A d,;A d,;@,;4}@,;@B,;@3,'( ((SDUMP CREATING:'AuԠӛ--@@")67<,.>4}:,- 27,76,192,3?6.>:,*67A d,.>:,967@,.?6.167@<@,.167@4}<@,.ˠϠΠś7 A !-@@B%"367<,.>:,7 LL104,104,104,10,10,10,14}0,170,104,104,157,66,3,104,157,69,3,104,157,68,3KK104,157,73,3,104,157,72,3,32,86,228,169,0,133,213,189,67,3,133,212,964}٠Ԡś7 A`!-@@3%"367<,.>:,7 ==104,173,48,2,133,203,173,49,2,133,2044},160,1,200,177,203"@@201,15,240,4,201,79,208,4,233,1,145,203,192,200,208,237,96,ҠҠӛ6/ A4}!-A1AF%"+/ @ĠśJ 0,0,0,0TҠǮˠٛ^10,5,10,5hҠ4}Ԡٛr10,0,5,0|ҠǮ˛15,15,15,15ΠРś/ A!-A6A04}%"+/ 33104,104,133,204,104,133,203,104,141,192,6,104//141,191,6,104,141,194,6,104,141,193,6,169111,134}3,207,169,191,133,208,160,0,177,203,14100190,6,165,207,240,28,169,0,133,207,173,193,,6,24,105,4,141,193,6,133,205,1734},194,6++105,0,141,194,6,133,206,76,95,6,169,1..133,207,173,191,6,24,105,4,141,191,6,133..205,173,192,6,105,0,141,4}192,6,133,206,32))137,6,32,146,6,32,160,6,32,137,6,32//169,6,32,160,6,165,207,240,177,56,165,20322233,40,176,2,194}8,204,133,203,198,208,165,208--201,255,208,151,96,173,190,6,41,3,10,1000170,96,160,0,189,195,6,145,205,232,200,192&4},,4,208,245,96,173,190,6,74,74,141,190,60++96,160,0,189,195,6,10,10,10,10,24,113:44205,145,205,232,200,192,4,208,238,94}6,0,0,0,0,0NE +AA1A@$4(E( ΠX+(+( MICROPAINTER TO EPSON GRAFTRAX+b4},(,(!by Jerry White & Fernando Herreral)()(Print intensity patterns maybev''(altered by swapping data in THE4}*(following lines:*A AJAR'@@*(F(ENTER DEV:FILENAME.EXTJ!!Р4}à٠ԛ; +@$/6-F:@,%F:@,$AV;6-?:C:,,Q@+@@Q4}6-?:C:,<@<@<<Av,""ԠҠҠӛ)@A)@A4})@A )@A@$ D:SCREEN.DUP)@A4_>?ABCDNDMNUMDENTEMPAABBCCDDATBTCTDTDELWL8} 8}&&&&󠺠󠠛&&c֮8}Ơ&&ߛ&&󠠛&&&8}&˯ꠛ&&򠠠 && ;@@8},;@@,;@@,;@@,;@ ,;@5,;@,;@,;@ ,;@,;@,;@,;8}@,11;@,;@,;@,;@,6-##@@K: AP(88}@@8(} ___________________________ 2%%(| | | |<%%(| |8}F%%(|:::::::::::::::::::::::::::|P%%(|:::::::::: :::::|Z%%(|:::::::: ::::::|d%%(|:::8}:::: ::::|n%%(|::::::|x%%(|:::::::::::::::::::::::::::|%%(| 8} |%%(  A A0 A0++("ENTER DISKETTE NAME ([CR] FOR DIR)8}X6-@!!-@@+ ApD6.7@<&@,N A5X A0S(ENTER DISK NUMBER '6-@8}9-@&@C ApI6.S A0N(ENTER DENSITY "6-@4-@@> ApD6.N A08};67@<@,.167@(<@0,.; Ap. . ***** CENTER NAME STRING.))6. | 8} |  4 A++6-P:++@ &B:,,,'@,%@M#67%@<%B:,%@,.5-@8}@J(7@<@%,M$6-"77(@&E----------------------------------F,{{(@E8}7@<@,G|47@<@%,5|H 7@(<@0,GA>:@,6??(@.____8}______________________________FSA@(@J2&@@D:*.*26-T A@9}^ A@h A@r A| 6. 6. 6.*(@ 9} *6-%@s"@ A+( ǠW('DIRECTORY TOO LARGE TO FIT ON ONE LABELZ(](g As69}-@ 0 A@ 46-%@u"@I(@j>:$@%A,@l>:@D9},T@_@k6-u @@~"@'-@+@&,2(@6 F(@@Q@9}\@h6-t6-~ @@z"@(@@3-@@>(@B M@X9}@d6-p6-z @@* B*F:A,"A8@0,)(ERROR #F:A, AT LINE 309}.,&****** ENTER LINE16-@*6. 16.****** HELPe A%9})@7AU*B:, *A&?(>:,M67<,.>:,[6-%@e AF"A&6-&@' A9}467<,. <(>:,F A  46-@6. $****** HELP:( A%( PRINTER9 } LOADED ? ((D* A'( 850 INTERFACE ON ? *(NL A2(  INSERT DISKETTE INTO DRIVE #1.5(? AI A9 }L$X&&(PRESS TO CONTINUE.....b Ap$f- A$-@@P:l$pU A09 }-( ҠԠĠΠ0(3(>@H AR AU$vw***** CLSx(-@((9 }$***** POST#-@0@#( #-@0@#( #-@9 }0@#( #-@0@#( #-@0@#( #-@0@#( 9}#-@0@#(  A0$0&@@D:*.*0 A0A A@@9}'@4@A@YY(7@<@, 7@<@, 7@<@,7@9}<@,% 6.6.6.6.% A( 4(7@<@,( A1 41(7@<@,7@9}<@,B( A%Le%2A@@B-@6@^2A@9}b e$ D:LABLPLUS%Le%2A@@B-@6@^2A@8dBNCTRECCTINDEMARKE(11SUPER =}DISK LABEL PROGRAM by Richard Kushner""ANTIC MAGAZINE, JANUARY 1984 ;@,;@@,* ('(LOAD PRINTER =}WITH LABELS.*(.+(#TURN ON PRINTER/850 INTERFACE UNIT..()&(INSERT DISKETTE INTO DRIVE #1.)(# (PRESS WH=}EN READY.#( A##@@P:!<*@@')*@@Q<*@@=}%<(@>:@,<(@>:@',>:@,(;@7($ENTER DISKETTE NAME ( FOR END);*#=} 4@ @#-?6-6-'6-36-?6-@2(@ DISK = <=}6-%@d&&@@D:*.*x A@T(@ $6-%@26-%@=}T7@<@,4 FA&"@ @&6-1"@@ @% @16-=} A 6" A 86-P:'@,:@6-%@<"-@& @" @ =}@@* B*F:A,"A8@ GD(ERROR #F:A, AT LINE F:A,%AV$F:A,G&=} D:SUPLABELB*F:A,"A8@ GD(ERROR #F:A, AT LINE F:A,%AV$F:A,G&<nFAQTBDFDHL@ A}%%THIS PROGRAM PRINTS A FILE FROM##THE DISK (IN LISTED FORM). IT%%REQUIRES AN EPSON MX-80(OR 100)MAKE SURE 85A }0 I/F IS ON.KIEFFER WARMAN 1/10/83V2.0 FRANK GRAY 4/02/83g +@A@1A @CAA!}A2UA@Rg-@}H(@7- v 2.0 by frank gray}(A"}@' 1) #1B(@1 2) 3)& M(@A#}k(@ press RETURNu @  @ >#@@K:0)@;@>$ -"(@A$}}INITIALIZING ...-(@E<;@ ,;A,9@,;A,;@ ,E6.D:68@,-AA%}-68@,-AB68@,-AW68@,-Al68@,-A68@,-A68@,-AA&}68@,-A(68@ ,-A 4-68@,-A 5B68@,-A bW68@,-A gl68@,-AA'} x68@,-A d;A H, A`e5-@@1678,<8,,.>:@4,5 n- A-@A(}@P:s?(@N?IF PRINTER IS NOT GRAFTRAX+ CHANGE TO ""v# 6.#(@ } ?xA)}K @ (@>:,*AUA67B:,%@,.>:,K A y@zB:, @A}67@A*}<@,0D:,67@,.6 A0~ 6. A@* @@* ALA+}A@$,(@ }:(@L(@@6.1B:,!A !6.7A!A,},167A!,.U6-P:B:,$@'AV,:6-B:,$@&$AVU(@L>:,>:,p(@;A-}F:@,"@*F:@,"@R(@ }`(@p(@W-@B:,(6-@:7,,%@A.}S(@7$@&@<$@,W *@AU! 06.6.! AQ 6. AA/}PF:A,"A8#@B(@} M(@X(@s(@ (A0}@ |F:A,"A84(@ ?(@J(@h(@ press RETURNrA1} @ | A0F:A,A60(ERROR - F:A,(@pXX67B:,%@,.@0x|>|x0A2}8pp8qXX67B:,%@,.@??A3}rXX67B:,%@,.@zfz>>>>sXX67B:,%@,.@A4} 0~~0 ~~ 8|TT|8tXX67B:,%@,.@zzpppp$~~$$~~$$t\HA5}fl0fF ^N ppuXX67B:,%@,.@<~fBBf~<T|88|T|| 0`@vXX67B:,%A6}@,.@<~JR~< ~~ fNZr DFRznD 4~~tvRR^L<~RR^ @FNXp`wXX67B:,%@,.@,~RR~, rRV|866A7}768lƂ$$$$$$l8 `JZp xXX67B:,%@,.@<~BZz:>dd>~~RR~,<~BBf$~~Bf<~~RRRB~~PPP@<~BJNNA8}yXX67B:,%@,.@~~~~BB~~BB~|~~~~ > ~~>**:>~PP=%%?>}XX67B:,%@,.A;}@~~^^_^~~B~~>>8>>> >> >~XX67B:,%@,.@??$$<<$$??>> 0:**.$ |A<}~ <>>>8<<88>>8XX67B:,%@,.@ 66 9=>< &.:2 :~~:||px^N8||8XX67BA=}:,%@,.@χǏ??XX67B:,%@,.@A>}????????XX67B:,%@,.@煙A?}XX67B:,%@,.@QQρǃ遲XX67B:,%@,.@A@}ہہۋ))ϙ EXX67B:,%@,.@Á遲ǃAA}ϟXX67B:,%@,.@Á݁ݙˁÁXX67B:,%@AB},.@ӁߍǓ9}}9ߟXX67B:,%@,.@ÁÁAC}ÁXX67B:,%@,.@ÙρぁÁXAD}X67B:,%@,.@ÁߍXX67B:,%@,.@灙ᏟAE}ϟXX67B:,%@,.@Á큁AF}XX67B:,%@,.@XX67B:,%@,.@AG}߃XX67B:,%@,.@ŁAH}ǃ AD:LISTERXX67B:,%@,.@Ł@6  ;CHRS@JJSCREEN DUMP FOR THE ATARI WITH EPSON GRAPHICS EJ}BY RODNEY GRAHAM 1981""@@P""6-F:AB,$AV%@d""6-F:AB,$AV%A EK} @ -@@-@96-F:%, !A'6-&A(!'!@c* @'6EL}-%A(# @d6-%@2( @>:,2 < @F P@dŠϛEM}nlower casex    D:MX80DUMP@>:,2 < @F P@dŠϛD0 LINEFILECHAJJOUTABYSTARCINHIREJXFRIOCBIOCICCOICSTICBAICBAICBLICBLAUXCMTEMSTADLOIO}HIGBYTEERROCIOSCRERRLCOUNLINE&'  B7 IP}@ B@AP&&@d@AAA A A A IQ}@@B@r !A2"Ap#;$%B&' àIR}ҠҠ ʮ٠٬ ӠŠĠ̠ ӠϠŠ IS}Ӯ B a AF:A,&@A6-+F:A,%@,$AVK+U Ba6-BIT} @&;AW,;@ ,;@,26-AP@6.hhhLV M BA1ACAIU}M+M B,(ENTER FULL INPUT FILENAME0M@@/#@@IV}P:/6-# B(36-@3B:, @@@*JAf@(+AfIW}<-@B:,J6-@:7<,,,96-!A')6-&A(56-@9 .+ @2, 0+!A",IX} 2+"@, 4"(@>:,"6-%@6D++!A`,*+ B:,,,(6-6(@D6-%@IY}7# (@#6-%@d*!@`(@ *6-n @5N*(@K>:@,>:IZ},6 @2D6-%@dN AP @6-&@2F-@,6-F:%%$@,8"@I[}F6-AU&"AU6-AT0(@>:, &6-%@0 @T'HE(ERROR #F:A, AI\}T LINE #F:A,%F:A,$AVH& N>F:A,"A6#(@.(@;(FINISHED>*N8F:A,"A8I]}8 F:A,$AV%F:A,4NHE(ERROR #F:A, AT LINE #F:A,%F:A,$AVH&{{ +I^}{;@8,{006.&h˅ͩΥji̠͑Υ`{6-?:C:,,{= +@-@@=(@II_}tIiZg..{$;|L B6. D:ROT2.CHR*6-@86-&@L6-A)$@<|)6-@ B%I`}@) =|$|-6-$@6-A4%-6-A5%|6-A6%6-A7%|6-A@%6-AA%Ia}||##6-@%@$+"@,|, B,6-$@| 6- B| | Ib}6- B| | 6-?:C:,<,| 6-F:,$|*6-P:'AV,'6-P:&$AV,*$|6-F:AIc},|  $}{5@6@ D:TRANPRNT.3F D:TRANPRNT.3x@5@ D:TRId}ANPRNT.3{& D:TRANSLTR.PR D:TRANPRNT.3F D:TRANPRNT.3x@5@ D:TRH! VSGLAGGGSSII@@@@F .... GROUCHO ....Mf}11;@q,;@,;@s,;@ ,) 6. 67@q,.)67@,.(36. GROUCHOMARX$67@,.3Mg}67@,.2-@@e<%%6-P:H:,$@,%@F 6.7,P"Z67B:,%@,.,d-Mq} bbҠbЮĮbŠb٠bˠbb%DOS SYSb*'DUP SYSbQAUTORUN SYSbPSMATTLABLBASb$LABELPNTSAVb WRAPPING bPRNTDUMP b%LABLPLUS b SUPLABEL b+LISTER SAVbIMX80DUMP bNTRANSLTRPR b eGROUCHO PTRb4yDISASSM bFILEREAD b2FILEDUMP b CHPRINT b(MEMDUMP b DIRLABEL b*BANNER b;GR68DUMPBASbKMXGRTRAXLSTbYSCRNDUMPLSTb>`PTRFONT BASbBUNCRUSH bMENU BAS@B:,@n6-@:7,,&@Dx6-@:7%@,,&@D(A`67<,.7<, ."Mr}@I.67@<@,.GROUCHO37@<, -?GOZ,-7GL^,-3GI_,-0EGa--DEc,--BDd,?Df,;GKMf,8VgMs}!!--7Vh,--6Xi,-.5Yi,-04Zk,-Zl##-ISZl,-6EVZl,-->DXZl%%>DX[l,--05;FLLV\k,05;DGKW]kmoqs,.35Mt}6:<>DFJLTV^jlort''.26:>DFKMTV_ikpst,/469?/)AAHDHDIADBGINOUSSANEVPOPOPRCHCHS@Qz}   @ @ BB@@"@Q{}@&( 1 1 8 AU DISASMCCROUTINE TO PEEK MEMORY AND PRINT HEX AND Q|}DECIMAL AND OP CODESWITH PRINTER(11;@,;@,;@,;@,211;@,;@,;@,Q}};@,<AA;@ ,;@ $AV,;@,;@$AV,@ +AC-@@=(#Please waiQ~}t while tables are set up@(C(FH6-B6-B'6-1 B; B H(>:A%,P0( Printer (Y/N)Q}0B:,"@Q 4Y ARd**("FORMATS: a a-a a,n +n P N XnB:,"AQ}x 4Xy 4P A Az 4N A  AW 6.6-@"6-.6-:6Q}-F6-W-@B:,''APAA A@&7<,4-6-@& A&7( ҠA$lQ}"$v-@6-*( Ҡ-$6!@&6-6( Ҡ%%(CONT mQ}ay be used to continue.& A'INPUT CONVERSION ROUTINE' GIVEN A$ (DIM A$(5)), WITH$'!!LEADING 0 FOR HQ}EX, CONVERTS.'!!ADDRESS TO BINARY (DECIMAL)8'IN D. DESTROYS TRAP, WITHB'D=-1 IF INVALID VALUEL'!B:,"6Q}-!$V'B:,"@B`'$$7@<@,40B j' B6-A:, Bt'$~'6-6@Q} B$'46- -@B:,4 BP'L7<,1A*7<,/FB6-$@%@:7<,,%@Q}&@:A,L B`'D7<,10*7<,/9:6-$@%@:7<,,&@:0,D B`'6-6@'   $'OUTPUT Q}CONVERSION ROUTINE'!!GIVEN D (DECIMAL), CONVERTS'!!TO FOUR CHARACTER HEX IN H$'(DIM H$(4)), USES HI, D1,(D2. Q}D IS NOT DESTROYED (6.0000 $(& 6-&-@@6@($6-P:'@,$6-&$@((6Q}!@ ,67<,.>:@:A,%&@,6 B2(67<,.>:@:0,%,<( 6- $*'-AU'D:OPCODESQ}.LST+'-@@!'(AU&  +2"6-B:,6-$@ 2-@@ +$ !67%<%,. $ BQ}P +67%<%,.7<,*+   4+$\+AABRK,ORA (I X),NOP,NOP,NOP,ORA Z,ASL Z,NOP,PHP,ORA IMM,ASL A]+CCNOP,NOP,ORQ}A 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 ABS X,NOP_+EEJQ}SR,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 (I) Y,NOP,NOP,NOPQ}a+==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 Z,LSR Z,NOP,PHQ}Ac+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,CLI,EOR ABS Y,NOP,NQ}OP,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,JMP IND,ADC ABS,ROQ}R 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 ABS X,NOP,NOP,STA (Q}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,NOP,STY Z X,STA Z Q}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 Z,LDX Z,NOP,TAY,LQ}DA 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 ABS Yn+EETSX,NOP,Q}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,CPY ABS,CMP ABSp+Q}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 ABS X,NOP,CPX IMM,SQ}BC (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) Y,NOP,NOP,NOP,SBQ}C Z X,INC Z Xt+;;NOP,SED,SBC ABS Y,NOP,NOP,NOP,SBC ABS X,INC ABS X,NOP.'-AU'D:CHCODES.LST.'-@Q}@!'(AU& .2"6-B:,6-$@2-@@.$ !67%<%,. $ B P/67%<%Q},.7<,/  $D/EEHEART,RTINT,RTBAR,ULANG,LFINT,DLANG,RTSLANT,LFSLANT,DRTRI,DRSQRE/BBDLTRI,URSQR,ULSQR,UBAR,DBARQ},DLSQR,CLUB,DRANG,MBAR,INTRS,BLOTF/CCDHALF,LFBAR,DTEE,UTEE,LHALF,URANG,ESC,UAROW,DAROW,LAROW,RAROWG/KKSPACE,!,",#,$,%,&,'Q},(,),*,+,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,Y,Z,[,\,]I/HH^,Q}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/FFIHEART,IRTINT,IRTBQ}AR,IULANG,ILFINT,IDLANG,IRTSLNT,ILFSLNT,IDRTRIL/GGIDRSQR,IDLTRI,IURSQR,IULSQR,IUBAR,IDBAR,IDLSQR,ICLUB,IDRANG,IMBARM/GGIIQ}NTRS,IBLOT,IDHALF,ILFBAR,IDTEE,IUTEE,ILHALF,IURANG,RETURN,CSRUPN/FFCSRDN,CSRLF,CSRRT,ISPACE,I!,I",I#,I$,I%,I&,I',I(,I),I*,IQ}+,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,IK,IL,IM,IN,IO,IQ}P,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,In,Io,Ip,Iq,Ir,IsQ},It,Iu,Iv,Iw,IxS///Iy,Iz,ISPADE,IVSTROK,BUZZER,DELCHR,INSCHR D:DISASSMf,Ig,Ih,IiR/22Ij,Ik,Il,Im,In,Io,Ip,Iq,Ir,IsPP  :ABF@P   AA ŠқӠٛ ACKSONVILLE U}TARI AND ET###@@K:( +-&&;@,;@,;@,2( >> FILE U}READER <<7 A < ( ( (A ACAR@F##(READ FILE OFF APE OR ISK?P)@6.>U}:,Z4TAd4DAn @Ġś +AR@**("PUT YOUR DATA U}TAPE IN THE CASSETTE( AND REWIND. A"("(PRESS ON CASSETTE.((THEN PRESS .##@U}@C: A, ˛6 +;AR@@--(%PUT DISK CONTAINING THE FILE YOU WAU}NTJ""(TO READ INTO DISK DRIVE#1.T AYAR^(( ($(WHAT IS THE FILE NAME(h 6.D:6U}7@,.r @@Ġś +6-)@ (>:,6-%@U} F:Ad,"AUA AdAU"(( CHRS READ." A"AUA 6-@U} A  ϛ++(# The file will be read and shown to$$(you just as it is formatted.0(0(% When youU} want to stop, press .--(%The program will ask if you want more&(data to be shown.0 ( (:$ ԛU}#(#(Press to continue)@$ ě@@ ( (!"@!( MANUU}AL ABORT.6-F:A,"A0"A6( END OF FILE %"A8%(NO TAPE (OR DISK)2#U}"A@)"AB)"AC2( READ ERROR ""Ap"(FILE NOT FOUND* "Ac ( SYSTEM ERROR ( CHRS U}READ.  D:FILEREAD( READ ERROR ""Ap"(FILE NOT FOUND* "Ac ( SYSTEM ERROR ( CHRS TCDD!3AAHDHDIADBGINOUSSANEVPOPOPRSFNCHCHSY}  A @ BB@@"Y}&7 @m (@ G  FILEDUMPLLROUTINE TO GET BYTY}ES FROM DISKETTE AND PRINT HEX, DECIMAL AND OP CODESWITH PRINTER(11;@,;@,;@,;@,211Y};@,;@,;@,;@,<LL;@,;@ ,;@ $AV,;@,;@$AV,@ +Y}AD-@@>($Please wait while tables are set up.A(D(FG6-B6-B'6-1 BY}; B G6-P2(PRINTER (Y/N)2B:,"@Q 4Y AR%(Enter skip count%6-Y}U. @6-A:,$ B. @X6- BZ(Enter complete filename[B:,"Y}@\* @!*(@ _1 @@1OPEN DISK FILE` B AY}c (FILE NOT FOUND @dFOR LABEL REFERENCEnFOR LABEL REFERENCE6-F:Ad,"AUAY}5"@!AdAU+ A5 A5"@5!AdAU+ A 5 A5"@")"@bY}+AdAU5 AP A6-&@ 6- 6- 6.Y}$ A)@$ B 6.7@<@,<6-%@<6.7$@ %@<$@ %@ ,Y}!..6.7$@%@<$@%@,&(:   02!2(@:   Y}: AX!$bA#@@P:/6-@>( ҠA$l"$v-@Y}6-*( Ҡ-$6!@&6-6( Ҡ$$(CONT may be used to continueY}& A)F:A,"A6&( Input EOF)4( I/O Error F:A,(@46-((( Type CY}ONT and to continue& @'INPUT CONVERSION ROUTINE' GIVEN A$ (DIM A$(5)), WITH$'!!LEADING 0 FOY}R HEX, CONVERTS.'!!ADDRESS TO BINARY (DECIMAL)8'IN D. DESTROYS TRAP, WITHB'D=-1 IF INVALID VALUEL'!B:,"Y}6-!$V'B:,"@B`'$$7@<@,40B j' B6-A:, Bt'$~'6-6@Y} B$'46- -@B:,4 BP'L7<,1A*7<,/FB6-$@%@:7<,,%@Y}&@:A,L B`'D7<,10*7<,/9:6-$@%@:7<,,&@:0,D B`'6-6@'   $'OUTPY}UT CONVERSION ROUTINE'!!GIVEN D (DECIMAL), CONVERTS'!!TO FOUR CHARACTER HEX IN H$'(DIM H$(4)), USES HI, D1,(DY}2. D IS NOT DESTROYED (6.0000 $(& 6-&-@@6@($6-P:'@,$6-&$@Y}((6!@ ,67<,.>:@:A,%&@,6 B2(67<,.>:@:0,%,<( 6- $*'-AU'D:OPCOY}DES.LST+'-@@!'(AU&  +2"6-B:,6-$@ 2-@@ +$ !67%<%,. $ Y}BP +67%<%,.7<,*+   4+$\+AABRK,ORA (I X),NOP,NOP,NOP,ORA Z,ASL Z,NOP,PHP,ORA IMM,ASL A]+CCNOP,NOPY},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 ABS X,NOP_+EY}EJSR,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 (I) Y,NOP,NOP,Y}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 Z,LSR Z,NOPY},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,CLI,EOR ABS Y,NOY}P,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,JMP IND,ADC ABSY},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 ABS X,NOP,NOP,STY}A (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,NOP,STY Z X,STAY} 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 Z,LDX Z,NOP,TAY}Y,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 ABS Yn+EETSX,NY}OP,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,CPY ABS,CMP ABSY}p+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 ABS X,NOP,CPX IMY}M,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) Y,NOP,NOP,NOPY},SBC Z X,INC Z Xt+;;NOP,SED,SBC ABS Y,NOP,NOP,NOP,SBC ABS X,INC ABS X,NOP.'-AU'D:CHCODES.LST.'-@Y}@!'(AU& .2"6-B:,6-$@2-@@.$ !67%<%,. $ B P/67%Y}<%,.7<,/  $D/EEHEART,RTINT,RTBAR,ULANG,LFINT,DLANG,RTSLANT,LFSLANT,DRTRI,DRSQRE/BBDLTRI,URSQR,ULSQR,UBAR,DY}BAR,DLSQR,CLUB,DRANG,MBAR,INTRS,BLOTF/CCDHALF,LFBAR,DTEE,UTEE,LHALF,URANG,ESC,UAROW,DAROW,LAROW,RAROWG/KKSPACE,!,",#,$,%,Y}&,',(,),*,+,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,Y,Z,[,\,]I/HHY}^,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/FFIHEART,IRTINT,IY}RTBAR,IULANG,ILFINT,IDLANG,IRTSLNT,ILFSLNT,IDRTRIL/GGIDRSQR,IDLTRI,IURSQR,IULSQR,IUBAR,IDBAR,IDLSQR,ICLUB,IDRANG,IMBARM/GGY}IINTRS,IBLOT,IDHALF,ILFBAR,IDTEE,IUTEE,ILHALF,IURANG,RETURN,CSRUPN/FFCSRDN,CSRLF,CSRRT,ISPACE,I!,I",I#,I$,I%,I&,I',I(,I),IY}*,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,IK,IL,IM,IN,IY}O,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,In,Io,Ip,Iq,IrY},Is,It,Iu,Iv,Iw,IxS///Iy,Iz,ISPADE,IVSTROK,BUZZER,DELCHR,INSCHR D:FILEDUMP,Ig,Ih,IiR/22Ij,Ik,Il,Im,In,Io,Ip,Iq,IrXTwTYPHEXFLSMSHINYLONY ]} d''**CHPRINT**CHARACTER SET PRINTOUTn A@x?'@@D:FONT?***YOUR FILENAME HERE]}D#@@E:D*** CHANGE TO "P:" FOR PRINTER!  HEX OR DECIMAL!;@,;@,]}6.0123456789ABCDEF6-6@-A#@ 6. 6-P:'@,E"@)67@]}:A%, ͠Š͠ϠҠ٠Ġՠ͠a}Р 3(6(Z INITIALIZING.....d11;@,;@,;@,;A6,n6.0123456789ABCDEFx6. a}""@@K-@A1@"77@<@,4*767@<@,.*a}?*) 6-B:, @)67%@,.67<%@,. 93 >:A%, M E M O R Y D U M P 6(9a}()& ENTER DECIMAL STARTING ADDRESS) )& OR HEX ADDRESS PRECEDED BY '$') AR4Aa}$$7@<@,4$A -@B:,##7<,20)7<,39A- #6-P:A:,'@,$@a}- A@&6-&B:, @A-@B:,7<,20A27<,/9(6-$@%b}A:7<,,2 A ##7<,2A)7<,3FA##6-$@%@:7<,,&@U $($(WANT DISSASSEMBLY b} Y/N ?0)@6-0"@xAE#6-@#@A@ (>:,$($(WANT PRINTED Cb}OPY Y/N ?@6-)@8"@x.@@E8 A@b}AU.6-@.@@P"'" >:A%,' A';0(>:A%,PRESS ANY KEY b}TO STOP PRINTER; @,(@ LOC-DEC/HEX .?"5(@ ? A1))b}(@ 6(@@AdAUJ#"#-@@ T!BU56b}-&BU6^ 6.=:,6-B:,h**(@7@<@&, r 6- A P|(@: "b}A 6-F:, A(@ <6-%@)6-+@$,%@<6.7<%@,N7@b}<@,40D @ 7@<@,N A0 6-F:, A!(@ !6-%@$$b }7@<@,42A--(@ 7@<@, $$7@<@,0RAp!A'b }6-&AV 6-% A  AA7@<@,4#-(@#$7 AA A,7@b }<@,4),(@((@$ A$$7@<@,4 A87@<@,4Y)b }.(@),Y8 A0/%(@,7@<@,/ A0* 6-6-F:, A*6-%@++(@b } 7@<@, 6-%+AV$,O7@<@,4),(@(6 A E(@)Ob} A0  A $$7@<@,4 A/%(@,7@<@,/ A0N(@ A0b}X -@@ 6-F:,b A(@ l 6-%@  (@v"  Ab} F:Ad,"AUA@)@AR@(,,(#ONTINUE, ESTART, OR TOP C/R/S ?$)@b}$"@gA"@A@A .AR @+@.(b}@$6-P:'AV, A6-&+$AV,&6-P:'@,&6-&+$@,==(@7%@b}<%@,7%@<%@,$(#''0BRK,1ORAX),0*,0*,0*,1ORA,1ASL,0*2#((0PHP,1ORA#,0ASL,0*,0*,2ORA,2ASL,0*:@,<(@>:@',>:@,(5@1(ENTER DISKETTE NAME f$}( FOR END)5*# 4@ @#-?6-6-'6-36-?6-@2(@f%} DISK = <6-%@d&&@@D:*.*n @0x A@U(@f&} $6-%@26-%@>"@I(@U6-%%7@<@,4 FA1"@@(f'}@%(@16- A 6" A 86-P:'@,<"-@&(@" @ f(} @@* B*F:A,"A8@ GD(ERROR #F:A, AT LINE F:A,%AV$F:A,G&f)} D2:NJLABELB*F:A,"A8@ GD(ERROR #F:A, AT LINE F:A,%AV$F:A,G&d INSTRCHNUCCHCCHGRC3CCBYTCHBABITOBITARRROLINEBLANKCOCOLLOCOLHIGSEGHBLOCKWIDTCCC6Pj+}RTYPEPAGESIXROWTEMBLOCBLAN j,} @@j-} !"#$ ##**͠ìԠ ##**j.}ȠӠ٠Š ##**ϠŠҠΛ ##**ϠϠŠĠŠ##**ҢϠ÷׬٩Ҡj/}##**ǮԮ##**##**ӠӠˠΠɠ##**ԠԠj0}ŠԠӠ##**6(>:A%,"A@6A+A,E(E(:IT IS Bj1}EST TO KEEP WIDTH TO HEIGHT RATIO 1/2=(=(2BEST LOOKING BANNER IS WIDTH OF 5 AND HEIGHT OF 10(( (((j2}ENTER LETTER WIDTH, 1 TO 5!@@0#*( (*(ENTER LETTER HEIGHT, 1 TO 10(!@@@2j3} 3Eb Ac(>:A%,d?( ( ((;(&WHAT WOULD YOU LIKE YOUR BANNER TO SAY?n-B:,x 6.7j4},6-@:,(6-P:',%GGA`ApApAA`ApApA6-%@d j5}A 6-& A( -(6-F:AV$%@$%,4-6@6-#8,)6-46-&8,j6}68&<&,-   -6.-8<,"67$,.  -3 & X j7}W6-6-@'6-@36-@?6-@K6-@2W6-@c559<,9,;,;,;j8}@,;,;,;,6-F:AV,, 6--68,-(6-$@,  6-6-L6-A96-@2j9}j 6-6-t0 4YES6-P:$@%,$6-06-@~;,;@$,' -67,.>:,#67,.>:,' j:}# -67B:,%@,.# $ D:BANNER.OK~;,;@$,' -67,.>:,#67,.>:,' h>*+=OTDSFLABYTMODZZZSZSZGRZGRSA`@n<} @  SAMPLE ++(#THIS IS A TEST ROUTINE OF A ROUTINE n=}))(!TO DUMP A GR.6 OR GR.8 PLOT TO AN ( EPSON PRINTER##(AFTER THE PLOT IS DONE TYPE( GOTO 30000(*&(n>}INPUT DESIRED GR MODE(6 OR 8)*#@*@# @+@,'/AYn?}'/AY@y('/@y'/2-@AY@4,/@y6 n@}<-@@y@>,/AY@ d''(INORDER TO DUMP TO PRINTER TYPEn( GOTO 30000nA}0uo6-F:@,!"@-6-@9:6-6@@F6-Ac`R6-@d^6-@h BoGR.8u]"@nB}6-@(6-6@ 46-A@6-A`L6-V B]GR.6y+(( THIS GRAPHICS MODE NOT SUPPORTED+nC}&yDUMP SCREEN TO PRINTERy THIS PROG IS FOR GR.6 ONLYyRON MILLER - SANDIEGO ACEJy;@A,Oy-nD}@@Ty"YyC:,%^y |y.@.@@P:y<*@@')*@@Q<*nE}@@$y*@AUy%%6-F:Aa,$AV%F:A`,z))6-F:%@,$AV%F:%@,Dz-nF}Iz-@NzC*@@')*@@u6*@C*@z-%%%z 6-FnG}:,z6-?:C:,<<,z*@z*@z p{*@AUz{ { {<*@AU)*@nH}AU<*@AU{6|BYTE EXPANDING SUBROUTINE8|169,0,133,213,104:|104,104,133,205,104<|10nI}4,240,8,6,205,6>|205,6,205,6,205,162@|4,6,212,6,212,6,205B|144,6,165,212,9,3D|133,212,202,208,239,96 DnJ}:GR68DUMP205,6>|205,6,205,6,205,162@|4,6,212,6,212,6,205B|144,6,165,212,9,3D|133,212,202,208,239,96 Dl 31000 REM EPSON MX-80 GR.8 SCREEN DUMP31001 REM BY William Frank31002 REM 5310 JACKWOOD HOUSTON, TX 7709631003 REM HousrL}ton Atari Computer Enthusiasts31004 REM COMPLETE DUMP TAKES ABOUT 18 MINUTES31010 LPRINT CHR$(7):PRINT CHR$(253):REM BELL ArM}ND BUZZ WARNING TO SCREEN DUMP31015 POKE 53279,031020 FOR I=1 TO 50031030 IF PEEK(53279)=6 THEN 31060:REM Push Start ButtorN}n for DUMP31040 NEXT I31050 RETURN 31060 REM SCREEN DUMP ROUTINE STARTS HERE31065 DIM DP$(1)31070 XSTART=0:XEND=319:YSTArO}RT=0:YEND=159:REM GR.831075 OPEN #1,8,0,"P:"31090 PRINT #1;CHR$(27);"A";CHR$(8)31095 REM SET LINE SPACING TO 8 DOTS31110 rP}FOR Y=YSTART TO YEND STEP 831115 PRINT #1;CHR$(27);"K";CHR$(144);CHR$(1);31116 REM TURN ON BIT GRAPHICS31120 DP$=CHR$(0)3rQ}1125 FOR JJ=1 TO 80:PRINT #1;DP$;:NEXT JJ:REM CENTERS PICTURE31150 FOR X=XSTART TO XEND STEP 131230 LOCATE X,Y,PIX131240 LrR}OCATE X,Y+1,PIX231250 LOCATE X,Y+2,PIX331260 LOCATE X,Y+3,PIX431270 LOCATE X,Y+4,PIX531275 LOCATE X,Y+5,PIX631280 LOCATErS} X,Y+6,PIX731285 LOCATE X,Y+7,PIX831290 IF PIX1<>0 THEN PIX1=12831300 IF PIX2<>0 THEN PIX2=6431310 IF PIX3<>0 THEN PIX3=3rT}231320 IF PIX4<>0 THEN PIX4=1631330 IF PIX5<>0 THEN PIX5=831335 IF PIX6<>0 THEN PIX6=431340 IF PIX7<>0 THEN PIX7=231345 rU}IF PIX8<>0 THEN PIX8=131350 PIXEL=PIX1+PIX2+PIX3+PIX4+PIX5+PIX6+PIX7+PIX831360 DP$=CHR$(PIXEL)31400 PRINT #1;DP$;31410 NErV}XT X31450 PRINT #1;CHR$(0):REM LINE FEED31500 POKE 77,031600 NEXT Y31650 PRINT #1;CHR$(27);"A";CHR$(12)31675 REM RESTORErW} LINE SPACING31700 CLOSE #131775 LPRINT CHR$(7):PRINT CHR$(253):REM BELL AND BUZZ WARNING -- SCREEN DUMP IS OVER31800 RETUrX}RN E SPACING31700 CLOSE #131775 LPRINT CHR$(7):PRINT CHR$(253):REM BELL AND BUZZ WARNING -- SCREEN DUMP IS OVER31800 RETUp32700 DIM ML$(209),LINE$(400)32702 ML$="hhhhh΢H΅υi(i˱vZ}8۩$"32704 ML$(107)="$$$$$$$ˠѤ8v[}И)h`"32705 REM ԠŤ΢Ҡ̠ ɢҠś32706 LINE$="I":IF LINE$(1,1)=v\}"I" THEN FOR I=100 TO 170 STEP 10:ML$(I,I)="0":NEXT I:REM ν̠ɽŠ32708 LINE$="":LINE$(320)="":LINE$(2)=LINEv]}$32710 SDL=PEEK(560)+256*PEEK(561):SDD=PEEK(SDL+4)+256*PEEK(SDL+5)32712 CLOSE #1:OPEN #1,8,0,"P:":? #1;"A"32714 FOR I=SDv^}D TO SDD+7679 STEP 32032716 A=USR(ADR(ML$),ADR(LINE$),I)32718 ? #1;"K@":? #1;LINE$(1,320):? #1:? #1:? #1:? #1:? #1:? #1:?v_} #132720 NEXT I:STOP 32716 A=USR(ADR(ML$),ADR(LINE$),I)32718 ? #1;"K@":? #1;LINE$(1,320):? #1:? #1:? #1:? #1:? #1:? #1:?t.DLOBYTCURBLNKFS1FS2FC1FC2MTXZIPTTTCDAFILENAMEDIRCCL1L2L3L4L5YNTOFLADDOONULza}IMTOMSTARDLPPCC@ @ zb} zc} !"#$%&'()*zd}+,-./0123n **************************p * ze} *r * By Dave Elwood *s *Sherman Oaks ca. Sept.84*v **************************A +@Azf}R@A6-F:Aa,$AV%F:A`,-%@%@0"  ''66,96,159,2,2,2,2,2,2,2,2,2,2zg},2,2KA@R'A@R9A @KA@2-@@2(@*** PTRFONTzh} *****(" CREATE A FONT FOR GEMINI PRINTERS.(.(#  By Dave Elwood Sherman Oaks Ca ee;@,;@,;@zi},;@,;@,;@,9@<@,;@#,hh9@,;@,;@,;@,;A#zj},;@,;@,;@ ,;@,GG;@,;@,;@,;@,;@,;@,-!6zk}. -6-AHD-@@+-@@<68<,-@ D g +Azl}%A7AR@C6-AO6-[6-@g6-@9 6.6. 6.'6.0zm}6. 96. " A" A@, - (-%@(6P6-6-R:,46-+"@,&+"@,P6zn}-+"@,&+"@,@(6-&+"6@,(6-%+"@,J+),AT+@+F:B2y,"@A zo}Y"F:B2y,"@" A#^T:,"@ c6-@i#@hL"6-@!-%(zp}3-%@7(H68<,-@L r@6--('-%@+(<68<,-@ | 6-6-"zq}@A "@A`"@A A "@ ($8&@<&@,"@zr}( ($8%@<&@,"@(  Ap"@ "@*"@ U6-&+"@zs},46-&+8&@<,"@,K6-&+8<,"@,U Ap"@ "@*"@ U6-zt}%+"@,46-%+8%@<,"@,K6-%+8<,"@,U Ap"@ ($8&@<%@,"zu}@( ($8%@<%@,"@( :5"-('-%@+(5 AD - (-%zv}@(N 6-%6-%-X:8<,"@(&-%@*(66-@: b)(-%@(%6-zw}) l##@@K:v0-@@0( Store this character.-@@.( Deletzx}e a character)-@@)(from stored set.-@@.( Send stored set to%-@@%(zy} the Printer)-@@ )( Save this Set,-@@,( Recall Saved set0-@@0( zz}Erase this Character*-@@*( Return to Edit0-@@0( Print this character+-@z{}@+(in Block graphics*-@@*( Disk Directory -@"@ (WHICH?)@6-&z|}@H!! )!@ A@OOAA@A@APA AeApAA#(z}}>:A%,Ok!...# AP-@@ -@(  */-@@/(z~}40-@@0(==>>4ApH 6.6.R/-@@/(OK!--Addinz}g character\8-@@8(''To the current set f6-%@67<,.p-67B:,%@,.-Redez}fined Characterz%67B:,%@,.%No Decender11*** Ԥ ***2-@@z}#6-268,-9-@@@96-$@%+"@,68<,-$+8<,"@,68,-z}8,%8<, !67B:,%@,.>:8,,! ,#6-+&@,$@%@,67,.B"@8($} Setz} is Full 'SAVE IT NOW!'B A0(}Wait... AP,,*** ***3( }Working...3z}@@P:P0(@>:@',>:@B,>:,PCopy Normal Characters to RAM$:-@z}6@:6-+&@,$@%@8[?(@>:@',>:@B,>:@,7<%@,[Define Download Cz}haracterBO0(@>:@',>:@6,>:@,OActivate Download CharactersL V&"(}Print out the set (Y/Nz}) &` 4Y(@j%@(}Wait...% APt*** ***~7 Ap*@@z}7(@!!-@$@@C(@7<%@,! ,@9(}Wait...C APz}*** ***) 6. 67A#,.)67@,.B Ap@5@@Bz}@!!-@$@@I@#67<%@,.' 2@?(}Wait...I AP,(>:z}A%, A",AR 6.D:((Filename67@<@,.$*** z} *** 0 A0@@D:*.*@( A6@)(Hit to continue6z})@(AUA2(}Wait... AP<$$*** ***F.-@@*(z}.K ( }Deleting  Wait...P 6-C:,Z-B:,@d>:F:%,,4An xLz}*( }Character '' Not in this Set>-@AB L AP/-%B:,%&@+F:%@,/ 06z}-&@&67B:,&@,.0 AP!!*** ***B:,"$5 6. 67@&,.)6z}7@,.56--@B:,@%6-%@!67<,.7<,% +-@ (( Ԡz}Ժ+$*** ԠР ***6. 6. 6. | | "6. | z} |,6.  6)-@ @)( For Menu;--@ @-( Change color@/-@z}@(+-@@/(T-@@@^3-@@%(/-@@%3(h rz}3-@%@(/-@%@3((-@%@(% A($*** ***.z}@.@@P:C/(@>:@',>:@6,>:,CCancel dnload set7((@>:@'z},A>:@,7L/F=1/2 inchF/(@>:@',>:@,>:@,FUnidirectional Print-@@z}@-@@N8<,"@6(@>:A9,>:A9,D6-%@N Au(@z}  (@-@@N8<,"@6(@>:A9,>:A9,D6-%@N Az}(@   (@( ((@>:@',>:@d,@ Ap9( }Error # !(F:z}A,9( Detected Try againA@@4(Hit to continueA)@AUA" z}(}Wait... APX6-H:,$AP(6-%@4A@AT-@@PX  F:B2yz},"@$ A# D:PTRFONT.RUN(6-%@4A@AT-@@PX  F:B2yx/32400 REM **************************32410 REM * THIS REM IS TO LET YOU *32415 REM * KNOW THAT THIS VERSION *32420 REM * OF~} BUNCRUSH HAS BEEN *32430 REM * IMPROVED TO HANDLE ALL *32440 REM * CASES OF IF/THEN. DON'T*32450 REM * TYPE IN THIS REM~}, JUST *32460 REM * READ FOR INFORMATION.. *32470 REM **************************32480 REM *32500 CLR :DIM VAR$(80),NUM$(5~}):CA=PEEK(130)+PEEK(131)*256:CC=1:POKE 1699,032502 ? "}":LPRINT "CROSS REFERENCE UTILITY VER. 2.6 BY TONY MESSINA NEWPORT, R~}I"32503 LPRINT :LPRINT :LPRINT "VAR LINE NUMBERS":LPRINT :GOSUB 3254232504 TP=PEEK(CA):IF TP>=128 THEN TP=TP-128~}:POKE 1699,132506 VAR$(CC,CC)=CHR$(TP)32508 IF PEEK(1699) THEN GOSUB 3252632510 CA=CA+1:CC=CC+1:GOTO 3250432512 LPRINT :L~}PRINT "# OF VARIABLES= ";PEEK(1695)-12832513 END 32526 IF VAR$="VAR$" THEN POP :GOTO 3251232527 FOR X=CC+1 TO 15:VAR$(X,X)~}=" ":NEXT X:GOTO 3253032530 A=USR(1536)32532 IF PEEK(1694) THEN GOTO 3253632534 VAR$(X-1,X-1)=" ":IF X<=16 THEN VAR$(LEN(V~}AR$)+1)="NO REFERENCES"32535 LPRINT VAR$:LPRINT :CC=0:POKE 1699,0:VAR$="":NUM$="":RETURN 32536 CL=PEEK(1697)+PEEK(1698)*256~}32538 NUM$=STR$(CL):IF LEN(VAR$)+LEN(NUM$)+2>80 THEN LPRINT VAR$:VAR$=" "32540 VAR$(LEN(VAR$)+1)=NUM$:VAR$(LE~}N(VAR$)+1)=", ":X=LEN(VAR$):GOTO 3253032542 RESTORE 32546:? "Ǡ̠":FOR X=1536 TO 1699:READ TP:POKE X,TP:NEXT X~}32544 ? CHR$(125):? "ϡ":RETURN 32546 DATA 169,0,205,158,6,208,8,165,136,13332548 DATA 205,165,137,133,206,160,0,177,~}205,14132550 DATA 161,6,200,177,205,141,162,6,201,12632552 DATA 208,7,173,161,6,201,244,240,96,20032554 DATA 177,205,141,1~}57,6,160,4,177,205,20132556 DATA 20,208,9,192,4,240,1,200,200,7632558 DATA 115,6,205,159,6,240,59,201,0,24032560 DATA 49,2~}01,1,240,45,201,14,208,8,15232562 DATA 24,105,7,168,76,115,6,200,201,1532564 DATA 208,23,136,136,177,205,200,200,201,27325~}66 DATA 240,13,177,205,140,160,6,238,160,632568 DATA 24,109,160,6,168,204,157,6,144,18332570 DATA 32,144,6,76,15,6,141,158,~}6,3232572 DATA 144,6,76,142,6,136,238,159,6,14032574 DATA 158,6,104,96,165,205,24,109,157,632576 DATA 133,205,144,2,230,20~}6,96,0,0,12832578 DATA 0,0,0,0,0,038,159,6,14032574 DATA 158,6,104,96,165,205,24,109,157,632576 DATA 133,205,144,2,230,20|$ ABCDMXYLOOBBA } S."D:MENU.SYS LOAD*IT BY KARL STIEFVATERREVISED 10/24}/85BY CLAYTON WALNUMCOPYRIGHT (C) 1985(BY ANALOG COMPUTING2 Ap<&&;@ ,;@,;@@},FA +AR@A6-F:A`,%F:Aa,$AVPk0@70@Q0}@@k0@ZG%@@d%@3%@@G%@&@Hd70}@@70@@@n`6-6-% Ap,(}N( PD130 - A UTI}LS`-@@x1@1@@D:*.*2@27@<@,4 FA`&&}7@<@,4SYSA06-%@( 2@27@<@,4 FA`&&7@}<@,4SYSAE( A0K-@(->.-@@!K(USE