–€€             @L Ìß}Ë¬ð5 _­¬¦$Ž¦%Ž l0¬±$)ªÈ$ð±$HÈ±$ Uh¨ŠL"©À
¨`©€e$…$æ%`­…$­…%`  Œ
©R @©P €¦!àÐ( L¹(©Œ©1 ©	©€
	­ YäÎ	ð¦I˜` ­ d LÇ  d
M
	¼*€@ ÿ­…$­…%­
…C¢© C ‘$¥$)¥%1© U©dÊß¥$9¥%:¬	¢ ˆ˜!0 SèàÐñ¥$ç¥%è© ¨™Èú¨¹ðÉDðÈÈÈÀÐð ©D™©Ë™©™` ­ }½J‚)ðLr ì½‚É   ÀÁÉ@NZERÏ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Ã                                        }                           	       
                                                                             }              €      @      €      €                                                  !       "       #       $    }    %       &       '       (       )       *       +       ,       -       .       /       0       1       2       3       4 	}       5       6       7       8       9       :       ;       <       =       >       ?       @       ?? DOODLERS DELIGHT/D 
}ANCINE DISILVERIE "SHOW"  (C)1983 ATARI›
 33"€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•– FF0,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:AV   , N6œ-F:‘%†,&BB }y  œ&6-‚$’$œ06ž-%„$’:6Ÿ-%…$’B6œ-œ%ƒNA   œ# /6—.D1:PLOTTS.OUT /6™.  SCREEN        $ 6š.      MARCH   }1983   (  -…"œ6˜8 ,-œ	 - 68,200,150,2,26›F "¡¢£¤¥¦§¨©ª«K 881040,1050,1060,1070,704,705,53248,19 }0,1536,3.4,3.8›P !AU    6¬-%…6­-!
†$‘U 6¬-%†
A0   V . ‚H*C1 ‚$ ‚š. ‚Z '®6¬ }-% -+%Š,$‘!	 '
‰$‘[ 9¯-€‰6—7ˆ,.>:@:0,%¯,&°-€‰96—7‰,.>:@:0,%°,\ 06—7Š%„,. 6¬-%ƒ &ƒ€*A0   }  0
†$‘] 6¬-%„6­-€
A0   ^ 3	­"%† ‚H*C1% ‚3 ‚™—7ˆ<‰,_ 	­" ‚` ®6¬-%‡
‰$ }‘a 	°	¯b  -€‡§% €	 X‚¡Ap   ±
¬€	6±-‚ˆ€P4:Š' ‚­"' ‚C0*M0,- }500*I”
¬ž¡6±-6®
¬¼²A   Æ%	6²-AV   ‚¢%A0    ä„€—‰€ }—ó¦˜8ƒ,
¬ôAe   ˆ€—ø¦˜8‚,
¬ý®¦˜8,¢
¬ ²A   %¢ }‚£A0    >!Au   „€—!¦˜8‚,R6Ae   )³)´")µ))¶0)·6„&³S	³"€¸W	±" }A@    Y6­-@    \	,´µ/¶·
AP   a®£
¬k!®¦˜8,£!
¬„‚¤%Š² }“	±*­A	     ‚H*C3˜®±A	0   ‚¢®6±-€­"AU    §A€   ¬
¬ü	,“ }/–‡,–/“‡$+	,“‹/“‰/”‰/–‰%‚%/–‰%„+/”‹	/“‹$*,“%ƒ/“&ƒ/•&ƒ!/•'/“*$+,• }%…/“%…/“%ˆ#/•%ˆ+/•‹%Œ/“‹%Œ$$",“@3    /“Ž&/•Ž&"$.:,¹@f    /¹@i    ),¹%@f     }7/¹%@i    :$/*,¹&†/¹&ƒ,¹%&†'/¹%&ƒ*$0*,¹%‚/¹%…,¹%%‚'/¹%%…*$8B,”%‰/“%‰/“ }%‹'/”@•    3,•@    ?,•@”    B$¸ -€‹Ÿ%@W    % €	 ¦˜8‚,6º-%Ž…§%¨%„6 -¯Š*»-€‡6 }œ-F:ˆ$ %»%›,&Ÿ%º&ƒ%»œ*	»¨º"@h    $²6º-@h    6 -°
A2    A@€   ³"¼A@0   ´ ‚C³¾06½ }-P:ª$´,6¾-P:«$+%‹&µ,,0 ‚M½,¾Ò6½-P:ª$¶,6¾-P:«$+%‹&·,,Ü´"¶*µ"·6½-½%‚æ ‚D½,¾6¼-³$ð }®¡6±-6$”3AE    *³*´"*µ)*¶0*·3$¨®¢$| -€‡§% €	 )	© }©%B2w  €)AY   ‚I+@#    A   ˜8„,+A   ˜8,:A	   ˜8‚,IA   ˜8ƒ,† -žž%ƒ$’ € }	 ¥˜8…,¦˜8,¥%‚‹’»-„ž%&‡%»‰%ƒ	»š"¿±²À³¼¸#AU0   Ÿ0,0,0,1,3,0,3›®,“&‡‚  }/“&‡‘&†³%	¡&Š¡¢£6¹-“¤%¤%Š¸‚¤%ƒ¤%‚º©%‚A   ©%ƒ%ˆ¾)AY   Ž%‚B2w  ƒ !})A#   ¿§¨%‚§%‚¨&ƒ$ €D:SHOW‚¤%ƒ¤%‚º©%‚A   ©%ƒ%ˆ¾)AY   Ž%‚B2w  ƒ  3   *+#„”ÁÂÃÄØÙËÊÉAÁBÂCÃDÄZÚEÅFÆGÇÑÒÓÔ×ÍÎÐÖÌÈADÙÕA¤                                                             #}     	       
                                                                                                  $}                                         €          NO TWO DRAWINGS ARE ALIKE!› ž;@    , {6’-@    6–-A%}    '6—-A    36˜-AP   ?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-66…-…%U 	†—6ƒ-6ƒ6†-†%ƒZ 	†‘6ƒ-6ƒ6†-†%ƒ_ 	…‘6-66*}…-…%d "	™	ˆ(•M‘,6–"•n D	(}(((+(DO YOU WANT ANOTHER?.(D(NO TWO ARE ALIKE!x +((ENTER (+}Y/N)ž+ž0YA    ‚ 	(}
