–€€@LÌß}ˬð5 _­¬¦$Ž¦%Ž l0¬±$)ªÈ$ð±$Hȱ$ Uh¨ŠL"©À ¨`©€e$…$æ%`­…$­…%` Œ ©R @©P €¦!àÐ( L¹(©Œ©1© ©€ ­ YäÎ ð¦I˜` ­ d  LÇd M ¼* €@ ÿ­ …$­ …%­ …C¢©C ‘$¥$)¥%1© U©dÊߥ$9¥%:¬ ¢ˆ˜!0 SèàÐñ¥$ç¥%詨™Èú¨¹ð ÉDðÈÈÈÀÐð©D™©Ë™©™` ­ }½J‚)ðLr 콂ÉÀÁÉ@NZERÏONÅTWÏTHREÅFOUÒFIVÅSIØN·ATÅNINÅTEÎN1µN1¶N2°N4°N8°N9°N10°N12¸N14¸N15°N15±N15²DF¤RGB¨FILE¤HEAD¤CÚÁPÍPL°PL±ÉKN}4°KN5°KN6°KN7°PCOL°PCOL±P°ÐP¶SCØSCÙMAIÎLINEÓK4°N±N²PÒSÁNPÃXÐYÐØÙSCÏËNÙÊPÃPØPÙDÒSÃ} }€@€€ !"#$}%&'()*+,-./01234 }56789:;<=>?@??DOODLERS DELIGHT/D }ANCINE DISILVERIE "SHOW" (C)1983 ATARI› 33"€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–FF0,1,2,3,4,5,6,7,8,9,10,15,16, }20,40,80,90,100,128,148,150,151,152›++—;@,˜9…,™;@,š;@ ,6›-’%‚$’$F:AV,N6œ-F:‘%†,&BB }yœ&6-‚$’$œ06ž-%„$’:6Ÿ-%…$’B6œ-œ%ƒNAœ#/6—.D1:PLOTTS.OUT /6™. SCREEN $6š. MARCH }1983 (  -…"œ6˜8 ,-œ  -68,200,150,2,26›F"¡¢£¤¥¦§¨©ª«K881040,1050,1060,1070,704,705,53248,19}0,1536,3.4,3.8›P! AU6¬-%…6­-! †$‘U 6¬-%† A0V.  ‚H*C1 ‚$ ‚š. ‚Z' ®6¬}-% -+%Š,$‘!  ' ‰$‘[9 ¯-€‰6—7ˆ,.>:@:0,%¯,&°-€‰96—7‰,.>:@:0,%°,\06—7Š%„,. 6¬-%ƒ &ƒ€* A0}0 †$‘] 6¬-%„6­-€ A0^3 ­" %† ‚H*C1% ‚3 ‚™—7ˆ<‰,_ ­" ‚` ®6¬-%‡ ‰$}‘a  ° ¯b  -€‡§% €  X‚ ¡ Ap± ¬€ 6±-‚ˆ€P4:Š' ‚­"' ‚ C0*M0,-}500*I” ¬ž ¡6±-6 ® ¬¼² AÆ% 6²- AV‚ ¢% A0ä„€—‰€}—ó ¦˜8ƒ, ¬ô Aeˆ€—ø ¦˜8‚, ¬ý ® ¦˜8, ¢ ¬ ² A% ¢}‚ £ A0>! Au„€—!¦˜8‚,R6 Ae)³)´")µ))¶0)·6„&³S ³"€ ¸W ±"} A@Y6­-@\ ,´µ/¶· APa ®  £ ¬k! ®¦˜8, £! ¬„‚ ¤%Š²}“ ±*­ A  ‚H*C3˜ ® ± A 0‚¢ ® 6±-€­" AU§ A€¬ ¬ü ,“}/–‡,–/“‡$+ ,“‹/“‰/”‰/–‰%‚%/–‰%„+/”‹  /“‹ $* ,“%ƒ/“&ƒ/•&ƒ!/•'/“*$+ ,•}%…/“%…/“%ˆ#/•%ˆ+/•‹%Œ /“‹%Œ$$",“@3/“Ž&/•Ž&"$.:,¹@f/¹@i),¹%@f}7/¹%@i:$/* ,¹&†/¹&ƒ,¹%&†'/¹%&ƒ*$0* ,¹%‚/¹%…,¹%%‚'/¹%%…*$8B ,”%‰/“%‰/“}%‹'/”@•3,•@?,•@”B$¸   -€‹Ÿ%@W% €    ¦˜8‚,6º-%Ž…  §%¨%„6 -¯Š * »-€‡6}œ-F:ˆ$ %»%›,&Ÿ%º&ƒ%»œ* »¨ º"@h$² 6º-@h6 -° A2  A@€³"¼A@0´ ‚C³¾06½}-P:ª$´,6¾-P:«$+%‹&µ,,0 ‚M½,¾Ò6½-P:ª$¶,6¾-P:«$+%‹&·,,Ü ´"¶*µ"·6½-½%‚æ ‚D½,¾6¼-³$ð} ®  ¡6±-6$”3 AE *³*´"*µ)*¶0*·3$¨ ®  ¢$|  -€‡§% €  ) ©}©%B2w€)AY‚I +@#A˜8„,+A˜8,:A ˜8‚,IA˜8ƒ,† -žž%ƒ$’ €}   ¥˜8…,¦˜8,¥%‚‹’ »-„ž%&‡%»‰%ƒ »š"¿±²À³¼¸#AU0Ÿ0,0,0,1,3,0,3›®,“&‡‚ }/“&‡‘&†³% ¡&Š ¡ ¢ £6¹-“ ¤% ¤%Š¸‚ ¤%ƒ ¤%‚º©%‚A©%ƒ%ˆ¾)AYŽ%‚B2wƒ!})A#¿ §¨%‚§%‚¨&ƒ$€D:SHOW‚ ¤%ƒ ¤%‚º©%‚A©%ƒ%ˆ¾)AYŽ%‚B2wƒ3*+#„”ÁÂÃÄØÙËÊÉAÁBÂCÃDÄZÚEÅFÆGÇÑÒÓÔ×ÍÎÐÖÌÈADÙÕA¤#} $}€ NO TWO DRAWINGS ARE ALIKE!›ž;@,{6’-@6–-A%}'6—-A36˜-AP?6‘-K6•-@W6”-@c6“-@$o6š-@u6›-‘{6-• M•š‘P:(•&}&(•C‘8(•M‘,6—>"•C•I6-‘M ’6€-P:H:‘,$’,6-P:H:‘,$’,6‚-P:H:‘,$’,6ƒ-P:H:‘,$’,6„-P:H'}:‘,$–,6…-P:H:‘,$—,6‡-P:H:‘,$–,6†-P:H:‘,$—,(! ˆ-•š6›-›%•›"”$”!6›-‘- ™-•’$”™"’$” (•C›2%(•(}M„,…%(•D‡,†7# 6„-„%€6…-…%6‡-‡%‚#6†-†%ƒ< „–6€-6€6„-„%€A ‡–6‚-6‚6‡-‡%‚F ‡‘6‚-)}6‚6‡-‡%‚K „‘6€-6€6„-„%€P …—6-66…-…%U †—6ƒ-6ƒ6†-†%ƒZ †‘6ƒ-6ƒ6†-†%ƒ_ …‘6-66*}…-…%d" ™ ˆ(•M‘,6–"•nD (} (((+(DO YOU WANT ANOTHER?.(D(NO TWO ARE ALIKE!x+(( ENTER (+}Y/N)ž+ž0YA‚ (} ’È€D:RANDOMDO YOU WANT ANOTHER?.(D(NO TWO ARE ALIKE!x+(( ENTER (= !‘1BLOOÐØX±Y±ÔX²Y²A1¨A2¨A3¨ÙSIÚOÆNUÍ@@@ -} |6-@$/@@P:X‡9@<,ˆ9@<,‰9@<,d6‹.}-Ap6Œ-@P|6-@$(@.6„-.-6@@@'(_6Š--6‡8</}„,-P:$‹%?P,M6‡8@<„,-P:Š$‹%?P%Œ,[6„-„%@_ 2.6„-.-@6@'<p 6Š-6M:0}@,$%M:@,>6ˆ8<„,-P:$‹%?P,^6ˆ8@<„,-P:Š$‹%?P%Œ,l6„-„%@p F/6„-/-1}6@6@'Po6Š-M:@,$%M:@,=6‰8<„,-P:$‹%?P,]6‰8@<„,-P:Š$‹%?P%Œ,k6„-„%@2}o UGOTO 200›Z!(@C1!„-dWS(@M‰8@<„,,‰8<„,*D‡8@<„,,3}‡8<„,W „n!(@C2!„-xWS(@M‡8@<„,,‡8<„,*Dˆ8@<„,,ˆ84}<„,W „‚!(@C3!„-ŒWS(@Mˆ8@<„,,ˆ8<„,*D‰8@<„,,‰85}<„,W „–(@M0,-600&È„-@Ò™™(@M‡8@<„,,‡8<„,*Dˆ8@<„,6},ˆ8<„,*D‰8@<„,,‰8<„,*D‡8@<„,,‡8<„,Ü „€ D:TRIANG2ˆ8@<„,n@FGw½ÌÙØÃÁÂÏ ##@@P:(@ 8}'6…-AP6ƒ-@'6„-@‚-@(@C‚ €-A6@((@ 9}M…,€$„2''(@D+A&€,$ƒ%…,06 €7„"6@6ƒ-6@8 6„-6„F ‚d(@M0 :},-400Þ@€D:COLORINARY LOAD›E. RENAME FILE M. RUN AT ADDRESS›F. LOCK FILE F ‚d(@M0 cTO PLON›SETWRITE "P:›END››TO PLOFF›SETWRITE []›END››TO PGRM›( TYPE CHAR 27 CHAR 27 CHAR 7 ) ›( PR "M240.0 * I * M INT 1.5 * X<}COR ", INT 1.5 * YCOR )›END››TO PLOT›( PR IF PEN = "PD ["D] ["M] INT 1.5 * XCOR ", INT 1.5 * YCOR )›END››TO PHOME›PR "M0,0›EN=}D››TO PLNTYP :TYP›IF OR ( :TYP < 0 ) ( :TYP > 15 ) [BARF] ›( PR "L INT :TYP )›END››TO PLABEL :ANGL :SIZE :LIST›IF NOT MEMBERP>} :ANGL [0 1 2 3] [BARF] ›( PR "Q :ANGL "* "S INT :SIZE "* "P :LIST ) ›( PR "M INT 1.5 * XCOR ", INT 1.5 * YCOR )›END››TO PL20?}›( TYPE CHAR 27 CHAR 27 CHAR 16 )›END››TO PL40›( TYPE CHAR 27 CHAR 27 CHAR 14 )›END››TO PL80›( TYPE CHAR 27 CHAR 27 CHAR 19 )@}›END››MAKE "PRO "[]› 27 CHAR 16 )›END››TO PL40›( TYPE CHAR 27 CHAR 27 CHAR 14 )›END››TO PL80›( TYPE CHAR 27 CHAR 27 CHAR 19 )TO SETPENS.RED›SETPN 0 ›SETPC 0 34 ›PENRED›END››TO SETPENS.BLUE›SETPN1 ›SETPC 1 56 ›PENBLUE›END››TO SETPENS.GREEN›SETPN 2 ›SEB}TPC 2 99 ›PENGREEN›END››TO PENGREEN›( TYPE CHAR 67 CHAR 50 )›END››TO PENRED›( TYPE CHAR 67 CHAR 51 )›END››TO PENBLUE›( TYPE CC}HART 67 CHAR 49 )›END››TO PENBLACK›( TYPE CHAR 67 CHAR 48 )›END›››TO PENRED›( TYPE CHAR 67 CHAR 51 )›END››TO PENBLUE›( TYPE CA  TŽD¨ÉÓÃËÊP¨ØÚ@AiAd@ †9A`<@,E}‡-A`@**6†8‡<@,-P:A$G:‡$@,,(**6†8‡<@,-P:@0$G:‡$@,,2**6†8‡<F}@,-P:A$G:‡$@P,,< ‡F##@@P:P$$(@>:@',>:@,Zˆ-@G}@d::(@Cˆ*M,†8@<ˆ,&@Pn‡-A`@x77(@D‡$@0%H},†8‡<ˆ,&@P‚  ‡ ˆŒ$$(@C0*M00,-50*X1,13,36–##(@M234,-150*X0,20,10 (@I}M0,-800ª@´€D:SINES@C0*M00,-50*X1,13,36–##(@M234,-150*X0,20,10 (@+32›-2›-2.25›-2.75›-4›-1.3›-1.5›-1.9›-2.7›0›0›0›0›1.3›1.5›1.9›2.7›2›2.25›2.75›4›1.3›1.5›1.9›2.7›0›0›0›0›-1.3›-1.5›-1.9›-2.7›0›K}0›0›0›1.3›1.5›1.9›2.7›2›2.25›2.75›4›1.3›1.5›1.9›2.7›0›0›0›0›-1.3›-1.5›-1.9›-2.7›-2›-2.25›-2.75›-4›-1.3›-1.5›-1.9›-2.7›8›4›2›0L}›8›4›2›0›8›4›2›0›8›4›2›0›8›4›2›0›8›4›2›0›8›4›2›0›8›4›2›0›40›1›2›2›3›3›4›5›6›6›7›7›8›9›10›10›11›11›12›13›14›14›15›15›16›17›18›M}18›19›19›20›21›22›22›23›23›24›25›26›26›27›27›28›29›30›30›31›31›32›1›5›5›9›9›13›13›17›17›21›21›25›25›29›29›1›4›8›8›12›12›16›16N}›20›20›24›24›28›28›32›32›4›24›25›26›26›27›27›28›29›30›30›31›31›32›1›5›5›9›9›13›13›17›17›21›21›25›25›29›29›1›4›8›8›12›12›16›16112›4›4›-4›-4›-3›-3›-3.6›-3.8›3.8›3.6›3›3›2.8›2.8›2.8›-2.8›-2.8›-2.8›-2.8›-0.6›0.6›2.8›0.6›-0.6›0.6›-0.6›0.6›-0.6›-3›2›2.7›3. P}2›-3›2›2.7›3.2›-3›2›2.7›3.2›-3›2›2.7›3.2›-2.8›1.8›2.7›3.2›3.2›2.7›1.8›-2.8›-2.8›1.8›2.7›3.2›3.2›2.7›1.8›-2.8›-2.4›1.4›2.7›3.2 Q}›3.2›2.7›1.4›-2.4›0›4›4›4›4›3.9›3.9›4›3.9›3.9›3.6›3.2›3.6›3.9›3.9›2.3›2.3›2.3›1.7›-1.7›-3.2›-3.6›-2›2›2›-2›-1.7›1.7›1.7›-1.7› R}-3.9›-2›-2›2›2›2.3›-3.9›-4›-2.3›-2.3›-2.3›-2.3›-3.6›-3.9›3›-3›-3›3›3›0›-0.5›-2.8›-2.8›-0.5›0›3›3›1›0›0›1›3›-0.5›-0.5›-0.5›-0. S}5›-0.4›-0.4›-0.4›-0.4›-0.6›-0.6›-0.8›-0.8›-0.8›-0.8›-1›-1›-1›-1›-1.1›-1.1›-1.1›-1.1›-1.3›-1.3›-1.3›-1.3›-1.4›-1.4›-1.4›-1.4›- T}1.6›-1.6›-1.6›-1.6›-1.7›-1.7›-1.7›-1.7›-1.9›-1.9›-1.9›-1.9›-2›-2›-2›-2›-2.2›-2.2›-2.2›-2.2›0›-0.8›-0.8›2.7›2.7›2.7›-0.8›3›3›3 U}›-0.4›-2›-2.5›-2.8›-0.4›-0.4›-0.4›3›-2.7›-2.7›-2›-2.5›-2.8›-2.8›-2.7›-2.7›-2.15›-2.15›-2.5›-2.5›-2.8›-2.7›-2.7›-2.7›-2.7›3›3› V}3›3›3›-0.4›-0.4›-0.4›-0.4›1.5›0›0›1.5›1.5›1.5›0.9›0.3›0.3›0.9›1.5›1.5›1.5›1.5›1.5›1.5›1.5›1.5›0.9›0.9›0.9›0.9›1›1›0.8›0.8›0.8 W}›0.8›1›1›1›1›1›1›1›1›0.9›0.9›0.9›0.9›0.9›0.9›0.9›0.9›0.8›0.8›0.8›0.8›0.8›0.8›0.8›0.8›0.7›0.7›0.7›0.7›0.7›0.7›0.7›0.7›0.6›0.6› X}0.5›0.5›0.5›0.5›0.6›0.6›0›0›0.2›0.2›0›-0.2›-0.2›0›-0.3›-0.7›-0.7›-0.7›-0.3›-0.3›-0.3›-0.7›-0.3›-0.7›-0.7›-0.7›-0.7›-0.3›-0.3› Y}-0.3›-0.1›-0.1›-0.7›-0.7›-0.3›-0.3›-0.3›-0.3›-0.1›-0.1›-0.3›-0.3›-0.3›0›-0.3›-0.7›-0.7›-0.3›-0.7›-0.3›122›1›2›2›3›3›4›4›1›5›6 Z}›6›7›7›8›8›9›9›10›10›11›11›12›6›6›6›11›7›10›13›15›16›18›14›17›19›20›21›22›23›25›25›27›80›89›24›26›26›28›27›28›24›23›29›30›31› [}32›31›35›35›36›36›32›30›34›33›34›33›29›37›38›38›42›42›41›41›37›39›40›40›44›44›43›43›39›45›46›47›48›48›49›49›50›50›47›46›51›51 \}›52›52›45›53›54›55›56›56›57›57›58›58›55›59›54›59›60›60›53›61›62›63›64›64›65›65›66›66›63›62›67›67›68›68›61›73›76›71›72›72›74›7 ]}4›75›75›71›77›82›3›8›84›86›80›81›79›83›84›85›85›83›84›79›79›80›85›104›82›92›96›97›97›81›97›92›92›87›92›93›93›94›94›91›91›88›8 ^}8›87›88›95›95›98›98›91›91›99›90›89›90›98›87›96›3›106›106›105›107›108›2›82›108›109›109›110›110›112›112›111›111›109›111›89›99›1 _}05›77›76›104›86›86›108›107›108›77›105›76›1›106›4›107›110›101›102›103›102›3›99›9›2›70›2›10›110›112›112›111›111›109›111›89›99›1 W84›5›5›5›5›5›5›-5›-5›-5›-5›-5›-5›-1›1›1›-1›-1›1›1›-1›-1›1›1›-1›-1›1›1›-1›-2›-2›-2›-2›2›2›2›2›2›2›2›2›3›3›3›3›-2›-2›-2›-2›-3›-$a}3›-3›-3›3›3›3›3›4›4›4›4›-3›-3›-3›-3›-4›-4›-4›-4›4›4›4›4›5›5›5›5›-4›-4›-4›-4›-5›-5›-5›-5›-2›2›4›2›-2›-4›-2›2›4›2›-2›-4›-2›-2›-$b}2›-2›1›1›-1›-1›2›2›2›2›-1›-1›1›1›1›-1›-1›1›1›-1›-1›1›0›1›0›-1›0›1›0›-1›0›1›0›-1›0›1›0›-1›0›0.67›0›-0.67›0›0.67›0›-0.67›0›0.67$c}›0›-0.67›0›0.67›0›-0.67›0›0.33›0›-0.33›0›0.33›0›-0.33›0›0.33›0›-0.33›0›0.33›0›-0.33›6›6›0›-6›-6›0›6›6›0›-6›-6›0›1›1›-1›-1›2›2$d}›2›2›-1›-1›1›1›-2›-2›-2›-2›1›1›-1›-1›-1›-1›1›1›1›0›-1›0›1›0›-1›0›1›0›-1›0›1›0›-1›0›0.67›0›-0.67›0›0.67›0›-0.67›0›0.67›0›-0.67$e}›0›0.67›0›-0.67›0›0.33›0›-0.33›0›0.33›0›-0.33›0›0.33›0›-0.33›0›0.33›0›-0.33›0›138›1›2›2›3›3›4›4›5›5›6›6›1›1›4›2›5›3›6›7›8›8›9$f}›9›10›10›11›11›12›12›7›7›10›8›11›9›12›13›20›20›17›17›24›24›21›21›28›28›25›25›16›16›13›14›19›19›18›18›23›23›22›22›27›27›26›26›$g}15›15›14›13›14›14›35›35›36›36›23›23›24›24›29›29›30›30›13›16›15›15›34›34›33›33›22›22›21›21›32›32›31›31›16›17›18›18›36›36›33›33$h}›27›27›28›28›32›32›29›29›17›20›19›19›35›35›34›34›26›26›25›25›31›31›30›30›20›37›38›38›39›39›40›40›37›41›42›42›43›43›44›44›41›3$i}7›41›38›42›39›43›40›44›45›46›46›47›47›48›48›45›49›50›50›51›51›52›52›49›45›49›46›50›47›51›48›52›53›54›54›55›55›56›56›53›57›58›$j}58›59›59›60›60›57›53›57›54›58›55›59›56›60›61›62›62›63›63›64›64›61›65›66›66›67›67›68›68›65›61›65›62›66›63›67›64›68›69›70›70›71$k}›71›72›72›69›73›74›74›75›75›76›76›73›69›73›70›74›71›75›72›76›77›78›78›79›79›80›80›77›81›82›82›83›83›84›84›81›77›81›78›82›79›8$l}3›80›84›2›69›73›74›74›75›75›76›76›73›69›73›70›74›71›75›72›76›77›78›78›79›79›80›80›77›81›82›82›83›83›84›84›81›77›81›78›82›79›8$TU $COLÒPEN¨ØPIXEÌMEMLOC¨ÉÒÏMEMLÏMEMHÉRÔSAVMSÃÎFILE¤DLISÔÁSAMVSÃ×A¨OUTFILE¤LÎMEMLOÃTEMP¤@(n}@ € @(o}€€ 1020 PICTURE MAKER› Ap A(##@@P:2((p}@*H*I<€-@F8€,"@APP&(@H&(@C8€,ZAd(q}6‚-?:B&•<€,n B'gx-6ƒ-F:A,F:A,-6ƒ-ƒ%AV‚>>(@M‚,6@$+A&ƒ,*(r}J0,4;1,0;0,-4ŒF:A,A– € ©TITLE AND INITIALIZATION›ª119@,„9@,;@,–;@(s},´' +@'0@¾'-@@'(@1020È*-@@*(@picture(t}Ò(-@@((@íáëåòÜ;AR@;(!(c)1984 George L. Graffæ(…-@"†(u}$6„8…,-†( …ð712,708,709,710›ú$…-@ 68…,-…$ …6ˆ-@€6‰-A)6Š-A'AŠ(v}6‹-@ˆ"''READ MACHINE LANGUAGE ROUTINES305›,G‚-A6AT"Œ!‚Œ% ‚9‚-B&•B(7="ŒC‚ŒG ‚(w}5OPEN PICTURE FILE›6 A@G }ENTER FILENAME-…-@B:,:7…<…,4:='G APJ …T$& 6–.(x}6.D:$67@,.–^+@+@@gDISPLAY PICTURE›h> +@$/6Ž-F:A`,%F:Aa(y},$AV>6-?:A6,r ‹ˆ‹%@‰|‡A†6-?:A,#š …-@ 6†-8…,¤(z}†"„8…,®†"@„8…,AH¸†"@„8…,A˜Â†"@„8…,@p̆"@({}„8…,@Ö …àIŽ%@ˆŽ%@‰3Ž%AIŽ%A‰%@ê6‚-F:B2y,ô%‚"(|}@6‡-@% A0þ‚"@$ ASELECT COLORS›(Choose Pen Color:( Black (}} °&( Blue ±0( Green ²:( Red ³D( Blank ´NS…-@B((~} Pen Color No.…%@?8…,F†O68…,-†S …X A`bGRAPHICS 7+ CONVERTER›lAND SCREEN LOADER FROM(}›vA.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,1(}65,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,96›²PRINTER DRIVER›¼%%104,104,104,133,205(ƒ}1,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,133›4##85,165,207,133,86,165,208,133›>84,169,7,157,66,3,169,0›H157,72,3,157,73,3,32,86›R""228,96,230,206,(‡}230,206,208,2›\$$230,207,165,206,201,64,208,176›f 165,207,240,172,76,224,127›z (ý@ @0€D:DUMP(ˆ}ER,206,208,2›\$$230,207,165,206,201,64,208,176›f 165,207,240,172,76,224,127›z (ý@ @0€D:DUMP(TO DOC›TS CT›PR [THE following procedures will link]›PR [your LOGO turtles and the Atari 1020]›PR [Printer - Plotter.]›PR []›,Š}PR [While executing a LOGO graphics]›PR [procedure with the command]›PR []›PR []›PR [DRAW [procedure]]›PR []›PR []›PR [your 1,‹}020 will plot whatever is]›PR [drawn on the screen.]›PR []›PR [Press RETURN for MORE]›MAKE "A RC›CT›PR [For a little fun, pre,Œ}ss BREAK and]›PR [type the following commands right]›PR [now!]›PR []›PR []›PR [DRAW [SQUIRAL 117\]]]›PR []›PR [DRAW [FRACTAL ,}SN 300 9\]]]›PR []›PR []›PR [Press BREAK to try demonstration]›PR [or]›PR [Press RETURN for more documentation]›MAKE "A RC›CT,Ž}›PR [Procedures intended to be drawn on]›PR [your Atari 1020 Printer - Plotter]›PR [must be modified to substitute the]›PR [F,} and B procedures for the usual FD]›PR [and BK primitives.]›PR []›PR [Two procedures ( P.PROC & P.PROCS]›PR [are included to ,}print out your]›PR [procedures on the plotter.]›PR [] PR []›PR [Press RETURN for MORE.]›MAKE "A RC›CT›PR [These procedures ar,‘}e by DAVID]›PR [THORNBURG and were published in the]›PR [March, 1984, issue of COMPUTE!]›PR []›PR [If you'd like to find some,’} graphics]›PR [fuel for your plotter, check out]›PR [THORNBURG's]›PR []›PR [ComputerArt and Anmation: A ser's]›R [Guide to Aa,“}ri Logo]› [] PR [Available fro:]› [MICRO BOOKS - - Addison Wesley]›P [] PR []› [Have FUN!]›ND››TO P.PROC :PRCEDURE_NAM›ETWRI,”}TE "P:› TYPE CHAR 27 CHA 27 CHAR 1 )›O :PROCEDURE_NAM›ETWRITE []›ND››O P.PROCS›SETWRITE "P:›TYPE CHAR 27 CHAR 2 CHAR 14 )POPS,•}›ETWRITE []›D››TO SQUIRAL :ANGLE›AKE "SIDE 0›PEAT 180 [F :SIDE RT:ANGLE MAK "SIDE :SI + 1]›END›TO PENRED› TYPE CHAR 67 CHAR 5,–} )›ND››TO PENGREEN› TYPE CHAR 6 CHAR 50 )END›TO PENBLUE› TYPE CHAR 67 CAR 49 )›ND›TO PENBLACK› TYPE CHAR 67 CHA 48 )›ND›TO C›,—}CS›PR "M0,0›ND›TO B :X›BK :X›LOT›END›TO DRAW :LIST›TWRITE "P:›( TYPE CHAR 7 CHAR 27 HAR 7 )› PR "M240,0\I\*M INT 2* YCOR ", N,˜}T ( - 2) * XCOR )›UN :LIST›ETWRITE []›ND›TO PLOT› PR IF PEN = "PD ["D ["M] INT * YCOR ",NT ( - 2 ) * XCOR )›D››TO FRACTAL›U ,™}SETPOS [-150 0]PLOT SETH 0 PD›T›END›TO F :X›D :X›PLOT›ND››TO SN :S :L›F :S < :L [F :SSTOP]›N :S / 3 :L›T 60›N :S / 3 :L›RT 12,š}0›SN :S / 3 :L›RT 120›SN :S / 3 :L›LT 120›SN :S / 3 :L›LT 120›SN :S / 3 :L›RT 60›SN :S / 3 :L›END›››MAKE "A "\›››~›/EX›RT 12,x^w‹RRÒSIZÅCØCÙTIMÅÙØX²Y² @p0œ}%F-#@@P:- @P# (} (( INPUT RADIUS:#€‚ 6-€ª++(@ *H*I*M0,6&@ 0}*IÒ6‚-A@6ƒ-ú6„-@(@M‚%,ƒ …-@6@†-0ž}A`@":„"@6‡-‚%$E:†,06ˆ-ƒ&+$G:†,$G:…,,: A@,$6‡-‚&+$G:†,$G:…,,$6ˆ-ƒ%$E:†,T(@0Ÿ}D‡,ˆ^  † …†@6„-„%@„"@6(@M‚,ƒ%@ Ap®&&(@H*M0,6&@ 0 }*I¸@€ D:SPHERE.BAS0¡}€ D:SPHERE.BAS0¸¹¹¨¶ZERÏONÅTWÏTHREÅFOUÒFIVÅSIØN·ATÅNINÅTEÎN1µN1¶N2°N4°N8°N10°N12¸N14¸N15°N15±N15²DF¤RGB¨CÚÁPÍPL°PL±ÉKN4°KN5°KN6°KN74£}°PCOL°PCOL±P°ÐP¶SCØSCÙMAIÎMEXIÔDÒXÐØYÐÙX±Y±SÃTNE×PÒSÁÑÊËNPÃSCÏK4°NÙPÃPØPÙ4¤} 4¥}€@ !"#$%4¦}&'()*+,-./0123454§}6789:;<=>?&&"DRAW"/D DISILVERIE (C) 83 ATARI› 4¨}11"€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•CC0,1,2,3,4,5,6,7,8,9,10,15,16,20,40,80,100,128,148,150,151,152›–;@4©},—9…,6˜-‘%‚$‘$F:AV,N6™-F:%†,&BBy™&6š-‚$‘$™06›-š%„$‘:6œ-š%…$‘B6™-™%ƒNA™#6–.D1:4ª}PLOTTS.OUT ( -…"™6—8,-™ -68,200,150,2,26›F"žŸ ¡¢£¤¥¦§¨K881040,1050,1060,1070,704,705,53244«}8,190,1536,3.4,3.8›P 6©-%Š AU A0Z% 6©--+%Š,$ % A d ‚$ ª “k «"€ ©n# 6¬-­4¬}6®-¯6°-­6±-¯#¦%€p ‚$©s#€ ,¬®/°±ª¦%# ©x² ,¬®/­¯6°-­6±-¯}³"€A‚ ¦4­}%´" Ž$‡µ AEŒ ©– 6™-¯'ˆ6¶-P:™,™"¶ © //¶…$©†$©‡$©ˆ$©©©„$©ƒ$©ƒ$©ƒ$©‰$©´ ©4®}È 6ª-€6³-?:¦%‰,ܳ"€*F:¦,*F:¦%, ‚$"96­-F:¦%‚,&Ž&…6¯-F:¦%ƒ,&Œ'­!%Ž-6ª-1³9¦%'$, ·-„›%4¯}&‡%·Š%‚ ·1& ¢—8…,€6¸-“ ¡ ¡%& ¡%‚@) 6²-¶&‡6¹-„&²²6¸-“% ¡%²&) © ·-„›%&‡%·‹ ·š#4°}€ 6¸-“ ¡ ¡% ¡%‚#6¹-€¤ ²-ƒ¢—8²,®" ·-Ž6³-?:¦%„,"³AP¸ · ² A  6º-² º ©ô%4±}‚ ž&Š  6«-!¦‚% ©X#‚ ž Ap´6´-# ©€ 6´-‚ˆ€P4:Š% ‚! ‚ C0*M0,-500*I4²}% ©ž ž6´-€ »‚ ©¼µ AÆ% 6µ- AV‚ Ÿ% A0ä„€–‰€–ó4³} £—8ƒ, ©ô Aeˆ€–ø £—8‚, ©ý » £—8, Ÿ © µ A% Ÿ‚4´}   A0>! Au„€–!£—8‚,R6 Ae)¹)¬")®))­0)¯6„&¹S ¹"€ ºW ´" 4µ}Ž$\ ,¬®/­¯ APa »    ©k! »£—8,  ! ©„‚ ¡%Šµ“ ´" ‚H4¶}*C3‚¢ AU ©ü ,’/•‡,•/’‡$+ ,’‹/’‰/“‰/•‰%‚%/•‰%„+/“‹  /’‹ $* ,’%ƒ/’4·}&ƒ/”&ƒ!/”'/’*$+ ,”%…/’%…/’%ˆ#/”%ˆ+/”‹%Œ /’‹%Œ$$",’@3/’Ž&/”Ž&"$.:,¸4¸}@f/¸@i),¸%@f7/¸%@i:$/* ,¸&†/¸&ƒ,¸%&†'/¸%&ƒ*$0* ,¸%‚/¸%…,¸%%‚'/4¹}¸%%…*$8B ,“%‰/’%‰/’%‹'/“@•3,”@?,”@”B$¸  -€‹œ%@W%€   £—8,6¼-4º}%Ž… ¤%¥%„Š 2 -€‰·-€‡"6™-F:ˆ$%·%˜,.œ%¼&ƒ%·™2 ·  6¸-R:,‹6¸-” " ·-¸6³-?:¦%„,"³A24»}@ž  ·  A2¨ ¼"@hA2`² ,6¼-@h"6–7ˆ,.>:@:0,%,, A2¼ &6–7‰,.>:@:0,%,#6–7Š%„,.4¼} &$  A@€¹"½A@0´ ‚C¹¾06¾-P:§$¬,6¿-P:¨$+%‹&®,,0 ‚M¾,¿Ò6¾-P:§$­,6¿-P:¨$+%‹&¯,,4½}Ü ¬"­*®"¯6¾-¾%‚æ ‚D¾,¿6½-¹$ð »  ž6´-6$”3 AE *¹*¬"*®)*­0*¯34¾}$¨ »  Ÿ$| -€‡¤%€ ) ¦¦%B2w€)AY‚I +@#A—8„,+A—84¿},:A —8‚,IA—8ƒ,†-››%ƒ$‘€ ‹9 ©"-‡!›%A€%Œ% 9›%A„A8 ¢—8…,4À}£—8,¢%‚‹’ ·-„›%&‡%·‰%ƒ ·š"«´µ²¹½º#AU0Ÿ0,0,0,1,3,0,3›®,’&‡‚/’&‡&†³% 4Á}ž&Š ž Ÿ  6¸-’ ¡% ¡%Š¸‚ ¡%ƒ ¡%‚º¦%‚A¦%ƒ%ˆ¾)AYŽ%‚B2wƒ)A#¿4Â} ¤¥%‚¤%‚¥&ƒ$€D:DRAW‚ ¡%ƒ ¡%‚º¦%‚A¦%ƒ%ˆ¾)AYŽ%‚B2wƒ)A#¿4$@GHxjzD¨ÉÓÃËÊ@ ##@@P:(@8Ä}€9@<@,(-@26‚-$@’e'@P<''6€8<,-G:‚,$A%A@F''6€8<@8Å},-E:‚,$A&A@P dH6ƒ-@H(@M€8<,,€8<@,n-@@8Æ}x)6ƒ-ƒ%@ƒ!@)6ƒ-‚ (@Cƒ 6„-Œ…-@@–% 6„-„%„!@%6„-„8Ç}&@ 00(@D€8„<,,€8„<@,ª  … €D:SAMPLE@À@AHcÀqt’“A!’c™ÁV‘i–A7–B”8È}ÁhF)9A‘Áp— 9A–4D€8„<,,€8„<@,ª  … €D:SAMPLE@À@AHcÀqt’“A!’c™ÁV‘i–A7–B”8 !‘¢LOOÐØX±Y±ÔX²Y²A1¨A2¨A3¨ÙSIÚOÆNUÍ@@@ <Ê} |6-@$/@@P:X‡9@<,ˆ9@<,‰9@<,d6‹<Ë}-Ap6Œ-@P|6-@$(@.6„-.-6@@@'(_6Š--6‡8<<Ì}„,-P:$‹%?P,M6‡8@<„,-P:Š$‹%?P%Œ,[6„-„%@_ 2.6„-.-@6@'<p 6Š-6M:<Í}@,$%M:@,>6ˆ8<„,-P:$‹%?P,^6ˆ8@<„,-P:Š$‹%?P%Œ,l6„-„%@p F/6„-/-<Î}6@6@'Po6Š-M:@,$%M:@,=6‰8<„,-P:$‹%?P,]6‰8@<„,-P:Š$‹%?P%Œ,k6„-„%@<Ï}o Z!(@C1!„-dc_(@M‰8@<,,‰8<,*D‡8@<„,,‡<Ð}8<„,c „n!(@C2!„-xc_(@M‡8@<,,‡8<,*Dˆ8@<„<Ñ},,ˆ8<„,c „‚!(@C3!„-Œc_(@Mˆ8@<,,ˆ8<,*D‰8@<Ò}<„,,‰8<„,c „–(@M0,-600&€ D:TRIANGLE8@<,,ˆ8<,*D‰8@<KgäóÏÁÂØÔÓÒÙÍLOOÐÚ @6†-@Ô}A@. SET RADIUS AND SELECT DEGREES›>#@@P:>. OPEN THE PRINTER›0(@Õ}@0. ISSUE SET GRAPHICS CALL›(6(@C16. SELECT SECOND PEN›n2„-A`@@Ö}2. DRAW 180 LINES›x<6ƒ-†$E:„,%AP<. THIS IS THE CIRCLE FORMULA›‚6‡-†$G:„,&AŒ6(@Mƒ,@×}‡6. MOVE TO THIS POINT›–?6ƒ-†$E:@$„,%AP?. THIS IS A 2 TO 1 FIGURE› 6‡-†$G:@$„,&Aª@Ø}6(@Dƒ,‡6. DRAW TO THIS POINT›¾ „ 7(@M0,-9007. FEED OUT SOME PAPER›Þ@@Ù}€D:GRAPH„n€RAPHM0,-200P:@Ú}@Û}@8 D¨ÉÓÃËÊ@ €9@<@,##@@DÝ}P:4$ @>:@',>:@,4 @C0(22 @!P ***** PLOTTING ABILITY *****2) @H)DÞ} @ M240,-200<" @I" @C0F--@-6‚-$@’e'@PP6€8<,-G:‚,$Dß}AZ6€8<@,-E:‚,$Ad n6ƒ-@x<< @M€8<,,€8<@,‚Dà}-@@Œ)6ƒ-ƒ%@ƒ!@)6ƒ-–  @Cƒ 6„- …-@@ª% 6„-„%Dá}„!@%6„-„&@´00 @D€8„<,,€8„<@,¾ …È Ò @HÜ @M0,Dâ}-240æ @Að@ú€ D:POLYGON€8„<@,¾ …È Ò @HÜ @M0,D<100›9›9›8.75›8.25›7.75›7›-5›-9›-9›-8.75›-8.25›-7.75›-7›-3›-2.25›-1.5›-1›-1›-1.25›-2›3›4›4.5›4.75›4.5›4›3›-4›-5›-5›-4.5›-3.75›Hä}-3›5›5›5.25›6›7›8›8.75›7›6›5.5›5.75›6›7›8›8.5›8.75›8›9›9›8.75›8.25›7.75›7›-5›-9›-9›-8.75›-8.25›-7.75›-7›-3›-2.25›-1.5›-1›-1›-Hå}1.25›-2›3›4›4.5›4.75›4.5›4›3›-4›-5›-5›-4.5›-3.75›-3›5›5›5.25›6›7›8›8.75›7›6›5.5›5.75›6›7›8›8.5›8.75›8›-7›7›7.75›8.25›8.75›9›9Hæ}›5›-7›-7.75›-8.25›-8.75›-9›-9›-8.75›-8›-7›-6›-5›-3›-3›-2.75›-2›-1›0›0.75›1›1›2.5›3.5›4›4.75›5›5›-7›-8›-8.75›-9›-8.75›-8›-8.25Hç}›-8›-7›-6›-5.5›-5.25›-5.5›-6›-7›-8›-7›7›7.75›8.25›8.75›9›9›5›-7›-7.75›-8.25›-8.75›-9›-9›-8.75›-8›-7›-6›-5›-3›-3›-2.75›-2›-1›0Hè}›0.75›1›1›2.5›3.5›4›4.75›5›5›-7›-8›-8.75›-9›-8.75›-8›-8.25›-8›-7›-6›-5.5›-5.25›-5.5›-6›-7›-8›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›Hé}6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›6›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0Hê}›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›0›110›1›2›2›3›3›4›4›5›5›6›6›7›7›8›8›9›9›10›10›11›11›12›12›13›13›14›14›15›15›16›16›17Hë}›17›18›18›19›19›20›20›21›21›22›22›23›23›24›24›25›25›26›26›27›27›28›28›29›29›30›30›31›31›32›32›33›33›34›34›35›35›36›36›37›37›3Hì}8›38›39›39›40›40›1›41›42›42›43›43›44›44›45›45›46›46›47›47›48›48›49›49›50›50›41›51›52›52›53›53›54›54›55›55›56›56›57›57›58›58›5Hí}9›59›60›60›61›61›62›62›63›63›64›64›65›65›66›66›67›67›68›68›69›69›70›70›71›71›72›72›73›73›74›74›75›75›76›76›77›77›78›78›79›79›Hî}80›80›81›81›82›82›83›83›84›84›85›85›86›86›87›87›88›88›89›89›90›90›51›91›92›92›93›93›94›94›95›95›96›96›97›97›98›98›99›99›100›1Hï}00›91›8›58›9›59›7›57›28›78›20›70›24›74›34›84›35›85›1›51›2›52›0›90›51›91›92›92›93›93›94›94›95›95›96›96›97›97›98›98›99›99›100›1H=94›0›0›7›7›7›7›37›37›40›40›40›22›22›40›40›46›46›50›55›55›60›60›55›55›50›50›55›55›60›60›55›55›50›46›46›40›40›22›22›40›40›40›37Lñ}›37›24›24›33›33›36›36›0›0›7›7›7›7›37›37›40›40›22›22›40›40›46›46›50›55›55›60›60›55›55›50›50›55›55›60›60›55›55›50›46›46›40›40›2Lò}2›22›40›40›37›37›33›33›26›22›21›27›26›22›28›32›32›43›44›44›46›46›47›47›43›32›31›32›32›28›28›29›28›20›19›20›20›16›16›17›16›5›1Ló}›1›2›2›4›4›5›16›16›20›23›25›26›22›25›23›26›22›21›27›26›22›28›32›43›44›44›46›46›47›47›43›32›31›32›32›28›28›29›28›20›19›20›20›1Lô}6›16›17›16›5›1›1›2›2›4›4›5›16›20›26›22›11›11›12›12›11›11›13›13›13›12›12›11›11›12›12›12›12›13›11›12›12›12›12›11›13›13›11›12›12Lõ}›12›12›11›13›12›12›12›12›11›11›12›12›13›13›13›12›12›15›15›13›13›9›9›8›8›9›9›6›6›8›8›9›9›8›8›8›8›6›9›8›8›8›8›9›6›6›9›8›8›8›8›9Lö}›6›8›8›8›8›9›9›8›8›6›6›13›13›161›1›51›2›52›3›53›4›54›5›55›6›56›7›57›8›58›9›10›10›59›11›60›12›61›13›62›14›63›15›64›16›65›17›66L÷}›18›67›19›68›20›69›21›70›22›71›23›72›24›73›25›74›26›75›27›76›28›77›29›78›30›79›31›80›32›81›33›82›34›83›35›84›36›85›37›86›38›8Lø}7›39›88›40›89›41›90›42›41›43›91›44›92›10›17›17›18›33›34›34›41›12›13›13›14›14›11›11›12›61›62›62›63›63›60›60›61›10›15›15›16›16›Lù}17›17›10›59›64›64›65›65›66›66›59›38›39›39›40›40›37›37›38›87›88›88›89›89›86›86›87›41›34›34›35›35›36›36›41›90›83›83›84›84›85›85Lú}›90›46›45›46›47›47›49›49›50›50›48›48›45›45›94›94›50›46›93›93›49›47›48›47›93›48›94›1›2›2›3›3›4›4›1›51›52›52›53›53›54›54›51›5›6Lû}›6›44›44›26›26›25›25›7›7›5›55›56›56›92›92›75›75›74›74›57›57›55›25›18›18›8›8›7›7›25›74›67›67›58›58›57›57›74›44›43›43›33›33›26›Lü}26›44›92›91›82›75›75›92›18›19›19›20›20›21›21›22›22›23›23›24›24›25›25›18›67›68›68›69›69›70›70›71›71›72›72›73›73›74›74›67›26›33Lý}›33›32›32›31›31›30›30›29›29›28›28›27›27›26›75›82›82›81›81›80›80›79›79›78›78›77›77›76›76›75›91›82›1›72›72›73›73›74›74›67›26›33La58›-13›-13›-13›-13›-13›-13›13›13›13›13›13›13›-13›1›-1›8›6›13›-1›8›6›1›-13›-13›13›13›-6›-4.86›-3.88›-3.23›-3›-3.23›-3.88›-4.86Pÿ}›-6›-7.14›-8.12›-8.77›-9›-8.77›-8.12›-7.14›-6›-4.86›-3.88›-3.23›-3›-3.23›-3.88›-4.86›-6›-7.14›-8.12›-8.77›-9›-8.77›-8.12›-7.1Q}4›-12›-12›-14›-14›-12›-12›-12›-12›-14›-14›-12›-12›-3›-3›-7›-7›-3›-3›8.25›8.25›10›10›10›5›5›10›-4›-4.23›-4.88›-5.86›-7›-8.14›-Q}9.12›-9.77›-10›-9.77›-9.12›-8.14›-7›-5.86›-4.88›-4.23›-4›-4.23›-4.88›-5.86›-7›-8.14›-9.12›-9.77›-10›-9.77›-9.12›-8.14›-7›-5.8Q}6›-4.88›-4.23›-9›-5›-5›4›4›8›8›4›4›-5›-5›-9›-9›-9›-9›-9›-9›-9›4›4›2›2›2›8›8›2›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9Q}›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›88›1›2›2›3›3›4›4›5›5›6›6›7›7›8›8›9›9›10›10›11›11›12›12›1›2›11›3›10›4›9›5›8›6›7›1›13›13›14›14Q}›15›15›16›16›17›17›18›18›12›15›19›19›20›20›21›21›17›20›16›14›22›19›22›13›23›23›24›24›25›25›26›26›18›26›21›23›22›24›6›25›7›27›Q}28›28›29›29›30›30›31›31›32›32›33›33›34›34›35›35›36›36›37›37›38›38›39›39›40›40›41›41›42›42›27›27›43›43›44›44›45›45›46›46›47›47Q}›48›48›49›49›50›50›51›51›52›52›53›53›54›55›54›55›56›56›57›57›58›58›43›28›44›29›45›30›46›31›47›32›48›33›49›34›50›35›51›36›52›3Q}7›53›38›54›39›55›40›56›41›57›42›58›3›54›55›54›55›56›56›57›57›58›58›43›28›44›29›45›30›46›31›47›32›48›33›49›34›50›35›51›36›52›3P#1 REM **************************›2 REM * ÂÏÎÓÁÉ *›3 REM * BY *›4 REM * R.I.MACDONALD U } *›5 REM **************************›9 WRITE=2310:GO=58:DIM DRIVE$(3),FILE$(12),P$(1),F$(10),F1$(20):? "AUTORUN?":INPUT P$U }:IF P$="Y" THEN 20000›10 TRAP 20:? :? :? "NUMBER OF LEVELS":INPUT L:DIM R(L,1),H(L,1)›24 TRAP 25:? :? "INITIAL DIAMETER":INPUU }T WID›25 TRAP 30:? :? " CONTRACTION RATIO OF DIAMETER":INPUT DIAM›30 TRAP 40:? :? :? "LEFT ANGLE":INPUT H1:? :? :? "LEFT ANGLU }E DECREMENT"›40 TRAP 45:? :? :? "RIGHT ANGLE":INPUT H2:H2=H2:? :? :? "RIGHT ANGLE DECREMENT":INPUT DR›45 TRAP 46:? :? :? "LEFU }T RATIO":INPUT R1:? :? :? "RATIO INCREMENT (DECREMENT)":INPUT RD1›46 TRAP 47:? :? :? "RIGHT RATIO":INPUT R2:? :? :? "RATIO INU}CREMENT (DECREMENT)":INPUT RD2›47 TRAP 48:? :? :? "DIVERGENCE ANGLE?":INPUT DIV:IF (DIV<>0) AND ABS(H2)0) THEN DIVFLG=1›130 H3=0:FOR JG=INT(F^(Q-3)+1.U}001) TO INT(F^(Q-2)+1.0E-03):GP=JG-(F^(Q-3)+1)›136 FOR P=0 TO 1:FOR C=0 TO 1›140 J=INT(F^(Q-1)+1.001+C+2*P+4*GP):JP=INT(F^(Q-U}2)+1.001+P+2*GP)›145 LN(J,0)=JP:LN(J,1)=J:LN(J,2)=WID›150 U=X(JP)-X(JG):V=Y(JP)-Y(JG):W=Z(JP)-Z(JG):T=(U*U+V*V+W*W)^0.5›160 SU}=(U*U+V*V)^0.5:IF S=0 THEN GOSUB 305:GOTO 215›180 S=1/S›181 HHH=H(Q,C):IF (C<>1) OR (DIV=0) THEN 190›182 HHH=HHH*H4:IF H3=0 TU}HEN HHH=ABS(HHH)›190 X(J)=UDX+X(JP)+R(Q,C)*(U*COS(HHH)-S*T*V*SIN(HHH))›200 Y(J)=UDY+Y(JP)+R(Q,C)*(V*COS(HHH)+S*T*U*SIN(HHH))›U}210 Z(J)=UDZ+Z(JP)+R(Q,C)*W*COS(HHH):GOSUB 220›215 NEXT C:H3=1:NEXT P:NEXT JG:NEXT Q:GOTO 2310›219 REM ****DIVERGENCE›220 IF U}(DIVFLG=0) OR (C=0) THEN 245›225 OLDIV=OLDIV+DIV›232 DEG :PH=180:DX=X(J)-X(JP):DY=Y(J)-Y(JP):R=(DX*DX+DY*DY)^0.5›234 IF DX=0 U}THEN PHI=PH/2+(SGN(DY)<>1)*PH:GOTO 240›236 PHI=ATN(DY/DX):IF SGN(DX)=1 THEN PHI=2*PH*(SGN(DY)=-1)+PHI:GOTO 240›238 PHI=PH+PHIU}›240 X(J)=X(JP)+R*COS(OLDIV+PHI):Y(J)=Y(JP)+R*SIN(OLDIV+PHI):DIVFLG=0›241 REM ****C0NTROLLERS›245 IF MM=0 THEN 280›246 FOR M=U }1 TO MM:QX=QX(M)-X(J):QY=QY(M)-Y(J):QZ=QZ(M)-Z(J):FX=FACTOR(M)›247 LK=(QX*QX+QY*QY+QZ*QZ)^0.5:X(J)=FX*(QX/LK)+X(J):Y(J)=FX*(QU!}Y/LK)+Y(J):Z(J)=FX*(QZ/LK)+Z(J)›248 NEXT M›280 RETURN ›300 REM ***** VERTICAL BRANCH *****›302 LN(J,0)=JP:LN(J,1)=J:LN(J,2)=WU"}ID›305 HHH=H(Q,C):IF (C<>1) OR (DIV=0) THEN 310›306 HHH=HHH*H4:IF H3=0 THEN HHH=ABS(HHH)›310 Y(J)=UDY+Y(JP)+R(Q,C)*T*SIN(HHH)U#}:X(J)=UDX+X(JP):Z(J)=UDZ+Z(JP)+R(Q,C)*W*COS(HHH)›320 GOSUB 220:RETURN ›400 REM *** EXCHANGE VALUES›401 TT=H2:H2=H1:H1=TT:TT=DU$}L:DL=DR:DR=TT:RETURN ›2270 REM **********************›2280 REM * CHAIN WRITE *›2290 REM **********************›2310 F$U%}=DRIVE$:F$(LEN(F$)+1)=FILE$:CLOSE #1:F1$=F$:F1$(LEN(F$)+1)=".PNT":OPEN #1,8,0,F1$›2320 ? #1;PS›2330 FOR X=1 TO PS:? #1;X(X):NU&}EXT X›2340 FOR X=1 TO PS:? #1;Y(X):NEXT X›2350 FOR X=1 TO PS:? #1;Z(X):NEXT X›2360 CLOSE #1:TRAP 1210:F1$=F$:F1$(LEN(F$)+1)="U'}.LIN":OPEN #1,8,0,F1$:TRAP 1190›2370 ? #1;LS:FOR X=1 TO LS:? #1;LN(X,0):? #1;LN(X,1):? #1;LN(X,2):NEXT X›2380 GRAPHICS 0:IF AU(}UTFLG THEN RETURN ›2390 STOP ›3000 ? "MATRICES DIMENSIONED TOO SMALL.":? "RERUN PROGRAMME-WAIT":FOR J=1 TO 500:NEXT J:STOP ›1U)}9995 REM **********************›19996 REM * YOUR TREE-MAKING *›19997 REM * PROGRAMME GOES *›19998 REM * HERE U*} *›19999 REM **********************›20000 AUTFLG=1›MAKING *›19997 REM * PROGRAMME GOES *›19998 REM * HERE T6NOÿÏåCOLÒPEN¨ØPIXEÌMEMLOC¨FILE¤TEMP¤ÉÒMEMLÏMEMHÉRÔSAVMSÃÎDLISÔÁÏMAIN¤Q¤LD¤ZEN¨MODE¤A@Y,}A0 ? @@ @€ A) A' @ˆ @–BCtB7(@KVV^¡wY-}€@!==d1020 PICTURE MAKER›x AŒ A"  ##@@P:´(@*H*Y.}IÈ€-@Ü8€,"@A€ð&(@H&(@C8€,A6‚-?:B&•Y/}<€,, B'g@-6ƒ-F:A,F:A,-6ƒ-ƒ%AVT>>(@M‚,6@$+A&ƒ,*J0,4;1,0;0,-4Y0}hF:A,A€| €¤TITLE AND INITIALIZATION›¸@@6‘.6h¢©B©èD©E©H©I©…à ¥àÉð É ðÉð:AU,QQ6‘7A),.>`©ÅêðRðɥ頑à©Peà…à©eá…áææ©`ÅæÐ/©ÅìЩeä…ä…à©…ì…æeå…å…0GG6‘7A‘,.4áæì©(eä…àY4}©…æeå…á¥ëð°Ð•¥é ‘à©eà…à©eá…á¥ëð—Ðå:GG6•.=h­0…à­1…á©eà…à©eá…á ©AÑàð©Ñàð©OÑàð ÐÝ©‘àÖ©N‘àÏ`D$XRR9Y5}@,„9@,…;@,†;@,‘;AB,“;A(,•;@a,l' +@'0@€'-@Y6}@'(@1020”*-@@*(@picture¨(-@@((@íáëåò¼;AR@Y7};(!(c)1984 George L. GraffÐ A@Ú #A`ä(‡-@"ˆ$6„8‡,-ˆ( ‡ø712,708,709Y8},710› $‡-@ 68‡,-‡$ ‡ 6‰-@€6Š-A)46‹-A'A‹H6Œ-@ˆ\''READ MACHIY9}NE LANGUAGE ROUTINES305›f #A@pM‚-@A"'6“7‚,.>:,+ ‚?‚-B&•B(7C"I‚M ‚z‚-A6Y:}AV{ " ‚| ‚„’;@,˜OPEN PICTURE FILE›¬TRAP 940›À##(ÔOUCH TABLET OR ÇRAPHICS 8?ÔY;}’è’0T*’0G A `üG }ENTER FILENAME…-‡-@B:…,:…7‡<‡,4:='G A€ ‡$! 6†.…6….D:Y<}!6…7@,.†8+@+@@…LDISPLAY PICTURE›V/ +@$/6Ž-F:A`,%F:Aa,$AVY=}j Œ‰Œ%@Št! ’4G6-?:C:“,,! A€~6-?:C:•,,ˆ6-?:C:‘,,6-@œ++POKE SAVMSC,MEMLO:POKY>}E SAVMSC+1,MEMHI›°A`Ä6-?:C:“,%@x,Ø#ì ‡-@ 6ˆ-8‡,ˆ"„8‡,Y?}ˆ"@„8‡,AH(ˆ"@„8‡,A˜<ˆ"@„8‡,@pPˆ"@„8‡,@d ‡Y@}xIŽ%@‰Ž%@Š3Ž%AIŽ%AŠ%@Œ6‚-F:B2y, %‚"@6-@% A YA}´‚"@$È A ÜSELECT COLORS›ð(Choose Pen Color:( Black °( Blue ±YB},( Green ²@( Red ³T( Blank ´hS‡-@B( Pen Color No.‡%@YC}?8‡,FˆO68‡,-ˆS ‡| AGRAPHICS 7+ CONVERTER›¤AND SCREEN LOADER FROM›¸A.N.A.L.O.G. NO. 12›ÌYD}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,2YE},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,165YF},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›==89YG},157,69,3,32,86,228,189,67,3,133,212,169,0,133,213,96›0PRINTER DRIVER›D%%104,104,104,133,205,165,204,208›X!!12,169,0,YH}133,208,169,64,133›l 206,169,1,133,207,169,1,36›€$$208,208,95,198,206,198,206,165›”##206,201,254,208,19,198,207,16›¨$YI}$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,YJ}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,133›4##85,165,207YK},133,86,165,208,133›H84,169,7,157,66,3,169,0›\157,72,3,157,73,3,32,86›p""228,96,230,206,230,206,208,2›„$$230,207,YL}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,YM}3,32,86,228,48,1,96,104,104,96›(#$‚-@@ (F:Ž%‚,$ ‚€D2:BOBSPGM.V20sssssssssssss,157,72,3,169,0,157,73,XfCD<äúÙYÕYÌREÓÂK°ØXÌXÒÚÈHÌXØXINÃYÙISÏYINÃZINÃDBÇK±ÔÓFLAÇÄÆQ¤FC¤ÑZ¤DÍDUMP¤¿ @?P@]O}@ @ ¿9#P` ?™I$5b ¿™W5C A“@ @#3333Af%5?R5˜wP@#3333@!`s@!P‡Ve@A]P}@©(Ñ(@–¨©BDùK:hB@ Ahh‘’’’’’’—’’’’’]Q}—’’’’—’’… üáîáìïçüíáù¸µüðç´¶üøóü š’’’’’’˜’’’’’˜’’’’˜’’ƒ› €-‚6ƒ$+&‚,6„-… †-‡ˆƒ$]R}+ˆ&‡, 6‰-G:†, ‰!Š)‰ ‹6„-… @4 6Œ-†$ 6Ž-Œ$ 6Œ-Œ&€$6Ž-Ž%€$$ 6Ž-Ž%‰$‘6Ž-A‘&]S}Ž&’/6Œ-Œ%AY„/ŒŽ% A / @4 ASETUP FOR PLOT›  ,ŒŽ A 6„-“! ASETU]T}P FOR DRAW›"  † €$†-‡ˆƒ$+ˆ&‡,6„-…&€-‚6ƒ$+&‚,( 6‰-G:†,* ‰!Š)‰ ‹6„-… @`, 6Œ-†$. 6Ž]U}-Œ$0 6Œ-Œ&€$26Ž-Ž%€$$4 6Ž-Ž%‰$‘66Ž-A‘&Ž&’8/6Œ-Œ%AY„/ŒŽ% A / @`9 A]V}SET UP FOR PLOT›: ,ŒŽ A 6„-“; ASTUP FOR DRAW›< € † Ad 6Š-…6‹-… €-‚6ƒ$+&‚,]W}f†-‡ˆƒ$+ˆ&‡,h 6‰-G:†,i ‰!Š6Š-‰j ‰ ‹6‹-‰k  † €l ‹!…6‹-…m Š …6Š-…n$ÈM2…A@]X}@-”-…A1 ”;2…………MAdAUÊ26•-F:B2y,•"@( A02 AÌ•"@]Y} Î#•"@ A# AÐ(F:Ad,"@((}( AÒ AX+6–-@6—-…6˜-…]Z}!6™.š+ A Yo,AYA‘'/@ A9/AY@DK/AA]/AYA‘o/AYAG][}Zi,@ A'/@ @s9,AY@DE/AY“W,AAi/A@s\E/AYAG]\}'/@ @s3/AY“E/A@s^u 6—-“6˜-@#6™.‘’’’’’…- A 96˜-@G6™.üÁÔÁÒÉüQ ]]}A ]6˜-@k6™.š’’’’’ƒu A `X 6—-…6˜-@6™.=:,( A 16™.=:ˆ,B6—-@9&B:™,N6˜-@X A]^} bw6—-@6˜-@#$6™.=:‚,. A :6—-@#C6™.=:‡,M A Y6—-@&_6˜-“m6™.HIGH Z=w A ]_}c86—-@36™.=:Š,'B:™,!@86™.™7“<@,dr A 6—-@&%6˜-@36™.LOW Z== A I6—-@3]`}R6™.=:‹,aB:™,!@r6™.™7“<@,fb A 6—-@%6˜-@26™.Y-AXIS< A H6—-@0U6™.X-]a}AXIS_ A b$„<6›-?:C:œ,<—<˜:›,4 ”ïe@‚…+…%AAHB( ÄÁÖÅ ÂÁÄÅÒ§Ó ÚÐÌÏÔÔÅÒ¡ e( ³Ä ÉÓÏÍÅÔÒÉÃ]d} ÐÌÏÔÔÅÒ ÐÒÏÇÒÁÍ ðM,($ ÁÔÁÒÉ ±°²° ÐÒÉÎÔÅÒ­ÐÌÏÔÔÅÒ ÖÅÒÓÉÏΠM( âù Äéãë ¦ Äáöéä Âòõäúùîóëé ñpQ(IINPUT FORMULA AS... Z=(]e}IN TERMS OF X&Y) ÍÁËÅ ÓÕÒÅ THAT SYNTAX IS CORRECT.p((eg: PAIRS OF PARENTHESIS)òEš (}AY…%-…@/(14]f} š;-…@E(40 šóJ-…@(104 š&-…@!/(CONT5-……GAB@J&ôUAY@4'A]g}B@U()}  ÚÐÌÏÔÔÅÒ¡  ÐÁÒÁÍÅÔÅÒÓ ÅÎÔÒÙ ÓÃÒÅÅΠ   õMM(ENOTE: ALL THREE PRIMARY AXIS (X,Y,Z) ÍÕÓÔ BE IN SPECIFI]q}ÂsÿÿÿÿÿÿÿÿÿÿÿÿÿÿBSHOW BASB "RANDOM BASB ,TRIANG2 BASB7COLOR BASB;PLOTTER1LGOBAPLOTTER2LGOBDSINES BASBJTOWER3D DATBOAT8003D DATB `TIEFIT3DDATBmDUMP1020BASB‰DEMO1020LGOB›SPHERE BASB!¢DRAW BASBÃSAMPLE BASB ÉTRIANGLEBASB ÓGRAPH BASBÜPOLYGON BASB ãASD DATBðXWING3D DATB þADJSTP3DDATB#BONSAT1 B#+PLOT1020BASB1NZPLT1020BASBˆBONSAI2 BA–BONSAI3 B×BONSAI4 BÝBONSAI5 B%ßDOS SYSB*DUP SYSB.MENU B>STARTUP BASBSAUTORUN SYSBTHELP BASBXDOC TXT‚‚‚ED DOMAINS!ö_( (š (Y(GAUTOMATIC BOUNDS SELECTION ENSURES FULL PLOTTING BUT TAKES MORE TIME..._6”-…÷g(U(JPLEASE C]r}HOOSE |1] AUTOMATIC SCALING Z-AXIS BOUNDS |2] MANUAL SETTINGS.Y”g”"“A ø@((INPUT LOWER Ú LIMIT#‹<(I]s}NPUT UPPER Ú LIMIT@Šú&‹!Š)‹!…)Š …(WOOPS!& Aü%((ØÜÙ LOWER LIMIT‡%6‚-‡þ"(ØÜÙ UPPER LIMIT]t}ˆ"6-ˆ&‡!ˆ)‡!…)ˆ …(WOOPS!& A N(.("DESIRED RESOLUTION (4=HIGH;10=LOW)2ƒ@6ƒ-ƒ%@N6ƒ-ƒ$>P ]u}@((( ÏÐÔÉÏΠ ADD LABELS & BORDERS@( ÓÅÌÅÃÔ  START OVER --(%  ÓÔÁÒÔ  PLOT SURFACE TO 1020 PLOTTER6($(PRESS A]v}NY KEY TO BEGIN...6AdAU F:Ad,"AUA@> ”"“ (4(# AUTO SCALING SEQUENCE IN ACTION!> A]w}V6-A@'+ˆ&‡,'6-A@'+&‚,96‘-@C'+Š&‹,V6’-O:‹$‘,%O:‡$$,%O:‚$$,9 +@$AAV+]x}A …/“9 @`bb104,201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,215,104,133,214,104,104,168,104,133›ji]y}i217,104,133,216,104,104,240,236,133,212,24,165,214,101,88,133,214,165,89,101,215,133,215,152,240,15›tff165,214,105,64,133]z},214,165,215,105,1,133,215,136,208,241,132,221,160,0,132,220,177,216,160,0,170›~XX16,1,136,132,213,138,41,96,208,4,169,64,1]{}6,14,201,32,208,4,169,0,16,6,201,64,208,2›ˆ__169,32,133,218,138,41,31,5,218,133,218,169,0,162,3,6,218,42,202,208,250,109,24]|}4,2,133,219›’hh164,221,177,218,69,213,164,220,145,214,200,132,220,196,212,208,182,24,165,214,105,40,133,214,144,2›œ55230,]}}215,230,221,169,8,197,221,208,159,96,207,96›ÜSHIFT TO DRAW COMMAND›æ6ž7B:ž,,.*Dð$@SWITCH TO PLOT COMMAND›J]~}6ž7B:ž,,.*MT$Ð77PLOTTER SCALING AND DUMP STRING BUILDING SEQUENCE›Ú--6ž7B:ž,%@,.=:P:@$Œ'@,,ä]}6ž7B:ž,%@,.,î..6ž7B:ž,%@,.=:P:6@$Ž'@,,ø6ž7B:ž,%@,.;$¸ PRINT THE DUMP$›Â .]€}@.@@P:Ì (@Ö (@Ià &&(@ž7@0 THEN XW=X(0):YW=Y(0):ZW=Z(0):GOSUB 610:GOSUB 670›550 FOR I=1 TO PS:IF VIS(I)=0 THEeœ}N 570›560 XW=X(I)*SCL+XS:YW=Y(I)*SCL+YS:ZW=Z(I)*SCL+ZS:GOSUB 610:GOSUB 670›570 NEXT I:GOTO 740›580 REM **********************e}*****›590 REM * IS THE POINT VISIBLE? *›600 REM ***************************›610 VIS(I)=1:VCX=XW-OX:VCY=YW-OY:VCZ=ZW-OZ›620 ež}IF DX*VCX+DY*VCY+DZ*VCZ>0 THEN RETURN ›630 VIS(I)=0:RETURN ›640 REM ***************************›650 REM * NOW CALC PLOT COOReŸ}DS *›660 REM ***************************›670 K=D0/(VCX*CX+VCY*CY+VCZ*CZ)›680 AX=OX+K*VCX:AY=OY+K*VCY:AZ=OZ+K*VCZ›690 IF S3=e }0 THEN 720›700 P(I,1)=((AX-QX)*CY-(AY-QY)*CX)/S3›710 P(I,2)=(AZ-QZ)/S3:RETURN ›720 P(I,1)=((QX-AX)*CZ+(AZ-QZ)*CX)/S2›730 P(I,e¡}2)=(AY-QY)/S2:RETURN ›740 REM ***************************›750 REM * SCALE THE IMAGE *›760 REM ***********************e¢}****›770 T=450*ZOOM:FOR I=0 TO PS›780 P(I,1)=P(I,1)*T›790 P(I,2)=P(I,2)*T›800 NEXT I›810 XAD=160-P(0,1):YAD=96-P(0,2):FOR I=1e£} TO PS:P(I,1)=P(I,1)+XAD:P(I,2)=P(I,2)+YAD:NEXT I›820 REM ***************************›830 REM * NOW DRAW THE IMAGE! *›840e¤} REM ***************************›845 SETCOLOR 2,0,0:COLOR 1:TRAP OFF:GRAPHICS 56›870 FOR I=1 TO LS:TV=VIS(LN(I,0))+VIS(LN(I,1e¥})):IF TV=0 THEN 1010›880 IF TV=2 THEN 980›890 QT=0:ISAVE=I:IF VIS(LN(I,0))=0 THEN I1=LN(I,0):I2=LN(I,1):I=LN(I,0):GOTO 910›90e¦}0 I1=LN(I,1):I2=LN(I,0):I=LN(I,1)›910 XT1=X(I1)*SCL+XS:YT1=Y(I1)*SCL+YS:ZT1=Z(I1)*SCL+ZS›911 XT2=X(I2)*SCL+XS:YT2=Y(I2)*SCL+Ye§}S:ZT2=Z(I2)*SCL+ZS:FV=0:FH=0›920 XW=(XT1+XT2)/2:YW=(YT1+YT2)/2:ZW=(ZT1+ZT2)/2:GOSUB 610›930 IF VIS(I)>0 THEN XT2=XW:YT2=YW:ZTe¨}2=ZW:GOTO 950›940 XT1=XW:YT1=YW:ZT1=ZW›950 QT=QT+1:IF QT<15 THEN 920›960 XW=XT2:YW=YT2:ZW=ZT2:GOSUB 610›970 GOSUB 670:P(I,1)=e©}P(I,1)*T+XAD:P(I,2)=P(I,2)*T+YAD:VIS(I)=0:I=ISAVE›980 X1=P(LN(I,0),1):Y1=191-P(LN(I,0),2):X2=P(LN(I,1),1):Y2=191-P(LN(I,1),2)eª}›981 W=LN(I,2):XC=X1:YC=Y1:X=X2:Y=Y2›982 KK=((X(I1)+X(I2))/2+XS-OX)^2+((Y(I1)+Y(I2))/2+YS-OY)^2+((Z(I1)+Z(I2))/2+ZS-OZ)^2›983e«} W=6*W*KK^-0.5:GOSUB 3000›1010 NEXT I›1011 IF O$="Y" THEN ? #3;"H"›1030 FOR X=15 TO 0 STEP -1:SOUND 0,120,10,X:NEXT X›1040 REe¬}TURN ›1190 ? :? "}I/O ERROR - ";PEEK(195):GOTO 1210›1210 ? :? "PRESS ÒÅÔÕÒÎ":INPUT IN$:STOP ›1550 REM ***********************e­}****›1560 REM * GRAPHICS CLIP ROUTINE *›1570 REM ***************************›1580 L1=0:L2=0:R1=0:G(10)=0:T1=0:T2=0:G(9)=0:Ge®}(8)=0:POK=0›1590 IF X1G(6) THEN R1=1›1610 IF Y1>G(5) THEN G(9)=1:GOTO 1630›1620 IF Y1G(6) THEN G(10)=1›1650 IF Y2>G(5) THEN G(8)=1:GOTO 1670›1660 IF Y2G(e²}6) OR Y1G(5) OR XWG(6) OR YWG(5) THEN RETURN ›1720 PLOT X1,SCY*Y1:DRAWTO XW,SCY*YW:POK=1:RETUe³}RN ›1730 IF L1+T1+G(9)+R1=0 THEN XW=G(4):YW=G(3):RETURN ›1740 IF L1 THEN XW=G(7):YW=G(3)+(G(1)-G(3))*(G(7)-G(4))/(G(2)-G(4)):e´}G(4)=XW:G(3)=YW›1742 IF L1 AND G(3)>=YT AND G(3)<=G(5) THEN RETURN ›1750 IF R1 THEN XW=G(6):YW=G(3)+(G(1)-G(3))*(G(6)-G(4))/(eµ}G(2)-G(4)):G(4)=XW:G(3)=YW›1752 IF R1 AND G(3)>=YT AND G(3)<=G(5) THEN RETURN ›1760 IF G(9) THEN YW=G(5):XW=G(4)+(G(2)-G(4))*e¶}(G(5)-G(3))/(G(1)-G(3)):G(4)=XW:G(3)=YW›1762 IF G(9) AND G(4)>=G(6) AND G(4)<=G(7) THEN RETURN ›1770 IF T1 THEN YW=YT:XW=G(4)e·}+(G(2)-G(4))*(YT-G(3))/(G(1)-G(3)):G(4)=XW:G(3)=YW›1780 RETURN ›2000 REM ***********************›2010 REM * GET FILE e¸} *›2020 REM ***********************›2025 F$=DRIVE$:F$(LEN(F$)+1)=FILE$:FF$=F$›2060 F$(LEN(F$)+1)=".PNT":CLOSE #1:OPEN #1,4,e¹}0,F$:INPUT #1;PS›2080 TRAP 2100:DIM X(PS),Y(PS),Z(PS),P(PS,2),VIS(PS)›2100 FOR X=1 TO PS:INPUT #1,Q1:X(X)=Q1:NEXT X›2110 FOR eº}X=1 TO PS:INPUT #1,Q1:Y(X)=Q1:NEXT X›2120 FOR X=1 TO PS:INPUT #1,Q1:Z(X)=Q1:NEXT X:CLOSE #1›2170 F$=FF$:F$(LEN(F$)+1)=".LIN":e»}CLOSE #1:OPEN #1,4,0,F$:INPUT #1;LS›2190 TRAP 2210:DIM LN(LS,2)›2210 FOR X=1 TO LS:INPUT #1,Q1:LN(X,0)=Q1:INPUT #1,Q1:LN(X,1)e¼}=Q1:INPUT #1,Q1:LN(X,2)=Q1:NEXT X›2240 CLOSE #1:TRAP OFF:RETURN ›2250 ? :? "}CAN'T OPEN FILE!":GOTO 1210›2260 ? :? "}FILE FORe½}MAT ERROR - ";PEEK(195):GOTO 1210›2700 REM **********************›2701 REM * ROTATE *›2702 REM ******************e¾}****›2705 POKE 559,0:XC=0:YC=0›2720 FOR J=1 TO PS:X=X(J):Y=Y(J):GOSUB 3100›2740 X(J)=XC+R*COS(THETA+PHI)›2750 Y(J)=YC+R*SIN(Te¿}HETA+PHI)›2760 NEXT J›2770 RETURN ›2996 REM **********************›2997 REM * WIDE *›2999 REM *****************eÀ}*****›3000 IF (X=XC) AND (Y=YC) THEN RETURN ›3010 GOSUB 3070›3040 IF ABS(XS0)>ABS(YS0) THEN XS0=-SIN(PHI)/COS(PHI):YS0=1:GOTOeÁ} 3060›3050 YS0=COS(PHI)/SIN(PHI):XS0=-1›3051 IF (W<0.4) OR (SD$="N") THEN GOSUB 1550:FOR J=1 TO 1:GOTO 3061›3060 FOR J=-W/2 TeÂ}O W/2 STEP 0.4:X1=XC+J*XS0:Y1=YC+J*YS0:X2=XC+J*XS0+R*COS(PHI):Y2=YC+J*YS0+R*SIN(PHI):GOSUB 1550›3061 IF O$="N" OR POK=0 THEN eÃ}NEXT J:RETURN ›3062 IF SD$="Y" THEN 3064›3063 ? #3;"M";X1*1.5;",";(191-Y1)*1.5;"*D";XW*1.5;",";(191-YW)*1.5:PC=PC+1:RETURN ›3eÄ}064 ? #3;"M";2.5*(191-Y1);",";-2.5*X1;"*D";2.5*(191-YW);",";-2.5*XW:PC=PC+1›3065 NEXT J:RETURN ›3070 REM ********************eÅ}**›3080 REM * ATAN *›3090 REM **********************›3100 DEG :XS0=X-XC:YS0=Y-YC:R=(XS0*XS0+YS0*YS0)^0.5:PH=180eÆ}›3110 IF XS0=0 THEN PHI=PH/2+(SGN(YS0)<>1)*PH:RETURN ›3120 PHI=ATN(YS0/XS0):IF SGN(XS0)=1 THEN PHI=2*PH*(SGN(YS0)=-1)+PHI:RETeÇ}URN ›3130 PHI=PH+PHI:RETURN ›3200 REM *************************›3201 REM * PLOTTER CONTROL *›3202 REM *****************eÈ}********›3210 O$="Y"›3220 CLOSE #3:OPEN #3,8,0,"P:":? #3;EG$:PC=0›3240 RETURN ›3245 O$="N":CLOSE #3:RETURN ›3250 ? #3;"C1":REeÉ}TURN ›3251 ? #3;"C2":RETURN ›3253 ? #3;"C3":RETURN ›3254 ? #3;"C0":RETURN ›3260 IF O$<>"Y" THEN RETURN ›3261 IF SD$="Y" THEN eÊ}? #3;"H*M0,-900*I":RETURN ›3262 ? #3;"H*M0,-480*I":RETURN ›3271 IF O$="Y" AND SD$="Y" THEN ? #3;"M0,0*D480,0*D480,-800*D0,-80eË}0*D0,0":RETURN ›3280 IF O$="Y" THEN ? #3;"M0,0*D480,0*D480,288*D0,288*D0,0"›3290 RETURN ›4000 REM ******EPSON DUMP*********›4eÌ}010 SCREEN=PEEK(88)+PEEK(89)*256:TRAP 4040:CLOSE #1:OPEN #1,8,0,"P:":? #1;"A";CHR$(8)›4020 FOR I=SCREEN TO SCREEN+39:? #1;"eÍ}K";CHR$(192);CHR$(0);›4030 FOR J=I+7640 TO I STEP -40:PUT #1,PEEK(J):NEXT J:? #1:NEXT I:CLOSE #1›4035 STOP ›4040 RETURN ›5000eÎ} F$=DRIVE$:F$(LEN(F$)+1)=FILE$:FF$=F$›5010 CLOSE #1:OPEN #1,4,0,F$:INPUT #1;PS›5020 TRAP 5030:DIM X(PS),Y(PS),Z(PS),P(PS,2),VeÏ}IS(PS)›5030 FOR X=1 TO PS:INPUT #1,Q1:X(X)=Q1:NEXT X›5040 FOR X=1 TO PS:INPUT #1,Q1:Y(X)=Q1:NEXT X›5050 FOR X=1 TO PS:INPUT #eÐ}1,Q1:Z(X)=Q1:NEXT X:CLOSE #1›5060 INPUT #1;LS›5070 TRAP 5080:DIM LN(LS,2)›5080 FOR X=1 TO LS:INPUT #1,Q1:LN(X,0)=Q1:INPUT #1,eÑ}Q1:LN(X,1)=Q1:LN(X,2)=WIDTH:NEXT X›5090 CLOSE #1:TRAP OFF:RETURN ›5100 SD$="Y":GOSUB PLOTON:RETURN ›5200 SD$="N":GOSUB PLOTONeÒ}:RETURN ›20000 SCY=11/13:DIM O$(1),EG$(2),SD$(1),G(10):EG$=CHR$(27):EG$(2)=CHR$(7)›20010 DIM DRIVE$(3),FILE$(8),FF$(20),F$(20eÓ}),IN$(1),F1$(20)›20020 G(7)=0:G(6)=319:YT=0:G(5)=191:OFF=40000›20030 LET GETFILE=2025:LET GO=450:ROTATE=2705:LET PLOTON=3210:eÔ}DUMP=4010:BIG=5100:SMALL=5200:LET PLOTOFF=3245›20031 OLDFILE=5000:RED=3253:BLUE=3250:GREEN=3251:BLACK=3254:PAGE=3260:FRAME=32eÕ}71›29995 REM **********************›29996 REM * YOUR DISPLAY *›29997 REM * PROGRAMME GOES *›29998 REM * HEREeÖ} *›29999 REM **********************›EM * YOUR DISPLAY *›29997 REM * PROGRAMME GOES *›29998 REM * HEREd+30000 ? "DRIVE?-IN THE FORM 'D1:' ":INPUT DRIVE$:? :? "FILENAME?":INPUT FILE$:TRAP 30010:DIM S$(6)›30010 ? "ÂÉÇ OR ÓÍÁÌÌ PICTiØ}URE,OR ÓÃÒÅÅÎ ONLY?":INPUT S$›30020 IF S$="BIG" THEN GOSUB BIG:GOTO 30050›30025 IF S$="SCREEN" THEN GOSUB PLOTOFF:GOTO 30085›iÙ}30030 IF S$="SMALL" THEN GOSUB SMALL:GOTO 30050›30040 ? "INVALID INPUT-TRY AGAIN":GOTO 30010›30050 ? "COLOUR?--BLACK=1":? :? iÚ}" BLUE=2":? :? " GREEN=3":? :? " RED=4":INPUT C›30060 COLOUR=(BLACK*(C=1))+(BLUE*(C=2))+(GREEN*(C=3))iÛ}+(RED*(C=4))›30080 GOSUB PAGE:GOSUB COLOUR:GOSUB FRAME›30085 SCL=1:ZOOM=1:OX=0:OY=10:OZ=0:VX=0:VY=0:VZ=2.5:XS=0:YS=0:ZS=0›300iÜ}90 GRAPHICS 24:TRAP 30100:GOSUB GETFILE:GOSUB GO:STOP ›30100 ? "NO SUCH FILE":GOTO 30000›:VX=0:VY=0:VZ=2.5:XS=0:YS=0:ZS=0›300hY30000 SCL=1:ZOOM=1:OX=0:OY=20:OZ=0:VX=0:VY=0:VZ=2›30006 GRAPHICS 24:GOSUB BIG:GOSUB BLACK:GOSUB FRAME›30010 DRIVE$="D1:"›3002mÞ}0 FOR JKK=1 TO 7:FILE$="NO":FILE$(3)=STR$(JKK):XS=-5+10*RND(0):YS=-5+10*RND(0):ZS=0:GOSUB GETFILE:GOSUB GO›30030 NEXT JKK›002lzd M ¼* €@ ÿ­ …$­ …%­ …C¢©C ‘$¥$)¥%1© U©dÊߥ$9¥%:¬ ¢ˆ˜!0 SèàÐñ¥$ç¥%詨™Èú¨¹ðqà} ÉDðÈÈÈÀÐð©D™©Ë™©™` ­ }½J‚)ðLr 콂ÉðÉðJÉ ð É ð ¥¨(°(°  p LÇ ¥ª(°ù¬¹ƒ)ð  ‘ JŽ½qá}‹L= ¥¬(° Á ¬L ­ 0q A­ ­  ‘¬¢ © ™ÈÊù¦I©Bƒ J¬™½‹™©C™©™™¢½;É?ð™Èèà ð D W ¶qâ}©€… ‚ÐLLÇ ¥©©…­ ©‡` W ¬¹ƒ)„¹‹¹ŒLê½A…! ­¬ ¹Éß°©…"½‚)ð-¼‡˜Ý† p°" qã}ä  °±$þ‡­‘G©@……LÇL ¥ˆ½…08`©©Q¥")ð<Ð2Q­0 â°- ±G‘$Ș݆õ UL# ; p8¥(ý†…(°Æ)¥(0Ê¥)ÐÆNQ` qä}±$‘GȘ݆õ‡LU ­½‚)ðL­ ½‡݆ ë âðLà ¨±GȘ‡¼‹Ð¼ŒР݆©L¯LÇ ­½‚)ðW>…Z ‡  ½H½H½‚)ð½ƒH qå}p hƒ âû½‹½ŽŒ Ž¬hy™hy™½ƒ™ D ”©‚LÂ>…ó ËLñ ½JJ    ! LA© *ˆÐù` ­½BÉþðFÉqæ}ýð7É'°8é  ¨¹M H¹N H` 8 ¤ Z ß â  \LdÃÊòÃJóó½JЩ!¢ð©"ªŽ¥!¢ ÉðG¥F¥E @­F (À‹Ð®ð©!ÍÐÑL¯qç}ÀÐù ©ÿÑEÐÈÑEðì ¥­¢­É!𢩠‘EˆÐû½^ è½^ ‘EÈÀÐõ  ©‘E©ÿÈÌÐö 7©‘EÈ©‘E® d‘E Š©/‘EÈ©‘E ”©¨™Èú© DÎqè}ø .L } ‰¢ ½;FÊ÷ d  ‚¢Ž¬½;É?ÐÎÝFÐ7½FÉ?ð™Èèà Ðá(Ð . ‚Ð ®½¼ Z D­ð ü®LÂLè d Á ‚qé}Ð . D üí ”L ‘¬  ©€™ p  âø ˜‘E`© ,© d¬¹)ß ™ D üêL¬¹) ðÑ ¥§½…0B½M݊нL݉ð½…qê}ð Ë©…½MŒ½L‹ ê° ½N݆𠥦‡LÇ ¥«½‡N½‰L½ŠMLÇ ì[ T Š±E qEHȱE ‹qEªh¨Š¢Ž 0 Š‘GÈ¹Ô ‘GÈÀÐöqë} HLǬLà ±GîÉ›ÐéÀ°©€L ü°¥ ä LÇFREE SECTORS® © ‘G½) ð©*‘GÈ© ‘GȽ‘GèÈÀ õ© ‘GÈŒ®¥*j½j ˆ©>‘Gqì} ©<‘G¼½¢d R¢ R¢ R¢ ˜ð¢+ ©›‘G Œ`Ž¢ÿ…D„Cè8¥Cí¨¥Déà ÐêŠ 0¬‘Gî¥D¤C` ±$ˆ0dÉ:Ð÷ÈÈ©¢±$É.Ð àÐÈ© Ðîqí},É*Ð ©?ì°%$É?ðÉ0É:)ßÉAÉ[ © à ð© ÐÈìð¹;èг­;É ð¦I` ¥¥©ÿ ©pî­iî©ÍðN A©¨¹qî}ð#0!)CÉð)ÐÏ¢½;É?ðÙÐÁèÈà Ðî­ ­ ­ ­ ¹0œ8¦I` } ì°`L¤½…0  … Ë0"Lâ J½‡ ‘G½Œ }‘GȽ‹qï}‘G Ë ©‚­L¯þÐþ Õ©‹Œ‡©}†`8½Š¼‰L½‹‰½ŒŠ`½…ðLp½‹ŒÐ8` Õ Ì04 }±G)üÝÐ,±G)ŒȱG‹ȱGqð}H½„Ðh0©})Hh†©‡` ½½BÉ!𠥤8`8­ii¨(¢©ÐZ ±EÐ6¤!©JÀðŒ©S Sä©d¬ê©Š¤!™ Ì ê ‘E ¨ û` T©qñ} ‘E ê8 ¨ û8LÌ¥F¦E hŒ  Œ Ž r9ÀƒðL½ ¥£­)© © ¥Eiª¥Fi(L¶ d±E™î©‘EÈÀÐò`¬  d¹î‘EÈÀÐö`½‰H)qò}¨hŠð/¹×H½‰ ^ŠjˆÐùi ¨hE‘EÀd  Š±Ei‘EȱEi‘E`  ÈÌ°W±Eðö¢ÿè ü½×QE‘EŠH¦I˜8é ‹©À‹*°úŒh‹‹Àd   Š½ƒ)¿ qó}ƒ8±Eé‘EȱEé‘E ˜‘E½Œ` ¥¢†IºèèŽ ¦!Žʽ)…E½1…F½ð5¦I¼ˆÐ¹! ÈÀö ¥¡©€™!Șˆˆ˜JH©jm9…Ghm:…H` ¥ ¼ˆ𠈩qô}ˆ™!`¦GŽ¦HŽLl¼‰½Š Z dLÇ©© ŒÈ©8 l­I€0î¬ ÌÐä`Œ©ÐÌ _©}† ; ¥$Í ¥%í ° pLl`¢¬¹qõ}ÝšÐÈèà Ðò¦I(`DOS SYSh…Ch…D ±C® š¦IC¨­`­0í¦I ©Ðä „B®ß0¦äðüŒÔx …D­Ó)ãDÓ`}Need DOS2.5,type Y ÒÅÔÕÒqö}Λd÷@@  "€ÀŠd€ÿþýüû\ÌÌìDOS SYSCOPY3TO2COMq÷}pB€}÷B€}qø}BˆBONSAI2 BA–BONSAI3 B×BONSAI4 BÝBONSAI5 CßDOS SYSqù}­ …C­ C*É( ‹Ð> Ë¥C8jJ…3©j…2­…C­…D ( ±C‘2ˆù0±2‘Cˆù© Þ ÀŒÔ „BXÈ` N ©1?©ñ¢ l© ¢LlD:RAMDISKqú}.COM›©LÍu ÐL¥1©©í¢ ÍL ¥;ÐLê˜HL³ê³êºŽ  T `ºŽ  ” `1©ž©Ÿ… ©… ­œêÉÐ © ©  àêêê¥Ð Ø`TŽU “©Àqû} ¦L’­ð­žð ? . “ tä©`…ðöÿàá©€Ÿ©Gà©á¢©B©J Œ©Ð~¢©ôD©E©H©I ©B Vä0d©ÿÍôÐVÍõqü}ÐQ¢© D©E©H©I VäFÀˆÐ9 ’,ž0 ©,ŸŸ0 s0hhL¸­Ð ©¢ ¦L©ª` ’©Ð÷˜H ’h¨Ð DH­¡E¨hÈШÈЭqý}¢ ­£¡©¢D©E©L­¢8í H­£í¡I­¡É4ê°­£Éê° ­ 0©€ ŸŸþHÐþI,Ÿ0­ 0Î  9© .¢©Gâ©ã VäLOqþ},ž0 L÷ÉÉ4*IJ`lâlàD1:AUTORUN.SYS›NEED MEM.SAV TO LOAD THIS FILE.›D1:MEM.SAV› ’©J y08© B©|D©E©ŠH©Iqÿ} Vä0 ’0 `©B©;D©ELŒ`­?<0LVä `@¢ŽžŽŸʆ v s©…ð? F0Ξ05©:¢ ¦©[¢ ¦©B©D©E©H©Ir} Vä­ÉYÐ8©…¢ © B Vä¥ œ¥ ©@… ©… ©/¢D©E ŒžˆŒ ¤`E:›D1:DUP.SYS›ERROR-SAVING USER MEMORY ON DISK›TYPE Y TO r}STILL RUN DOS› œ©B©;D©E© J Œ œ(`©ð 9¢ Vä©ðî ­âÇ­ãÈ©âªÃ© ï©ðî¾­àÇ­áÈ©àªÃ© ï ’­ž-r}”ðî”LLu ÄèŽÅÆ¢©ÃD©E©H©ILVä 9© .lú¿ 9© .l­œ… ­… `­žÐ` s©…ð$©B Œ©B©ŠH©r}I©|D©E Vä© BLVä n䢩B©,D©E© JLVä© ¢B Vä¢ © BLVäDŽE¢ŽIÊ© Bêê­ðåLÿÿÿàáu • ÂÌp}ÿÿ 3E:›}DISK OPERATING SYSTEM II VERSION  ²®µ COPYRIGHT 1984 ATARI CORP.››A. DISK DIRECTORY I. FORMAT DISK›B. RUN CARTRIDGv}E J. DUPLICATE DISK›C. COPY FILE K. BINARY SAVE›D. DELETE FILE(S) L. BINARY LOAD›E. RENAME FILE M. RUN AT ADDRESv}S›F. LOCK FILE N. CREATE MEM.SAV›G. UNLOCK FILE O. DUPLICATE FILE›H. WRITE DOS FILES P. FORMAT SINGLE›L˜ !N'Æv}#"&¾)æ)9(Ð&©*)/h)¬'ú'-Ê&¢ÿ؆莟©…R©'…S¥ €…Ò v­¾ÉLð/©©Ë¢ ÍL¼ }Insert DOS 2.0s, type Y ÒÅÔÕÒΛ©ô©x…© …©v}D©E©fH©I ž1¢ÿšèŽ#©q¢! ¦©@¾ y0É›ðÏ8éA0,Íô' ¨±È…±… ±ªˆ± °1 ¶1¥i…æl©d¢! °1L!NO SUCH ITEM›SELECTv } ITEM OR ÒÅÔÕÒÎ FOR MENU›õ! Ê0 ¿.®½zÉ:Щ*{}©.|èè莩›{Ž¢ Ø1 ã0 ¿0©¢J©BŽþ é1­8íÉðL¨%®½|ÉDÐóL¶v }%DIRECTORY--SEARCH SPEC,LIST FILE?›[# Ê0 ¿0 ¸&­|ÉDð©3¢" °1L!NOT A DISK FILE›¢­žÉNÐ ©!B é1L!©E¢# °1©¢ ©!B©ñD©v }E©Dñ©:ó­}É:Щ1ò¢©B©J©|D©E é1©ôD©E©B©¢©H©I é1­õÉ Ðhî­Í0ߢ ¹ôÉ ð ôèÈà0ð©.v }ôè  ¹ôôÈèÀ 0ôŽ©?ôè©›ô©ñ¢ °1 y0ÉYЛ­®©›ô¢ é1 ;#LŠ" ;#L!¢© BLé1TYPE "Y" TO DELETE...›DELETE FILE SPECv }›COPY--FROM, TO?›OPTION NOT ALLOWED›465 FREE SECTORS›› COPYING---D2:BONSAI5›.BAS›l# Ê0­­|ÉDТ Ò.ðL/%©€#©v}#©‘#¢©J©B©|D©E é1©B©H©I©’D©#E é1­’#É0É:° © B é1L!­#Í‘#ðî‘#ÐÁî#© B é1 ¹œ#Ùc$Јõ0‰SYv}S 1­}É:𨌳#¢ ½’#É ð™²#Èèà Ðð½’#É ð©.™²#Ƚ’#É ð™²#Èèà Ðð©›™²#©¦¢# °1,#P¢©²D©#ELJ- <.¢©B©J©²D©#EŽþ év}1¢ Ø1­H­H ã0hh®½|ÉDðL¨% 1½}É:ð¨Ì³#Ð ’L¾%¢ Œ³#©²D©#ELÞ%¢ Ø1 ã0® è.® Ò.Ð0©O¢% °1L!WILD CARDS NOT Av}LLOWED IN DESTINATION› ¿0 <.­|ÉKð<ÉCð8ÉEТŽþL¨%ÉSð(¢©B©JŽþ é1®½|ÉKð ÉEЩÿLõ%©|¢# °1 ’L!ÉCðﮞàAÐÉDÐä© v}Щ¢ J©BŽÿ é1©K©®þ¬ÿB© ™B¥D™D¥E™E®þ­H­I VäŒø®ÿ¬þ¹HH¹IIHð é1­øÌɈðLñ1®þð© Bv} Vä®ÿð© B Vä®ÿЩI¢' ¦,#Lì#L!œ& Ê0 Õ0 ¿0 ¸&© ¢B é1L!RENAME - GIVE OLD NAME, NEW› ­}É:ð)¨ŒöLS)'©ýÐ'©þv}' 70 ¹2i0H'K' ¿0©0¢' °1 y0ÉYЭ' ! 'L!þ¢B©JD©'E˜JLé1WHICH DRIVE TO FORMAT?›TYPE "Y" TO FORMAT DISK 1›D1:›«'¬ý¿v}©ªý¿Íý¿Ð©Uý¿Íý¿Ð Œý¿©Ÿ¢' °1L!­ü¿Ðñª­ý¿ðëÍý¿ÐæèÐó v©¢ä _ \ä©¢ä b \äLNO CARTRIDGE›È' 70 2 ¿0…†­ÉðP vL RUN FROMv} WHAT ADDRESS?›TYPE "Y" TO CREATE MEM.SAV›ß' y0ÉYÐ s0 ©¢( °1 ’L! FõLð1MEM.SAV FILE ALREADY EXISTS›Õ( 70 ¹2 ¿0ö 0+)v}') S)©¢) °1 y0ÉYÐr©ò¢( °1©¢B©*D©)E©J é1¢© B é1¢ ½.{ÊÐ÷­+)}Ž¢ Ø1© éĩũùó/©ø/©3ÆH©uà© v}áξL›/L!DRIVE TO WRITE DOS FILES TO?›WRITING NEW DOS FILES›TYPE "Y" TO WRITE DOS TO DRIVE 2.›D2:DOS.SYS›ERROR - NOT VERSIOv}N 2 FORMAT.› t*­ôÉð ©5¢) °1L!`©) Ê0©®žžàNÐΞ ¿0 ©àðàð˜Lñ1©›¢) °1 ’L!BAD LOAD FILE›LOAD FROM WHAT FILE?›Ó) Ê0 v}¿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 USv}E PROGRAM AREA›CAUTION: A "Y" INVALIDATES MEM.SAV.›©…F©ô…E­ö…!©ù +Lð1© ­þþ©© © `*©  70 ¹2ö ¹2ÿv} ¿0­öÍÿð.¢*©Ù °1 y0Î 0)INSERT BOTH DISKS, TYPE RETURN›©^¢, °1 y0©©3­å8逭æé­Í­í° ©N¢, °1L! Ý,©v}žC, t*­ ù­ ú­û­ü­þýLx+©ž, 0 ©^¢, °1 y0 , ¡,0,ž0 Ç,LŽ+ Í,­I€0î ¾,­ÍðV­Í­í°Ç­ž0v}«Îž, 0 ©}¢, °1 y0­C,ШîC,­ÿ 0K' !­ "­ H­ H©ý 'h h Lx+­ž¸­ÿ…!©ô…E©…F 5Lð1L! ¹D,…¹I,…¢¡H¹ùh™ùˆv}å­­` þNOT ENOUGH ROOM›INSERT SOURCE DISK,TYPE RETURN›INSERT DESTINATION DISK,TYPE RETURN›þÎÐôv }þ©­þ`î Ðî `­ö­ÿ8 rLð1`¥ð©-¢* °1©P¢* °1 y0ÉYЩ…ž`hhL!NAME OF FILE TO MOVE?›- Ê0 ¿0­|ÉDðL¾% <.¢v!},©^ °1 70 ¿0 Ò.Щ@Lä#¢ è.¢©B©J é1©  ¢¥D¥E­H­I©B Vä ÀˆðLð1Î ¢,©} °1 70,õL.¢   ­ Рî v"}˜J©B©| ,#P©² #D˜E é1 ¢ ©ÙHÐÙIð© B¥D¥E¹HH¹II é1© B é1­ Т,©^ °1 70,õ0La-¢© B Vä,#Pv#}¢,©^ °1 70 ¿0Lì#L!¥ð©-¢* °1©P¢* °1 y0ÉYÐj©…ž©…©3…­å8é­æé3©©}m©m­Í Ðå­Í°Ý­Ð©v$}}Í`­8é}­é`©ô…©…©ú©`½|èÉ*ð É?ð É›ðÉ,Ðìè`è½|É:ðèè ¹-)Ý|ÐÈèÀÐò© ¢/ °1L!`DESTINATION CANT BE DOv%}S.SYS›0© ¾ Ê0­žH®©›{ 2ÃŽÄà4°Δ 2ÅŽÆ8íÃó/ŠíÄ°L!ø/À›ð) 2âŽã ãðΠÀ›ð 2 ¿0àŽá áðξ©žv&}hÉAÐΞ¢©B,ž0©Ð© J é1© B©ÁD©E©H©I,ž©H©ÃD©E é1¢©ùH©IþHÐþI­ÃD­ÄEL“SAVE-GIVE v'}FILE,START,END(,INIT,RUN)›©›¢O¤Êú©õ S0 ¶1`©B©¤D©E©PH©I¢ VäÀ€ÐÎõ`©õ S0­H÷ ¶1­õ ’L!­÷Év(}0 ©ª¢0 °1L~0­¤`PLEASE TYPE 1 LETTER›,õ0`hhL! 70¢ Ø1Lã0©¬®L<1¬®© ½¤É,ð;É›ð7½¥É,ð"É›ð©:ݦð1Ý¥Ðν¤Év)}A"©D™|ÈÎÎݤðíΩD™|È©:™|È©ž½¤™|èÈÉ›ð,É,ð(É/ð+É.ЩÎÞ©¢1 °1Îõ½¤èÉ,ðÉ›ÐôŽŒ`½¤ž轤™{èéNAMEv*} TOO LONG›© B¢ VäÀ€ÐL!` ¦L¶1©ªI© H©1E©ÎDLž1œ©|mD©iE` Vä˜0`˜8éd¢/è8é úi:2Ž2¢2© °1 ’Lv+}!ERROR- 128›©©®½¤îÉ›ð+É,ð'  20* ..ˆö ÎÓ©r¢2 °1Îõ`¨­®`©‚¢2ÐëTOO MANY DIGITS›INVALID HEXAv,}DECIMAL PARAMETER›8é00É 0 8éÉ 0É0©ÿÉ`,õ0'®½¤èÉDðø8é0ð0É H½¤èÉ,ðÉ›ÐôŽh`Îõ©ð¢2L°1NEED D1 THRU D8›3àáuv-} ECIMAL PARAMETER›8é00É 0 8éÉ 0É0©ÿÉ`,õ0'®½¤èÉDðø8é0ð0É H½¤èÉ,ðÉ›ÐôŽh`Îõ©ð¢2L°1NEED D1 THRU D8›3àáut`€ÑŸLIN¤LIB¤NUM±FLAG±FILÅNUM³NUM²ÎØÉ z/} €;@,;Ah,w B+)AR@C0@@@]0@@@w0z0}@@(P (}0(! Ç®Á®Ç® ÄÉÓË £±±¸ ±°²° ÐÌÏÔÔÅÒ   3(=6€.D1:P6€7@,.*.*2|67@<@z1},. -67Ah,. <67@,.G@d@@€p6‚-@|6ƒ-@<„-@@dz2}FI@€$…-@@<€7…<…%@,4 SYS?'I @pP- €7@<@,4FREE #'- A Z …z3}d&€7@<@,0 & A n2 6†-‚…-@@2€7…<…,4 A0x%67†<†,.€7…<…,!6†-†%@% …z4}‚… @'Œ$$€7@<@,4 A`–T67†<†,..6†-†%@2…-@@B67†<†,.€7…<…,P6†-†z5}%@T … ƒ"@(6ƒ-@ª„ @( ´. („ 7‚<‚%@, .6ƒ-ƒ%@¾\6‚-‚%@z6}„"@2\(: There are more files - press ÒÅÔÕÒÎ to continue....È**„"@2*F:Ad,@AÒz7}AdAU „Ü2( (2(€7@<@,SECTORS AVAILABLEæe(1(&Óåìåãô ÈÅÌЮÂÁÓ æïò æéìå äåóãòéðôéïîó®4(W(z8}Enter number of file to load:a A0e‡ð%‡ @)‡!„&@% A0õ @ +úy 6€.D1:96€7@z9},.7‡$@&@<‡$@,D@a@@€n)@‡y@û# B‡"AUz:}# A`ÿ‡" Ae‡ ApZ (}-@@+( BINLOAD €H@@z;}€W6ˆ-?:AUv,Z m (}-@@+( LOADING €=ARA%€mÃÈÁÎÇÅ ÒÕΠÔÏ ÌÏÁÄ ÔÏ ÁÕÔÏÒÕΠÂz<}ÁÓÉàÐÇÍÓ ›] (}-@@;(FILE IS DATA OR LIST FORMATO‰-@AS ‰] @ €D2:MENUD1:*.*z=}€MENU€ S ‰] @ €D2:MENUD1:*.*xZ56Ʀ ¼ D¤CU¤CD¤CLN¤Q75²Q°Q±QÓQÔÇÉØFÃDÌÒÃRÏCÏ # C&&AR@@@~?} @ A B @ Bgp@WA@%A c +@#;€;@,;@2,‚;@2,ƒ;@8~@},C6ƒ. T6ƒ7@8,. c6ƒ7@,.ƒ?6„-AR6…-'6†-@36‡-@?6ˆ-@2 A < ~A} A2000›F‰-@@PŠ-@A ŠZ0@@d#n##67@<@,.~B}>:@",x6‹-?:C:,<‡,‚##67@<@,.>:@&,Œ6‹-?:C:,<‡,–0@@ ##6‚7@<~C}@,.>:@&,ª6‹-?:C:‚,<‡,´0@@¾%D:MENUÈ +@Òk070@~D}@Q0@k0@Ü @6Œ-@æ #Að%%6-F:A`~E},%F:Aa,$AVú[+%@…,@p/+%@ˆ,@E+%@‰,@[+%@,@J@‚~F}0(GENESEE ATARI GROUP J(1020 PLOTTER PROGRAMS "€@:€, @d A@+ €4P"Ž AP!,~G}Ž+ Ap" €4O"‘ Ap, €4END$6 €0F Ap@% "Ž AP-Ž%AeŒJ;+@~H}@S:1,Ž; ApT* 6Ž-A:€," AP /Ž* Ap^ 6Ž-Ž%6-%‘$õ "G"›ö ~I} O,25,30›÷VVP,17,11,17,24,27,24,32,16,32,5,P,11,17,11,24,6,24,0,16,0,5,P,17,11,F,22,11,22,17›ø++P,22,17,F,24,17,F,26,15,~J}F,27,14,27,10›ù??P,11,17,F,8,17,F,6,15,F,5,14,5,10,6,9,7,8,25,8,26,9,27,10›úP,0,5,F,5,0,F,27,0,F,32,5›þ "G"›ÿ O,2~K}5,30›VVP,17,11,17,24,27,24,32,16,32,5,P,11,17,11,24,6,24,0,16,0,5,P,17,11,F,22,11,22,17›++P,22,17,F,24,17,F,26,15,F,27,~L}14,27,10›??P,11,17,F,8,17,F,6,15,F,5,14,5,10,6,9,7,8,25,8,26,9,27,10›P,0,5,F,5,0,F,27,0,F,32,5› "A"›& O,25,70›~M}0bbP,32,24,0,14,P,14,13,F,10,12,14,11,F,14,13,P,32,24,32,17,F,20,13,20,11,32,7,32,0,F,0,10,0,14›: "G"›?O,25,110›DVV~N}P,17,11,17,24,27,24,32,16,32,5,P,11,17,11,24,6,24,0,16,0,5,P,17,11,F,22,11,22,17›E++P,22,17,F,24,17,F,26,15,F,27,14,27,10›~O}F??P,11,17,F,8,17,F,6,15,F,5,14,5,10,6,9,7,8,25,8,26,9,27,10›GP,0,5,F,5,0,F,27,0,F,32,5›N›¼ END›Ð #A `Ú~P}Š-@@2ä"67Š,.>:,î Šø) 6‚.)6‚7@<@,.>:A),$ kk104,104,104,72,162,57,160,0~Q},173,0,210,101,20,141,22,208,141,10,212,136,208,242,202,208,237,104,56,233›1,208,228,96›€D2:STARTUP.BASENDhhhH¢9 ~R}­Òe,210,101,20,141,22,208,141,10,212,136,208,242,202,208,237,104,56,233›1,208,228,96›€D2:STARTUP.BASENDhhhH¢9 |ÿÿO­Ð)ð ©!©"`ûó3ö!£ö3ö<öLäóî!¬!ÀÐ ©!©ä"¹; `RUN "D:STARTUP.BAS"›âãàáD2:STARTUP.BASENDhhhH¢9 €bi{LINE¤A¤'xx €;A ,;@,; (}@;@@ D:DOC.TXT†U} A(@€2lB:€,!@-€7@<@,4XXX0(3(E-@@"X( ÐÒÅÓÓ ÒÅÔÕÒΠ\b(}†V}l @@<(€ @@da@ B*-@@"R("ÒÅÔÕÒΠÆÏÒ ÍÅÎÕ ÏÒ ÂÒÅÁË ÆÏÒ ÂÁÓÉÃVa%D:MENU†W}€ D:HELP.BAS @@da@ B*-@@"R("ÒÅÔÕÒΠÆÏÒ ÍÅÎÕ ÏÒ ÂÒÅÁË ÆÏÒ ÂÁÓÉÃVa%D:MENU„›››                        ›   GENESEE ATARI GROUP  ›   DISK # 118  ›   1020 PLOTTER  › ŠY}   PROGRAMS  ›                        ›› THIS DISK CONTAINS PROGRAMS›COLLECTED FROM ALL OVER. I DO›NOT ŠZ}HAVE DOCS FOR THEM, BUT THEY›HAVE BEEN TESTED BY A FEW CLUB›MEMBERS WITH 1020 PLOTTERS AND›DO WORK. SO JUST EXPERIMENT AND›TRŠ[}Y THEM OUT.›XXX›ÂÏÎÓÁÉ› THIS PROGRAM WILL DRAW BONSAI›TREES. IT COMES FROM THE JUNE›ANTIC AND YOU WILL NEED TO BORROW›A COŠ\}PY OF IT FOR THE INSTRUCTIONS.›PROGRAM WILL DRAW BONSAI›TREES. IT COMES FROM THE JUNE›ANTIC AND YOU WILL NEED TO BORROW›A COˆ