@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H  }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `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⪍ ઍ  -'}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 !BD 0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0. 1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC 2}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$0SY 4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A 6}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 2 A} 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ǭ0 C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,Hh D}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURN E}`  `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,#P H},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭ I}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DO J}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,ɛ`轤{NAME O} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 L P}!ERROR- 144ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXA Q}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u R} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u L 䙣ލȎ!"` !"H h`lDD   $T}ELTIT:D"NUR 䙣ލȎ!"` !"H h`lDD   $   TYPHELPLOCATIOSPEECONSOMANUALTITLEHELKEVDDP_CREDITP_SELECTIOMAN_SIZUTIL_SIZUTILLOBYTHIBYTV(V}BVBDIDIDLDLSTARFICUIOCLLCATFILEFKEY(W} (X} !"#$%&'(Y}()*+ Autoboot Title routine forBournemouth & Poole AtariUser Group's PD Libra(Z}ry!!BASIC routine by Colin Hunt TITLE.OBJ by Andi Smithers1 +1(Loading code. Please wait .... ([};@w,;@,$-6-B2y Ap# AP- A LB2H@'B2IA9B2aAU(\}KB2bAU]AoB2V@B2W@V +`'@@'A(]}& (}6-?:BD,&ADDR=$9500! A A0! AATAU F:AT,"AUA(^}  A A0(KAFAG'A3A?A`KAa2]B2w'BB(_}yAU9BBrKAY@4]A#@%Print screen.,1 (}1(# Disk 022: 1020 Pr(`}inter Utilities@--(% 蠦J$^W(,(!This disk contains several usefulW(%and intere(a}sting programs that requireh*(*(the Atari 1020 printer plotter.jV(V(KAll the programs are written in Atari BASIC(b} and can therefore be modified.l==(5The first two programs also include documentation.rj(j(^One program, TURTLE, w(c}ill require some experience to work out. Hopefully a document will bet$$( produced for a future disk.|$c-@(d}@ 3(Ӡ٠٠ϠE-@@!c(ԠϠԠϠà$Load TITLE.OBJ7@(e}7@@ D:TITLE.OBJ)@)@-)@)@-6-%AV$-)(f}@)@-6-%AV$6-AH%@%@76-&%@$6-P:'AU,76(g}-P:&$AU,%@%@  6-?:C:hhhLV,<@,@ $ Q(Q(FPlease select BAS(h}IC file to run or hit SYSTEM RESET to return to BASIC ( ( ( -@'@ >>( >:@d%,--> 7(i}$@&@<$@,   .@.@@K: ((Enter selection  0)@0*} Z1020 ----- by Bob Danson June 1985Z1020 is an adaption of Z-Plotter byDavid 0k}Bader that appeared in the May1985 issue of ANALOG Computing.Z1020 is intended to * allow many experimental screen pl0y}ޕL(PxΠȑ@hΐθ0X΀ΨГ H#,m},n}UUUUUUUUUUUUUUUUUUUUUUUUUUUUU,o}UUUUUUUUUZUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUZUZUUVUUjUjUUVUUiUiUVUUUUZUYUUV UU5U`UXUUUUXUU,p}^uUZUYUUVUV U`5U`V`5UU^uUZUYUUVXU` U5VՀ5UU^uUZUYUUV`` ` V VՀ5UUU^uUZ,q}UeUVU5` ` XVՀ:UUV^^]UZUeUV U55` XXVՀ8UV^^]UZUgeUVU55`5XXVՀ85UVv]UZUe,r}uUVՀ:5`XVՀ;5UYv]UZUeuUVՀ5`UXVՀ5`5UYv]UZj]eZVՀ5` UUXV(Հ:5V]eZe]eUV,s}U?5` UUXUU`5VU]e]ZeueՕV U55` UUXXU` UXVWV]Y]ZVUoUU[[U[UVUWWWZUUUUUUUUUUUUUU,t}UUUUUUUUUUUUUUUUUUUUUUUUZUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUZꪪ,u},v}x"ە#ܕӍ"#0iD1iEX01h`,w}Hݕ)0Iiݕݕ! ԍ ԭЭЭЭLѕ"ЩЩ h@,x}HݕhL Hݕ)0Iiݕݕ! ԍ ԭЭЭЭLѕ"ЩЩ h@, ots to be perfomed without having to repeatedly enter all the plot parameters or wait until a the plot or z-axis sca0z}lling functon has completely finished. * to generate the desired output on an ATARI 1020 Ploter.Z1020 differs from0{} Z-Plotter in thefollowing ways: * Z1020 will plot to the screen and to an ATARI 1020 plotter. * Z1020 has three menu0|} panels that allow the plot parameters to be changed in an orderly manner. All panels allow changes to the plot p0}}arameters and execuion of the Z-axis scaling routine. Additionally: Plot panel: allows plotting of the specif0~}ied function. Save panel: allows saving the plot parameters to a disk file named "D1:PDATA". Parameters 0}are appended to the file, so multiple sets of plot parameters can be accumulated. Batch run panel: will read p0}lot parameters from a user specified disk file and will serially plot each set of parameters. The batch 0}disk file must be entered with a Dn: prefix. * When entering the function formula you can immediately see if it 0}contains a BASIC syntax error. When editing an existing function just use the standard ATARI screen editing keys to0} insert, delete, and change chracters. Use RETURN to enter the revised formula. * Z1020 WILL NOT print the screen0} plot as a Graphics 8 printer dump and WILL NOT save the screen to disk as a 62-sector screen dump file, as Z-Plo0}tter does. * A screen or 1020 plot or an execution of the Z-axis scaling routine can be ended by pressing the ESC0} key. Z1020 will return to the menu panel at the end of the current plot line.Suggestions-----------See file Z100}20.BAT for some sampleplots.When trying a plot based on apreviously used set of parameters,don't forget to either turn o0}n theautomatic Z-axis scaling (menu option4), or to manually adjust the Z-axislimits (menu options 5 and 6).When experim0}enting with new functionsuse a coarse plot increment (a menufunction 7 value of 12 through 16)and turn off the 1020 plotti0}ng. Whenyou get something on the screen thatyou like, change the plot incrementto a finer value (say 4 through 6)and tur0}n the 1020 plot on to seewhat it looks like on paper.Warnings!---------There is a bug in ATARI BASIC REV. Band in OSS0} BASIC XL when using theLOG function for values between 0 and1. For example, both BASICS willreturn the value -296.7308890} for theexpression LOG(0), which is obviouslywrong. ATARI BASIC Rev. C willgenerate a error, which Z1020 willTRAP and ig0}nore. The net result isthat any plot which is a result ofa formula containing a LOG functionmay appear different for diff0}erentBASICS.DO NOT use the BASIC XL FASTstatement. FAST will cause theprograms branch addresses to beprecomiled, which0} will cuase theprogram to fail when a new functionis entered into the program (Menuoption 1).If the 1020 plotter is not0} turned onand ready the program will crash!ATR8000 users MUST run thePRINTOFF.BAS program shown in theback of the SWP m0}anual before runningZ1020.ram will crash!ATR8000 users MUST run thePRINTOFF.BAS program shown in theback of the SWP m0fg/>KRKXXINREXXHKDBOKXXINYISYINZINK19DBK15POUMAGYYINYYPEITEMCOLORPEN102ERRON102BATCSH4}ORTDELALONGDELAQFCSIZNSTROKETXTP102PSM102XY102T102A102D102ZO102U102TRAPADCOLORTXTITEITEMNAMECNUYE4}SNOASTROKCHOSCHANGTRAPADDATREMLMEDDELADELCREKBFNDSFNB10BSTPLK76K55K25K59TNSTROKEP1020YNDEFINEY4}?q@?@D@D@AyAu@ @ @ @uu?R5w4}P@0@uu@AA@8(5AY@@P?q@@D@D@AB qB4} 1 !A!"A$#@$@0%@&('(@)@*@+AP,@!-B a.(4}/B!0B!P1B!`2B!03B! 4@56B 7B Q8B9:@;<@=>4}P?@@A@BC@D EA#F- G@HIGJ8KL&'MB gNA4}dOAYPAUQR@!S@"TUVWXS Aؠ %4}6-$+&,-&% @! UNDEFINED ' !) 6-6- ' @" E 6-$6-$6-&$)6-%$4}$36-%$=6-&&E6-%(@ 1 / 1(@DAy&$,6$  @"7 ,64}-7(@MAy&$,6$   6- A(@&4 / 1(@DAy4}&$,6$4$$7 ,6-7(@MAy&$,6$$٠&6-$+&,4}-%6& @A 6-%&&%%&&%%!' !) 6-6- ' @B"E 6-$6-$6-&$)6-%$4}$36-%$=6-&&E6-%%(@@&1 / 1(@DAy&$,6$'  @B(7 ,64}-7(@MAy&$,6$) *  6- A+(@F,4 / 1(@DAy&4}$,6$4$-$.7 ,6-7(@MAy&$,6$/$1O ϠԛP&6-$+&,"6-4}8@,& Q<-%66- @/F:,"@(2'< AQS X 6-6- @[&6-$+&,4}"6-8@,& ];-&6- @0.F:,"@(1'; AQ^ ` 6-6- @0a Ab4}càڠǛd- 6-6-6-!6-$+&,-6-$+&,e-6f - Ah6-4}%&&%%&&%%i !6-j  6-k,  F:,"@( &6-)',$l[@46- A4}# )6-3-= AA G6-Q A[ Aq Ar6-%&&%%&&%%s !6-t  4}6-u   $v !6-w  6-x$à   "@6-@$ +4} A C2A@@# -23= AC  4}$"F:,"@((}" A  A 7100 ٛ 6-@4} A% 6-@ A% 6-A@ @ F:@ , A&$WΠؠĠ4}ǛX7 6-6-6. A %,7/@AY3/@D!/AA'/3/AGZ],@A4}'/@@s3,@D9/K,AA]/A@s[9/AG!/@@s'/9/A4}@s`X 6-6-@6.=:,( A 16.=:,B6-@9&B:,N6-@X A bw6-@6-@#$4}6.=:,. A :6-@#C6.=:,M A Y6-@&_6-m6.HIGH Z=w A c86-@36.=:,'B:,!@4}86.7<@,dr A 6-@&%6-@36.LOW Z== A I6-@3R6.=:,aB:,!@r6.74}<@,f_ A 6-@%6-@26.Y-AXIS< A H6-@0U6.X-AXIS_ A l A q4}$ 6-6- A6-%&&%%&&%%# !) 6-6-# AE 6-$6-$6-&4}$)6-%$$36-%$=6-&&E6-%   $ؠĠǛ6-8@, -@4}(@MAy&A$,6@$*DAy&$,6A`$;Ay&A$,6A$ww(4}@DAy&@s$,6A$;Ay&$,6A`$;Ay&@s$,6@$33(@4}DAy&A$,6@$ A@- 6-6- A#"*"- A'GG(@MAy4}&$,6A`$*DAy&$,6$- 6-6- A#"*"- A)GG(@MAy&$,4}6A`$*DAy&$,6$ AISS(@MAy&$,6A`$*DAy&AG$4},6A`$SS(@MAy&$,6A`$*DAy&@D$,6A`$~~(@MAy&4}A$,6A$*DAy&@D$,6A`$;Ay&A$,6@$~~(@MAy&4}@s$,6A$*DAy&AG$,6A`$;Ay&@s$,6@$< (@Q164}-)6-@86-8@,< O 6.=:,*6-Ay&@$@$;6-B:,&@K6-$@$O E 6.=:,4}*6-Ay&@$@$A6-6@7$@$E : 6.=:,6-6-B:,66-6+@&,$@$: - 6.=:4},6-)6-6@#$@$- E6. HIGH Z = %67@,.=:,4B:,!@E6.7<@,46-AB&@4}$06-6@($@$4 E6. LOW Z = %67@,.=:,4B:,!@E6.7<@,-)6-AB&@$4}@$&@- 96.Y-AXIS&6-Ay&Ap$56-6@F$9 96.X-AXIS&6-Ay&Ap$56-6A04}$9 % 6.6-AU!6-@ % ; 6-B:,6.6-Ay+6-@2/ 3 7 ; U /6-&$+@4}$+%,,&$+&,&@3 A6-&@3E Q6-@0U $6-Ay  $(@   $PQ 4}ҠϠ͛R! (}!AB@S-@(104 T-@(114 U-@4}(702 V-@(CONTW -AB@&\! (}!AB@^-@(11 4}`-@(32 c-@(CONTd -AB@&e (}AB@$Ġ4}ԠϠҮΠ 6-?:C:,<<:,4   BA B0 B1pA V6-A@'+&4},'6-A@'+&,96-@C'+&,V6-O:$,%O:$$,%O:$$,A +@$A@1A@=A 4}A6-@P6-    @Lll104,104,141,21,6,104,141,20,6,104,141,27,6,104,141,26,6,1604},193,173,255,255,136,240,35,141,255,255,238Vcc26,6,240,21,173,20,6,56,233,40,141,20,6,144,4,24,76,19,6,206,21,6,76,19,6,234}8,27,6,76,33,6,96`bb104,201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,215,104,133,214,104,104,168,104,133jii217,4}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,14}65,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,24}01,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,244,2,134}3,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,234}0,221,169,8,197,221,208,159,96,207,96555   5 (}5&&( SELECT 1020 PEN 4}COLORS5&&( ----------------------5(5?6-8@,$@%?(1: X-LINES = 7<%@,5?6-8@4},$@%?(2: Y-LINES = 7<%@,5?6-8@,$@%?(3: BOX = 7<%@,5?6-84}@,$@%?(4: TEXT = 7<%@,5(5( Enter 1,2,3,4 or5&&( RETURN to accept valu4}es5S-@@"- ($ 0-@<ARG( ==> S@46F:,"B8%6F:,"@4}$69 B8 %!* @/ B809 B86 B86 -@ 6D6-+&,$@%D( 4} CHANGE 7<%@, 6(--------------  6( 6( 0 = BLACK  6( 1 = BLUE  6( 24} = GREEN  6( 3 = RED 6(6( Enter 0,1,2,3 or6""( RETURN for no change6U-@ @"-4}+( / ;-@"I( ==> U@46F:,"B8D6F:,"@$6? B804} 'AR? )!@B806 68,-$L6M6O6  6-P6 (}Q64}(PLOT OUTPUT ON 1020?R6(--------------------S6(U6/6-$@%/( 7<%@,V6 ( ( (`6L+64}-+%&+"@,$@,$@%L( 7<, to changea65( RETURN to accept5( ESC for no plotb4}6R-@@"-B( F R-@c60( ==> ?@40AR4}d6F:,"B9$e6'F:,"@($6-@'$f6F:,"@$g6! B9 !ARh64}4Y)4y6-i64N)4n6-r6 B9UӛU... O1020 - OPEN 1020V(@(@4}@P:V#(@#GRAPHICS MODEV"(@H"HOME POSITION V(@IINITIALIZE V!(4}@C!SELECT PEN V$VV...N1020 - START NEW PLOTV(@M0,0V(@M0,-998V   $"4}V#V ...U1020 - UNSKEW THE 1020%VA(@H/(@M0,0;0,-900;0,0>(@HA$,V-VAA...P1020 - P4}RINT TXT$ SIZE AT X,Y IN PEN COLOR FOR NSTROKES.V%(@S%CHARACTER SIZE/V (@C PEN COLOR0V` 6-B4}:,6--=(@M,*P7<,`(@M,*P7<,1V"B h2V4 -&4(@4}M%,%*P7<,3V.*(@M%,%*P7<,. 4V#6-&+@$+%,,&+&,# 5V$6V4}7V!!...PEN1020 - SELECT NEW PEN9V#(@C$#PEN COLORTV^V$$...M1020 - PLACE MOVE INTO PS$`V67B:,%,.4}M$eV$hV$$...D1020 - PLACE DRAW INTO PS$jV67B:,%,.D$rV!!...A1020 - PLACE * INTO PS$tV67B:,%,.*$4}V$$...XY1020 - PLACE X,Y INTO PS$V67B:,%,.=:P:,,V67B:,%,.,V67B:,%,.=:P:,,V67B:,%,.;V4}$V%%...T1020 - TRUNC. LAST PS$ CHARV1 B!c*67B:,&,.7B:,&ZE(Current formula is:'-@1@=-@ E(?ZI-4}@:(& Edit the formula and RETURN to acceptFARI(@Z4 6.@4 B1,-@ 04 AZs 4}AP6.@9@@S:KAAH]A AHi-@ s@BZ_-@4}%-@%@2)@@67<,.>:,D O@U(}_ BACZ..4ERROR)7@<@,4?B14}EZ$FZ...د٭IZ>6. LOWER LIMIT%6-B1/ B4r56-;6->$KZ............4}MZ>6. UPPER LIMIT%6-B1/ B4r56-;6->$PZ...QZ!AR@!6-RZ4}"@6-@$TZ= "*"((6(Must first set Z-axis values!: =$UZ6-@$ZZ...ڭ4}\Z06.INPUT LOWER LIMIT' B4r-6-0$_Z..........aZ06.INPUT UPPER LIMIT' B4r-64}-0$dZ...fZ(hZT(((Enter desired plot resolutionB( (1=high;16=low)L B1FPT iZ.4} !* @+6-$>P.$jZ/ ( Bad value! %(/ B1DnZoZ"6-@4}AR"(pZ 41 B1$qZ 42 B1$rZ 43 B1$sZ 44 B1 $tZ 44}5 B10$uZ 46 B15$vZ 47 B1@$wZ 48 B8$Z 6-Z$Z盃Z4}AR"@$Z B21$Z B2$Z B2!$Z=(#(ϠǠΠ&(=4}( àZ A$Z6-@$ZZ B21$Z B2$Z B4}2!$Z B2$Z$ZZ...د٠Z 6-ARZ@!)!) (4}9(Bad choice of X/Y axis limits!= @$Z6 "*"(/(Must set X/Y axis limits!3 6$Z 6- $Z...5}ڠZ 6-ARZ"*"*"6-$Z@ !)"(3(Bad choice of Z-axis limits!7 =6-@$Z 6-5}ZR "*"(,(Must set Z-axis limitsK(or use automatic scaling!O R$ZD!)!) (7(Bad choice of Z-5}axis values!; A6-D$Z 6- $Z...ZARZ 6-$Z7(*(Must set plo5}tting resolution!. 46-7$Z...ZARZ0 undefined6-$Z/("(Must enter a form5}ula!& ,6-/$[[[ (}[ B9U [(6.append to D:PDATA ( B9[AR5}@4["F:B2y,"@" B4S[1F:B2y,"@$AR'(1 B3"[;F:B2y,"@5}$AR'(1 B1p; B3[F:,"B3[[ B1PB3[  B3[ B1B35}[ B4[  B3,[-[ 6-6-.[ B3P$/[ @w B3` $0[ 6-5}1[8 B9P B9U#@4' 1 B1p58$2[ 6- AB$3[ @w B3` $4[8 B95 }P B9U#@4' 1 B1p58$5[ B3F6[...8[l 6.(} B9T( (;(ente5 }r batch file nameS(or RETURN to exit:V(`(==>lAR9[ 6- B3 :[(AR(B:,"5 }%6-($>[3@ B3/@@3 ?[ B9$@[...B[* 6- B3 5 }@* APC[)@6-#@)6-D[*@@*@E[@6-$5 }>PF[+-@@'68,-+ J[   $Y[...ΤZ[  B3P_[...Τ5}`[\  ( (,(OPEN error for batch file2(N( Error F:A,R \ B3Pc[...Τd[! 6-5}F:A,"A6!$e[^  ( (,(READ error for batch file2(N( Error F:A,Z@4^ f[$5}i[m[?AR B4A$@;@@ ? s[(@t[(@u[(@5}v[(@w[(@x[(@y[(@{[(@8,|[(@8@,}[(@5}8@,~[(@8@,[@$[...囒[ 6-F:A,[I"Ap B4G5}$@;@@? I B4[C 1(Can't open output file! (error )5 @@C$[5}웜[ (} BA[ B9U[. 6-$6.do batch run . B9[AR@45}["F:B2y,"@" B0[/F:B2y,"@(% B3@/ B4R[/F:B2y,"@(% B1p/ B4S5}[F:Ad,"B4W[[ B1PB4R[ B4S[ 困[([A(AR5}(# B4v'3AR:(> A$[ '  $[囍]]...5}] -(} BA]5AR-/( ڱ2(5$]...] B9T5}AR]( 1. ](]/-@/( 2. X/Y lower limit = ]##( 3. upper limit = ](]''( 5}4. Z axis automatic scaling? ] "(YES]"@(NO ]##( 5. lower limit = ]##( 6. upp5}er limit = ](]/,( 7. plot resolution =  /(]Z( 8. Change colors :6-8@,$@%@5}Z( X-LINES = 7<%@,]<6-8@,$@%<( Y-LINES = 7<%@,]<6-8@,$@%<(5} BOX = 7<%@,]<6-8@,$@%<( TEXT = 7<%@,](]$]...]5}" (} BA(("(];@AR% B9T;( by Bob Danson]( July 1985] ( ( (5}]@( Based on)( ZPLOT@( by Dave Badder]))(! Analog Computing, May 1985]dd? " ATA5 }RI CX85 Keypad Handler":? ," by Jeff Brenner":? " Computer Shopper, July]@4$]]( ( 5!}((]**(" enter ]**("| a number to change an item |]**("| OPTION for next panel 5"} ]( | SELECT to  |]**("| START to do Z-axis scaling |]88(&5#}?]$]]] B&TOOL INIT] B"P1020 SUBS INIT]!]M1;Ai,;@@,5$};A(,;@,=6-?R5wPM6. undefined]+;@ ,+.BLACKBLUE GREENRED ]79@,$-@@5%}368,-7 ]3;@(,36.X-LINESY-LINESBOX TEXT ]M;@,6.NO YES)6-@M0=NO 105&}20 OUTPUT; 1 = 1022 OUTPUT];@,]+;@ ,+6. ]6-@]!;@,!. 5'}]=;@9,=6.& ]";@,"6. ];@,6.5(}D:PDATA];@,6.D:PDATA]6-#^$%^'^<-AA#AH' 9A 5)}@<$aaaae ( (| ERRTRAP|7+%@276-F:A,%AV$F:A,|G4(5*}Error F:A, occurred at line .8D@4G&X[-B `'6-A!6-A#5+}'6-A$$ D4:Z1020.BAS.8D@4G&X[-B `'6-A!6-A#4(Z=SIN(X*Y)-222-1140000Z=LOG(ABS(X))+LOG(ABS(Y))-222-6.437751641.3862943762200Z=SIN(X)*COS(Y*Y)-0.5329-}-1.01.053300Z=COS(X*SIN(Y))-4.84.82-1161100Z=(SIN(X)*COS(Y))+SIN(X*Y)-412-1.69950431.7415300150019.}1Z=0:IF ABS(X)<3 AND ABS(Y)<3 THEN Z=SIN(X*X)*COS(Y):IF Z<0 THEN Z=0-442014330012-1.69950431.7415300150018\ TUTOR by Bob Danson July 1985This program was written asan ATARI 1020 Printer/Plotter=0}tutorial and demonstration programto be used at ATARI User Groupmeetings to introduce the ATARI 1020.Variable NOPLOT at l=1}ine 24335 shouldbe set to 1 (one) if TUTOR is be runwithout a 1020 online.ntroduce the ATARI 1020.Variable NOPLOT at l<OccC012I012CISETGRSUBFRAMSHOWITNOPLOTRIGGESCROSCRINISCROJTRICURSOABUDTYESNOOPENAKUNIA3}TRAPADUNIIOOAUFILESPECSTATUCLOSEPUNIFOPEBUZLRMXTXTCENTEMEDDELABINOPENGETCHAMARGINTITLLIN@@A4}@B0BI`B5P @B"B A5}B"B5BQ((*((RapuBQ`@B A6}!"#$%BQX&@'BQ@(BQ)@*@8+@8,-A./BQ0BA7}QP1BPP2BQp3BQu4BQw B'!!///////////////////////////'' B@$'C6-@6-@A8}'6-@36-7 C6-r's''%6-BI` %-'6-B '6-BA9} '6-B  '6-B '6-B6-BQ '6-B 6-BQ '6-B@6-A:}BQ` '6-B`6-BQ '76-@6-@'6-36-7 '6-B 'C6-@A;}6-@'6-@36-7 C6-'6-B '6-B 6-BP '6-B@ A<}'6-B` ''6-B6-BR '6-B 6-BR  ''6-B6-BR@ A=}:(;(C6-@6-@'6-@36-@7 C6-<(6-B  A(6-B 6-BRp FA>}(6-B @ J(6-B ` ((C6-@6-@'6-@36-7 C6-(6-B0A?} (6-B0@ (6-B0` (6-B0 (6-B2 (6-B3 (6-B3@ (6-A@}B3` (6-B3 (6-B4 ()C6-@6-@'6-@36-7 C6-)AA}6-B7  )6-B7@ )6-B7` )6-B7 )6-B8 g)h)C6-@6-@AB}'6-36-@7 C6-i)6-B5 j)6-B5  r)6-B5@ ))6-B6 )AC}6-B6  **6-BI **%**""////////////////////////////*Ʊ*$(@(@AD}$(@*$$(@ PLOTTER / PRINTER*$$(@ plotter / printer*$$(@ Ҡ*$$AE}(@ *##(@ *##(@ +$+Ʋ+(@AF}(@+(@ ATARI 1020+ (@ POWER SUPPLY+ (@ SERIAL CABLE+""(@AG} 1 ROLL OF PAPER+(@ 4 PENS +(@ MANUAL +##(@ PROG. ON CASSETTE +$ +AH}+$$(@ +$$(@PAPER: +$$(@ ROLL +$$(@AI} 4 1/2 INCHES WIDE+$$(@ +$$(@FOUR PENS: +$$(@ BLACK AJ} +$$(@ BLUE +$$(@ GREEN +$$(@ RED +$ +ƴAK}"+$$(@ #+$$(@ $+$$(@ %+$$(@AL} &+$$(@ RUNS AS DEVICE '+$$(@ (+$$(@ AM} )+$$(@ P: *+$$(@ ++$$(@ 3+$4+ƵAN}6+$$(@ 7+$$(@ 8+$$(@ ATARI 850: 9+$$(@ AO} :+$$(@ TURN IT OFF ;+$$(@ <+$$(@ AP} =+$$(@ ATR8000: >+$$(@ ?+$$(@ RUN PRINTOFF.BAS G+$H+JAQ}+$$(@ K+$$(@ FOUR KEYS: L+$$(@ M+$$(@ AR} POWER ON/OFF N+$$(@ O+$$(@ CHANGE PEN P+$$(@ AS}Q+$$(@ NEXT PEN R+$$(@ S+$$(@ ADVANCE PAPER [+$\+^+AT}$$(@ _+$$(@ PRINTER-TYPE `+$$(@ RUBBER ROLLER a+$$(@ AAU}ND PLATTEN b+$$(@ c+$$(@ MOVES PAPER d+$$(@ VERICALLY AV}e+$$(@ f+$$(@ g+$$(@ UP AND DOWN h+$p+r+$AW}$(@ s+$$(@ BARREL: t+$$(@ u+$$(@ HOAX}LDS THE FOUR v+$$(@ PENS w+$$(@ x+$$(@ ROTATES TO yAY}+$$(@ CHANGE PEN z+$$(@ {+$$(@ |+$++$$AZ}(@ +$$(@ BARREL: +$$(@ +$$(@ MOVA[}ES +$$(@ HORIZONTALLY +$$(@ ACROSS THE PAPER+$$(@ +A\}$$(@ PROVIDES PEN +$$(@ UP/DOWN MOTION +$$(@ +$++$$(A]}@ +$$(@ CO-ORDINATED +$$(@ +$$(@ VERTA^}ICAL PAPER +$$(@ AND +$$(@ HORIZONTAL BARREL +$$(@ MOTIONS +$A_}$(@ +$$(@ MOVE FROM ANY +$$(@ POINT TO ANY OTHER+$++$$(A`}@ +$$(@ two modes +$$(@ +$$(@ GRAPAa}HICS +$$(@ graphics +$$(@ +$$(@ +$$Ab}(@ TEXT +$$(@ text +$$(@ +$$(@ Ac} +$++$$(@ +$$(@ +$$(@ GRAPHAd}ICS MODE +$$(@ +$$(@ +$$(@ RUNS +$$(Ae}@ AS A +$$(@ PLOTTER +$$(@ +$$(@ Af} +$++$$(@ GRAPHICS MODE +$$(@ ADDRESSABLE POINTS+$$(@ Ag} +$$(@HORIZONTAL: +$$(@ 0 <--> +479 +$$(@ (LEFT) (RIGHT) +$$(Aq} bBaPAUG bDisk 022 b-----------b1020 b Printer b Utilitiesb-----------B%DOS SYSB*)DUP SYSBSAUTORUN SYSBUTITLE B lTITLE OBJBjZ1020 DOCBZ1020 BASB,Z1020 BATB/TUTOR DOCB2TUTOR BASBPLABL1020BASB;UTURTLE BASB DUMP1020BASB#PLOT1020BAS@ +$$(@VERTICAL: +$$(@+999 <-> 0 <-> -999+##(@ (UP)Ar} (DOWN)+$++$$(@ +$$(@ GRAPHICS MODE +$$(@ ADDRESSABLAs}E POINTS+$$(@ +$$(@ X,Y +$$(@ COORDINATES +$$(@At} +$$(@ 100,-300 +$$(@ ^ ^ +$$(@ X Au} Y +$++$$(@ GRAPHICS MODE +$$(@ PEN MOVEMENT ,$$(@ Av} ,$$(@ABSOLUTE LOCATIONS ,$$(@ FROM ,$$(@ 0,0 ORIGIN ,$$(@Aw} ,$$(@RELATIVE LOCATIONS ,$$(@ FROM ,$$(@ LAST PEN Ax}POSITION ,$,,$$(@ GRAPHICS MODE ,$$(@ PEN MOVEMENT ,$$(@ Ay} ,$$(@ ,$$(@ ''MOVE'' ,$$(@ PEN UP, NO LINE ,$$(@Az} ,$$(@ ,$$(@ ''DRAW'' ,$$(@PEN DOWN, DA{}RAW LINE,$,,$$(@ ,$$(@ GRAPHICS MODE ,$$(@ LINE TYPESA|} ,$$(@ ,$$(@ ,$$(@ SOLID ,$$(@A}} ,$$(@ ,$$(@ DASHED ,$$(@ (15 PATTEA~}RNS) ,$,,$$(@ ,$$(@ GRAPHICS MODE ,$$(@ SCALE A} ,$$(@ LINES ,$$(@ ,$$(@ X OR Y AXIS ,$$(@A} ,$$(@ DRAWS TIC MARKS ,$$(@ ,$$(@ A} ,$,,$$(@ ,$$(@ GRAPHICS MODE ,$$(@ PRINT A} ,$$(@ ALPHANUMERIC ,$$(@ ,$$(@ ,$$(@A} ,$$(@ ROTATE LINE ,$$(@ ,$$(@ 64 CHARACTER A}SIZES,$..$$(@ .$$(@ TEXT MODE .$$(@ A} .$$(@ .$$(@ RUNS .$$(@ .$$(@A} AS A .$$(@ .$$(@ PRINTER .$$(@ A} .$..$$(@ .$$(@ TEXT MODE .$$(@CHARACTERS PER LINA}E.$$(@ .$$(@ 20 .$$(@ 40 .$$(@A} 80 .$$(@ .$$(@ DEFAULT IS 40 .$$(@ A} /$/ /$$(@  /$$(@ TEXT MODE  /$$(@ A} /$$(@ OTHER  /$$(@ CHARACTER WIDTHS /$$(@ /$$(@A} /$$(@ ''SET SCALE'' /$$(@ /$$(@ 0 <-> 63 A} /$//$$(@ /$$(@ BUT..... /$$(@ A} /$$(@ ONLY 40 CHAR. !/$$(@ TEXT AVAILABLE "/$$(@ FROM #/$$(@ A} DOS COMMANDS $/$$(@ %/$$(@ C FILENAME,P: &/$$(@ A} (/$2$$(@ 2$$(@ 2$$(@ 2$$(@A} USING IT 2$$(@ using it 2$$(@ Ǡ 2$$(@ A} 2$$(@ 2$$(@ 2$2ƴ2$$(@ A} 2$$(@ 2$$(@ 2$$(@ 2$$(@A} RUNS AS DEVICE 2$$(@ 2$$(@ 2$$(@ P: A} 2$$(@ 2$$(@ 3$33$$(@ A} 3$$(@ 3$$(@ ATARI 850:  3$$(@  3$$(@A} TURN IT OFF  3$$(@  3$$(@  3$$(@ ATR8000: A} 3$$(@ 3$$(@ RUN PRINTOFF.BAS 3$33$$(@ A} 3$$(@ 3$$(@ OPEN A DEVICE 3$$(@ NUMBER: 3$$(@A} 3$$(@  3$$(@ OPEN #1,8,0,''P:''!3$$(@ A} "3$$(@ #3$$(@ +3$33$$(@ A} 3$$(@ DEFAULT MODE IS 3$$(@ TEXT 3$$(@ 3$$(@A} GRAPHIC 3$$(@? #1,''ESC CTRL-G''3$$(@ 3$$(@ A} 3$$(@ RETURN TO TEXT 3$$(@ ? #1;''A'' 3$33$$(@ A} 3$$(@ GRAPHICS MODE 3$$(@ COMMANDS 3$$(@ 3$$(@A} ? #1;CHAR_STRING 3$$(@ 3$$(@ 3$$(@ M20,40 A} 3$$(@ 3$$(@ D200,-400 4$44$$(@ A} 4$$(@ GRAPHICS MODE  4$$(@ COMMANDS !4$$(@ "4$$(@A} M20,40*D200,-400 #4$$(@ $4$$(@ D10,20;20,40;40,10%4$$(@ A} &4$$(@ '4$$(@ /4$0424$$(@ A}34$$(@ GRAPHICS MODE 44$$(@ COMMANDS 54$$(@ 64$$(@A} HOME 74$$(@ ? #1;''H'' 84$$(@ 94$$(@ CHANGE PEN A} :4$$(@ ? #1;''C0'' ;4$$(@0,1,2,3 - PEN COLORC4$D4F4$$(@ A}G4$$(@ GRAPHICS MODE H4$$(@ COMMANDS I4$$(@ J4$$(@ A} INITIALIZE K4$$(@ L4$$(@ MAKES CURRENT X,Y M4$$(@ CO-ORDINATE A} N4$$(@ 0,0 O4$$(@ W4$X4Z4$$(@ [A}4$$(@ GRAPHICS MODE \4$$(@ COMMANDS ]4$$(@ ^4$$(@ A} LINE TYPE _4$$(@ ? #1;''L0'' `4$$(@ a4$$(@ 0 - SOLID A}b4$$(@ 1-15 - DASHED c4$$(@ k4$44$$(@ 4A}$$(@ IN CONCLUSION 4$$(@ 4$$(@ 4$$(@ A A}TRUE PLOTTER FOR4$$(@ $40 4$$(@ (MAIL ORDER) 4$$(@ A}4$$(@ 4$$(@ 4$44$$(@ 4$A}$(@ SOME LIMITATIONS 4$$(@ 4$$(@ 4$$(@ A} 4.5'' 4$$(@ PAPER WIDTH 4$$(@ 4$$(@ MARGINAL CONTROL A}4$$(@ OF VERTICAL 4$$(@ PAPER MOTION 4$44$$(@ 4$$A}(@ 4$$(@ NOT MUCH 4$$(@ SOFTWARE SUPPORT 4$$(@ A} 4$$(@ AN EXPERIMENTORS 4$$(@ DEVICE 4$$(@ 4A}$$(@ 4$$(@ 4$ 5"5$$(@ #5$$(A}@ SAME $5$$(@ MECHANISM AS %5$$(@ &5$$(@ A} '5$$(@ RADIO SHACK GP-115(5$$(@ )5$$(@ COMMODORE PLOTTER *5$A}$(@ +5$$(@ 35$4565$$(@ 75$$(A}@ ATARI SUPPLIES ARE85$$(@ TOO EXPENSIVE 95$$(@ :5$$(@ PAPER:A} TOYS'R'US ;5$$(@ 2 LARGE ROLLS <5$$(@ $2.97 =5$$(@ PENS: >5$$A}(@ RADIO SHACK ?5$$(@ 3 FOR $2.97 G5$55$$(@ 5$$(A}@ ATARI SUPPLIES ARE5$$(@ TOO EXPENSIVE 5$$(@ 5$$(@ PAPER: A}TOYS'R'US 5$$(@ 2 LARGE ROLLS 5$$(@ $2.97 5$$(@ PENS: 5$$(A}@ RADIO SHACK 5$$(@ 5$55$$(@ 5$$(@A} 5$$(@ TIPS 5$$(@ tips 5$$(@ A} 5$$(@ 5$$(@ 5$$(@ 5$$(A}@ 5$$(@ 5$55$$(@ 5$$(@A} 5$$(@ REMOVE PAPER 5$$(@ FROM THE ROLL 5$$(@ FOA}R 5$$(@ BETTER CONTROL 5$$(@ OF VERTICAL 5$$(@ PAPER MOVEMENT 5$$(A}@ 5$$(@ (MODIFY COVER) 5$55$$(@ 5$$(@A} 5$$(@ REMOVE AND CAP 5$$(@ PENS 5$$(@ WHEN NOTA} IN USE 5$$(@ 5$$(@ 5$$(@(PROLONGS PEN LIFE)5$$(@A} 5$$(@ 5$55$$(@ 5$$(@A} 5$$(@ PRE-SCROLL PAPER 5$$(@ TO SET SKEW 5$$(@ BEFORE PLA}OTTING 5$$(@ 5$$(@ (IMPORTANCE VARIES5$$(@ IN RELATION TO 5$$(@A} VERTICAL 5$$(@ PAPER SCROLLING)5$55$$(@ 5$$(@A} 5$$(@ INTERNATIONAL 5$$(@ CHARACTERS 5$$(@ DO NOTA} 5$$(@ WORK 5$$(@ 5$$(@ 5$$(@A} 5$$(@ 5$p:THE STARTr:$$(@ s:$$(A}@ TURN ON THE t:$$(@ ATARI 1020 u:$$(@ v:$$(@ A} w:$$(@ USE THE x:$$(@ JOYSTICK y:$$(@ BUTTON TO z:$$A}(@ ADVANCE {:$$(@ TO THE |:$$(@ NEXT FRAME }:$: Šě:A}$$(@ :$$(@ :$$(@ :$$(@ A} :$$(@ THE END :$$(@ the end :$$(@ Š A}:$$(@ :$$(@ :$$(@ :$$(@ A} :$::נԠӛ:  $:M@.@@P:>(@A}M(@H:>>(@-M0,0*D0,999;479,999;479,-999;0,-999;0,0;480,0:==(@,D0,0;0,999;479,999;479,-999;0,-9A}99;0,0;480,0:(@S2:(@M15,985*P0,999:""(@M340,985*P479,999:(@M360,30*P479A},0:$$(@M330,-970*P479,-999:!!(@M15,-970*P0,-999:(@ M15,30*P0,0:<(@M0,-999'A}(@I<(@M0,-150:$:;Šқ;  $;M@.@@P:>(@A}M(@H;(@ M0,0;0,-999;M@.@@P:>(@M(@A}H ;&&(@M0,0;0,999;0,-999;0,0$;$8;Š̛9;  $B;M@.@@P:>(A}@M(@HC;(@ M479,0;0,0D;-@@E;3-@A 3(@ M479,0;A}0,0G; H;J-@@.(@ M0,0*D0,5B-@@PF J K;$L;ŠӛM;  $N;MA}@.@@P:>(@M(@HO;-@@P; -@6@A}Q;,(@C(-@@P, R; S;-@A T; U;$V;̠śW;  $X;MA}@.@@P:>(@M(@HY;-@A Z;(@M0,999[;A}(@ D479,-999\;(@M0,-999];(@D479,999^;(@M0,0_;$`;Šӛa;  $A}b;M@.@@P:>(@M(@Hc;-@d;(@Le;(A}@M0,6$@f;!!(@D479,6$@g; h;((@M0,-300((@L0i;$s; ӛtA};  $u;M@.@@P:>(@M(@Hv;(@X2,40,12x;(@A}M0,0z;(@ X0,-40,15|;(@M0,-800};$;Ġԛ;  $;]@.@@A}P:>(@M(@H](@S2;-@;(@C;(@M240,0A}*Q;(@ PRotated Line; ;G(@M0,-200((@C18(@Q0G(@I;v-A}@ ((@S?(@P ABc(@M0,6$@&@%r(@Iv ;-@@ A}@;(@S;(@P AB;''(@M0,6$@&@%;(@I; ;#A}(@C0#(@S2;$;Ҡӛ;  $;M@.@@P:>(@A}M(@H;(@A;L(@'-@@H(@ABCDEFGHIJKLMNOP 20L ;L(@A}'-@@H(@ABCDEFGHIJKLMNOP 40L ;a(@'-@@](@(ABCDEFGA}HIJKLMNOPQRSTUVWXYZ 1234567890 80a ;((@((@MO,-100;$UU!!///////////////////////////UA}U ԛV4(@}4(@ ==> ATARI 1020 <==V$YY!!///////////////////////////Y ұA}YZ+@%@)-@;0&$@? M0@W@Z$[ Ǜ['6-$T:A},"@'$[,6-@,T:,"B5[$[ Ա\%@w  ! % \A} 6-\ (B5U\$]]!!:::::::::::::::::::::::::::]͠ԛ]SET 5,0:REM BASIC XA}L ONLY]$@e$NO SIO SOUND] B&TOOL INIT]   _RR;@,;@@,;@@,;@A},;@,;@,;@,_=67@,. %67@@,. =67@,.7@,_=67@,.%67@@A},.=67@,.7@,_6.YES 6.NO  _3-B -B0'-B536-B5P_6-A}O_$a!!:::::::::::::::::::::::::::a ӛaa қaR 6-AU6.&6-@`8ARA}@(R@ @ a1F:Ad,AU'6-F:Ad,1 BPtaSF:@ ,!9AR+F:AR,",$A}@A(S@ @5a F:B2y,"@BPTaGF:B2y,"@%6-6@7AR@D6.A}SELECTG$aGF:B2y,"@%6-6@7AR@D6.OPTIONG$aFF:B2y,"@%6-6@7AA}R@C6.STARTF$a BPTa. ԠٛaD"@96A+F:A,",$A(: D BPTA}a>Ad BP )$ 6AR@>(a 6.>:,a$a. Ԡқb  BPR4b A}6b0 BQD)-- 0$8b -F:A,$>bЛ?bF  6-6-@%6-A}.6.P:2 FBQS@b$Ab Fb $Hb ˛Ib7"@K:4AdAUA}7$Rb ӛSb;+%,""6-F:@,16-F:@,; BQsTb@@Ub6-&%@A}$Wb śXb* 6-B:, ('(7@<,*$Yb śZb 6-B:, ($\b ƛ^bAR@$A}ab ڛbbN%2@A@@) K2@N$cb ˛db`%2@@ @B}@16-@; A%]2@`$| Л|7(F:A,0 F:A,%F:A,$AB}V4 7&}ίƛ}AY@4$}AY$X ԛ[ +-B b?6-B}BQ6-BQ'6-B"36-B"?6-BQ@l36-A6-BQ'-BQP3-BQXv?-BPP-B}BQ`'6-BQp36-BQu?6-BQw{6-@6-@8 |6-@6-@$ D4:TUTOR.BB}ASQ`'6-BQp36-BQu?6-BQw{6-@6-@8 |6-@6-@$ D4:TUTOR.B@''NAMEROADTOWNCOUNTYPOSTCODECOUNTFILECLLDUMMISCLABCDUDISCODBDSIDNFILABC((F}(P(x((@  P   AF}GAVnnfffffff>F}`<|fl0fF68of;8008p00pf<xF }x|x|p|xxnnx|0000|x|xF }xlxx||nn00000|pxxf<p0`|@`0 xx6cF }x00nn8pp8?nnF }ww<~~~<nn<~F}~<0~0 ~ <~~<xlxxx |xxxp|| nn0p00x xF}p0000xxxxx| |x p ^^|x0|lx0x| 0F}`<~~<~x|nf8x8 O AF:A,&@*+C6-+F:A,%@,OAV F}\\6-?:C:LhjΩi˥i̩ Ϣhˑi˥i0hڢX`,,  A@ A .@F}.@@P:((@((@S1*H*C0O( 1)FIRST CLASS((2)SECOND CLASS3( F}= AC6-O6-.B:,!@"(@S0.6-@.B:,!@"(@S0.6-@.F}B:,!@"(@S0.6-@.B:,!@"(@S0.6-@.B:,!@"(@S0.6F}-@%"@%(@M0,-60*I3(@P $(@A3(@ !+(@+(@F} C1*I*M0,30"%"@%(@M0,10*C0(3(@P $(@A3(@ ++(@+(F}@ C2*I*M0,30,%"@%(@M0,10*C023(@P $(@A3(@ 6+(@F}+(@ C3*I*M0,307%"@%(@M0,10*C083(@P $(@A3(@ 9+(@F}+(@ C0*I*M0,30:%"@%(@M0,10*C0;$(@P $(@A<(@F}F^"@T(@7D0,115;230,115;230,0;0,0*M235,110*S0*C3*Q1*PFIRST CLASS^ @KSI(@8D0,115;230,115;F}230,0;0,0*M235,110*S0*C3*Q1*PSECOND CLASSS @PPP(@?M255,0*D255,115;435,115;435,0;255,0*M295,100*S0*C0*PAFFIXF} STAMPUF-(@*M385,100*S0*C0*PAFFIX STAMPF(@ M0,-90*C0*I`AdAUd AnARF}@(#@C@@K:P)@[@i6-&@H{AR~($<( INPF}UT NAME%( INPUT ROAD)8( INPUT TOWN<2( INPUT COUNTY+(INPUT POSTCODE/2$,K(INPUT FILENAME6F}.D:#267@,.K67B:,%@,..LAB1&7@<@,4C:&6.C:6+@+@@F }@D(@(@*(@7(@D(@J@$+@+@@F!}D@@*@7@D@@$R@.@@F"}P:>(@R-@@ (INPUT DISK NUMBER: A68,- .$(INSERT DAF#}TA DISK & HIT A KEY. A= A@=@@D:DNAME-@&@ n6-@F$}(@%(@0(@;(@F(@n(@DISK NO:8, SIDE A= A3@F%}=@@D:DNAMEA @@)@76-%@A A7-6-"@F&} *(@-$(@m(@P___________________________________SIDE B___________________________________F'}____y6-@ A0+@+@@@ A3@& A F(} A@X>@.@@P:>(@YY(INPUT DISK NO. -( INPUT SIDE 1Y(F)}@ DISK: SIDE:Z.( INPUT TITLE .(@ ]##(INPUT BINARY DISK FOR LABELb(F*}THEN PRESS ANY KEYl A6-@v1@1@@D:*.*{-@@@F+} A''7@<@,4FREEA(@  @''7@<@,4FF,}REEA-(@ #6-%@- A5@.@@P:>(@(@F-}C3*H*D0,@$%@;475,@$%@ ;475,0;0,0*C0@@$467@,. %F.}67A,. 467@,.-@A@))( INPUT LINE :P:'@,%@67<%@F/},. $ N@.@@P:>(@K(@N$+@ A@+(F0}1) INPUT LABEL(2) I/O(3) PRINT LABEL ( 4) SHOW LABEL A A"@ A$F1}"@ A0."@ A8"@APB AL" A@"(1) ADDRESS LABELV( 2)F2} DISK LABEL[(3) MISC' LABEL` A` Aj"@ At"@ A~"@ F3}A6-$$ A@$(1)SABRE BASE LABEL(2)BINARY LABEL Ap A"@ AF4}"@ A$" A@"(1) ADDRESS LABEL ( 2) MISC.LABEL A0 A"@F5} @("@ A2$# A:7@<@,,8,#$E&7@<@,4A*"@E(@F6}7@<@8,E&7@<@,4B*"@E(@7@<@8,$  A@(1)LOADF7} (2)SAVE ( 3)DIRECTORY  A0 A "@ A2 "@ A1 "@ A4F8} 6- $ ( 1) ADDRESS& (2) MISC.0  A1P A: "@ AD "@ F9}A3N 6-$ K(INPUT FILENAME6.D:#267@,.K67B:,%@,..LAB &7@<@,4F:}C:&6.C: 8@+@@8@ B:, A A @$ K(INPF;}UT FILENAME6.D:#267@,.K67B:,%@,..LAB &7@<@,4C:&6.C: F@+@F<}@8(@C@F$H =6-@@=@@D:*.*R 8 A4 (F=} HARD COPY%(1)YES.(2)NO8 A\ @a A4`f &&7@<@,0LABA4 p (7@<@F>},z $"@$37@<@, A4  ( "@3 *( HIT A KEY A'6-*$F?}ss;@@,;@@,;@@,;@@,;@@,;@,;A,;@,9@ ,;@,467@F@},. %67A,. 467@,..(INSTRUCTIONS Y/N$4Y. A`$@(8-@FA}6@T2A @f-@m(q 2B-FB}B((Ӡ̠Ҡ((0@H:,$@@@($(FC}(0@H:,$@" A@"(1) ADDRESS LABEL(2) MISC. LABEL A"@AQFD}@ AP@((*( HIT A KEY4 AF@@P A9( ((FE}((%( HIT A KEY/ A9 Ap@(z( LABEL 1020( ----------..(& THIS PROGRAM IFF}S RUN ON MENU'S TOTALLY((( EXCEPT FOR INPUT OF THE LABELS.++( RUN BY RUN>:@4, D:LABL1020--(% I WILL GO FG}THROUGH THE OPTIONS 1 BY 1( INPUT LABEL( -----------( 3 TYPES OF LABEL( 1)ADDRESS( STANDARFH}D ADDRESS ( NAME ( ROAD ( TOWN( COUNTY( P.CODE Ae( 2)DISK LABEL$( TWO FI}TYPES.( i)SABRE BASE LABELS8..(& THESE PRINT LABELS FOR SABRE BASE THEB&&( EXCELLENT DISK FILING SYSTEM.L(FJ} WRITE TO SABRESOFTV""( 269 CAMPKIN ROAD`( CAMBRIDGEc( CB4 2LEd( FOR DETAILSFK}.j( ii)BINARY LABELSt**(" PRINTS YOUR DIRECTORY OF A DOS II~( DISK IN A LABEL FORM.( 3)MISC LABEL(FL} 10 LINES( 80 CHARS PER LINE Ae ( I/O ( ---( 1)LOAD++(# LOADS A PRE SAVED LABEL JUSFM}T INPUT((( FILENAME NO EXTENSION OR DEVICE( (CASS) TYPE C:.( 2)SAVE!!( AS LOAD BUT SAVES LABELS(FN} 3)DIRCTORY$$( DIRECTORY OF LABELS ON DISK ((( WILL PRINT TO SCREEN OR PRINTER Ae( 3)PRINT LABELFO}( -------------(&&( PRINTS ADDRESS OR MISC LABELS2( i)ADDRESS<,,($ YOU CHOOSE IF LABEL IS FOR FIRST ORFFP}( SECOND CLASS POST.P( ii)MISCZ( JUST PRINTSd( 4)SHOW LABELn( ------------x( PRINTS LABEL ONFQ} SCREEN))(! PHONE (0223) 359981))(! AND ASK FOR DAVE))(! WITH ANY PROFR}BLEMS))(! OR IMPROVEMENTS TO( PROGRAM.( HIT A KEY A$ D:LABL1020FS} Ap |7+$@5,%@ $@5,% , AQ @( BY A""@ OFT}LBY B, ,% , AQ @( BY A""@ OD3VdxBEEPROMPCBELKKKKK2K4K6PROGLINEDATNOABCACDKEXTTROSANGLPRLONYXLINLTJV}ACTNENTVST JW} @@@JX} !"#$%&'()*+JY},-./0123456789 TURTLE 1JZ}020 By Jason LeighA"A1080,90,155,253,1,2,3,4,27,40,65(1;A,6.>:,(67AJ[},.167,.2\\;AU,;AU,;,9@&,9@&,9@&,;,;@9,;A(,<$ 6.>:,67@9J\},.$67,.F0-@&68,-#68,-,68,-0 P!(>:A%, TURTLE 1020!(ZV 6- A@J]}=(>:@0,>:,>:@1,I@V@d (B:, n3 B:,"6-@:,3!@G* @XA@J^}x2 A@B:,"$6-8@:,&,.(=2 4DELA4CAT)4DIRA# 4TON6-6-@J_}4#  4TOF6-6-  4NEW%4MEMAP4LOADA@4SAVE6- A@J`}* 6-@:,*!@G* @XA04RUNAP&7<,4LIS6-" A`& I7<,4LIP Ja}A !5@P:;6-E A`I @ 4SEE<(X=P:, Y=P:, COLOR= ANGLE=@  6.Jb}6.7<, A  4REM I 4TXT&@P:0(7,E(>:,>:@,I " 4PFNJc}(7, ,& 4GRH"(>:,>:@,& 67<,4=A @< A @4COL#6-A:7,,- A 8(Jd}C< J 4PND6- T 4PNU6- ^D A 4HME#6-A@)6-/6-@(M,D hJe}4SETA r) A P4TRN%6-%A:7,,) |' A `4TTO#6-A:7,,'  A p4BACAJf}0 A 4FORA= A 4GTO6-' A96-+A:7,,&,$= H 4REP6-+@:7,,&Jg},268,-A:7@,,;68,-D68,-H D 4ELP6-+@:7,,&,+68,-8,%78, 8,@6-8,D  4ELPJh} 0 A 4ORG6-#6-,(H0 > 4CLR-@&$68,--68,-668,-: > 4TJi}STAp4IFFAP4IFTA 4END6- ^ AP4ACC)AY@476-@:7Jj},,&;E A@N68,-ZAY^ $(>:, Command error$ A * (>:,Illegal line number* A Jk}'(>:,Illegal variable' A &9F:A,"@/(>:, Illegal input9 A 0-  (6-B:,!-6-Jl}+A:7,,&,$: 6-%@:7,,AD A!Ay`)! $N ApXO(' !-%@9-Jm}@:7,,1 E(7<%@9,O Ab(7<&, Al(>:, Printer error v6-A:7,,& A Jn}6-E:,$&6-G:,$(D&,&((M&,& 6-&6-& 6-A:7,,Jo}& A 6-E:,$&6-G:,$(D%,%((M%,% 6-%6-% B:Jp}, AP-B:,!@9)(>:, Line too long-  6-B:,67%,.>:,1 -6-@:7,,-!@G* @XJq}1 6-A:7<,,6- 4!A) 0(>:,Illegal line number4 67$<$%@9,.    *'Jr}@:7,,"@26-%' A4B:,& A >+67$<$%&%,.7,#$!+6-$H R2 A Js}&@P:2AY\Z 6-6-6-6-!6-/-@&868,-A68,-J68,-N T6-Z6-f6Jt} A06.6-"6-%6@:7,,A p!Ay`)!6- z ApI-%@9@:7,,'Ju}6-%567<,.7,;6-? I A  6- A  A('  A`- A 6-8Jv}@:7,,&,)(C- $ A  6-%8@:7,,&,$ " A 6-8@:7,,&," ( A 6-8@:7,,&,Jw}( A@( A 6-8@:7,,&,( A) 6-6-@:7,,&)* A@-B:,7<,0, Jx} 6-%6-A:7<&,,#6-@:7,,&#* AP6-A:7,, A`" 6-8,6-@" A  6Jy}-8,$" A "(D,.((M,8;!A`) 6A`+6-P:'A`,;6-&$A`BJz}AL((OkayAR VC-@6*2A@@. @AY@4C$`* A0J{}*7<@,4RNDAPj6-@:,&6-t A@~% 6- A6-6-%6-' 6-% AJ|}6-!6-'6-6.7<, AP 4+6-% A` 4-6-& A` 4/6-' AJ}}` 4*6-$ A` 4^6-# A`!(>:,Illegal function! (>:,Overflow J~} 6-6-68,-  A` - A6-@:7,,&-* A`P 6-6.7<,"4-)4+*J}6-%06->6-@:7,,&P* A`D 6--B:, 6-@:7,,@"@F)!@G* @YD (6-J}&6-26-A:7<&,,6-< B:,6-F$P' 6-*4-6-68,' AZ 6-8,d 6-%6-J}& A@n 6- Apx>F:Ad,AU*AdAU4(Break> A AdAU$J}( at line #'6- &(Enter Filename->&@& AP6-& Ap6-J} ))4 )(0(>:,Not a TURTLE 1020 file4  )6-$ ) )"AUA@J}!67$%<$%,.>:,!6-% A 6- A<F:A,A6(<(>:, I/O error # F:AJ}, " @6- 6-, **6 *'@ 6-%@:7,,A0J"!Ay`)!J}@" T A^I *'-%@9(@:7,,5*@:7,,;6-? I Ah$ 6-*AU$J} Ar- 6--A%@:7,,"-6-%| ( LINES FREE $ A 6-@:7,,&$6-8,;6J}-@:7@,,&(!6* @&16-8,; A6-A:7@,,6-@:7@,,6-"@`6- J} "@b6-! "@a*"6-   A 6- "7<,4 6-%" A`J} 6.6.7, A` A 6-( "7<,4 6-%" A 6.6.7, A`J}(( DISK CATALOG(3 AP)@D:*.*3 A@& ( A00 ( : A DJ}46-@:7@,,&!* *6-8,4 AN6-A:7@,,X%6-@:,&!68,-P:H:,$,%% b$6-@:7,,&J} 6-+8,&,$$ l6(DELETE FROM LINE #->!2( TO LINE #->6v% !(>:,Illegal values% )!AJ}) 6-6-) A-)( DELETE LINE  TO  (Y/N)-'7<,4Y(DELETING' A` '-J}$$67<,.>:,# '  D:TURTLE.BASTO  (Y/N)-'7<,4Y(DELETING' A` '-H4jCOLRABA2 A@B1@@AA` @ r +N}09@,;@ ,;@ ,P(What color is black (0-3)?Tc68,-n(Blue?rk68,-AHN}(Green?"168,-A;(red??N68,-@hg(Do you want a white?ke@@ @@8N}7@<@,4YI( Which color?M\68,-@_ b e (t@(<(&What is the name of the saved pictureN}?@J @Pd7@<@,4D:j6.t @p2f 4-@@D:*.*3(}= @@Q-@N}@p^@b f < 6.D1:67@,.F @()(Hit return to begin-8@W@N}@@Sy6-F:@,%AV$F:@,A8,PA8@,-A 8@,N}BA8@,_@@s-Avy)@% Zx@ B8@N}@P:H(@\-@e6-8,q"@u xdl;6-+"AH,%@$+"AN},%@$+"@h,L(@C`-Al6-n 1A@x5 A0#-%@N}AY+11"5  B!-@(@M@$,@&+@$%,*D@$+N}&@,%@,@&+@$%, 6-&@'6-%@ A`' A   D2:N}DUMP1020%@,@&+@$%, 6-&@'6-%@ A`' A   D2:L NOCOLPENPIXEMEMLOCFILETEMPMEMLMEMHRSAVMSDLISMAINQLDZENMODEA@R}A0 ? @@ @ A) A' @ @BCtB7(@KVV^wR}@!==d1020 PICTURE MAKERx A A" ##@@P:(@*H*R}I-@8,"@A&(@H&(@C8,A6-?:B&R}<,, B'g@-6-F:A,F:A,-6-%AVT>>(@M,6@$+A&,*J0,4;1,0;0,-4R}hF:A,A| TITLE AND INITIALIZATION@@6.6hBDEHI  :AU,QQ67A),.>`RɥPee`/ee0GG67A,.4(eR}eЕee:GG6.=h01eeAO ݩ֩N`D$XRR9R}@,9@,;@,;@,;AB,;A(,;@a,l' +@'0@'-@R}@'(@1020*-@@*(@picture(-@@((@;AR@R};(!(c)1984 George L. Graff A@ #A`(-@"$68,-( 712,708,709R},710 $-@ 68,-$  6-@6-A)46-A'AH6-@\''READ MACHIR}NE LANGUAGE ROUTINES305f #A@pM-@A"'67,.>:,+ ?-B&B(7C"IM z-A6R}AV{ " | ;@,OPEN PICTURE FILETRAP 940##(OUCH TABLET OR RAPHICS 8?R}0T*0G A `G }ENTER FILENAME--@B:,:7<,4:='G A $! 6.6.D:R}!67@,.8+@+@@LDISPLAY PICTUREV/ +@$/6-F:A`,%F:Aa,$AVR}j %@t! 4G6-?:C:,,! A~6-?:C:,,6-?:C:,,6-@++POKE SAVMSC,MEMLO:POKR}E SAVMSC+1,MEMHIA`6-?:C:,%@x,# -@ 6-8,"8,R}"@8,AH("@8,A<"@8,@pP"@8,@d R}xI%@%@3%AI%A%@6-F:B2y,%"@6-@% A R}"@$ A SELECT COLORS(Choose Pen Color:( Black ( Blue R},( Green @( Red T( Blank hS-@B( Pen Color No.%@R}?8,FO68,-S | AGRAPHICS 7+ CONVERTERAND SCREEN LOADER FROMA.N.A.L.O.G. NO. 12R}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,2R},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,165R},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==89R},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,R}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$R}$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,R}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,207R},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,R}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,R}3,32,86,228,48,1,96,104,104,96(#$-@@ (F:%,$ D2:BOBSPGM.V20sssssssssssss,157,72,3,169,0,157,73,Pf @e)!@c%A0p L6-&@d6.D1:L67B:,%@,.7$@&@<$@, A10 *}-@@ 27<,4 (67<%@,..BAS2 A1@&  : & B&67B:,%@,..BASD $S*}ave vectors and set VBI.]6-F:AF,!6-F:AG,06-F:A,?6-F:A,N6-F:A`,]6-F:Aa,4A*}FA&'AGA4ADDR=49378$X?6-@@?@@D:*.BASb1@*}.7@<@,4FREE S1$l?'67<%@,.7@<@,56-%@? ApD:TITLE1@(tD:TITLE1@.7@<@,4FREE S1$l?'67<%@,.7@<@,56-%@? Ap(