’È  €D:RANDOMDO YOU WANT ANOTHER?.(D(NO TWO ARE ALIKE!x +((ENTER ( =    !‘1BLOOÐØX±Y±ÔX²Y²A1¨A2¨A3¨ÙSIÚOÆNUÍ                                                   @      @      @	    -}   
                           
 |6-@$    /@    @          P:X‡9@    <,ˆ9@    <,‰9@    <,d6‹.}-A    p6Œ-@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@    'P o6Š-M:@    ,$%M:@    ,=6‰8      <„,-P:$‹%?P    ,]6‰8@    <„,-P:Š$‹%?P    %Œ,k6„-„%@2}    o	U  GOTO 200›Z !(@    C1!„-      d WS(@    M‰8@    <„,,‰8      <„,*D‡8@    <„,,3}‡8      <„,W	„n !(@    C2!„-      x WS(@    M‡8@    <„,,‡8      <„,*Dˆ8@    <„,,ˆ8 4}     <„,W	„‚ !(@    C3!„-      Œ WS(@    Mˆ8@    <„,,ˆ8      <„,*D‰8@    <„,,‰8      5}<„,W	„– (@    M0,-600&È „-      @    Ò ™™(@    M‡8@    <„,,‡8      <„,*Dˆ8@    <„,6},ˆ8      <„,*D‰8@    <„,,‰8      <„,*D‡8@    <„,,‡8      <„,Ü 	„ €	D:TRIANG2ˆ8@    <„, n  @FGw½ÌÙØÃÁÂÏ                                            
 ##@    @          P: (@     8}'6…-AP   6ƒ-@    '6„-@     ‚-      @     (@    C‚   €-A          6@    ( (@    9}M…,€$„2 ''(@    D+A    &€,$ƒ%…,06 	€7 „"6@    6ƒ-6@    8 

6„-6„F 	‚d (@    M0:},-400Þ@     €D:COLORINARY 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 ›SEB}TPC 2 99 ›PENGREEN›END››TO PENGREEN›( TYPE CHAR 67 CHAR 50 )›END››TO PENRED›( TYPE CHAR 67 CHAR 51 )›END››TO PENBLUE›( TYPE CC}HART 67 CHAR 49 )›END››TO PENBLACK›( TYPE CHAR 67 CHAR 48 )›END›››TO PENRED›( TYPE CHAR 67 CHAR 51 )›END››TO PENBLUE›( TYPE C A   TŽD¨ÉÓÃËÊP¨ØÚ @                                          A  i  Ad    @    
 †9A`   <@    ,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@    <ˆ,&@P    n ‡-      A`   @    x 77(@    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›0L}›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›16N}›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›16 112›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$    TU$COLÒPEN¨ØPIXEÌMEMLOC¨ÉÒÏMEMLÏMEMHÉRÔSAVMSÃÎFILE¤DLISÔÁSAMVSÃ×A¨OUTFILE¤LÎMEMLOÃTEMP¤         @              (n}      @                                   	       
                    €                                  @     (o} €                    €      
  1020 PICTURE MAKER› Ap    A   ( ##@    @          P:2 ((p}@    *H*I< €-      @    F 8€,"@    AP   P &(@    H&(@    C8€,Z A         d(q} 6‚-?:B&•  <€,n B'g  x -6ƒ-F:A   ,F:A   ,-6ƒ-ƒ%AV   ‚ >>(@    M‚,6@    $+A   &ƒ,*(r}J0,4;1,0;0,-4Œ F:A   ,A    – 	€  ©  TITLE AND INITIALIZATION›ª 119@    ,„9@    ,;@    ,–;@ (s}   ,´ '+@    '0@                ¾ '-@    @    '(@    1020È *-@    @    *(@    picture(t}Ò (-@    @    ((@    íáëåòÜ ;AR   @    ;(!(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‚-A6   AT   "Œ!‚Œ%	‚9‚-B&•  B(7  ="ŒC‚ŒG	‚(w}5 OPEN PICTURE FILE›6A   @G }ENTER  FILENAME-…-@    B:,:7…<…,4:='G
AP   J	…T$&6–.(x}6.D:$67@    ,.–^+@    +@    @          g DISPLAY PICTURE›h>+@$    /6Ž-F:A`   ,%F:Aa  (y} ,$AV   >6-?:A6   ,r	‹ˆ‹%@    ‰|‡A   †6-?:A   ,#š …-      @     6†-8…,¤(z}†"      „8…,      ®†"@    „8…,AH   ¸†"@    „8…,A˜   Â†"@    „8…,@p    Ì†"@({}    „8…,@    Ö	…àIŽ%@    ˆŽ%@    ‰3Ž%A          IŽ%A   ‰%@    ê6‚-F:B2y  ,ô%‚"(|}@    6‡-@    %
A0   þ‚"@    $
A    SELECT COLORS›(Choose Pen Color:(       Black (}}  °&(       Blue    ±0(       Green   ²:(       Red     ³D(       Blank   ´NS…-      @    B((~}Pen Color No.…%@    ?8…,F†O68…,-†S	…X
A`   b GRAPHICS 7+ CONVERTER›l AND SCREEN LOADER FROM(}›v A.N.A.L.O.G. NO. 12›€ZZ216,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›H157,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²                                                                   
@p     0œ}%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‚,ƒ%@
Ap   ®&&(@    H*M0,6&@     0 }*I¸@     €D:SPHERE.BAS0¡} €D:SPHERE.BAS0    ¸¹¹¨¶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¦}    &       '       (       )       *       +       ,       -       .       /       0       1       2       3       4       54§}       6       7       8       9       :       ;       <       =       >       ?       && "DRAW"/D DISILVERIE (C) 83 ATARI›
4¨} 11"€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”• CC0,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:AV   , N6™-F:%†,&BBy  ™&6š-‚$‘$™06›-š%„$‘:6œ-š%…$‘B6™-™%ƒNA   ™# 6–.D1:4ª}PLOTTS.OUT ( -…"™6—8,-™	- 68,200,150,2,26›F "žŸ ¡¢£¤¥¦§¨K 881040,1050,1060,1070,704,705,53244«}8,190,1536,3.4,3.8›P 6©-%ŠAU    
A0   Z %	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:¦%,
‚$"96­-F:¦%‚,&Ž&…6¯-F:¦%ƒ,&Œ'­!%Ž-6ª-1³9¦%'$,·-„›%4¯}&‡%·Š%‚	·1&¢—8…,€6¸-“¡ ¡%&¡%‚@)6²-¶&‡6¹-„&²²6¸-“%¡%²&)
©·-„›%&‡%·‹	·š#4°}€6¸-“¡¡%¡%‚#6¹-€¤²-ƒ¢—8²,®"·-Ž6³-?:¦%„,"³AP   ¸	·	²
A    Â	6º-²º
©ô%4±}‚ž&Š 6«-!¦‚%
©X#‚žAp   ´6´-#
©€	6´-‚ˆ€P4:Š% ‚! ‚C0*M0,-500*I4²}%
©žž6´-€»‚
©¼µA   Æ%	6µ-AV   ‚Ÿ%A0    ä„€–‰€–ó4³}£—8ƒ,
©ôAe   ˆ€–ø£—8‚,
©ý»£—8,Ÿ
© µA   %Ÿ‚4´} A0    >!Au   „€–!£—8‚,R6Ae   )¹)¬")®))­0)¯6„&¹S	¹"€ºW	´"4µ}Ž$\	,¬®/­¯
AP   a» 
©k!»£—8, !
©„‚¡%Šµ“	´" ‚H4¶}*C3‚¢AU    
©ü	,’/•‡,•/’‡$+	,’‹/’‰/“‰/•‰%‚%/•‰%„+/“‹	/’‹$*,’%ƒ/’4·}&ƒ/”&ƒ!/”'/’*$+,”%…/’%…/’%ˆ#/”%ˆ+/”‹%Œ/’‹%Œ$$",’@3    /’Ž&/”Ž&"$.:,¸4¸}@f    /¸@i    ),¸%@f    7/¸%@i    :$/*,¸&†/¸&ƒ,¸%&†'/¸%&ƒ*$0*,¸%‚/¸%…,¸%%‚'/4¹}¸%%…*$8B,“%‰/’%‰/’%‹'/“@•    3,”@    ?,”@”    B$¸-€‹œ%@W    %€	£—8,6¼-4º}%Ž…¤%¥%„Š2-€‰·-€‡"6™-F:ˆ$%·%˜,.œ%¼&ƒ%·™2	·	6¸-R:      ,‹6¸-”"·-¸6³-?:¦%„,"³A24»}@   ž	·	
A2   ¨¼"@h    A2`   ²,6¼-@h    "6–7ˆ,.>:@:0,%,,
A2   ¼&6–7‰,.>:@:0,%,#6–7Š%„,.4¼} &$ A@€   ¹"½A@0   ´ ‚C¹¾06¾-P:§$¬,6¿-P:¨$+%‹&®,,0 ‚M¾,¿Ò6¾-P:§$­,6¿-P:¨$+%‹&¯,,4½}Ü¬"­*®"¯6¾-¾%‚æ ‚D¾,¿6½-¹$ð»ž6´-6$”3AE    *¹*¬"*®)*­0*¯34¾}$¨»Ÿ$|-€‡¤%€	)	¦¦%B2w  €)AY   ‚I+@#    A   —8„,+A   —84¿},:A	   —8‚,IA   —8ƒ,†-››%ƒ$‘€	‹9	©"-‡!›%A€   %Œ%	9›%A„   A8   ¢—8…,4À}£—8,¢%‚‹’·-„›%&‡%·‰%ƒ	·š"«´µ²¹½º#AU0   Ÿ0,0,0,1,3,0,3›®,’&‡‚/’&‡&†³%	4Á}ž&ŠžŸ 6¸-’¡%¡%Š¸‚¡%ƒ¡%‚º¦%‚A   ¦%ƒ%ˆ¾)AY   Ž%‚B2w  ƒ)A#   ¿4Â}¤¥%‚¤%‚¥&ƒ$ €D:DRAW‚¡%ƒ¡%‚º¦%‚A   ¦%ƒ%ˆ¾)AY   Ž%‚B2w  ƒ)A#   ¿4 $  @GHxjzD¨ÉÓÃËÊ @                                          
 ##@    @          P: (@    8Ä} €9@    <@    ,( -      @    2 6‚-$@’e'@P   < ''6€8<      ,-G:‚,$A    %A@   F ''6€8<@   8Å} ,-E:‚,$A    &A@   P 	d H6ƒ-@    H(@    M€8      <      ,,€8      <@    ,n -@    @    8Æ}x )6ƒ-ƒ%@    ƒ!@    )6ƒ-      ‚  (@    Cƒ 6„-      Œ …-@    @    – %6„-„%„!@    %6„-„8Ç}&@      00(@    D€8„<      ,,€8„<@    ,ª 	…	 €D:SAMPLE@   À@    AHcÀqt’“ A!’c™ÁV‘i–A7–B”8È}ÁhF)9A‘ Áp— 9A–4 D€8„<      ,,€8„<@    ,ª 	…	 €D:SAMPLE@   À@    AHcÀqt’“ A!’c™ÁV‘i–A7–B”8     !‘¢LOOÐØX±Y±ÔX²Y²A1¨A2¨A3¨ÙSIÚOÆNUÍ                                                   @      @      @	    <Ê}   
                           
 |6-@$    /@    @          P:X‡9@    <,ˆ9@    <,‰9@    <,d6‹<Ë}-A    p6Œ-@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@    'P o6Š-M:@    ,$%M:@    ,=6‰8      <„,-P:$‹%?P    ,]6‰8@    <„,-P:Š$‹%?P    %Œ,k6„-„%@<Ï}    o	Z !(@    C1!„-      d c_(@    M‰8@    <      ,,‰8      <      ,*D‡8@    <„,,‡<Ð}8      <„,c	„n !(@    C2!„-      x c_(@    M‡8@    <      ,,‡8      <      ,*Dˆ8@    <„<Ñ},,ˆ8      <„,c	„‚ !(@    C3!„-      Œ c_(@    Mˆ8@    <      ,,ˆ8      <      ,*D‰8@<Ò}    <„,,‰8      <„,c	„– (@    M0,-600& €
