TO BOX PC 1 FD 50 RT 90 PC 4 FD 30 RT 90 PC 2 FD 50 RT 90 PC 6 FD 30 END TO FOUR REPEAT 4 (BOX) END TO DIAMOND FD 50 LT 45 FD 50 LT 135 FD 50 LT 45 FD 50 END TO DIAMOND2 PC 2 REPEAT 28 (DIAMOND RT 40) END TO MANY :N REPEAT 2*:N/3 (FOUR RT 90/:N) END TO DOUBLE HT SX 60 MANY 90 SX 180 SH 0 MANY 90 END TO MIXIT COLORSET 1 BG 0 HATCH 1 SWEEP 1 3 60 30 0 HATCH 2 SWEEP 2 3 60 160 90 HATCH 3 SWEEP 3 3 190 160 180 HATCH 4 SWEEP 2 3 190 30 270 VANISH END TO SWEEP :COL :INT :X :Y :H REPEAT 12 (HT PC :COL SX :X SY :Y SH :H REPEAT 92/:INT (PD FD 100 PU BK 100 RT :INT ) MAKE :COL :COL+1) END TO SPACETRAVEL COLORSET 1 BG 0 HT MAKE :X 4 WHILE 1 (HATCH 1 STAR1 RT 67 HATCH 1 STAR2 RT 207 HATCH 1 STAR1 RT 114 HATCH 1 STAR2 RT 87 SETX XLOC ME + :X IF NEAR 255>30 (MAKE :X :X*-1 HATCH 1 PLANET) ) VANISH END TO STAR1 HT SHAPE FFRRFRRF PU FD 2 ST REPEAT 25 (FD 3) END TO STAR2 HT SHAPE F PU FD 2 ST REPEAT 35 (FD 3) END TO PLANET HT IF XLOC ME>128 (SETH 75) ELSE (SETH 300) FD 10 SHAPE FFRFFRFFRFFRFFRFFRFFRFF PU FD 6 ST REPEAT 20 (FD 4) END TO SPIDER :X COLORSET 1 BG 4 REPEAT 100 (HATCH 1 OFFSET :X :C MAKE :C :C+4 RT 10) VANISH END TO OFFSET : LENGHT :COLOR PC :COLOR FD :LENGHT LT 30 FD :LENGHT RT 30 FD :LENGHT END LAST ONE DOES NOT WORK (SPIDER) TO BOND WHILE 1 (COLORSET 1 CLEAR HT DELAY 1000 TUNNEL WALK PAINT) END TO WALK SX 28 MAN2 ST DELAY 2000 REPEAT 29 (MAN2 DELAY 100 HT SX XLOC ME + 3 MAN1 ST DELAY 100 ) MAN2 DELAY 800 SX XLOC ME - 8 DELAY 500 SX XLOC ME + 16 DELAY 500 SX XLOC ME - 16 DELAY 500 SX XLOC ME + 8 REPEAT 3 ( HT DELAY 20 ST DELAY 30) END TO TUNNEL PC 1 HT SX 60 SH 0 REPEAT 18 (FD 20 RT 124 FD 56 BK 56 LT 104) END TO MAN1 SHAPE RRUFFFLLDFLFRFFLFFRRRF- LLFFRRFLFLLLFFRRFLFRRFLFFLFLFL- FLFFLFRFFFFLLFRRRFLFFRFLFFRRFF END TO MAN2 SHAPE RRUFFFLLDFFFFLFFRRRFLL- FFRRFLFLLLFFRRFLFRRFLFFLFLFLFL- FFLFRFFFFLLFRRRFLFFFFFF END TO PAINT PC 2 HT MAKE :X 1 REPEAT 3 (COLORSET 0 DELAY 100 COLORSET 1 DELAY 100) SX 114 SY 102 SH 0 REPEAT 13 (RAGGED :X SX XLOC ME - 6 SY YLOC ME - 2 MAKE :X :X+ 5 ) END TO RAGGED :X REPEAT 8 (FD :X RT 135 FD 8 BK 8 LT 90) END TO DELAY : TIME REPEAT : TIME () END HH{*`@DDDDDDHHDHHLHRHXHHXHRHXHHHHHHI TO BOX PC 1 FD 50 RT 90 PC 4 FD 30 RT 90 PC 2 FD 50 RT 90 PC 6 FD 30 END TO FOUR REPEAT 4 (BOX) END TO DIAMOND FD 50 LT 45 FD 50 LT 135 FD 50 LT 45 FD 50 END TO DIAMOND2 PC 2 REPEAT 28 (DIAMOND RT 40) END TO MANY :N REPEAT 2*:N/3 (FOUR RT 90/:N) END TO DOUBLE HT SX 60 MANY 90 SX 180 SH 0 MANY 90 END @g@*rs`@"@(@(@@@X@(@(@@{@q???@@@@??@@@@@ @?_?c?c@@@?t?c?c@@?s@?p@???@@@?V??@A TO BOX PC 1 FD 50 RT 90 PC 4 FD 30 RT 90 PC 2 FD 50 RT 90 PC 6 FD 30 END TO FOUR REPEAT 4 (BOX) END TO DIAMOND FD 50 LT 45 FD 50 LT 135 FD 50 LT 45 FD 50 END TO DIAMOND2 PC 2 REPEAT 28 (DIAMOND RT 40) END TO MANY :N REPEAT 2*:N/3 (FOUR RT 90/:N) END TO DOUBLE HT SX 60 MANY 90 SX 180 SH 0 MANY 90 END TO MIXIT COLORSET 1 BG 0 HATCH 1 SWEEP 1 3 60 30 0 HATCH 2 SWEEP 2 3 60 160 90 HATCH 3 SWEEP 3 3 190 160 180 HATCH 4 SWEEP 2 3 190 30 270 VANISH END TO SWEEP :COL :INT :X :Y :H REPEAT 12 (HT PC :COL SX :X SY :Y SH :H REPEAT 92/:INT (PD FD 100 PU BK 100 RT :INT ) MAKE :COL :COL+1) END A_*A{`A@`@e@eAAA{eA_AA{A_AAAAAAAAAAA<AAAAZ<BATO FOO :SIZE :LEVEL :PARITY HT IF :LEVEL = 0 (STOP) LT :PARITY * 90 FOO :SIZE (:LEVEL-1) (:PARITY*-1) FD :SIZE RT :PARITY * 90 FOO :SIZE (:LEVEL-1) :PARITY FD :SIZE FOO :SIZE (:LEVEL-1) :PARITY RT :PARITY * 90 FD :SIZE FOO :SIZE (:LEVEL-1) (:PARITY*-1) LT :PARITY * 90 END TO TEST FOO 6 6 1 END @`@?????q??@o @e?q??@ @y?q??@ @?q??@ @?q??@ @?q??@ @?q??@ @?q??@ $DD&   "? ?#('%'$r 5  & )   w$' m LOGO: C'Z#SP'Q'R'L';S'\'rE'? 5GJ+TT 4C59 56$O =15DDD19- ,+O++- *)O)) ƀ/ 1/133-&)*4.&+,M&9/)/1+14&Ж/3' Ȇ 7 NA9;=?ED N&7  0'$ 0쯤0 oo!_*O*9 N&a3;''A'&9'A'"~'yڟ'Ӂ'؁@&   Nt&.'ڍ 7 0' & 'JZ9 ' %7 ' & o-70ŸH! TO큆 n=i) +C'[&)' +~ Jv0 '_& +' +/ ʧ(FLFH$& END 큟 H$!`'K0%ҁ9"΋0J  & ֟FJF$ &0J (~&AJ9AnL# ' F $% V̀`&o$o%(-L E_.(,&)' .&) n $\ ' '909)')&Z&_9\1 )94 '`%59459,)/FD2RT1ILT1BK2pHT1STOP,ST1PU1PD1PENCOLOR1CLEAR1HOME1SETX1SETY1 SETHEADING1COLORSET1 BACKGROUND2(SHAPE20VANISH,END,IF0ELSE0REPEAT/WHILE.MAKE.HATCH.fPRINT0TO,SEND.WRAP2hNOWRAP2lFORWARD2BACK2pRIGHT1ILEFT1 HIDETURTLE1 SHOWTURTLE1PENUP1PENDOWN1PC1SH1SETH1SX1SY1BG2(SLOW1?a1b1c1d1e3Mf3Hg3`h3di3V`3R COLOR LOGO COPYRIGHT 1982 LARRY KHERIATY & GEORGE GERHOLD LICENSE TO TANDY CORP ALL RIGHTS RESERVED 47'759*7~$R'7 'Ӂ'  9 MY MEMORY IS TOO FULL 499o"o#o$o%(̀`&o$o%*(959DRRFFLLFFFFFFFLFLFFLFLFFFFFFFLLFX(&94$+-+0 +%+-+&$)5+Ѧ,-& R&-1"+%+- ށL&-1>+$+ D&+ +&), U& + -F&m'+G ^m!'+- B&mm'+J +m!'+ )  $)) $% ,_F$)$%#),9,_I$) $ ),959@ )=''+") # )' '+ ত "0+9?  $d &TO&1!1! '-) # )' '- ˦ "0 '1?/)==-"/$ &0&)9,*) #7 **Am&& [ I DONT KNOW HOW TO 779AߞAA9' '˦$#( ~%A'$#(&' '+ٟ)!*4 oo!$&"!*! oJ&)4 5 & &5 94 &5@)9':'9.&A$'Y$"& L(1&3$5/3$1:&11 5+ /0O&'1? ئA'1~4/0/;':/1$ 0& '1 ত '11" ā0% Z" A$9"_9*;;1o"o#/$&0 -Am& oo!~%B 3s-44 5@*O91$&9*5 5Am$'$"~%/"-n&4 3s5@5 ٽ3s3s*4?' 55@$5@"AH& 443s'(&25@'!0*)A5$) T Am$' 9/^*~,ڟ/A*~%I CANT DO THAT IN THIS MODE "(" OR ")" NOT RIGHT)&'(& )0 % )& )&09)A$& $,~%'=&ҞA,)~/ /"3s'(&*($4 5@5 &AA&+ &("~%(4줞A,50~//"3s'T&H& EN&0'(&5@'0*)A$)~./t'EL&SE&0 /"'/t~.Ğ40 A$1*Ľ'"&' ' "'7 A$"501*~%03s3#ݽ5@)M* -7O_))/'d *07 .+)+% .+ ).& /'0/791E #$$'*h h-h $Q*~.I*3s5@A&9)$)  & ҍ' ̍*( č+( ( A&(9@ F)  $%9 ҽ*̀`&o$o%(i3s5@'" 3s5@)XX))XXXX)9 ˽/"1*'1-& R'L'U'D'F'B'޽* D D 1$h% h 1$3s47H5@)=)=)=)=3A&& &$ 3 $ 3 & $@ 3 $@ 3% 3 4&*5&&(@' 3&)C&%1*5~. D'3*~/-OUT OF BOUNDS1*-A&96  9  O1$~27&r240&V4 &(5 9&T4&;4 *& 5 p#9)3~,}I CANT FIGURE OUT ܍&4Խ'&p4 &5 'c9&4ݽ'&R4 &5 鍡4''4M4 Q'/&'*)'&d'"m'(&07&s`)'~/*5 9O9\0&)*&&0,+)' ))))))+) ) Ɂ0%9"_950&n4&4 _'~3!5&5=5<>5<=5>=5<5>5+5-5*5/5-5oNOT5zRANDOM7 ABS6PADDLE72XLOC6XYLOC6^HEADING6dMAIL6NEAR6KEY68ME6/3#90 I DONT KNOW HOW MUCH_ O)O_) ' '/' &/& Í"' & . - , / r/9k/ d/ 9/' /%1!  !-0!"#LOGO BIN =)-0=))./=_) +'Z!+), +O_))/, +O_//)9a%z" '''90O~4& ' $ 5@A(' 9'(&&969`A( &*),+A&&O) )'O+) M*-O_-95@ 5@A()4?'%)'' '&,$5 5~5fHHHHH    Z&)/)$)N4P 5P5@Z~6T4Zh%h 59o%lZ%)8I)O!97  "'+/48< 0 ||0 08,&AAAAAAAIAA>>bd`` #*>>2000  '"? ' !'}'h@&@' 0%9"0 'I_&  Ɂ'^'G '#'s 'g]'[' ' %B &['8 &/0& $} &  큌#%"!bV & 9 & '0  4 ' ' \ O594 $1! )!)&L59'ņ  40 ' &  509 '! %1? &1 % ' ?' &1!9'0?"4 $!4?' &Z&0 g55  Z'< o"&4? $+@& &0 45 ' & 9&o筎?)؞)~ )/M&}0 } }0|) }|n?~&&|'&~ ~ % 4 3 0? DD&AHoo?9L/l9:CA%YT'P"Q40 &H59CAVE΁T'  m&1 %揆6U׆OADT'' Hm&]_' Z&%1? O9>OPL453H>|OPL45A3J>OPR453M>OPR45A3O?|OPL53R?OPR53V>OP53Z>OPFD13`>OPFD103d>OPFDS3f>EXP3s>EXPL03y?bEXPL3|?-EXPL13?GLTERM3?LTRML3?TSTSTK3?EERR3?:EEMSG3?TRTERM3?RTRML3?BYES13?oBRETNO3?RETNO3@ATERM3?ATRML3@YFACT4 @FACT14AFACNO4J?RETYES4M@LNOOP4M?DOOP4N@NUMB4O?NUMBA4Z@$NUMBC4x@rN$?TSTSTK3?EERR3?:EEMSG3?TRTERM3?RTRML3?BYES13?oBRETNO3?RETNO3@ATERM3?ATRML3@YFACT4 @FACT14AFACNO4J?RETYES4M@LNOOP4M?DOOP4N@NUMB4O?NUMBA4Z@$NUMBC4x