@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 ALLOWED697 FREE SECTORS COPYING---D8:COPY32.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- 164ɛ+,' 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 D8u05  15 2 2151^116115ύ011$r2ԭ5 3)5)5ԭx GT}@@L00)+& 2 L0=ɛ -L!1LV1L1 /3 3ȹ441L-4 v3 25 2H 2h͔5U}L3L3 2 k3U hh`DOC`QL3P1Lk0S1H /3h0B k3@ VL0LU!#$53 1181118V}1111Ε5 1Lk0552 1Ȍ1i111i11115Lk0pppB4f5&&&&&&&&^6f^6&&&&&W}&&A1@BJ D2ELVK@BHILV^Щ6 2BD2EJ VBD5EHI0 V0%5X}5 2iХiL[2 25 25`D:*.*` i@`8 ``@i `8@`0 BLV525<4Y}5`HH i ԍΗ552 ԍhh@ Lح1Э1Ѣ 24.4 24Z}4`D4E` 2BJ k3LVRH` 2BD4EhK)I JLV333:,4 e@+%AAHB(ŠҧӠ}ҡe(ĠàҠ͠a-(%ɠҭҠΠW(%렦頠}a A`q,($INPUT FORMULA AS ڽΠӠƠئ٩R(!MAKE SURE THAT SYNTAX IS CORRECT!q((eg: PAIRS OF PARENTHESIS})E (}AY%-@/(14 ;-@E(40 J-@(104 &-@!/(CONT5-G}AB@J&UAY@4'AB@U()}ҡӠ٠ΠMM(ENOTE: ALL THR}EE PRIMARY AXIS (X,Y,Z) BE IN SPECIFIED DOMAINS!_( ( (Y(GAUTOMATIC BOUNDS SELECTION ENSURES FULL PLOTTING BU}T TAKES MORE TIME..._6-g(U(JPLEASE CHOOSE |1] AUTOMATIC SCALING Z-AXIS BOUNDS |2] MANUAL SETTINGS.Yg"A} @((INPUT LOWER LIMIT#<(INPUT UPPER LIMIT@&!)!) (WOOPS!& A%(( LOWE}R LIMIT%6-"( UPPER LIMIT"6-&!)!) (WOOPS!& A N(.("DESIRED RESOLUTION (4=HI}GH;10=LOW)2@6-%@N6-$>P @(((Π ADD LABELS & BORDERS@(Ԡ START OVER --(%Ԡ P}LOT SURFACE TO 1020 PLOTTER6($(PRESS ANY KEY TO BEGIN...6AdAU F:Ad,"AUA@> " (}4(# AUTO SCALING SEQUENCE IN ACTION!> AV6-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,10}4,133,215,104,133,214,104,104,168,104,133jii217,104,133,216,104,104,240,236,133,212,24,165,214,101,88,133,214,165,89,101,2}15,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,16,14,201,32,208,4,169,0,16,6,201,64,208,2__169,32,133,218,138,41,31,5,218,13}3,218,169,0,162,3,6,218,42,202,208,250,109,244,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 COMMANDJ67B:,,.*MT$77PLOTTER SCALING AND DUMP STRING BUILDING SEQUENCE-}-67B:,%@,.=:P:@$'@,,67B:,%@,.,..67B:,%@,.=:P:6@$'@,,67B:,%}@,.;$ PRINT THE DUMP$ .@.@@P: (@ (@I }&&(@7@>(@M,6@$+A&,*J0,4;1,0;0,-4}hF:A,A| TITLE AND INITIALIZATION@@6.6hBDEHI  <}OO67@U,.<    ĩOO67A,.:AU,QQ67A),.>`RɥPee`/ee0GG67A,.4(e}eЕee:GG6.=h01eeAO ݩ֩N`D$XRR9}@,9@,;@,;@,;AB,;A(,;@a,l' +@'0@'-@}@'(@1020*-@@*(@picture(-@@((@;AR@};(!(c)1984 George L. Graff A@ #A`(-@"$68,-( 712,708,709},710 $-@ 68,-$  6-@6-A)46-A'AH6-@\''READ MACHI}NE LANGUAGE ROUTINES305f #A@pM-@A"'67,.>:,+ ?-B&B(7C"IM z-A6}AV{ " | ;@,OPEN PICTURE FILETRAP 940##(OUCH TABLET OR RAPHICS 8?}0T*0G A `G }ENTER FILENAME--@B:,:7<,4:='G A $! 6.6.D:}!67@,.8+@+@@LDISPLAY PICTUREV/ +@$/6-F:A`,%F:Aa,$AV}j %@t! 4G6-?:C:,,! A~6-?:C:,,6-?:C:,,6-@++POKE SAVMSC,MEMLO:POK}E SAVMSC+1,MEMHIA`6-?:C:,%@x,# -@ 6-8,"8,}"@8,AH("@8,A<"@8,@pP"@8,@d }xI%@%@3%AI%A%@6-F:B2y,%"@6-@% A }"@$ A SELECT COLORS(Choose Pen Color:( Black ( Blue },( Green @( Red T( Blank hS-@B( Pen Color No.%@}?8,FO68,-S | AGRAPHICS 7+ CONVERTERAND SCREEN LOADER FROMA.N.A.L.O.G. NO. 12}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,2},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,165},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==89},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,}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$}$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,}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,207},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,}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,}3,32,86,228,48,1,96,104,104,96(#$-@@ (F:%,$ D2:BOBSPGM.V20162,16,169,1,157,72,3,169,0,157,73,Y12 AFILEENAMECOUNCSIZECCOL1CCOL2CSIZ]]@A8@@]} ] ] ]@ +GG;B@,;@ ,;@ ,;@},;@,;@,/(+( WOULD YOU LIKE 0 OR 0 COLUMNS?/ 46.S0 @%/7@<@,}04%6.S0/ @% 6.S1/+(#}AINBOW OR INGLE COLOR PRINTING?/ 46.R @).7@}<@,0S$6.R. @) 6.S 4R @5B((PICK YOUR COLOR:>( 1=BLACK 2=BLUE 3=GREEN 4=RED}B 46.0 @5 '01*02*03*04' @0!6-A:,&@6.=:,# (}$(7@<}@,40(6-@%(7@<@,41(6-@@' A (##@@P:2(@}<(@F6-P 6.D:ZM(ENTER FILE NAME:5( FOR DIRECTORYI( 'END' TO STOPM}d 4END A`n 4(} Apx=37@<@,4:)7@<@,4:= A@67@},.6. A @@27@<@,4:(6-@2 Au6-@ }4S6-A:,,,(@C*P FILE = 7,I7@<@,410(@M0,-19?(@II }A%(@M0,-9%(@I 4S A)6-%@"@)6-6-@})@$"AU*B:,"$6. "AU A )67<,.>:,6-%@) A(6-B:},'P:,(6-P:%@,-@ 6-$!B:,6-B:,..(@C*P7$&+&@,<,I}7@<@,410(@M0,-19?(@II Ap%(@M0,-9%(@I  4S} A)6-%@"@)6-" 6. A,6-F:A,6="Ap"(FILE NOT FOUND%(}((3@= @@JA6G(ERROR # ON LINE F:A,$AV%F:A,JJ@@T}(}PRINT COMPLETE^ @@h@@r&&@@D:*.*| A@}( A@(( @6-F:A,%%6-F:A,$AV%F:A,7A84(}ERROR # OCCURRED ON LINE 7/+("TURN ON PLOTTER AND PRESS /@(} @9D}:LISTER OCCURRED ON LINE 7/+("TURN ON PLOTTER AND PRESS /@(} @9D TiF$$##| DIRECTORY PRINTER FOR 1020|$$| by Ray Allen } |$$ 3#@@P:3(@3;@ ,3@@ }D:*.* @P@(!(@ ! @02@@ D:DIR1020.BAS } THE 1020 SCREEN DUMP --------------------This program will dump any GR.8screen that has been saved as astand$}ard 62 sector file. It's notfast, but it works. A full screendump using Atari Basic will take 50minutes! Using Turbo Basic$}, thedump time can be cut to 30 minutes.And by compiling the program withthe Turbo Basic Compiler you cancut the dump tim$}e further to 23minutes.To use, simply enter the name ofthe .PIC file you wish to dump. Youdon't have to input "D:". You $}willthen be asked for a color to printthe picture in. You can only printin one color as GR.8 is only onecolor but you can$} chose which ofthe 4 pens to use. The picture willload in and then dump to the 1020. as GR.8 is only onecolor but you can$WwWmCOLOUFILET1KEINPUTA (} !!*#########################*!!# PLOTTER DRIVER II+ #!!# 1020 HI-RES GR.8 DUMPER #!!# 62-SECTOR (}FILE'S ONLY #!!# ----------------------- ##!!# BY RAY ALLEN #(!!# NEW ATARI USER - DEC 90 #-!!*#####(}####################*27ΠԭР<A A%* MAIN SCREENF! AU!* INPUT FILE NAMEK" Au(}"* INPUT PEN COLOURP A%* LOAD PICTUREU AU* PRINT PICTUREZ A* RUN AGAIN_d(}ΠΠin1 +AdAU1AR@s+-@@+(Run again (Y/N) x6-F:Ad,(}}"@C%."@5++AdAU. A ԠŠ A(}##@@P:@e$$(@>:@',>:@,(@C(@(}M48,-400(@I(@M0,319 @6--@A11A&&@(}'"@1 Au#,A&&@#@ 6-%@00(@MA,A&(}$@ -A@6@11A&&@'"@1 Au#,A&&@#@(} 6-%@00(@M,A&$@  A A::(@M$@(}&@,A&$@22(@D$@,A&$@ "$''(@I'(@)}M0,-230,@1$6;ĠŠ@E[ +@$'0@A0@@)}[0@@J AO @@TcAP@*ARF:@,?AS)}F:@,QAVAUcAWAUY*6-?:C:hhhLV,<@,*@^AdAUc$h)}mԠΠҠrw--@@-(Enter colour of PEN|!-@@!(1=BLACK -@@)} (2=BLUE!-@@!(3=GREEN-@@(4=RED-@@(> ?'AdA)}U'AR@6-F:Ad,"@16-$"@06-@$"@&6-@)}$"@$6-@$ AԠŠŠ)-@@)( )} -@@(> 4AB:,@AU%4C)4C:6.C:% A?7)}@<@,0D:&6.D:567@,.? A 6.6. D:PICTURE-@@( $) }ԭРΠ  +AdAU70@@ @70@@ @*;@) },;@,*;@,--@@-(1020 HI-RES PLOTTER!/-@@/(---------------------&) }1-@ @1(Enter PICTURE file name+%-@@#%( By R.Allen0-@@(> 50@) }@ @:$?DҠРŠIN +AdAUS6-F:A,X"A9) }A5]"A8A%b"ApAEg.-@@*(ERROR NUMBER:- .(l APqC-@)}@(( ERROR NUMBER -(C( NO POWER TO UNITv AP{C-@@(( ERROR NUMBER -(C( NO DIS)}K IN DRIVE APA-@@(( ERROR NUMBER -(A( FILE NOT FOUND2-@@2(Ԡ٠)}Ϡ٠!6-F:Ad, AU!% AUD:DUMP1020.BAS FOUND2-@@2(Ԡ٠(R ****************************** * * * ATARIWriter PRINTER DRIVER * * -} * ****************************** PREPARING A WORK DISK 1. Select the appropriate driver for the -}printer you are using with ATARIWriter. 2. Prepare a formatted work disk containing DOS. 3. Copy the selected-} driver file over to your work disk, and rename it "AUTORUN.SYS".isk containing DOS. 3. Copy the selected,M0000`H0K00y0G0F0D0E0C090805040``` L``````88` j0 0 LP0881}`8` 0J` ƐL0HJ 0Ɛh`l0`` L``````88` j0 0 LP0880;{%%DEMO-ALPHA ROTATE ON ATARI 1020..THE PROGRAM RUN 4 TIMES LOOKS LIKE BELOW ##@5}@P: @(@P (@I(@Q0 A(5}@Q1 A!(@Q2" A#(@Q3$ A(@2d(@5} P HELLO n$ D2:ROTATE.BASQ2" A#(@Q3$ A(@2d(@4'8 "D@ 9@<@,##@@]}P:4$(@>:@',>:@,4(@C0(22(@!P ***** PLOTTING ABILITY *****2)(@H)]}(@ M240,-200<"(@I"(@C0F--@-6-$@e'@PP68<,-G:,$]}AZ68<@,-E:,$Ad n6-@x<<(@M8<,,8<@,]}-@@)6-%@!@)6- (@C 6--@@% 6-%] }!@%6-&@00(@D8<,,8<@,  (@H(@M0,]!}-240(@A@D2:PLOTTING.BAS@,  (@H(@M0,\B ?@  COSCREENDMPALLQIAB1 AU a#} ( @ A AHAe&&;@ ,;@ ,;@ ,r0@@@#(}5-@a$}@`(&頱r-@@t(Ӯ+-@@I(a%}[-@@t(Disk Directory [Y/N]Q#@@K:0)@;@G"@a&}Q A A'0@@@G(Insert file disk and g@@K:t)@a'}@ A @@ 6-AH+@ -%@@D%@F:@a(},[%@F:@,o%@%@ @0 *6-?:C:hhhLV,<@,*@-#@a)}@P:-+@ %%6-F:@,%F:@,$AVKK6-?:C:!hhh hhBhEhDhIhH `,<@<@a*}<<Av,@ @Hd#6-#-Af @Hg @R1a+},0h @In-@yx 16-P:'@,%@KGAaAbAcAdAa,}eAfAgAhK  @H @R1,0 @I-@y 1a-}6-P:'@,%@GGAqArAsAtAuAvAwAx   J@+a.}!(DONE5-@@<(@ J @(@J0,8$'$(@J0,3*R0,1*J0,2*R0,2'$;8a/}(@'R0,1*J0,1*R0,1*J0,1*R0,1*J0,1*R0,1*J0,1;$'$(@R0,2*J0,2*R0,2*J0,2'$1.(@R0,1*J0,1*R0,2*a0}J0,1*R0,2*J0,11$,)(@R0,2*J0,1*R0,2*J0,1*R0,2,$"(@R0,2*J0,1*R0,5"$(@R0,8$(a1}@J0,8$,)(@R0,2*J0,2*R0,1*J0,2*R0,1,$1.(@J0,1*R0,3*J0,1*R0,1*J0,1*R0,11$,)(@a2}R0,1*J0,1*R0,3*J0,1*R0,2,$,)(@R0,2*J0,1*R0,3*J0,1*R0,1,$,)(@R0,1*J0,1*R0,2*J0,1*R0,3,$"(a3}@R0,4*J0,1*R0,3"$(@R0,8$2&@@D:*.*26-<@<7@a4}<@,4 FREE SECTORSAPA7@<@,4DIG,6-%@A(7@<@, A_@a5}"@(!All picture files must have 'DIG'_(extenstion. EX. 'GIRL.DIG'$, 6.6. A@-W (a6}Input Picture file-name$-6-B:,9!@M(FILE-NAME ERRORW A6.7@<@,4D:.6.7@<,a7}@_67@<@,.D:667@<%@,.?6-B:,_67%@<%@,..DIGJ( Picture file $T!a8}(FILE NAME ERROR! AcF:A,"Ap6(}ŠԠĠҠJ-@A N Y@c @a9}aF:A,"A84(}ҠӠŠH-@A L W@a @F$(}姠᧠a:}ῠ8-@A < F @D:DUMP1020.TWOTWOD:PHIL.DIGR6F$(}姠᧠`d`M`PFNMODMMODEKCDADIOCADDNUCSCROCOXYXSIZCOLINMAMAIN 2e<}@ BA3@2e=}@@@@77@QVVBB*F:B2y,@e>}' D:DUMP1020*Microplot 1020Version 1.0XL/XE only!!!QG;@ ,;@0,;@,9@,;e?}AB,;@U,Q B \ +AAB1AAB<@\@@K:e@}( ( | MICROPLOT 1020 |( | |( | by |(eA} | Peter Payne |( ?( ( (Enter Filename: $+45 A? @0#B:, eB}@@E(C37@<@,4:)7@<@,4:96.C @P- 6.D1:67@,.2? @P%eC}(inary or oala: )?0B*0K@P7 A<" A0"SET PLOTTER COLORSA +@1CALL GR.7+F#e}*+#ABCDZEFGADA@@@AyAAqA @9E} @@$@@AA9F}AP@ @@  NO TWO DRAWINGS ARE ALIKE!;@,{6-@6-A9G}'6-A36-AP?6-K6-@W6-@c6-@$o6-@u6-{6- MP:(9H}&(C8(M,6>"CI6-M 6-P:H:,$,6-P:H:,$,6-P:H:,$,6-P:H:,$,6-P:H9I}:,$,6-P:H:,$,6-P:H:,$,6-P:H:,$,(! -6-%"$!6-- -$"$ (C2%(9J}M,%(D,7# 6-%6-%6-%#6-%< 6-66-%A 6-66-%F 6-9K}66-%K 6-66-%P 6-66-%U 6-66-%Z 6-66-%_ 6-669L}-%d"  (M,6"nD (} (((+(DO YOU WANT ANOTHER?.(D(NO TWO ARE ALIKE!x+(( ENTER (9M}Y/N)+0YA (}  D8:RANDOM.BASOU WANT ANOTHER?.(D(NO TWO ARE ALIKE!x+(( ENTER (8B !LOOXYXYA1A2A3SIONU@@@ =O} |6-@$/@@P:X9@<,9@<,9@<,d6=P}-Ap6-@P|6-@$(@.6-.-6@@@'(_6--68<=Q},-P:$%?P,M68@<,-P:$%?P%,[6-%@_ 2.6-.-@6@'<p 6-6M:=R}@,$%M:@,>68<,-P:$%?P,^68@<,-P:$%?P%,l6-%@p F/6-/-=S}6@6@'Po6-M:@,$%M:@,=68<,-P:$%?P,]68@<,-P:$%?P%,k6-%@=T}o Z!(@C1!-dc_(@M8@<,,8<,*D8@<,,=U}8<,c n!(@C2!-xc_(@M8@<,,8<,*D8@<=V},,8<,c !(@C3!-c_(@M8@<,,8<,*D8@=W}<,,8<,c (@M0,-600&D8:TRIANG1.BAS<,,8<,*D8@<O !1GLOOXYXYA1A2A3SIONU@@@ AY} |6-@$/@@P:X9@<,9@<,9@<,d6AZ}-Ap6-@P|6-@$(@.6-.-6@@@'(_6--6868<,-P:$%?P,^68@<,-P:$%?P%,l6-%@p F/6-/-A]}6@6@'Po6-M:@,$%M:@,=68<,-P:$%?P,]68@<,-P:$%?P%,k6-%@A^}o UGOTO 200Z!(@C1!-dWS(@M8@<,,8<,*D8@<,,A_}8<,W n!(@C2!-xWS(@M8@<,,8<,*D8@<,,8A`}<,W !(@C3!-WS(@M8@<,,8<,*D8@<,,8Aa}<,W (@M0,-600&-@(@M8@<,,8<,*D8@<,Ab},8<,*D8@<,,8<,*D8@<,,8<, D8:TRIANG2.BAS<,@s@FGw ##@@P:(@Ed}'6-AP6-@'6-@-@(@C -A6@((@Ee}M,$2''(@D+A&,$%,06 7"6@6-6@8 6-6F d(@M0Ef},-400@ D8:COLOR.BAS LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK FILE $% d(@M0Dh  TDP@@ 9A`<@,Iq}b%DOS SYSb*)DUP SYSb SAUTORUN SYSb_HELP DOCbnLBL1020 BASb3ZPLT1020BASb#KPLT1020BASbRAINBOW BASbDIR1020 BASbDUMP1020DOCbDUMP1020BASbAW1020 DOCbAW1020 OBJbROTATE BASb DRANDOM BASb NTRIANG1 BASb XTRIANG2 BASbcCOLOR BASbgSINES BASbvSPHERE BASb|SAMPLE BASbPOLYGON BASb GRAPH BASbPLOTTINGBASb"MPNT1020BASb;PLOT1020BASbPLOTTER1BASbPLOTTER2BASbPLOTTER3BASb PLOTTER4BASbAT1020 DOC-A`@**68<@,-P:A$G:$@,,(**68<@,-P:@0$G:$@,,2**68<Ir}@,-P:A$G:$@P,,< F##@@P:P$$(@>:@',>:@,Z-@Is}@d::(@C*M,8@<,&@Pn-A`@x77(@D$@0%It},8<,&@P   $$(@C0*M00,-50*X1,13,36##(@M234,-150*X0,20,10(@Iu}M0,-800@ D8:SINES.BASC0*M00,-50*X1,13,36##(@M234,-150*X0,20,10(@H0^wRRSIZCCTIMXY @pMw}%F-#@@P:- @P# (} (( INPUT RADIUS:# 6-++(@ *H*I*M0,6&@ Mx}*I6-A@6-6-@(@M%, -@6@-My}A`@":"@6-%$E:,06-&+$G:,$G:,,: A@,$6-&+$G:,$G:,,$6-%$E:,T(@Mz}D,^   @6-%@"@6(@M,%@ Ap&&(@H*M0,6&@ M{}*I@ D8:SPHERE.BAS"@6(@M,%@ Ap&&(@H*M0,6&@ L)@GHxjD@ ##@@P:(@Q}}9@<@,(-@26-$@e'@P<''68<,-G:,$A%A@F''68<@Q~},-E:,$A&A@P dH6-@H(@M8<,,8<@,n-@@Q}x)6-%@!@)6- (@C 6--@@% 6-%!@%6-Q}&@00(@D8<,,8<@,    D8:SAMPLE.BAS@AHcqtA!cViA7BQ}hF)9Ap 9A4&&"8<,,8<@,    D8:SAMPLE.BAS@AHcqtA!cViA7BP8 !D@ 9@<@,##@@U}P:4$ @>:@',>:@,4 @C0(22 @!P ***** PLOTTING ABILITY *****2) @H)U} @ M240,-200<" @I" @C0F--@-6-$@e'@PP68<,-G:,$U}AZ68<@,-E:,$Ad n6-@x<< @M8<,,8<@,U}-@@)6-%@!@)6-  @C 6--@@% 6-%U}!@%6-&@00 @D8<,,8<@,   @H @M0,U}-240 @A@D8:POLYGON.BAS@,   @H @M0,TAgLOO @6-Y}A@. SET RADIUS AND SELECT DEGREES>#@@P:>. OPEN THE PRINTER0(Y}@0. ISSUE SET GRAPHICS CALL(6(@C16. SELECT SECOND PENn2-A`@Y}2. DRAW 180 LINESx<6-$E:,%AP<. THIS IS THE CIRCLE FORMULA6-$G:,&A6(@M,Y}6. MOVE TO THIS POINT?6-$E:@$,%AP?. THIS IS A 2 TO 1 FIGURE6-$G:@$,&AY}6(@D,6. DRAW TO THIS POINT  7(@M0,-9007. FEED OUT SOME PAPER@Y} D8:GRAPH.BASRAPHM0,-200P:Y}Y} X 4B A #BINARY LOADP3 4K A%3KOALA PAD/ATARI ARTIST LOADZ A@PLOT ROUTINE>((Drive}e:  )@>@I*@PAf (>:, (6.D :*.*467@<@,.>:,?@\@@e}f A0@( A @$( A(!( Increment: %($M6-AHe} A 0$@A@@MOPEN FILE7%6-F:@,%F:@,$AV7FIND SCREEN RAMe}%@@33%@P:+'AV&P:'AV,,$AV,%@P:'AV,6-Av33%@e}P:+'AV&P:'AV,,$AV,%@ P:'AV,6-?:C:hhhLV,<@,)@Ae})@A )@A)@A$ L @@*+@e}166-?:C:,,LCHANGE TO ANTIC "E" %6-?:C:,,%LOAD THE KOALA FILE @$ L(I(>Enter plotter color ve}alues. Enter -1 for no plotter color.L( -@ = A068,-0(PICTURE COLOR =4=68e},-   $b@.@@P:>(@J6-V6-b6-@7-e}A+-@@76--AY 16-8,!6@!(@C'e}6@'(@D,'"6@'(@M,(6-%@ 6-&! % (&)(( ERRe}OR - F:A,) @00uAA6.7h01DZ)ʊXiYi`u #B0u-A6AVe}u " u uGG162,16,169,1,157,72,3,169,0,157,73,3,32,86,228,48,1,96,104,104,96u@@6.6hBDEHe}I  <uOO67@U,.<    ĩuOO67Ae},.:AU,uQQ67A),.>`RɥPee`/eeuGGe}67A,.4(eeЕeev$ D:KOALA.LSTMTVTIGER.PICALA.LSTD1:MTVTIGER.Pe}ICS0D1:RO*.* K@@@hBDv$ D:KOALA.LSTMTVTIGER.PICALA.LSTD1:MTVTIGER.Pd?  THETTANAa@1020 PLOTTER, LISTING 1BY KRIS CRUZ (c) 1985, ANTIC PUBLISHINGMi}@-@@P=(@M(@C0 p(@X2,10,48-(@M220,0C(@i}X0,10,20Z(@ M220,-200p(@X0,10,20(@H*C1E-A`A(@D,i}@P$G:$@,E (@H*C2(E-A`A(@D,@P$E:$@,E 2(@i}H*C3<T-A`P(@D,@$+G:$@,'E:$@,,T FO(@M0,-230'(@i}AO(@SIN,COS,TAN RELATIONSHIPP@ZD1:LISTING1.BAS FO(@M0,-230'(@h]  ;CSSDAA1AeA%A 1020 PLOTTER, LISTING 2BY KRIS CRUZ m}(c) 1985, ANTIC PUBLISHING \@.@@P::6-\OPEN IOCB CHANNEL #2 TO PLOTTER<m}9@,9@,<CALCULATE ANGLES IN DEGREES(@96-AP @0%6-A%/ @09 @m}>>(@M%@P$E:,,@P$G:,(-@A0@-=:(@M%+%@m},$E:,,+%@,$G:,=2-A`@<&&(@D%$E:,,$G:,F K@!=(@m}M%+%@,$E:,,+%@,$G:,@P U$Z @Hd@D1:PLOTTER2.BAS(@lu 9CR@@1020 PLOTTER, LISTING 3BY KRIS CRUZ (cq}) 1985, ANTIC PUBLISHING h@.@@P::6-F6-@hOPEN IOCB CHANNEL #2 TO PLOTq}TER<9@,9@,<CALCULATE ANGLES IN DEGREES(@LL(@MA%@$E:q},,A%@$G:,(E-A@ESTEP IS #DEGREES TO ROTATE TRIANGLE-,(@C q}"@,6-.P6-%@6-%@P(@MA%$E:,,A%$G:,2-A`%A q}<44(@DA%$E:,,A%$G:,F P Z @Hd@D1:LISTING3.BASp}KR1R2PRRTHET@@@ ""1020 PLOTTER CUBE, LISTING 4u}BY KRIS CRUZ (c) 1985, ANTIC PUBLISHING2\@.@@P:> @\OPEN 1020 FORu} GRAPHICS MODE<SET ANGLES IN DEGREESFi&9@,9@,9@,26-@>6-@iTHESE VALUSE DETu}ERMINE SIZE OF BOXES 1&2P@@ @MA%$E:@E,,A%$G:@E,Z@-@EA@@360u} DEGREES WITH ROTATED BOXESd44 @DA%$E:,,A%$G:,n xa@ @MAP%$E:@E,u},A%$G:@E,aLIFT PEN AND MOVE FOR NEXT BOX-@EA@44 @DAP%$E:,u},A%$G:, "" A44 @MA%$E:,,A%$G:,44 @DAu}P%$E:,,A%$G:, A`. @H.SEND PEN TO HOME POSITION@X45,135,22u}5,315,0D1:LISTING4.BAS A`. @H.SEND PEN TO HOME POSITION@X45,135,22t ************************************HANDY ATARI 1020 PLOTTER COMMANDS************************************TO OPEN THE Py}RINTER-------------------OPEN#(A NUMBER,1-7),8,0,"P:"(Example: OPEN#1,8,0,"P:")TO ENTER THE GRAPHICS MODE-------------y}-------------PRINT#;"ESC ESC CNTRL G"TO RETURN TO TEXT MODE----------------------PRINT#2;"A"* NOTE:THE DEFAULT OF THy}E 1020PRINTER IS THE 40 COLUMN, TEXTMODE.TO ENTER THE 20 COLUMN MODE---------------------------PRINT#2;"ESC ESC CNTRL y}P"TO ENTER THE 80 COLUMN MODE---------------------------PRINT#2;"ESC ESC CNTRL S"TO RETURN TO 40 COLUMN MODE---------y}------------------PRINT#2;"ESC ESC CNTRL N"* NOTE: THE 1020 PRINTER CAN PRINTCHARACTERS IN 64 DIFFERENT SIZES,USE THE Sy}ET SCALE.TO CARRY OUT THE SET SCALE--------------------------PRINT#2,"S(A NUMBER 0 TO 63)" (Example: PRINT#2,"S1")* Ny}OTE: TO USE THE SET SCALEFUNCTION, YOU MUST BE IN THEGRAPHICS MODE FIRST. THEN USE SETSCALE, THEN ENTER TEXT MODE. ANYTEXy}T ENTERED WILL BE PRINTED TOSCALE.TO PRINT INTERNATIONAL CHARACTERSFROM BASIC---------------------------------PRINT#2;y}"ESC ESC CNTRL W"TO STOP PRINTING INTERNATIONALCHARACTERS------------------------------PRINT#2;"ESC ESC CNTRL X"TO MAy}KE THE PEN CARRIAGE RETURN TOTHE HOME POSITION----------------------------------PRINT#2;"H"TO CHANGE A COLOR TO PRINT-y}-------------------------PRINT#2;C(A NUMBER 0 TO 3)(Example:PRINT#2;"C2")TO PRINT DOTTED LINES---------------------PRy}INT#2;"L(A NUMBER FROM 1 TO 15)" (Example:PRINT#2;"L5")TO RETURN TO SOLID LINES------------------------PRINT#2;"L0"TOy} DRAW (SOLID OR DOTTED)-------------------------PRINT#2;"DX,Y"* NOTE: X CAN BE 0 TO 480, Y CAN BE-999 TO 999.TO INITIy}ALIZE PRINTER (CURRENTPOSITION=0, 0 AND GO FROM THERE)--------------------------------PRINT#2;"I"TO RELATIVE DRAW (CURRy}ENT POSITIONOF PEN)----------------------------------PRINT#2;JX,Y"TO MOVE (SIMILAR TO DRAW,BUT PEN ISLIFTED WHILE PEN y}MOVES)-----------------------------------PRINT#2;"MX,Y"TO RELATIVE MOVE (PEN LIFTED)-----------------------------PRINy}T#2;"RX,Y"TO USE AXIS DRAWING-------------------PRINT#2;"X(AND AXIS),DISTANCE(ANUMBER),SCALE MARKS(A NUMBER)(Example:Py}RINT#2;"X2,11,53")* THE 1020 PRINTER CAN PRINT TEXTIN 4 DIFFERENT DIRRECTIONS, USEFULLTO LABLE OR CHART.TO CARRY OUT ROy}TATE TYPE------------------------PRINT#2;"Q(AND NUMBER 0 TO 3)"THEN ENTER TEXT LIKE THIS-------------------------PRINy}T#2;"P(AND ANY TEXT)"-----------PRINT#2;"Q(AND NUMBER 0 TO 3)"THEN ENTER TEXT LIKE THIS-------------------------PRINx