D:TRIANGLE8@    <      ,,ˆ8      <      ,*D‰8@< K   gäóÏÁÂØÔÓÒÙÍLOOÐÚ                                                                  	       
      
 @6†-@Ô}A    @ .             SET RADIUS AND SELECT DEGREES› >#@    @          P:> .       OPEN THE PRINTER› 0(@Õ}@    0 .  ISSUE SET GRAPHICS CALL›( 6(@    C16 .              SELECT SECOND PEN›n 2„-      A`   @    @Ö}2 . DRAW 180 LINES›x <6ƒ-†$E:„,%AP   < .        THIS IS THE CIRCLE FORMULA›‚ 6‡-†$G:„,&A    Œ 6(@    Mƒ,@×}‡6 .      MOVE TO THIS POINT›– ?6ƒ-†$E:@    $„,%AP   ? .      THIS IS A 2 TO 1 FIGURE›  6‡-†$G:@    $„,&A    ª@Ø} 6(@    Dƒ,‡6 .      DRAW TO THIS POINT›¾ 	„ 7(@    M0,-9007 .        FEED OUT SOME PAPER›Þ@ @Ù}    €D:GRAPH  „n   €RAPHM0,-200     P:                                                                     @Ú}                                                                                                                             @Û}                                                                                                                             @    8D¨ÉÓÃËÊ @                                          
 €9@    <@    , ##@    @          DÝ}P: 4$ @    >:@'    ,>:@    ,4 @    C0( 22 @    !P    ***** PLOTTING ABILITY *****2 ) @    H)DÞ} @    	M240,-200< " @    I" @    C0F --      @    -6‚-$@’e'@P   P 6€8<      ,-G:‚,$Dß}A   Z 6€8<@    ,-E:‚,$A   d 	n 6ƒ-@    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›33L a58›-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)<ABS(H1) THEN GOSUB 40U}0›48 TRAP 54:? :? :? "DEVIATIONS":? "UNIFORM:DX,DY,DZ":INPUT UDX,UDY,UDZ›49 TRAP 54:? :? :? "CONTROLLED:HOW MANY CONTROLLERS?U}":INPUT MM:IF MM=0 THEN 54›50 TRAP 49:? :? :? "GIVE STRENGTH AND X,Y,Z CO-ORDINATE FOR EACH":DIM FACTOR(MM),QX(MM),QY(MM),QZ(U}MM)›52 FOR M=1 TO MM:INPUT S,X,Y,Z:FACTOR(M)=S:QX(M)=X:QY(M)=Y:QZ(M)=Z:NEXT M›54 ? "DRIVE?":INPUT DRIVE$:? "ENTER FILENAME TOU} SAVE":INPUT FILE$›55 REM ***********************›56 REM *   MAIN PROGRAMME    *›57 REM ***********************›58 F=2:POKE 5U}59,0:TRAP 59:DIM R(L,1),H(L,1)›59 TRAP 3000›60 H2=-H2:DEG :FOR J=1 TO L:H(J,0)=H1+(J-1)*DL:H(J,1)=H2-(J-1)*DR:R(J,0)=R1+(J-1)U}*RD1:R(J,1)=R2+(J-1)*RD2:NEXT J›100 TRAP 40000:PS=2^L:LS=PS-1›110 TRAP 120:DIM X(PS),Y(PS),Z(PS),LN(PS,2)›120 X(1)=0:X(2)=0:YU}(1)=0:Y(2)=0:Z(1)=0:Z(2)=1:J=2:GOSUB 245›122 W=1:T=1:Q=2:H4=1:JP=2:JG=1:C=0:J=3:GOSUB 300:C=1:J=4:DIVFLG=1:GOSUB 300›123 LN(0U},0)=0:LN(0,1)=0:LN(1,0)=0:LN(1,1)=0:LN(2,0)=1:LN(2,1)=2›124 GOSUB 300:LN(0,2)=WID:LN(1,2)=WID:LN(2,2)=WID:WID=WID*DIAM:LN(3,2U})=WID:LN(4,2)=WID›125 OLDIV=0:FOR Q=3 TO L:H4=(-1)^Q›126 WID=WID*DIAM:IF (DIV>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      T 6   NOÿÏåCOLÒPEN¨ØPIXEÌMEMLOC¨FILE¤TEMP¤ÉÒMEMLÏMEMHÉRÔSAVMSÃÎDLISÔÁÏMAIN¤Q¤LD¤ZEN¨MODE¤         A     @           Y,}A   0   ? 	   @     @     	@€     
A)    A'    @ˆ     @–     BCt   B7(   @    K VV^  ¡wY-} € @      != = d  1020 PICTURE MAKER›x A    Œ A"      ##@    @          P:´ (@    *H*Y.}IÈ €-      @    Ü 8€,"@    A€   ð &(@    H&(@    C8€,A         6‚-?:B&• Y/} <€,,B'g  @-6ƒ-F:A   ,F:A   ,-6ƒ-ƒ%AV   T>>(@    M‚,6@    $+A   &ƒ,*J0,4;1,0;0,-4Y0}hF:A   ,A€   |	€¤ TITLE AND INITIALIZATION›¸@@6‘.6h¢©B©èD© E©H© I© …à  ¥àÉðÉðÉð<Y1}æàêÌOO6‘7@U    ,.<¥è…êô¥èÄæà  ¥èÅæà  ¥èÆæà  ¥èÇæà  ¥èÈÄ© …ì…àOO6‘7A   ,.<æ¥X…à…ä¥Y…á…å  Àˆð^© Y2}…ã¥è)€…ë¥è)…âÐ  ¥è…ã  ¥è…âÆâ¥ëÐ  ôHH6‘7Au   ,.5¥è…é/Æâ©ÿÅâÐõÆã©ÿÅãÐíð·  ¥è…éÆâ©ÿÅâÐîÆã©ÿÅãÐæð6‘7A(   Y3},.>:AU   ,QQ6‘7A)   ,.>`©ÅêðRðÉ¥é  ‘à©Peà…à© eá…áææ©`ÅæÐ/©ÅìÐ©eä…ä…à© …ì…æeå…å…0GG6‘7A‘   ,.4áæì©(eä…àY4}© …æeå…á¥ëð°Ð•¥é  ‘à©eà…à© eá…á¥ëð—Ðå:GG6•.=h­0…à­1…á©eà…à© eá…á  ©AÑàð©Ñàð©OÑàð	ÐÝ©‘àÖ©N‘àÏ`D$XRR9Y5}@    ,„9@    ,…;@    ,†;@    ,‘;AB   ,“;A(   ,•;@a    ,l'+@    '0@                €'-@    Y6}@    '(@    1020”*-@    @    *(@    picture¨(-@    @    ((@    íáëåò¼;AR   @Y7}    ;(!(c)1984           George L. GraffÐA@   Ú#A`   ä(‡-      @    "ˆ$6„8‡,-ˆ(	‡ø712,708,709Y8},710›$‡-      @     68‡,-‡$	‡ 6‰-@€    6Š-A)   46‹-A'   A   ‹H6Œ-@ˆ    \'' READ MACHIY9}NE LANGUAGE ROUTINES305›f#A@   pM‚-@    A   "'6“7‚,.>:,+	‚?‚-B&•  B(7  C"I‚M	‚z‚-A6Y:}   AV   {"‚|	‚„’;@    ,˜ OPEN PICTURE FILE›¬ TRAP 940›À##(ÔOUCH TABLET OR ÇRAPHICS 8?ÔY;}’è’0T*’0G
A	`   üG }ENTER  FILENAME…-‡-@    B:…,:…7‡<‡,4:='G
A€   	‡$!	6†.…6….D:Y<}!6…7@    ,.†8+@    +@    @          …L DISPLAY PICTURE›V/+@$    /6Ž-F:A`   ,%F:Aa   ,$AV   Y=}j	Œ‰Œ%@    Št!’4G6-?:C:“,,!
A€   ~6-?:C:•,,ˆ6-?:C:‘,,6-@    œ++ POKE SAVMSC,MEMLO:POKY>}E SAVMSC+1,MEMHI›°A`   Ä6-?:C:“,%@x    ,Ø#ì ‡-      @     6ˆ-8‡, ˆ"      „8‡,      Y?}ˆ"@    „8‡,AH   (ˆ"@    „8‡,A˜   <ˆ"@    „8‡,@p    Pˆ"@    „8‡,@    d	‡Y@}xIŽ%@    ‰Ž%@    Š3Ž%A          IŽ%A   Š%@    Œ6‚-F:B2y  , %‚"@    6-@    %
A  YA}  ´‚"@    $È
A    Ü SELECT COLORS›ð(Choose Pen Color:(       Black   °(       Blue    ±YB},(       Green   ²@(       Red     ³T(       Blank   ´hS‡-      @    B(Pen Color No.‡%@    YC}?8‡,FˆO68‡,-ˆS	‡|
A    GRAPHICS 7+ CONVERTER›¤ AND SCREEN LOADER FROM›¸ A.N.A.L.O.G. NO. 12›ÌYD}ZZ216,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›0 PRINTER 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›H84,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@   üGG162,16,169,1,157,72,3,169,0,157,73,YM}3,32,86,228,48,1,96,104,104,96›(#$‚-      @@     (F:Ž%‚,$	‚ €D2:BOBSPGM.V20sssssssssssss,157,72,3,169,0,157,73,X f   CD<äúÙ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 ¿™W5C A“@   @#3333 Af%5 ?R5˜wP @#3333 @!`s @!P‡Ve @     A   ]P} @                         ©   ( Ñ  (  @–      ¨ ©  BD  ù K:hB  @    
A     hh ‘’’’’’’—’’’’’]Q}—’’’’—’’…                üáîáìïçüíáù¸µüðç´¶üøóü                š’’’’’’˜’’’’’˜’’’’˜’’ƒ›
 €-‚6ƒ$+&‚,6„-… †-‡ˆƒ$]R}+ˆ&‡, 6‰-G:†, ‰!Š)‰ ‹6„-…
@4     6Œ-†$ 6Ž-Œ$ 6Œ-Œ&€$ 6Ž-Ž%€$$ 6Ž-Ž%‰$‘ 6Ž-A‘   &]S}Ž&’ /6Œ-Œ%AY   „/ŒŽ%A     /
@4     A     SETUP FOR PLOT›  	,ŒŽA     6„-“! A     SETU]T}P FOR DRAW›" 	†	€$ †-‡ˆƒ$+ˆ&‡,6„-…& €-‚6ƒ$+&‚,( 6‰-G:†,* ‰!Š)‰ ‹6„-…
@`    , 6Œ-†$. 6Ž]U}-Œ$0 6Œ-Œ&€$2 6Ž-Ž%€$$4 6Ž-Ž%‰$‘6 6Ž-A‘   &Ž&’8 /6Œ-Œ%AY   „/ŒŽ%A     /
@`    9 A    ]V} SET UP FOR PLOT›: 	,ŒŽA     6„-“; A     STUP FOR DRAW›< 	€	†
A    d  	6Š-…6‹-… €-‚6ƒ$+&‚,]W}f †-‡ˆƒ$+ˆ&‡,h 6‰-G:†,i 	‰!Š6Š-‰j 	‰ ‹6‹-‰k 	†	€l 	‹!…6‹-…m 	Š …6Š-…n $È M2…A    @]X}    @    -”-…A    1	”;2…………MAd   AU   Ê 26•-F:B2y  ,•"@    (A0    2
A   Ì •"@    ]Y}
      Î #•"@    A    #
A   Ð (F:Ad   ,"@(    (}(
A   Ò 
A   X+6–-@    6—-…6˜-…]Z}!6™.š+A	    Yo,AY   A‘   '/@     A   9/AY   @D    K/A    A   ]/AY   A‘   o/AY   AG  ][} Zi,@     A   '/@     @s    9,AY   @D    E/AY   “W,A    A   i/A    @s    \E/AY   AG ]\}  '/@     @s    3/AY   “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]^}	    bw6—-@    6˜-@#    $6™.=:‚,.A	    :6—-@#    C6™.=:‡,MA	    Y6—-@&    _6˜-“m6™.HIGH Z=wA	    ]_}c86—-@3    6™.=:Š,'B:™,!@    86™.™7“<@    ,drA	    6—-@&    %6˜-@    36™.LOW  Z==A	    I6—-@3 ]`}   R6™.=:‹,aB:™,!@    r6™.™7“<@    ,fbA	    6—-@    %6˜-@    26™.Y-AXIS<A	    H6—-@0    U6™.X-]a}AXIS_A	    b$„<6›-?:C:œ,<—<˜<C:™,<B:™,, $< *SUB.TO ADD TEXT TO GR.24›è6“-@    +@$    é;%6-F:@ˆ    ,%F:@]b}‰    ,$AV   ;6-%@@    $A‘   êC	6”-…7œ;Ai   ,™;@@    ,š;@@    ,ž;Bp   ,C6-?R5˜wPë6ž. ì4#A  ]c}  ”-“Ah   "›06œ7B:œ,%“,.>:›,4	”ïe@‚    …+…%A   AH   B( ÄÁÖÅ ÂÁÄÅÒ§Ó ÚÐÌÏÔÔÅÒ¡ 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š(}AY   …%-…@    /(14]f} š;-…@    E(40 šóJ-…@    (104 š&-…@!    /(CONT5-……GAB   @    J&ôUAY   @4    'A]g}B   @    U()}  ÚÐÌÏÔÔÅÒ¡  ÐÁÒÁÍÅÔÅÒÓ ÅÎÔÒÙ ÓÃÒÅÅÎ    õMM(ENOTE: ALL THREE PRIMARY AXIS (X,Y,Z)    ÍÕÓÔ BE IN SPECIFI]q}Ã‚s                                                                                 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                            B  SHOW    BASB
 " RANDOM  BASB , TRIANG2 BASB 7 COLOR   BASB ; PLOTTER1LGOB A PLOTTER2LGOB D SINES   BASB J TOWER3D DATB O AT8003D DATB ` TIEFIT3DDATB m DUMP1020BASB ‰ DEMO1020LGOB › SPHERE  BASB! ¢ DRAW    BASB Ã SAMPLE  BASB
 É TRIANGLEBASB	 Ó GRAPH   BASB Ü POLYGON BASB ã ASD     DATB ð XWING3D DATB
 þ ADJSTP3DDATB# BONSAT1    B# +PLOT1020BASB1 NZPLT1020BASB ˆBONSAI2    BA –BONSAI3    B ×BONSAI4    B ÝBONSAI5    B% ßDOS     SYSB* DUP     SYSB .MENU       B >STARTUP BASB SAUTORUN SYSB THELP    BASB XDOC     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 PLOTTER6($(PRESS A]v}NY KEY TO BEGIN...6Ad   AU     F:Ad   ,"AU   A@   >	”"“(4(#   AUTO SCALING SEQUENCE IN ACTION!>A]w}    V6-A@   '+ˆ&‡,'6-A@   '+&‚,96‘-@C    '+Š&‹,V6’-O:‹$‘,%O:‡$$,%O:‚$$,9+@$    A   AV   +]x}A	   …/“9
@    `bb104,201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,215,104,133,214,104,104,168,104,133›ji]y}i217,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›tff165,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›~XX16,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›’hh164,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›œ55230,]}}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:ž,,.*MT$Ð77 PLOTTER SCALING AND DUMP STRING BUILDING SEQUENCE›Ú--6ž7B:ž,%@    ,.=:P:@    $Œ'@    ,,ä]}6ž7B:ž,%@    ,.,î..6ž7B:ž,%@    ,.=:P:6@    $Ž'@    ,,ø6ž7B:ž,%@    ,.;$¸ PRINT THE DUMP$›Â.]€}@    .@    @          P:Ì(@    Ö(@    Ià&&(@    ž7@    <B:ž,&@    ,ê(@]}    M0,0ô–"@    A@    þ+(@    M0,-380*I*C0(@    +$  DRAW ISOMETRIC BOX›ªII(@    8C1*M2]‚}39,-287*D30,-176;239,-66,448,-176;239,-287;239,-221´GG(@    6M30,-176*D30,-110*M239,-66*D239,-2*M448,-176*D448,-110¾]ƒ}22(@    !D239,-221;30,-110;239,-2;448,-110È INITIAL INPUTS›Ò(@    M0,0*S0Ü(@    Pšæ##(@    ]„}M340,-5*PHIGH Z=Šð$$(@    M340,-15*PLOW  Z=‹ú(@    	M0,-176*Pˆ(@    M460,-176*Pˆ!!(@]…}    M50,-240*PY-AXIS""(@    M380,-240*PX-AXIS"(@    M180,-300*P‡,(@    M265,-300*P‡6$ ]†}€D:ZPLT1020.BAS]‡}.BAS\ 20001 GOTO 22000›20002 REM ****DATA LOGGING****›20010 CLOSE #1:OPEN #1,8,0,"P:"›20015 ? #1:? #1:? #1;"        ";FILE$›20020 ?a‰} #1,"NUMBER OF LEVELS",L›20030 ? #1;" INITIAL WIDTH",WID›20040 ? #1;"CONTRACTION RATIO",DIAM›20050 ? #1;"LEFT ANGLE ",H1›2006aŠ}0 ? #1;"INCREMENT LEFT",DL›20070 ? #1;"RIGHT ANGLE",H2›20080 ? #1;"INCREMENT RIGHT",DR›20090 ? #1;"LEFT SHORTENING RATIO",R1›a‹}20100 ? #1;"LEFT S. RATIO INCREMENT",RD1›20110 ? #1;"RIGHT SHORTENING RATIO",R2›20120 ? #1;"RIGHT  S. RATIO INCREMENT",RD2›20aŒ}130 ? #1;"DIVERGENCE",DIV›20140 ? #1;"NO. CONTROLLERS",MM›20170 ? #1;"STRENGTH","X","Y","Z"›20180 FOR M=1 TO MM:? #1;FACTOR(Ma}),QX(M),QY(M),QZ(M):NEXT M›20190 ? #1,"UNIFORM DEVIATIONS"," ",UDX,UDY,UDZ›20195 ? #1;CHR$(12)›20210 RETURN ›20999 REM ***DATaŽ}A READER ROUTINE ****›21000 READ L,WID,DIAM,H1,H2,DL,DR,R1,R2,RD1,RD2,DIV,UDX,UDY,UDZ,MM:IF MM=0 THEN RETURN ›21010 FOR J=1 Ta}O MM:READ FF,X,Y,Z:QX(J)=X:QY(J)=Y:QZ(J)=Z:FACTOR(J)=FF›21020 RETURN ›21999 REM ****MAIN PROG****›22000 DIM FACTOR(10),QX(10)a},QY(10),QZ(10):DRIVE$="D1:"›22005 FOR JK=0 TO 9›22010 FILE$="NO":FILE$(LEN(FILE$)+1)=STR$(JK):RESTORE 23000+JK:GOSUB 21000:GOa‘}SUB 20010:GOSUB GO:GOSUB WRITE›22020 NEXT JK›23000 DATA 7,6,.7,30,35,0,0,.7,.9,0,0,0,0,0,0,0›23001 DATA 7,6,.7,0,25,0,0,.7,.9a’},0,0,140,0,0,0,0›23002 DATA 7,6,.7,10,35,0,0,.7,.9,0,0,140,0,0,0,0›23003 DATA 7,6,.7,20,25,2,2,.7,.9,0,0,0,0,0,0,0›23004 DATAa“} 7,6,.7,60,65,0,0,.5,.9,0,0,0,0,0,0,0›23005 DATA 7,6,.7,30,35,0,0,.7,.9,0,0,0,0,0,-.1,0›23006 DATA 7,6,.7,0,25,0,0,.7,.9,0,0,a”}140,0,0,0,1,.07,1,1,1›23007 DATA 7,6,.7,30,35,0,0,.7,.9,0,0,  0,0,0,.10,0›23008 DATA 7,6,.7,10,35,0,0,.7,.9,0,0,0,0,.2,0,1,.0a•}5,0,1,1›23009 DATA 7,6,.7,0,25,0,0,.7,.9,0,0,0,0,0,0,1,-.07,1,1,1›0,.10,0›23008 DATA 7,6,.7,10,35,0,0,.7,.9,0,0,0,0,.2,0,1,.0` B5 REM *************************›10 REM *       PERSPEC         *›20 REM *  AUTOMATIC 3-D PLOT   *›30 REM *      PROGRAMME    e—}    *›40 REM *************************›70 REM ›80 GOTO 20000›440 REM ##########################›441 REM #         BEGIN      e˜}    #›442 REM ##########################›450 X(0)=VX:Y(0)=VY:Z(0)=VZ:D0=1›490 DX=VX-OX:DY=VY-OY:DZ=VZ-OZ›495 POKE 559,0›500 Ue™}1=SQR(DX*DX+DY*DY+DZ*DZ):IF U1=0 THEN U1=1E-06›510 CX=DX/U1:CY=DY/U1:CZ=DZ/U1›520 S3=SQR(1-CZ*CZ):S2=SQR(1-CY*CY)›530 QX=OX+Deš}0*CX:QY=OY+D0*CY:QZ=OZ+D0*CZ›540 XW=X(0):YW=Y(0):ZW=Z(0):GOSUB 610›541 FOR I=1 TO PS:XW=X(I)*SCL+XS:YW=Y(I)*SCL+YS:ZW=Z(I)*SCe›}L+ZS:GOSUB 610:NEXT I›549 I=0:IF VIS(I)<>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 X1<G(7) THEN L1=1:GOTO 1610›1600 IF X1>G(6) THEN R1=1›1610 IF Y1>G(5) THEN G(9)=1:GOTO 1630›1620 IF Y1<YTe¯} THEN T1=1›1630 IF X2<G(7) THEN L2=1:GOTO 1650›1640 IF X2>G(6) THEN G(10)=1›1650 IF Y2>G(5) THEN G(8)=1:GOTO 1670›1660 IF Y2<e°}YT THEN T2=1›1670 IF L1+L2=2 OR R1+G(10)=2 OR T1+T2=2 OR G(9)+G(8)=2 THEN RETURN ›1680 G(4)=X1:G(3)=Y1:G(2)=X2:G(1)=Y2:GOSUB e±}1730›1690 L1=L2:R1=G(10):T1=T2:G(9)=G(8)›1700 X1=XW:Y1=YW:G(4)=X2:G(3)=Y2:G(2)=X1:G(1)=Y1:GOSUB 1730›1710 IF X1<G(7) OR X1>G(e²}6) OR Y1<YT OR Y1>G(5) OR XW<G(7) OR XW>G(6) OR YW<YT OR YW>G(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›300h Y30000 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›002l zd
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â}©€… ‚ÐLLÇ ¥©© …­

© ‡` W	¬¹ƒ)„¹‹¹ŒLê½A…! ­¬
¹Éß°© …"½‚)ð-¼‡˜Ý† p°" qã}ä	  °±$þ‡­‘G©@……LÇL ¥ˆ½…08`© ©Q¥")ð<Ð2Q­0 â°-  ±G‘$È˜Ý†õ UL#
 ;
 p8¥(ý†…(°Æ)¥(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ßâ\LdÃÃŠòÃ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½ŠMLÇ ì[ T Š±E qEHÈ±E ‹qEªh¨Š¢ Ž 0 Š‘GÈ¹Ô‘GÈÀÐöqë} HLÇ¬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Œ
 ŒŽ r9ÀƒðL½ ¥£­)© 
©¥Eiª¥Fi (L¶ d±E™î© ‘EÈÀÐò`¬ d¹î‘EÈÀÐö`½‰H)qò}¨hŠð/¹×H½‰ ^ŠjˆÐùi
¨hE‘EÀd  Š±Ei‘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 dLÇ© ©  ŒÈ© 8 l­I€0î¬
ÌÐä`Œ©ÐÌ _©}† ;
¥$Í¥%í° pLl`¢ ¬¹qõ}ÝšÐÈèàÐò¦I(`DOS     SYSh…Ch…D ±C®
š¦IC¨­`­0í¦I ©Ðä „B®ß0¦äðüŒÔx

…D­Ó)ãDÓ`}Need DOS2.5,type Y ÒÅÔÕÒqö}Î›d÷@@  "€ÀŠd      €  ÿþýüû\Ì     Ì     ìDOS     SYSCOPY3TO2COM                                                  q÷}              pB€} ÷       B €}                                                                                        qø} B ˆBONSAI2    BA –BONSAI3    B ×BONSAI4    B ÝBONSAI5    C  ßDOS     SYS                                            qù}    ­
…C­C*É( ‹Ð> Ë¥C8jJ…3© j…2­…C­…D (	±C‘2ˆù0±2‘Cˆù© Þ ÀŒÔ  „BXÈ`   
N
©1?©ñ¢ l©¢LlD: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 s0hhL¸­Ð
©¢ ¦L© ª` ’©Ð÷˜H ’h¨Ðî¢­ DH­¡E¨hÈÐ¨ÈÐ­qý}¢ ­£¡©¢D©E©L­¢8í H­£í¡I­¡É4ê°­£Éê°­0©€ŸŸþHÐþI,Ÿ0­0Î 9©  .¢©Gâ©ã VäLOqþ},ž0 L÷ÉÉ4*IJ`lâlà D1:AUTORUN.SYS›NEED MEM.SAV TO LOAD THIS FILE.›D1:MEM.SAV› ’©J y08©B©|D©E©ŠH©Iqÿ} Vä0 ’0  `©B©;D©ELŒ`­?<0LVä `@ ¢ ŽžŽŸÊ† v s© …ð? F0Îž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}”ðî”LLu ÄèŽÅÆ¢©ÃD©E©H© ILVä 9©  .lú¿ 9©  .l ­œ…­…`­žÐ` s© …ð$©B Œ©B©ŠH©r}I©|D©E Vä©BLVä nä¢ ©B©,D©E©JLVä©¢B Vä¢ ©BLVä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!¢©BLé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©#ELJ- <.¢©B©J©²D©#EŽþ év}1¢  Ø1­H­H ã0hh® ½|ÉDðL¨% 1½}É:ð¨Ì³#Ð ’L¾%¢ Œ³#©²D©#ELÞ%¢  Ø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äŒø®ÿ¬þ¹HH¹IIHð é1­øÌÉˆðLñ1®þð©Bv} Vä®ÿð©B Vä®ÿÐ©I¢' ¦,#Lì#L!œ& Ê0 Õ0 ¿0 ¸&© ¢B é1L!RENAME - GIVE OLD NAME, NEW› ­}É:ð)¨ŒöLS)'©ýÐ'©þv}' 70 ¹2i0H'K' ¿0©0¢' °1 y0ÉYÐ­' ! 'L!þ¢B©JD©'E˜JLé1WHICH DRIVE TO FORMAT?›TYPE "Y" TO FORMAT DISK 1›D1:›«'¬ý¿v}©ªý¿Íý¿Ð©Uý¿Íý¿ÐŒý¿©Ÿ¢' °1L!­ü¿Ðñª­ý¿ðëÍý¿ÐæèÐó v©¢ä _ \ä©¢ä b \äLNO CARTRIDGE›È' 70 2 ¿0…†­ÉðP vL RUN FROMv} WHAT ADDRESS?›TYPE "Y" TO CREATE MEM.SAV›ß' y0ÉYÐ s0©¢( °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 5Lð1L! ¹D,…¹I,…¢ ¡H¹ùh™ùˆv}å­­` 
þNOT ENOUGH ROOM›INSERT SOURCE DISK,TYPE RETURN›INSERT DESTINATION DISK,TYPE RETURN›þÎÐî®½ôv }þ©­þ`î
Ðî`­ö­ÿ8 rLð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¹HH¹II é1©B é1­
Ð¢,©^ °1 70,õ0La-¢©B Vä,#Pv#}¢,©^ °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­ÄEL“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©ÎDLž1œ©|mD©i E` Vä˜0`˜8éd¢/è8é
úi:2Ž2¢2© °1 ’Lv+}!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/}  
 €;@    ,;Ah   , wB    +      )AR   @    C0@    @    @    ]0@    @    @    w0z0}@          @    ( P
(}0(! Ç®Á®Ç® ÄÉÓË £±±¸ ±°²° ÐÌÏÔÔÅÒ   3(=6€.D1:P6€7@    ,.*.*2 |67@    <@    z1},. -67Ah   ,. <67@    ,.G@    d@    @          €p6‚-@    |6ƒ-@    < „-@    @d    z2}F I@    €$…-@    @    <€7…<…%@    ,4 SYS?'I
@p    P - €7@    <@    ,4FREE #'-
A    Z 	…z3}d &€7@    <@    ,0 &
A    n 2	6†-‚…-@    @    2€7…<…,4 A0   x %67†<†,.€7…<…,!6†-†%@    %	…z4}‚ … @    'Œ $$€7@    <@    ,4 A`   – T67†<†,..6†-†%@    2…-@    @    B67†<†,.€7…<…,P6†-†z5}%@    T	…  ƒ"@    (6ƒ-@    ª „ @    ( ´ . („ 7‚<‚%@    ,  .6ƒ-ƒ%@    ¾ \6‚-‚%@  z6}  „"@2    \(:    There are more files - press ÒÅÔÕÒÎ   to continue....È **„"@2    *F:Ad   ,@    A    Ò z7}Ad   AU   	„Ü 2(	(2(€7@    <@    ,SECTORS AVAILABLEæ e(1(&Óåìåãô ÈÅÌÐ®ÂÁÓ æïò æéìå äåóãòéðôéïîó®4(W(z8}Enter number of file to load:aA0   e‡ð %‡ @    )‡!„&@    %
A0   õ @     +      ú y6€.D1:96€7@z9}    ,.7‡$@    &@    <‡$@    ,D@    a@    @          €n)@    ‡y@    û #B    ‡"AU  z:} #
A`   ÿ ‡"      
Ae   ‡      
Ap   Z	(}-@    @    +(	BINLOAD  €H@    @    z;}      €W6ˆ-?:AUv   ,Z	m	(}-@    @    +(	LOADING  €=AR         A%€m ÃÈÁÎÇÅ ÒÕÎ ÔÏ ÌÏÁÄ ÔÏ ÁÕÔÏÒÕÎ Âz<}ÁÓÉÃ ÐÇÍÓ ›]	(}-@    @    ;(FILE IS DATA OR LIST FORMATO‰-@    A    S	‰]
@      €D2:MENUD1:*.*z=}€MENU€                                                                                 S	‰]
@      €D2:MENUD1:*.*x Z  56Æ¦
¼
D¤CU¤CD¤CLN¤Q75²Q°Q±QÓQÔÇÉØFÃDÌÒÃRÏCÏ           #     C & &  AR           @     @     @     ~?}	@     
A    B    @     Bgp   @W     A    @%     A   
 c+@#    ;€;@    ,;@2    ,‚;@2    ,ƒ;@8 ~@}   ,C6ƒ. T6ƒ7@8    ,. c6ƒ7@    ,.ƒ ?6„-AR   6…-      '6†-@    36‡-@    ?6ˆ-@    2 A     < ~A}A     2000›F ‰-@    @    P Š-@    A    	ŠZ 0      @    @    d #n ##67@    <@    ,.~B}>:@"    ,x 6‹-?:C:,<‡,‚ ##67@    <@    ,.>:@&    ,Œ 6‹-?:C:,<‡,– 0      @    @      ##6‚7@    <~C}@    ,.>:@&    ,ª 6‹-?:C:‚,<‡,´ 0      @    @    ¾ %D:MENUÈ +@    Ò k0                  70@~D}          @    Q0@                k0@                Ü @    6Œ-@    æ #A   ð %%6-F:A`~E}   ,%F:Aa   ,$AV   ú [+%@…    ,@p    /+%@ˆ    ,@    E+%@‰    ,@    [+%@    ,@    J@‚  ~F}        0(GENESEE ATARI GROUP J(1020 PLOTTER PROGRAMS "€@:€, @d     
A@   +€4P"ŽAP   !,~G}Ž+
Ap   "€4O"‘
Ap   ,€4END$6€0F
Ap   @%	"ŽAP   -Ž%Ae   ŒJ;+@  ~H}  @                S:1,Ž;
Ap   T*6Ž-A:€,"AP    /Ž*
Ap   ^6Ž-Ž%6-%‘$õ		 "G"›ö~I}O,25,30›÷VV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›ø++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› VV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›++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}0bbP,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›DVV~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›GP,0,5,F,5,0,F,27,0,F,32,5›N ›¼		END›Ð#A `   Ú~P}Š-@    @2    ä"67Š,.>:,î	Šø)	6‚.)6‚7@    <@    ,.>:A)   ,$kk104,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.BASENDhhhH¢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.BASENDhhhH¢9 | ÿÿ O­Ð)ð
©!©"`ûó3ö!£ö3ö<öLäó î!¬!ÀÐ
© !©ä"¹; `RUN "D:STARTUP.BAS"›âã àáD2:STARTUP.BASENDhhhH¢9 € b   i{LINE¤A¤    ' x x    
 €;A    ,;@    , ;	(}@    ;@    @          	D:DOC.TXT†U} A    ( @    €2 lB:€,!@    -€7@    <@    ,4XXX0(3(E-@    @"    X(ÐÒÅÓÓ ÒÅÔÕÒÎ \b(}†V}l
@@    < (€
@@    d a@    B    *-@    @"    R("ÒÅÔÕÒÎ ÆÏÒ ÍÅÎÕ ÏÒ ÂÒÅÁË ÆÏÒ ÂÁÓÉÃVa%D:MENU†W} €
D:HELP.BAS
@@    d a@    B    *-@    @"    R("ÒÅÔÕÒÎ ÆÏÒ ÍÅÎÕ ÏÒ ÂÒÅÁË ÆÏÒ ÂÁÓÉÃVa%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ˆ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 