L
FILE INFORMATION
FILENAME(S): L
FILE TYPE(S): SEQ
FILE SIZE: 7.5K
FIRST SEEN: 2025-11-30 01:08:22
APPEARS ON: 1 disk(s)
FILE HASH
2fbe4ab4f64739a6a84f493d587b92f930c231cb35ea84c54f8177a203c266c7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD DISK 15 | L | SEQ | Treasure Chest - Wolfgang Rauprich | 32 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 30 30 31 30 20 2F 2F 53 41 56 45 22 30 3A 4C 4F |0010 //SAVE"0:LO| 00000010: 47 4F 22 0D 30 30 32 30 20 2F 2F 0D 30 30 33 30 |GO".0020 //.0030| 00000020: 20 44 49 4D 20 52 45 50 4C 59 24 20 4F 46 20 31 | DIM REPLY$ OF 1| 00000030: 0D 30 30 34 30 20 52 45 50 45 41 54 20 0D 30 30 |.0040 REPEAT .00| 00000040: 35 30 20 44 45 4D 4F 0D 30 30 36 30 20 55 4E 54 |50 DEMO.0060 UNT| 00000050: 49 4C 20 52 45 50 4C 59 24 20 49 4E 20 22 43 C3 |IL REPLY$ IN "C.| 00000060: 22 0D 30 30 37 30 20 2F 2F 0D 30 30 38 30 20 45 |".0070 //.0080 E| 00000070: 4E 44 20 0D 30 30 39 30 20 2F 2F 0D 30 31 30 30 |ND .0090 //.0100| 00000080: 20 2F 2F 20 20 20 20 20 20 4C 4F 47 4F 20 45 58 | // LOGO EX| 00000090: 41 4D 50 4C 45 53 0D 30 31 31 30 20 2F 2F 0D 30 |AMPLES.0110 //.0| 000000A0: 31 32 30 20 50 52 4F 43 20 42 41 53 45 20 0D 30 |120 PROC BASE .0| 000000B0: 31 33 30 20 50 45 4E 55 50 20 0D 30 31 34 30 20 |130 PENUP .0140 | 000000C0: 53 45 54 58 59 20 31 36 30 2C 30 0D 30 31 35 30 |SETXY 160,0.0150| 000000D0: 20 53 45 54 48 45 41 44 49 4E 47 20 30 0D 30 31 | SETHEADING 0.01| 000000E0: 36 30 20 50 45 4E 44 4F 57 4E 20 0D 30 31 37 30 |60 PENDOWN .0170| 000000F0: 20 45 4E 44 50 52 4F 43 20 42 41 53 45 0D 30 31 | ENDPROC BASE.01| 00000100: 38 30 20 2F 2F 0D 30 31 39 30 20 50 52 4F 43 20 |80 //.0190 PROC | 00000110: 54 52 45 45 28 4C 45 4E 47 54 48 29 20 0D 30 32 |TREE(LENGTH) .02| 00000120: 30 30 20 49 46 20 4C 45 4E 47 54 48 3C 32 20 54 |00 IF LENGTH<2 T| 00000130: 48 45 4E 20 52 45 54 55 52 4E 0D 30 32 31 30 20 |HEN RETURN.0210 | 00000140: 4C 45 46 54 20 34 35 0D 30 32 32 30 20 46 4F 52 |LEFT 45.0220 FOR| 00000150: 57 41 52 44 20 4C 45 4E 47 54 48 0D 30 32 33 30 |WARD LENGTH.0230| 00000160: 20 54 52 45 45 28 4C 45 4E 47 54 48 2F 32 29 0D | TREE(LENGTH/2).| 00000170: 30 32 34 30 20 42 41 43 4B 20 4C 45 4E 47 54 48 |0240 BACK LENGTH| 00000180: 0D 30 32 35 30 20 52 49 47 48 54 20 39 30 0D 30 |.0250 RIGHT 90.0| 00000190: 32 36 30 20 46 4F 52 57 41 52 44 20 4C 45 4E 47 |260 FORWARD LENG| 000001A0: 54 48 0D 30 32 37 30 20 54 52 45 45 28 4C 45 4E |TH.0270 TREE(LEN| 000001B0: 47 54 48 2F 32 29 0D 30 32 38 30 20 42 41 43 4B |GTH/2).0280 BACK| 000001C0: 20 4C 45 4E 47 54 48 0D 30 32 39 30 20 4C 45 46 | LENGTH.0290 LEF| 000001D0: 54 20 34 35 0D 30 33 30 30 20 45 4E 44 50 52 4F |T 45.0300 ENDPRO| 000001E0: 43 20 54 52 45 45 0D 30 33 31 30 20 2F 2F 0D 30 |C TREE.0310 //.0| 000001F0: 33 32 30 20 50 52 4F 43 20 4C 53 51 55 41 52 45 |320 PROC LSQUARE| 00000200: 28 53 49 5A 45 27 29 20 0D 30 33 33 30 20 46 4F |(SIZE') .0330 FO| 00000210: 52 20 49 3A 3D 31 20 54 4F 20 34 20 44 4F 0D 30 |R I:=1 TO 4 DO.0| 00000220: 33 34 30 20 46 4F 52 57 41 52 44 20 53 49 5A 45 |340 FORWARD SIZE| 00000230: 27 0D 30 33 35 30 20 4C 45 46 54 20 39 30 0D 30 |'.0350 LEFT 90.0| 00000240: 33 36 30 20 45 4E 44 46 4F 52 20 49 0D 30 33 37 |360 ENDFOR I.037| 00000250: 30 20 45 4E 44 50 52 4F 43 20 4C 53 51 55 41 52 |0 ENDPROC LSQUAR| 00000260: 45 0D 30 33 38 30 20 2F 2F 0D 30 33 39 30 20 50 |E.0380 //.0390 P| 00000270: 52 4F 43 20 52 53 51 55 41 52 45 28 53 49 5A 45 |ROC RSQUARE(SIZE| 00000280: 27 29 20 0D 30 34 30 30 20 46 4F 52 20 49 3A 3D |') .0400 FOR I:=| 00000290: 31 20 54 4F 20 34 20 44 4F 0D 30 34 31 30 20 46 |1 TO 4 DO.0410 F| 000002A0: 4F 52 57 41 52 44 20 53 49 5A 45 27 0D 30 34 32 |ORWARD SIZE'.042| 000002B0: 30 20 52 49 47 48 54 20 39 30 0D 30 34 33 30 20 |0 RIGHT 90.0430 | 000002C0: 45 4E 44 46 4F 52 20 49 0D 30 34 34 30 20 45 4E |ENDFOR I.0440 EN| 000002D0: 44 50 52 4F 43 20 52 53 51 55 41 52 45 0D 30 34 |DPROC RSQUARE.04| 000002E0: 35 30 20 2F 2F 0D 30 34 36 30 20 50 52 4F 43 20 |50 //.0460 PROC | 000002F0: 4D 4F 56 45 28 53 49 5A 45 27 29 20 0D 30 34 37 |MOVE(SIZE') .047| 00000300: 30 20 46 4F 52 57 41 52 44 20 53 49 5A 45 27 0D |0 FORWARD SIZE'.| 00000310: 30 34 38 30 20 52 49 47 48 54 20 39 30 0D 30 34 |0480 RIGHT 90.04| 00000320: 39 30 20 46 4F 52 57 41 52 44 20 53 49 5A 45 27 |90 FORWARD SIZE'| 00000330: 0D 30 35 30 30 20 4C 45 46 54 20 39 30 0D 30 35 |.0500 LEFT 90.05| 00000340: 31 30 20 45 4E 44 50 52 4F 43 20 4D 4F 56 45 0D |10 ENDPROC MOVE.| 00000350: 30 35 32 30 20 2F 2F 0D 30 35 33 30 20 50 52 4F |0520 //.0530 PRO| 00000360: 43 20 53 54 41 49 52 53 28 53 49 5A 45 27 29 20 |C STAIRS(SIZE') | 00000370: 0D 30 35 34 30 20 52 53 51 55 41 52 45 28 53 49 |.0540 RSQUARE(SI| 00000380: 5A 45 27 29 0D 30 35 35 30 20 4D 4F 56 45 28 53 |ZE').0550 MOVE(S| 00000390: 49 5A 45 27 29 0D 30 35 36 30 20 49 46 20 4B 45 |IZE').0560 IF KE| 000003A0: 59 24 3D 43 48 52 24 28 30 29 20 54 48 45 4E 20 |Y$=CHR$(0) THEN | 000003B0: 53 54 41 49 52 53 28 53 49 5A 45 27 29 0D 30 35 |STAIRS(SIZE').05| 000003C0: 37 30 20 45 4E 44 50 52 4F 43 20 53 54 41 49 52 |70 ENDPROC STAIR| 000003D0: 53 0D 30 35 38 30 20 2F 2F 0D 30 35 39 30 20 50 |S.0580 //.0590 P| 000003E0: 52 4F 43 20 42 4F 58 45 53 20 0D 30 36 30 30 20 |ROC BOXES .0600 | 000003F0: 52 53 51 55 41 52 45 28 33 30 29 0D 30 36 31 30 |RSQUARE(30).0610| 00000400: 20 4D 4F 56 45 28 33 30 29 0D 30 36 32 30 20 52 | MOVE(30).0620 R| 00000410: 53 51 55 41 52 45 28 32 30 29 0D 30 36 33 30 20 |SQUARE(20).0630 | 00000420: 4D 4F 56 45 28 32 30 29 0D 30 36 34 30 20 52 53 |MOVE(20).0640 RS| 00000430: 51 55 41 52 45 28 31 30 29 0D 30 36 35 30 20 4D |QUARE(10).0650 M| 00000440: 4F 56 45 28 31 30 29 0D 30 36 36 30 20 52 53 51 |OVE(10).0660 RSQ| 00000450: 55 41 52 45 28 35 29 0D 30 36 37 30 20 52 49 47 |UARE(5).0670 RIG| 00000460: 48 54 20 31 38 30 0D 30 36 38 30 20 50 45 4E 55 |HT 180.0680 PENU| 00000470: 50 20 0D 30 36 39 30 20 4D 4F 56 45 28 36 30 29 |P .0690 MOVE(60)| 00000480: 0D 30 37 30 30 20 52 49 47 48 54 20 31 38 30 0D |.0700 RIGHT 180.| 00000490: 30 37 31 30 20 50 45 4E 44 4F 57 4E 20 0D 30 37 |0710 PENDOWN .07| 000004A0: 32 30 20 45 4E 44 50 52 4F 43 20 42 4F 58 45 53 |20 ENDPROC BOXES| 000004B0: 0D 30 37 33 30 20 2F 2F 0D 30 37 34 30 20 50 52 |.0730 //.0740 PR| 000004C0: 4F 43 20 4D 41 4E 59 42 4F 58 45 53 20 0D 30 37 |OC MANYBOXES .07| 000004D0: 35 30 20 42 4F 58 45 53 0D 30 37 36 30 20 46 4F |50 BOXES.0760 FO| 000004E0: 52 57 41 52 44 20 33 30 0D 30 37 37 30 20 52 49 |RWARD 30.0770 RI| 000004F0: 47 48 54 20 39 30 0D 30 37 38 30 20 49 46 20 4B |GHT 90.0780 IF K| 00000500: 45 59 24 3D 43 48 52 24 28 30 29 20 54 48 45 4E |EY$=CHR$(0) THEN| 00000510: 20 4D 41 4E 59 42 4F 58 45 53 0D 30 37 39 30 20 | MANYBOXES.0790 | 00000520: 45 4E 44 50 52 4F 43 20 4D 41 4E 59 42 4F 58 45 |ENDPROC MANYBOXE| 00000530: 53 0D 30 38 30 30 20 2F 2F 0D 30 38 31 30 20 50 |S.0800 //.0810 P| 00000540: 52 4F 43 20 53 50 49 4E 53 51 55 41 52 45 53 28 |ROC SPINSQUARES(| 00000550: 53 49 5A 45 27 29 20 0D 30 38 32 30 20 52 53 51 |SIZE') .0820 RSQ| 00000560: 55 41 52 45 28 53 49 5A 45 27 29 0D 30 38 33 30 |UARE(SIZE').0830| 00000570: 20 52 49 47 48 54 20 32 30 0D 30 38 34 30 20 49 | RIGHT 20.0840 I| 00000580: 46 20 4B 45 59 24 3D 43 48 52 24 28 30 29 20 54 |F KEY$=CHR$(0) T| 00000590: 48 45 4E 20 53 50 49 4E 53 51 55 41 52 45 53 28 |HEN SPINSQUARES(| 000005A0: 53 49 5A 45 27 29 0D 30 38 35 30 20 45 4E 44 50 |SIZE').0850 ENDP| 000005B0: 52 4F 43 20 53 50 49 4E 53 51 55 41 52 45 53 0D |ROC SPINSQUARES.| 000005C0: 30 38 36 30 20 2F 2F 0D 30 38 37 30 20 50 52 4F |0860 //.0870 PRO| 000005D0: 43 20 47 52 4F 57 53 51 55 41 52 45 53 28 53 49 |C GROWSQUARES(SI| 000005E0: 5A 45 27 29 20 0D 30 38 38 30 20 52 53 51 55 41 |ZE') .0880 RSQUA| 000005F0: 52 45 28 53 49 5A 45 27 29 0D 30 38 39 30 20 52 |RE(SIZE').0890 R| 00000600: 49 47 48 54 20 32 30 0D 30 39 30 30 20 49 46 20 |IGHT 20.0900 IF | 00000610: 4B 45 59 24 3D 43 48 52 24 28 30 29 20 54 48 45 |KEY$=CHR$(0) THE| 00000620: 4E 20 47 52 4F 57 53 51 55 41 52 45 53 28 53 49 |N GROWSQUARES(SI| 00000630: 5A 45 27 2B 35 29 0D 30 39 31 30 20 45 4E 44 50 |ZE'+5).0910 ENDP| 00000640: 52 4F 43 20 47 52 4F 57 53 51 55 41 52 45 53 0D |ROC GROWSQUARES.| 00000650: 30 39 32 30 20 2F 2F 0D 30 39 33 30 20 50 52 4F |0920 //.0930 PRO| 00000660: 43 20 4D 49 44 20 0D 30 39 34 30 20 50 45 4E 55 |C MID .0940 PENU| 00000670: 50 20 0D 30 39 35 30 20 53 45 54 58 59 20 31 36 |P .0950 SETXY 16| 00000680: 30 2C 31 30 30 0D 30 39 36 30 20 53 45 54 48 45 |0,100.0960 SETHE| 00000690: 41 44 49 4E 47 20 30 0D 30 39 37 30 20 50 45 4E |ADING 0.0970 PEN| 000006A0: 44 4F 57 4E 20 0D 30 39 38 30 20 45 4E 44 50 52 |DOWN .0980 ENDPR| 000006B0: 4F 43 20 4D 49 44 0D 30 39 39 30 20 2F 2F 0D 31 |OC MID.0990 //.1| 000006C0: 30 30 30 20 50 52 4F 43 20 52 45 43 54 41 4E 47 |000 PROC RECTANG| 000006D0: 4C 45 28 4C 45 4E 47 54 48 2C 57 49 44 54 48 29 |LE(LENGTH,WIDTH)| 000006E0: 20 0D 31 30 31 30 20 46 4F 52 20 4A 3A 3D 31 20 | .1010 FOR J:=1 | 000006F0: 54 4F 20 32 20 44 4F 0D 31 30 32 30 20 46 4F 52 |TO 2 DO.1020 FOR| 00000700: 57 41 52 44 20 4C 45 4E 47 54 48 0D 31 30 33 30 |WARD LENGTH.1030| 00000710: 20 52 49 47 48 54 20 39 30 0D 31 30 34 30 20 46 | RIGHT 90.1040 F| 00000720: 4F 52 57 41 52 44 20 57 49 44 54 48 0D 31 30 35 |ORWARD WIDTH.105| 00000730: 30 20 52 49 47 48 54 20 39 30 0D 31 30 36 30 20 |0 RIGHT 90.1060 | 00000740: 45 4E 44 46 4F 52 20 4A 0D 31 30 37 30 20 45 4E |ENDFOR J.1070 EN| 00000750: 44 50 52 4F 43 20 52 45 43 54 41 4E 47 4C 45 0D |DPROC RECTANGLE.| 00000760: 31 30 38 30 20 2F 2F 0D 31 30 39 30 20 50 52 4F |1080 //.1090 PRO| 00000770: 43 20 46 4C 4F 57 45 52 20 0D 31 31 30 30 20 52 |C FLOWER .1100 R| 00000780: 45 43 54 41 4E 47 4C 45 28 31 30 30 2C 32 30 29 |ECTANGLE(100,20)| 00000790: 0D 31 31 31 30 20 52 49 47 48 54 20 32 30 0D 31 |.1110 RIGHT 20.1| 000007A0: 31 32 30 20 52 45 43 54 41 4E 47 4C 45 28 31 30 |120 RECTANGLE(10| 000007B0: 2C 34 30 29 0D 31 31 33 30 20 52 49 47 48 54 20 |,40).1130 RIGHT | 000007C0: 32 30 0D 31 31 34 30 20 49 46 20 4B 45 59 24 3D |20.1140 IF KEY$=| 000007D0: 43 48 52 24 28 30 29 20 54 48 45 4E 20 46 4C 4F |CHR$(0) THEN FLO| 000007E0: 57 45 52 0D 31 31 35 30 20 45 4E 44 50 52 4F 43 |WER.1150 ENDPROC| 000007F0: 20 46 4C 4F 57 45 52 0D 31 31 36 30 20 2F 2F 0D | FLOWER.1160 //.| 00000800: 31 31 37 30 20 50 52 4F 43 20 53 50 49 4E 52 45 |1170 PROC SPINRE| 00000810: 43 53 28 53 49 5A 45 27 29 20 0D 31 31 38 30 20 |CS(SIZE') .1180 | 00000820: 49 46 20 53 49 5A 45 27 3C 31 30 20 54 48 45 4E |IF SIZE'<10 THEN| 00000830: 20 52 45 54 55 52 4E 0D 31 31 39 30 20 52 45 43 | RETURN.1190 REC| 00000840: 54 41 4E 47 4C 45 28 53 49 5A 45 27 2C 32 30 29 |TANGLE(SIZE',20)| 00000850: 0D 31 32 30 30 20 4C 45 46 54 20 33 30 0D 31 32 |.1200 LEFT 30.12| 00000860: 31 30 20 49 46 20 4B 45 59 24 3D 43 48 52 24 28 |10 IF KEY$=CHR$(| 00000870: 30 29 20 54 48 45 4E 20 53 50 49 4E 52 45 43 53 |0) THEN SPINRECS| 00000880: 28 53 49 5A 45 27 2D 35 29 0D 31 32 32 30 20 45 |(SIZE'-5).1220 E| 00000890: 4E 44 50 52 4F 43 20 53 50 49 4E 52 45 43 53 0D |NDPROC SPINRECS.| 000008A0: 31 32 33 30 20 2F 2F 0D 31 32 34 30 20 50 52 4F |1230 //.1240 PRO| 000008B0: 43 20 48 4F 42 28 53 49 5A 45 27 29 20 0D 31 32 |C HOB(SIZE') .12| 000008C0: 35 30 20 46 4F 52 57 41 52 44 20 53 49 5A 45 27 |50 FORWARD SIZE'| 000008D0: 0D 31 32 36 30 20 52 49 47 48 54 20 39 30 0D 31 |.1260 RIGHT 90.1| 000008E0: 32 37 30 20 46 4F 52 57 41 52 44 20 33 0D 31 32 |270 FORWARD 3.12| 000008F0: 38 30 20 4C 45 46 54 20 39 30 0D 31 32 39 30 20 |80 LEFT 90.1290 | 00000900: 45 4E 44 50 52 4F 43 20 48 4F 42 0D 31 33 30 30 |ENDPROC HOB.1300| 00000910: 20 2F 2F 0D 31 33 31 30 20 50 52 4F 43 20 54 45 | //.1310 PROC TE| 00000920: 4C 45 53 43 4F 50 45 28 53 49 5A 45 27 29 20 0D |LESCOPE(SIZE') .| 00000930: 31 33 32 30 20 49 46 20 53 49 5A 45 27 3C 36 20 |1320 IF SIZE'<6 | 00000940: 54 48 45 4E 20 52 45 54 55 52 4E 0D 31 33 33 30 |THEN RETURN.1330| 00000950: 20 52 53 51 55 41 52 45 28 53 49 5A 45 27 29 0D | RSQUARE(SIZE').| 00000960: 31 33 34 30 20 48 4F 42 28 53 49 5A 45 27 29 0D |1340 HOB(SIZE').| 00000970: 31 33 35 30 20 54 45 4C 45 53 43 4F 50 45 28 53 |1350 TELESCOPE(S| 00000980: 49 5A 45 27 2D 36 29 0D 31 33 36 30 20 45 4E 44 |IZE'-6).1360 END| 00000990: 50 52 4F 43 20 54 45 4C 45 53 43 4F 50 45 0D 31 |PROC TELESCOPE.1| 000009A0: 33 37 30 20 2F 2F 0D 31 33 38 30 20 50 52 4F 43 |370 //.1380 PROC| 000009B0: 20 52 4F 43 4B 54 4F 50 20 0D 31 33 39 30 20 4C | ROCKTOP .1390 L| 000009C0: 45 46 54 20 33 30 0D 31 34 30 30 20 46 4F 52 57 |EFT 30.1400 FORW| 000009D0: 41 52 44 20 33 30 0D 31 34 31 30 20 4C 45 46 54 |ARD 30.1410 LEFT| 000009E0: 20 31 32 30 0D 31 34 32 30 20 46 4F 52 57 41 52 | 120.1420 FORWAR| 000009F0: 44 20 33 30 0D 31 34 33 30 20 45 4E 44 50 52 4F |D 30.1430 ENDPRO| 00000A00: 43 20 52 4F 43 4B 54 4F 50 0D 31 34 34 30 20 2F |C ROCKTOP.1440 /| 00000A10: 2F 0D 31 34 35 30 20 50 52 4F 43 20 52 4F 43 4B |/.1450 PROC ROCK| 00000A20: 45 54 20 0D 31 34 36 30 20 52 45 43 54 41 4E 47 |ET .1460 RECTANG| 00000A30: 4C 45 28 38 30 2C 33 30 29 0D 31 34 37 30 20 4C |LE(80,30).1470 L| 00000A40: 45 46 54 20 39 30 0D 31 34 38 30 20 52 45 43 54 |EFT 90.1480 RECT| 00000A50: 41 4E 47 4C 45 28 31 35 2C 31 35 29 0D 31 34 39 |ANGLE(15,15).149| 00000A60: 30 20 42 41 43 4B 20 33 30 0D 31 35 30 30 20 52 |0 BACK 30.1500 R| 00000A70: 49 47 48 54 20 39 30 0D 31 35 31 30 20 52 45 43 |IGHT 90.1510 REC| 00000A80: 54 41 4E 47 4C 45 28 31 35 2C 31 35 29 0D 31 35 |TANGLE(15,15).15| 00000A90: 32 30 20 46 4F 52 57 41 52 44 20 38 30 0D 31 35 |20 FORWARD 80.15| 00000AA0: 33 30 20 52 4F 43 4B 54 4F 50 0D 31 35 34 30 20 |30 ROCKTOP.1540 | 00000AB0: 45 4E 44 50 52 4F 43 20 52 4F 43 4B 45 54 0D 31 |ENDPROC ROCKET.1| 00000AC0: 35 35 30 20 2F 2F 0D 31 35 36 30 20 50 52 4F 43 |550 //.1560 PROC| 00000AD0: 20 54 52 49 20 0D 31 35 37 30 20 46 4F 52 20 4B | TRI .1570 FOR K| 00000AE0: 3A 3D 31 20 54 4F 20 33 20 44 4F 0D 31 35 38 30 |:=1 TO 3 DO.1580| 00000AF0: 20 46 4F 52 57 41 52 44 20 37 30 0D 31 35 39 30 | FORWARD 70.1590| 00000B00: 20 52 49 47 48 54 20 31 32 30 0D 31 36 30 30 20 | RIGHT 120.1600 | 00000B10: 45 4E 44 46 4F 52 20 4B 0D 31 36 31 30 20 45 4E |ENDFOR K.1610 EN| 00000B20: 44 50 52 4F 43 20 54 52 49 0D 31 36 32 30 20 2F |DPROC TRI.1620 /| 00000B30: 2F 0D 31 36 33 30 20 50 52 4F 43 20 52 43 50 28 |/.1630 PROC RCP(| 00000B40: 52 29 20 0D 31 36 34 30 20 52 49 47 48 54 20 35 |R) .1640 RIGHT 5| 00000B50: 0D 31 36 35 30 20 46 4F 52 57 41 52 44 20 52 2A |.1650 FORWARD R*| 00000B60: 50 49 2F 31 38 0D 31 36 36 30 20 52 49 47 48 54 |PI/18.1660 RIGHT| 00000B70: 20 35 0D 31 36 37 30 20 45 4E 44 50 52 4F 43 20 | 5.1670 ENDPROC | 00000B80: 52 43 50 0D 31 36 38 30 20 2F 2F 0D 31 36 39 30 |RCP.1680 //.1690| 00000B90: 20 50 52 4F 43 20 4C 43 50 28 52 29 20 0D 31 37 | PROC LCP(R) .17| 00000BA0: 30 30 20 4C 45 46 54 20 35 0D 31 37 31 30 20 46 |00 LEFT 5.1710 F| 00000BB0: 4F 52 57 41 52 44 20 52 2A 50 49 2F 31 38 0D 31 |ORWARD R*PI/18.1| 00000BC0: 37 32 30 20 4C 45 46 54 20 35 0D 31 37 33 30 20 |720 LEFT 5.1730 | 00000BD0: 45 4E 44 50 52 4F 43 20 4C 43 50 0D 31 37 34 30 |ENDPROC LCP.1740| 00000BE0: 20 2F 2F 0D 31 37 35 30 20 50 52 4F 43 20 52 41 | //.1750 PROC RA| 00000BF0: 52 43 28 52 29 20 0D 31 37 36 30 20 46 4F 52 20 |RC(R) .1760 FOR | 00000C00: 49 3A 3D 31 20 54 4F 20 39 20 44 4F 20 52 43 50 |I:=1 TO 9 DO RCP| 00000C10: 28 52 29 0D 31 37 37 30 20 45 4E 44 50 52 4F 43 |(R).1770 ENDPROC| 00000C20: 20 52 41 52 43 0D 31 37 38 30 20 2F 2F 0D 31 37 | RARC.1780 //.17| 00000C30: 39 30 20 50 52 4F 43 20 4C 41 52 43 28 52 29 20 |90 PROC LARC(R) | 00000C40: 0D 31 38 30 30 20 46 4F 52 20 49 3A 3D 31 20 54 |.1800 FOR I:=1 T| 00000C50: 4F 20 39 20 44 4F 20 4C 43 50 28 52 29 0D 31 38 |O 9 DO LCP(R).18| 00000C60: 31 30 20 45 4E 44 50 52 4F 43 20 4C 41 52 43 0D |10 ENDPROC LARC.| 00000C70: 31 38 32 30 20 2F 2F 0D 31 38 33 30 20 50 52 4F |1820 //.1830 PRO| 00000C80: 43 20 52 43 49 52 43 4C 45 28 52 29 20 0D 31 38 |C RCIRCLE(R) .18| 00000C90: 34 30 20 46 4F 52 20 49 3A 3D 31 20 54 4F 20 33 |40 FOR I:=1 TO 3| 00000CA0: 36 20 44 4F 20 52 43 50 28 52 29 0D 31 38 35 30 |6 DO RCP(R).1850| 00000CB0: 20 45 4E 44 50 52 4F 43 20 52 43 49 52 43 4C 45 | ENDPROC RCIRCLE| 00000CC0: 0D 31 38 36 30 20 2F 2F 0D 31 38 37 30 20 50 52 |.1860 //.1870 PR| 00000CD0: 4F 43 20 4C 43 49 52 43 4C 45 28 52 29 20 0D 31 |OC LCIRCLE(R) .1| 00000CE0: 38 38 30 20 46 4F 52 20 49 3A 3D 31 20 54 4F 20 |880 FOR I:=1 TO | 00000CF0: 33 36 20 44 4F 20 4C 43 50 28 52 29 0D 31 38 39 |36 DO LCP(R).189| 00000D00: 30 20 45 4E 44 50 52 4F 43 20 4C 43 49 52 43 4C |0 ENDPROC LCIRCL| 00000D10: 45 0D 31 39 30 30 20 2F 2F 0D 31 39 31 30 20 50 |E.1900 //.1910 P| 00000D20: 52 4F 43 20 53 48 52 49 4E 4B 52 43 49 52 43 4C |ROC SHRINKRCIRCL| 00000D30: 45 28 53 49 5A 45 27 29 20 0D 31 39 32 30 20 49 |E(SIZE') .1920 I| 00000D40: 46 20 53 49 5A 45 27 3C 34 20 54 48 45 4E 20 52 |F SIZE'<4 THEN R| 00000D50: 45 54 55 52 4E 0D 31 39 33 30 20 52 43 49 52 43 |ETURN.1930 RCIRC| 00000D60: 4C 45 28 53 49 5A 45 27 29 0D 31 39 34 30 20 53 |LE(SIZE').1940 S| 00000D70: 48 52 49 4E 4B 52 43 49 52 43 4C 45 28 53 49 5A |HRINKRCIRCLE(SIZ| 00000D80: 45 27 2D 32 29 0D 31 39 35 30 20 45 4E 44 50 52 |E'-2).1950 ENDPR| 00000D90: 4F 43 20 53 48 52 49 4E 4B 52 43 49 52 43 4C 45 |OC SHRINKRCIRCLE| 00000DA0: 0D 31 39 36 30 20 2F 2F 0D 31 39 37 30 20 50 52 |.1960 //.1970 PR| 00000DB0: 4F 43 20 52 53 4C 49 4E 4B 59 28 53 49 5A 45 27 |OC RSLINKY(SIZE'| 00000DC0: 29 20 0D 31 39 38 30 20 52 43 49 52 43 4C 45 28 |) .1980 RCIRCLE(| 00000DD0: 53 49 5A 45 27 29 0D 31 39 39 30 20 50 45 4E 55 |SIZE').1990 PENU| 00000DE0: 50 20 0D 32 30 30 30 20 52 49 47 48 54 20 39 30 |P .2000 RIGHT 90| 00000DF0: 0D 32 30 31 30 20 46 4F 52 57 41 52 44 20 31 30 |.2010 FORWARD 10| 00000E00: 0D 32 30 32 30 20 4C 45 46 54 20 39 30 0D 32 30 |.2020 LEFT 90.20| 00000E10: 33 30 20 50 45 4E 44 4F 57 4E 20 0D 32 30 34 30 |30 PENDOWN .2040| 00000E20: 20 52 53 4C 49 4E 4B 59 28 53 49 5A 45 27 29 0D | RSLINKY(SIZE').| 00000E30: 32 30 35 30 20 45 4E 44 50 52 4F 43 20 52 53 4C |2050 ENDPROC RSL| 00000E40: 49 4E 4B 59 0D 32 30 36 30 20 2F 2F 0D 32 30 37 |INKY.2060 //.207| 00000E50: 30 20 50 52 4F 43 20 53 50 49 4E 53 4C 49 4E 4B |0 PROC SPINSLINK| 00000E60: 28 53 49 5A 45 27 29 20 0D 32 30 38 30 20 52 43 |(SIZE') .2080 RC| 00000E70: 49 52 43 4C 45 28 53 49 5A 45 27 29 0D 32 30 39 |IRCLE(SIZE').209| 00000E80: 30 20 52 49 47 48 54 20 32 30 0D 32 31 30 30 20 |0 RIGHT 20.2100 | 00000E90: 49 46 20 4B 45 59 24 3D 43 48 52 24 28 30 29 20 |IF KEY$=CHR$(0) | 00000EA0: 54 48 45 4E 20 53 50 49 4E 53 4C 49 4E 4B 28 53 |THEN SPINSLINK(S| 00000EB0: 49 5A 45 27 29 0D 32 31 31 30 20 45 4E 44 50 52 |IZE').2110 ENDPR| 00000EC0: 4F 43 20 53 50 49 4E 53 4C 49 4E 4B 0D 32 31 32 |OC SPINSLINK.212| 00000ED0: 30 20 2F 2F 0D 32 31 33 30 20 50 52 4F 43 20 47 |0 //.2130 PROC G| 00000EE0: 52 4F 57 43 49 52 43 4C 45 28 53 49 5A 45 27 29 |ROWCIRCLE(SIZE')| 00000EF0: 20 0D 32 31 34 30 20 46 4F 52 20 49 3A 3D 31 20 | .2140 FOR I:=1 | 00000F00: 54 4F 20 31 32 20 44 4F 20 52 43 50 28 53 49 5A |TO 12 DO RCP(SIZ| 00000F10: 45 27 29 0D 32 31 35 30 20 49 46 20 4B 45 59 24 |E').2150 IF KEY$| 00000F20: 3D 43 48 52 24 28 30 29 20 54 48 45 4E 20 47 52 |=CHR$(0) THEN GR| 00000F30: 4F 57 43 49 52 43 4C 45 28 53 49 5A 45 27 2B 31 |OWCIRCLE(SIZE'+1| 00000F40: 29 0D 32 31 36 30 20 45 4E 44 50 52 4F 43 20 47 |).2160 ENDPROC G| 00000F50: 52 4F 57 43 49 52 43 4C 45 0D 32 31 37 30 20 2F |ROWCIRCLE.2170 /| 00000F60: 2F 0D 32 31 38 30 20 50 52 4F 43 20 52 41 59 28 |/.2180 PROC RAY(| 00000F70: 53 49 5A 45 27 29 20 0D 32 31 39 30 20 52 41 52 |SIZE') .2190 RAR| 00000F80: 43 28 53 49 5A 45 27 29 0D 32 32 30 30 20 4C 41 |C(SIZE').2200 LA| 00000F90: 52 43 28 53 49 5A 45 27 29 0D 32 32 31 30 20 52 |RC(SIZE').2210 R| 00000FA0: 41 52 43 28 53 49 5A 45 27 29 0D 32 32 32 30 20 |ARC(SIZE').2220 | 00000FB0: 4C 41 52 43 28 53 49 5A 45 27 29 0D 32 32 33 30 |LARC(SIZE').2230| 00000FC0: 20 45 4E 44 50 52 4F 43 20 52 41 59 0D 32 32 34 | ENDPROC RAY.224| 00000FD0: 30 20 2F 2F 0D 32 32 35 30 20 50 52 4F 43 20 53 |0 //.2250 PROC S| 00000FE0: 55 4E 28 53 49 5A 45 27 29 20 0D 32 32 36 30 20 |UN(SIZE') .2260 | 00000FF0: 52 41 59 28 53 49 5A 45 27 29 0D 32 32 37 30 20 |RAY(SIZE').2270 | 00001000: 52 49 47 48 54 20 31 36 30 0D 32 32 38 30 20 49 |RIGHT 160.2280 I| 00001010: 46 20 4B 45 59 24 3D 43 48 52 24 28 30 29 20 54 |F KEY$=CHR$(0) T| 00001020: 48 45 4E 20 53 55 4E 28 53 49 5A 45 27 29 0D 32 |HEN SUN(SIZE').2| 00001030: 32 39 30 20 45 4E 44 50 52 4F 43 20 53 55 4E 0D |290 ENDPROC SUN.| 00001040: 32 33 30 30 20 2F 2F 0D 32 33 31 30 20 50 52 4F |2300 //.2310 PRO| 00001050: 43 20 50 4F 4C 59 53 54 45 50 28 53 49 44 45 2C |C POLYSTEP(SIDE,| 00001060: 41 4E 47 4C 45 29 20 0D 32 33 32 30 20 46 4F 52 |ANGLE) .2320 FOR| 00001070: 57 41 52 44 20 53 49 44 45 0D 32 33 33 30 20 52 |WARD SIDE.2330 R| 00001080: 49 47 48 54 20 41 4E 47 4C 45 0D 32 33 34 30 20 |IGHT ANGLE.2340 | 00001090: 45 4E 44 50 52 4F 43 20 50 4F 4C 59 53 54 45 50 |ENDPROC POLYSTEP| 000010A0: 0D 32 33 35 30 20 2F 2F 0D 32 33 36 30 20 50 52 |.2350 //.2360 PR| 000010B0: 4F 43 20 49 4E 53 50 49 28 53 49 44 45 2C 41 4E |OC INSPI(SIDE,AN| 000010C0: 47 4C 45 29 20 0D 32 33 37 30 20 52 45 50 45 41 |GLE) .2370 REPEA| 000010D0: 54 20 0D 32 33 38 30 20 50 4F 4C 59 53 54 45 50 |T .2380 POLYSTEP| 000010E0: 28 53 49 44 45 2C 41 4E 47 4C 45 29 0D 32 33 39 |(SIDE,ANGLE).239| 000010F0: 30 20 41 4E 47 4C 45 3A 3D 41 4E 47 4C 45 2B 31 |0 ANGLE:=ANGLE+1| 00001100: 30 0D 32 34 30 30 20 55 4E 54 49 4C 20 46 41 4C |0.2400 UNTIL FAL| 00001110: 53 45 0D 32 34 31 30 20 45 4E 44 50 52 4F 43 20 |SE.2410 ENDPROC | 00001120: 49 4E 53 50 49 0D 32 34 32 30 20 2F 2F 0D 32 34 |INSPI.2420 //.24| 00001130: 33 30 20 50 52 4F 43 20 49 4E 53 54 52 55 43 54 |30 PROC INSTRUCT| 00001140: 49 4F 4E 53 20 0D 32 34 34 30 20 50 52 49 4E 54 |IONS .2440 PRINT| 00001150: 20 43 48 52 24 28 31 34 37 29 2C 20 2F 2F 43 4C | CHR$(147), //CL| 00001160: 45 41 52 20 53 43 52 45 45 4E 0D 32 34 35 30 20 |EAR SCREEN.2450 | 00001170: 50 52 49 4E 54 20 43 48 52 24 28 31 34 29 20 2F |PRINT CHR$(14) /| 00001180: 2F 4C 4F 57 45 52 20 43 41 53 45 0D 32 34 36 30 |/LOWER CASE.2460| 00001190: 20 50 52 49 4E 54 20 22 54 48 49 53 20 50 52 4F | PRINT "THIS PRO| 000011A0: 47 52 41 4D 20 43 4F 4E 54 41 49 4E 53 20 53 4F |GRAM CONTAINS SO| 000011B0: 4D 45 20 4F 46 20 54 48 45 20 4C 4F 47 4F 22 0D |ME OF THE LOGO".| 000011C0: 32 34 37 30 20 50 52 49 4E 54 20 22 52 4F 55 54 |2470 PRINT "ROUT| 000011D0: 49 4E 45 53 20 41 4E 44 20 50 49 43 54 55 52 45 |INES AND PICTURE| 000011E0: 53 20 46 52 4F 4D 20 54 48 45 20 4C 4F 47 4F 20 |S FROM THE LOGO | 000011F0: 42 4F 4F 4B 22 0D 32 34 38 30 20 50 52 49 4E 54 |BOOK".2480 PRINT| 00001200: 20 22 49 54 20 43 41 4D 45 20 44 49 52 45 43 54 | "IT CAME DIRECT| 00001210: 20 46 52 4F 4D 20 44 45 4E 4D 41 52 4B 2E 22 0D | FROM DENMARK.".| 00001220: 32 34 39 30 20 50 52 49 4E 54 20 22 49 54 20 49 |2490 PRINT "IT I| 00001230: 53 20 4D 45 41 4E 54 20 54 4F 20 42 45 20 52 55 |S MEANT TO BE RU| 00001240: 4E 20 41 4E 44 20 54 48 45 4E 20 48 41 56 45 22 |N AND THEN HAVE"| 00001250: 0D 32 35 30 30 20 50 52 49 4E 54 20 22 54 48 45 |.2500 PRINT "THE| 00001260: 20 52 4F 55 54 49 4E 45 53 20 43 41 4C 4C 45 44 | ROUTINES CALLED| 00001270: 20 46 52 4F 4D 20 44 49 52 45 43 54 20 4D 4F 44 | FROM DIRECT MOD| 00001280: 45 22 0D 32 35 31 30 20 50 52 49 4E 54 20 22 42 |E".2510 PRINT "B| 00001290: 55 54 20 54 4F 20 47 49 56 45 20 59 4F 55 20 41 |UT TO GIVE YOU A| 000012A0: 4E 20 49 44 45 41 20 4F 46 20 54 55 52 54 4C 45 |N IDEA OF TURTLE| 000012B0: 22 0D 32 35 32 30 20 50 52 49 4E 54 20 22 50 49 |".2520 PRINT "PI| 000012C0: 43 54 55 52 45 53 20 54 52 59 20 54 48 45 20 41 |CTURES TRY THE A| 000012D0: 55 54 4F 20 44 45 4D 4F 20 4F 52 20 4C 49 53 54 |UTO DEMO OR LIST| 000012E0: 22 0D 32 35 33 30 20 50 52 49 4E 54 20 22 54 48 |".2530 PRINT "TH| 000012F0: 45 20 50 52 4F 47 52 41 4D 20 41 4E 44 20 53 45 |E PROGRAM AND SE| 00001300: 45 20 54 48 45 20 43 4F 4D 4D 41 4E 44 53 20 41 |E THE COMMANDS A| 00001310: 54 20 54 48 45 22 0D 32 35 34 30 20 50 52 49 4E |T THE".2540 PRIN| 00001320: 54 20 22 45 4E 44 20 2D 20 59 4F 55 20 43 41 4E |T "END - YOU CAN| 00001330: 20 54 52 59 20 54 48 45 4D 20 49 4E 20 44 49 52 | TRY THEM IN DIR| 00001340: 45 43 54 20 4D 4F 44 45 2E 22 0D 32 35 35 30 20 |ECT MODE.".2550 | 00001350: 50 52 49 4E 54 20 0D 32 35 36 30 20 50 52 49 4E |PRINT .2560 PRIN| 00001360: 54 20 22 48 49 54 20 41 4E 59 20 4B 45 59 20 54 |T "HIT ANY KEY T| 00001370: 4F 20 53 54 4F 50 20 54 48 45 20 53 55 4E 2C 20 |O STOP THE SUN, | 00001380: 53 54 41 49 52 53 2C 22 0D 32 35 37 30 20 50 52 |STAIRS,".2570 PR| 00001390: 49 4E 54 20 22 53 50 49 4E 53 51 55 41 52 45 53 |INT "SPINSQUARES| 000013A0: 2C 20 47 52 4F 57 53 51 55 41 52 45 53 2C 20 41 |, GROWSQUARES, A| 000013B0: 4E 44 20 4D 41 4E 59 42 4F 58 45 53 2E 22 0D 32 |ND MANYBOXES.".2| 000013C0: 35 38 30 20 49 4E 50 55 54 20 22 48 49 54 20 52 |580 INPUT "HIT R| 000013D0: 45 54 55 52 4E 20 46 4F 52 20 54 48 45 20 44 45 |ETURN FOR THE DE| 000013E0: 4D 4F 22 3A 20 52 45 50 4C 59 24 0D 32 35 39 30 |MO": REPLY$.2590| 000013F0: 20 45 4E 44 50 52 4F 43 20 49 4E 53 54 52 55 43 | ENDPROC INSTRUC| 00001400: 54 49 4F 4E 53 0D 32 36 30 30 20 2F 2F 0D 32 36 |TIONS.2600 //.26| 00001410: 31 30 20 50 52 4F 43 20 44 45 4D 4F 20 0D 32 36 |10 PROC DEMO .26| 00001420: 32 30 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 0D |20 INSTRUCTIONS.| 00001430: 32 36 33 30 20 53 45 54 47 52 41 50 48 49 43 20 |2630 SETGRAPHIC | 00001440: 30 0D 32 36 34 30 20 50 49 3A 3D 33 2E 31 34 31 |0.2640 PI:=3.141| 00001450: 35 39 32 36 35 0D 32 36 35 30 20 42 41 43 4B 47 |59265.2650 BACKG| 00001460: 52 4F 55 4E 44 20 31 31 0D 32 36 36 30 20 50 45 |ROUND 11.2660 PE| 00001470: 4E 43 4F 4C 4F 52 20 31 0D 32 36 37 30 20 43 4C |NCOLOR 1.2670 CL| 00001480: 45 41 52 20 0D 32 36 38 30 20 42 41 53 45 0D 32 |EAR .2680 BASE.2| 00001490: 36 39 30 20 54 55 52 54 4C 45 53 49 5A 45 20 36 |690 TURTLESIZE 6| 000014A0: 0D 32 37 30 30 20 50 4C 4F 54 54 45 58 54 20 30 |.2700 PLOTTEXT 0| 000014B0: 2C 31 39 32 2C 22 54 52 45 45 28 31 30 29 22 0D |,192,"TREE(10)".| 000014C0: 32 37 31 30 20 54 52 45 45 28 31 30 29 0D 32 37 |2710 TREE(10).27| 000014D0: 32 30 20 50 4C 4F 54 54 45 58 54 20 30 2C 31 38 |20 PLOTTEXT 0,18| 000014E0: 34 2C 22 54 52 45 45 28 32 30 29 22 0D 32 37 33 |4,"TREE(20)".273| 000014F0: 30 20 54 52 45 45 28 32 30 29 0D 32 37 34 30 20 |0 TREE(20).2740 | 00001500: 50 4C 4F 54 54 45 58 54 20 30 2C 31 37 36 2C 22 |PLOTTEXT 0,176,"| 00001510: 46 4F 52 57 41 52 44 20 32 30 30 22 0D 32 37 35 |FORWARD 200".275| 00001520: 30 20 46 4F 52 57 41 52 44 20 32 30 30 0D 32 37 |0 FORWARD 200.27| 00001530: 36 30 20 50 4C 4F 54 54 45 58 54 20 30 2C 31 36 |60 PLOTTEXT 0,16| 00001540: 38 2C 22 42 41 53 45 22 0D 32 37 37 30 20 42 41 |8,"BASE".2770 BA| 00001550: 53 45 0D 32 37 38 30 20 50 4C 4F 54 54 45 58 54 |SE.2780 PLOTTEXT| 00001560: 20 30 2C 31 36 30 2C 22 54 52 45 45 28 34 30 29 | 0,160,"TREE(40)| 00001570: 22 0D 32 37 39 30 20 54 52 45 45 28 34 30 29 0D |".2790 TREE(40).| 00001580: 32 38 30 30 20 50 4C 4F 54 54 45 58 54 20 30 2C |2800 PLOTTEXT 0,| 00001590: 31 35 32 2C 22 54 52 45 45 28 38 30 29 22 0D 32 |152,"TREE(80)".2| 000015A0: 38 31 30 20 54 52 45 45 28 38 30 29 0D 32 38 32 |810 TREE(80).282| 000015B0: 30 20 43 4C 45 41 52 20 0D 32 38 33 30 20 48 4F |0 CLEAR .2830 HO| 000015C0: 4D 45 20 0D 32 38 34 30 20 43 4C 45 41 52 27 4B |ME .2840 CLEAR'K| 000015D0: 45 59 53 0D 32 38 35 30 20 50 4C 4F 54 54 45 58 |EYS.2850 PLOTTEX| 000015E0: 54 20 30 2C 31 39 32 2C 22 53 50 49 4E 52 45 43 |T 0,192,"SPINREC| 000015F0: 53 28 39 30 29 22 0D 32 38 36 30 20 53 50 49 4E |S(90)".2860 SPIN| 00001600: 52 45 43 53 28 39 30 29 0D 32 38 37 30 20 43 4C |RECS(90).2870 CL| 00001610: 45 41 52 20 0D 32 38 38 30 20 42 41 53 45 0D 32 |EAR .2880 BASE.2| 00001620: 38 39 30 20 50 4C 4F 54 54 45 58 54 20 30 2C 31 |890 PLOTTEXT 0,1| 00001630: 39 32 2C 22 54 45 4C 45 53 43 4F 50 45 28 34 30 |92,"TELESCOPE(40| 00001640: 29 22 0D 32 39 30 30 20 54 45 4C 45 53 43 4F 50 |)".2900 TELESCOP| 00001650: 45 28 34 30 29 0D 32 39 31 30 20 43 4C 45 41 52 |E(40).2910 CLEAR| 00001660: 20 0D 32 39 32 30 20 48 4F 4D 45 20 0D 32 39 33 | .2920 HOME .293| 00001670: 30 20 43 4C 45 41 52 27 4B 45 59 53 0D 32 39 34 |0 CLEAR'KEYS.294| 00001680: 30 20 50 4C 4F 54 54 45 58 54 20 30 2C 30 2C 22 |0 PLOTTEXT 0,0,"| 00001690: 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 51 |HIT ANY KEY TO Q| 000016A0: 55 49 54 20 54 48 49 53 20 50 49 43 54 55 52 45 |UIT THIS PICTURE| 000016B0: 22 0D 32 39 35 30 20 50 4C 4F 54 54 45 58 54 20 |".2950 PLOTTEXT | 000016C0: 30 2C 31 39 32 2C 22 4D 41 4E 59 42 4F 58 45 53 |0,192,"MANYBOXES| 000016D0: 22 0D 32 39 36 30 20 4D 41 4E 59 42 4F 58 45 53 |".2960 MANYBOXES| 000016E0: 0D 32 39 37 30 20 43 4C 45 41 52 20 0D 32 39 38 |.2970 CLEAR .298| 000016F0: 30 20 50 4C 4F 54 54 45 58 54 20 30 2C 31 39 32 |0 PLOTTEXT 0,192| 00001700: 2C 22 42 41 53 45 22 0D 32 39 39 30 20 42 41 53 |,"BASE".2990 BAS| 00001710: 45 0D 33 30 30 30 20 50 4C 4F 54 54 45 58 54 20 |E.3000 PLOTTEXT | 00001720: 30 2C 31 38 34 2C 22 52 4F 43 4B 45 54 22 0D 33 |0,184,"ROCKET".3| 00001730: 30 31 30 20 52 4F 43 4B 45 54 0D 33 30 32 30 20 |010 ROCKET.3020 | 00001740: 43 4C 45 41 52 27 4B 45 59 53 0D 33 30 33 30 20 |CLEAR'KEYS.3030 | 00001750: 50 4C 4F 54 54 45 58 54 20 30 2C 30 2C 22 48 49 |PLOTTEXT 0,0,"HI| 00001760: 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 51 55 49 |T ANY KEY TO QUI| 00001770: 54 20 54 48 49 53 20 50 49 43 54 55 52 45 22 0D |T THIS PICTURE".| 00001780: 33 30 34 30 20 50 4C 4F 54 54 45 58 54 20 30 2C |3040 PLOTTEXT 0,| 00001790: 31 37 36 2C 22 50 45 4E 55 50 22 0D 33 30 35 30 |176,"PENUP".3050| 000017A0: 20 50 45 4E 55 50 20 0D 33 30 36 30 20 50 4C 4F | PENUP .3060 PLO| 000017B0: 54 54 45 58 54 20 30 2C 31 36 38 2C 22 53 45 54 |TTEXT 0,168,"SET| 000017C0: 58 59 20 31 35 30 2C 31 34 30 22 0D 33 30 37 30 |XY 150,140".3070| 000017D0: 20 53 45 54 58 59 20 31 35 30 2C 31 34 30 0D 33 | SETXY 150,140.3| 000017E0: 30 38 30 20 50 4C 4F 54 54 45 58 54 20 30 2C 31 |080 PLOTTEXT 0,1| 000017F0: 36 30 2C 22 50 45 4E 44 4F 57 4E 22 0D 33 30 39 |60,"PENDOWN".309| 00001800: 30 20 50 45 4E 44 4F 57 4E 20 0D 33 31 30 30 20 |0 PENDOWN .3100 | 00001810: 50 4C 4F 54 54 45 58 54 20 30 2C 31 35 32 2C 22 |PLOTTEXT 0,152,"| 00001820: 53 55 4E 28 38 29 22 0D 33 31 31 30 20 53 55 4E |SUN(8)".3110 SUN| 00001830: 28 38 29 0D 33 31 32 30 20 43 4C 45 41 52 20 0D |(8).3120 CLEAR .| 00001840: 33 31 33 30 20 48 4F 4D 45 20 0D 33 31 34 30 20 |3130 HOME .3140 | 00001850: 43 4C 45 41 52 27 4B 45 59 53 0D 33 31 35 30 20 |CLEAR'KEYS.3150 | 00001860: 50 4C 4F 54 54 45 58 54 20 30 2C 30 2C 22 48 49 |PLOTTEXT 0,0,"HI| 00001870: 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 51 55 49 |T ANY KEY TO QUI| 00001880: 54 20 54 48 49 53 20 50 49 43 54 55 52 45 22 0D |T THIS PICTURE".| 00001890: 33 31 36 30 20 50 4C 4F 54 54 45 58 54 20 30 2C |3160 PLOTTEXT 0,| 000018A0: 31 39 32 2C 22 53 50 49 4E 53 51 55 41 52 45 53 |192,"SPINSQUARES| 000018B0: 28 34 30 29 22 0D 33 31 37 30 20 53 50 49 4E 53 |(40)".3170 SPINS| 000018C0: 51 55 41 52 45 53 28 34 30 29 0D 33 31 38 30 20 |QUARES(40).3180 | 000018D0: 43 4C 45 41 52 20 0D 33 31 39 30 20 48 4F 4D 45 |CLEAR .3190 HOME| 000018E0: 20 0D 33 32 30 30 20 43 4C 45 41 52 27 4B 45 59 | .3200 CLEAR'KEY| 000018F0: 53 0D 33 32 31 30 20 50 4C 4F 54 54 45 58 54 20 |S.3210 PLOTTEXT | 00001900: 30 2C 30 2C 22 48 49 54 20 41 4E 59 20 4B 45 59 |0,0,"HIT ANY KEY| 00001910: 20 54 4F 20 51 55 49 54 20 54 48 49 53 20 50 49 | TO QUIT THIS PI| 00001920: 43 54 55 52 45 22 0D 33 32 32 30 20 50 4C 4F 54 |CTURE".3220 PLOT| 00001930: 54 45 58 54 20 30 2C 31 39 32 2C 22 47 52 4F 57 |TEXT 0,192,"GROW| 00001940: 53 51 55 41 52 45 53 28 31 29 22 0D 33 32 33 30 |SQUARES(1)".3230| 00001950: 20 47 52 4F 57 53 51 55 41 52 45 53 28 31 29 0D | GROWSQUARES(1).| 00001960: 33 32 34 30 20 43 4C 45 41 52 20 0D 33 32 35 30 |3240 CLEAR .3250| 00001970: 20 43 4C 45 41 52 27 4B 45 59 53 0D 33 32 36 30 | CLEAR'KEYS.3260| 00001980: 20 50 4C 4F 54 54 45 58 54 20 30 2C 31 39 32 2C | PLOTTEXT 0,192,| 00001990: 22 53 50 49 4E 53 4C 49 4E 4B 28 33 30 29 22 0D |"SPINSLINK(30)".| 000019A0: 33 32 37 30 20 50 4C 4F 54 54 45 58 54 20 30 2C |3270 PLOTTEXT 0,| 000019B0: 30 2C 22 48 49 54 20 41 4E 59 20 4B 45 59 20 54 |0,"HIT ANY KEY T| 000019C0: 4F 20 47 4F 20 4F 4E 20 54 4F 20 4E 45 58 54 20 |O GO ON TO NEXT | 000019D0: 50 41 52 54 22 0D 33 32 38 30 20 53 50 49 4E 53 |PART".3280 SPINS| 000019E0: 4C 49 4E 4B 28 33 30 29 0D 33 32 39 30 20 50 4C |LINK(30).3290 PL| 000019F0: 4F 54 54 45 58 54 20 30 2C 30 2C 22 20 20 20 20 |OTTEXT 0,0," | 00001A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001A20: 20 20 22 0D 33 33 30 30 20 43 4C 45 41 52 27 4B | ".3300 CLEAR'K| 00001A30: 45 59 53 0D 33 33 31 30 20 50 4C 4F 54 54 45 58 |EYS.3310 PLOTTEX| 00001A40: 54 20 30 2C 31 38 34 2C 22 53 48 52 49 4E 4B 52 |T 0,184,"SHRINKR| 00001A50: 43 49 52 43 4C 45 28 33 30 29 22 0D 33 33 32 30 |CIRCLE(30)".3320| 00001A60: 20 53 48 52 49 4E 4B 52 43 49 52 43 4C 45 28 33 | SHRINKRCIRCLE(3| 00001A70: 30 29 0D 33 33 33 30 20 43 4C 45 41 52 20 0D 33 |0).3330 CLEAR .3| 00001A80: 33 34 30 20 48 4F 4D 45 20 0D 33 33 35 30 20 50 |340 HOME .3350 P| 00001A90: 4C 4F 54 54 45 58 54 20 30 2C 31 39 32 2C 22 47 |LOTTEXT 0,192,"G| 00001AA0: 52 4F 57 43 49 52 43 4C 45 28 31 30 29 22 0D 33 |ROWCIRCLE(10)".3| 00001AB0: 33 36 30 20 50 4C 4F 54 54 45 58 54 20 30 2C 30 |360 PLOTTEXT 0,0| 00001AC0: 2C 22 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F |,"HIT ANY KEY TO| 00001AD0: 20 51 55 49 54 20 54 48 49 53 20 50 49 43 54 55 | QUIT THIS PICTU| 00001AE0: 52 45 22 0D 33 33 37 30 20 43 4C 45 41 52 27 4B |RE".3370 CLEAR'K| 00001AF0: 45 59 53 0D 33 33 38 30 20 47 52 4F 57 43 49 52 |EYS.3380 GROWCIR| 00001B00: 43 4C 45 28 31 30 29 0D 33 33 39 30 20 43 48 4F |CLE(10).3390 CHO| 00001B10: 49 43 45 0D 33 34 30 30 20 43 4C 45 41 52 27 4B |ICE.3400 CLEAR'K| 00001B20: 45 59 53 0D 33 34 31 30 20 45 4E 44 50 52 4F 43 |EYS.3410 ENDPROC| 00001B30: 20 44 45 4D 4F 0D 33 34 32 30 20 2F 2F 0D 33 34 | DEMO.3420 //.34| 00001B40: 33 30 20 50 52 4F 43 20 43 4C 45 41 52 27 4B 45 |30 PROC CLEAR'KE| 00001B50: 59 53 20 0D 33 34 34 30 20 52 45 50 4C 59 24 3A |YS .3440 REPLY$:| 00001B60: 3D 4B 45 59 24 0D 33 34 35 30 20 57 48 49 4C 45 |=KEY$.3450 WHILE| 00001B70: 20 52 45 50 4C 59 24 3E 43 48 52 24 28 30 29 20 | REPLY$>CHR$(0) | 00001B80: 44 4F 20 52 45 50 4C 59 24 3A 3D 4B 45 59 24 0D |DO REPLY$:=KEY$.| 00001B90: 33 34 36 30 20 45 4E 44 50 52 4F 43 20 43 4C 45 |3460 ENDPROC CLE| 00001BA0: 41 52 27 4B 45 59 53 0D 33 34 37 30 20 2F 2F 0D |AR'KEYS.3470 //.| 00001BB0: 33 34 38 30 20 50 52 4F 43 20 43 48 4F 49 43 45 |3480 PROC CHOICE| 00001BC0: 20 0D 33 34 39 30 20 53 45 54 54 45 58 54 20 0D | .3490 SETTEXT .| 00001BD0: 33 35 30 30 20 50 52 49 4E 54 20 43 48 52 24 28 |3500 PRINT CHR$(| 00001BE0: 31 34 37 29 20 2F 2F 43 4C 45 41 52 0D 33 35 31 |147) //CLEAR.351| 00001BF0: 30 20 50 52 49 4E 54 20 43 48 52 24 28 31 34 29 |0 PRINT CHR$(14)| 00001C00: 20 2F 2F 20 4C 4F 57 45 52 20 43 41 53 45 0D 33 | // LOWER CASE.3| 00001C10: 35 32 30 20 50 52 49 4E 54 20 22 C5 4E 54 45 52 |520 PRINT ".NTER| 00001C20: 3A 22 0D 33 35 33 30 20 50 52 49 4E 54 20 0D 33 |:".3530 PRINT .3| 00001C30: 35 34 30 20 50 52 49 4E 54 20 22 C4 20 54 4F 20 |540 PRINT ". TO | 00001C40: 53 45 45 20 54 48 45 20 44 45 4D 4F 20 41 47 41 |SEE THE DEMO AGA| 00001C50: 49 4E 22 0D 33 35 35 30 20 50 52 49 4E 54 20 0D |IN".3550 PRINT .| 00001C60: 33 35 36 30 20 50 52 49 4E 54 20 22 C3 20 46 4F |3560 PRINT ". FO| 00001C70: 52 20 43 4F 4D 4D 41 4E 44 20 4D 4F 44 45 20 2D |R COMMAND MODE -| 00001C80: 20 59 4F 55 20 54 52 59 20 43 4F 4D 4D 41 4E 44 | YOU TRY COMMAND| 00001C90: 53 22 0D 33 35 37 30 20 50 52 49 4E 54 20 0D 33 |S".3570 PRINT .3| 00001CA0: 35 38 30 20 50 52 49 4E 54 20 22 D1 20 54 4F 20 |580 PRINT ". TO | 00001CB0: 51 55 49 54 20 54 48 49 53 20 50 52 4F 47 52 41 |QUIT THIS PROGRA| 00001CC0: 4D 22 0D 33 35 39 30 20 50 52 49 4E 54 20 0D 33 |M".3590 PRINT .3| 00001CD0: 36 30 30 20 50 52 49 4E 54 20 22 D7 48 41 54 20 |600 PRINT ".HAT | 00001CE0: 49 53 20 59 4F 55 52 20 43 48 4F 49 43 45 20 28 |IS YOUR CHOICE (| 00001CF0: C4 2C C3 2C D1 29 3A 22 2C 0D 33 36 31 30 20 52 |.,.,.):",.3610 R| 00001D00: 45 50 45 41 54 20 0D 33 36 32 30 20 52 45 50 4C |EPEAT .3620 REPL| 00001D10: 59 24 3A 3D 4B 45 59 24 0D 33 36 33 30 20 55 4E |Y$:=KEY$.3630 UN| 00001D20: 54 49 4C 20 52 45 50 4C 59 24 20 49 4E 20 22 44 |TIL REPLY$ IN "D| 00001D30: C4 43 C3 51 D1 22 0D 33 36 34 30 20 43 41 53 45 |.C.Q.".3640 CASE| 00001D40: 20 52 45 50 4C 59 24 20 4F 46 0D 33 36 35 30 20 | REPLY$ OF.3650 | 00001D50: 57 48 45 4E 20 22 C4 22 2C 22 44 22 0D 33 36 36 |WHEN ".","D".366| 00001D60: 30 20 4E 55 4C 4C 20 2F 2F 20 4D 41 49 4E 20 50 |0 NULL // MAIN P| 00001D70: 52 4F 47 52 41 4D 20 4C 4F 4F 50 20 43 4F 4E 54 |ROGRAM LOOP CONT| 00001D80: 0D 33 36 37 30 20 57 48 45 4E 20 22 43 22 2C 22 |.3670 WHEN "C","| 00001D90: C3 22 0D 33 36 38 30 20 53 45 54 47 52 41 50 48 |.".3680 SETGRAPH| 00001DA0: 49 43 20 0D 33 36 39 30 20 43 4C 45 41 52 20 0D |IC .3690 CLEAR .| 00001DB0: 33 37 30 30 20 48 4F 4D 45 20 0D 33 37 31 30 20 |3700 HOME .3710 | 00001DC0: 45 4E 44 20 0D 33 37 32 30 20 57 48 45 4E 20 22 |END .3720 WHEN "| 00001DD0: 51 22 2C 22 D1 22 0D 33 37 33 30 20 43 48 41 49 |Q",".".3730 CHAI| 00001DE0: 4E 20 22 48 49 22 0D 33 37 34 30 20 4F 54 48 45 |N "HI".3740 OTHE| 00001DF0: 52 57 49 53 45 20 0D 33 37 35 30 20 43 48 41 49 |RWISE .3750 CHAI| 00001E00: 4E 20 22 48 49 22 0D 33 37 36 30 20 45 4E 44 43 |N "HI".3760 ENDC| 00001E10: 41 53 45 20 0D 33 37 37 30 20 45 4E 44 50 52 4F |ASE .3770 ENDPRO| 00001E20: 43 20 43 48 4F 49 43 45 0D 33 37 38 30 20 2F 2F |C CHOICE.3780 //| 00001E30: 0D |. |
0010 //SAVE"0:LOGO".0020 //.0030 DIM REP
LY$ OF 1.0040 REPEAT .0050 DEMO.0060 UNT
IL REPLY$ IN "CC".0070 //.0080 END .0090
//.0100 // LOGO EXAMPLES.0110 //.0
120 PROC BASE .0130 PENUP .0140 SETXY 16
0,0.0150 SETHEADING 0.0160 PENDOWN .0170
ENDPROC BASE.0180 //.0190 PROC TREE(LEN
GTH) .0200 IF LENGTH<2 THEN RETURN.0210
LEFT 45.0220 FORWARD LENGTH.0230 TREE(LE
NGTH/2).0240 BACK LENGTH.0250 RIGHT 90.0
260 FORWARD LENGTH.0270 TREE(LENGTH/2).0
280 BACK LENGTH.0290 LEFT 45.0300 ENDPRO
C TREE.0310 //.0320 PROC LSQUARE(SIZE')
.0330 FOR I:=1 TO 4 DO.0340 FORWARD SIZE
'.0350 LEFT 90.0360 ENDFOR I.0370 ENDPRO
C LSQUARE.0380 //.0390 PROC RSQUARE(SIZE
') .0400 FOR I:=1 TO 4 DO.0410 FORWARD S
IZE'.0420 RIGHT 90.0430 ENDFOR I.0440 EN
DPROC RSQUARE.0450 //.0460 PROC MOVE(SIZ
E') .0470 FORWARD SIZE'.0480 RIGHT 90.04
90 FORWARD SIZE'.0500 LEFT 90.0510 ENDPR
OC MOVE.0520 //.0530 PROC STAIRS(SIZE')
.0540 RSQUARE(SIZE').0550 MOVE(SIZE').05
60 IF KEY$=CHR$(0) THEN STAIRS(SIZE').05
70 ENDPROC STAIRS.0580 //.0590 PROC BOXE
S .0600 RSQUARE(30).0610 MOVE(30).0620 R
SQUARE(20).0630 MOVE(20).0640 RSQUARE(10
).0650 MOVE(10).0660 RSQUARE(5).0670 RIG
HT 180.0680 PENUP .0690 MOVE(60).0700 RI
GHT 180.0710 PENDOWN .0720 ENDPROC BOXES
.0730 //.0740 PROC MANYBOXES .0750 BOXES
.0760 FORWARD 30.0770 RIGHT 90.0780 IF K
EY$=CHR$(0) THEN MANYBOXES.0790 ENDPROC
MANYBOXES.0800 //.0810 PROC SPINSQUARES(
SIZE') .0820 RSQUARE(SIZE').0830 RIGHT 2
0.0840 IF KEY$=CHR$(0) THEN SPINSQUARES(
SIZE').0850 ENDPROC SPINSQUARES.0860 //.
0870 PROC GROWSQUARES(SIZE') .0880 RSQUA
RE(SIZE').0890 RIGHT 20.0900 IF KEY$=CHR
$(0) THEN GROWSQUARES(SIZE'+5).0910 ENDP
ROC GROWSQUARES.0920 //.0930 PROC MID .0
940 PENUP .0950 SETXY 160,100.0960 SETHE
ADING 0.0970 PENDOWN .0980 ENDPROC MID.0
990 //.1000 PROC RECTANGLE(LENGTH,WIDTH)
.1010 FOR J:=1 TO 2 DO.1020 FORWARD LEN
GTH.1030 RIGHT 90.1040 FORWARD WIDTH.105
0 RIGHT 90.1060 ENDFOR J.1070 ENDPROC RE
CTANGLE.1080 //.1090 PROC FLOWER .1100 R
ECTANGLE(100,20).1110 RIGHT 20.1120 RECT
ANGLE(10,40).1130 RIGHT 20.1140 IF KEY$=
CHR$(0) THEN FLOWER.1150 ENDPROC FLOWER.
1160 //.1170 PROC SPINRECS(SIZE') .1180
IF SIZE'<10 THEN RETURN.1190 RECTANGLE(S
IZE',20).1200 LEFT 30.1210 IF KEY$=CHR$(
0) THEN SPINRECS(SIZE'-5).1220 ENDPROC S
PINRECS.1230 //.1240 PROC HOB(SIZE') .12
50 FORWARD SIZE'.1260 RIGHT 90.1270 FORW
ARD 3.1280 LEFT 90.1290 ENDPROC HOB.1300
//.1310 PROC TELESCOPE(SIZE') .1320 IF
SIZE'<6 THEN RETURN.1330 RSQUARE(SIZE').
1340 HOB(SIZE').1350 TELESCOPE(SIZE'-6).
1360 ENDPROC TELESCOPE.1370 //.1380 PROC
ROCKTOP .1390 LEFT 30.1400 FORWARD 30.1
410 LEFT 120.1420 FORWARD 30.1430 ENDPRO
C ROCKTOP.1440 //.1450 PROC ROCKET .1460
RECTANGLE(80,30).1470 LEFT 90.1480 RECT
ANGLE(15,15).1490 BACK 30.1500 RIGHT 90.
1510 RECTANGLE(15,15).1520 FORWARD 80.15
30 ROCKTOP.1540 ENDPROC ROCKET.1550 //.1
560 PROC TRI .1570 FOR K:=1 TO 3 DO.1580
FORWARD 70.1590 RIGHT 120.1600 ENDFOR K
.1610 ENDPROC TRI.1620 //.1630 PROC RCP(
R) .1640 RIGHT 5.1650 FORWARD R*PI/18.16
60 RIGHT 5.1670 ENDPROC RCP.1680 //.1690
PROC LCP(R) .1700 LEFT 5.1710 FORWARD R
*PI/18.1720 LEFT 5.1730 ENDPROC LCP.1740
//.1750 PROC RARC(R) .1760 FOR I:=1 TO
9 DO RCP(R).1770 ENDPROC RARC.1780 //.17
90 PROC LARC(R) .1800 FOR I:=1 TO 9 DO L
CP(R).1810 ENDPROC LARC.1820 //.1830 PRO
C RCIRCLE(R) .1840 FOR I:=1 TO 36 DO RCP
(R).1850 ENDPROC RCIRCLE.1860 //.1870 PR
OC LCIRCLE(R) .1880 FOR I:=1 TO 36 DO LC
P(R).1890 ENDPROC LCIRCLE.1900 //.1910 P
ROC SHRINKRCIRCLE(SIZE') .1920 IF SIZE'<
4 THEN RETURN.1930 RCIRCLE(SIZE').1940 S
HRINKRCIRCLE(SIZE'-2).1950 ENDPROC SHRIN
KRCIRCLE.1960 //.1970 PROC RSLINKY(SIZE'
) .1980 RCIRCLE(SIZE').1990 PENUP .2000
RIGHT 90.2010 FORWARD 10.2020 LEFT 90.20
30 PENDOWN .2040 RSLINKY(SIZE').2050 END
PROC RSLINKY.2060 //.2070 PROC SPINSLINK
(SIZE') .2080 RCIRCLE(SIZE').2090 RIGHT
20.2100 IF KEY$=CHR$(0) THEN SPINSLINK(S
IZE').2110 ENDPROC SPINSLINK.2120 //.213
0 PROC GROWCIRCLE(SIZE') .2140 FOR I:=1
TO 12 DO RCP(SIZE').2150 IF KEY$=CHR$(0)
THEN GROWCIRCLE(SIZE'+1).2160 ENDPROC G
ROWCIRCLE.2170 //.2180 PROC RAY(SIZE') .
2190 RARC(SIZE').2200 LARC(SIZE').2210 R
ARC(SIZE').2220 LARC(SIZE').2230 ENDPROC
RAY.2240 //.2250 PROC SUN(SIZE') .2260
RAY(SIZE').2270 RIGHT 160.2280 IF KEY$=C
HR$(0) THEN SUN(SIZE').2290 ENDPROC SUN.
2300 //.2310 PROC POLYSTEP(SIDE,ANGLE) .
2320 FORWARD SIDE.2330 RIGHT ANGLE.2340
ENDPROC POLYSTEP.2350 //.2360 PROC INSPI
(SIDE,ANGLE) .2370 REPEAT .2380 POLYSTEP
(SIDE,ANGLE).2390 ANGLE:=ANGLE+10.2400 U
NTIL FALSE.2410 ENDPROC INSPI.2420 //.24
30 PROC INSTRUCTIONS .2440 PRINT CHR$(14
7), //CLEAR SCREEN.2450 PRINT CHR$(14) /
/LOWER CASE.2460 PRINT "THIS PROGRAM CON
TAINS SOME OF THE LOGO".2470 PRINT "ROUT
INES AND PICTURES FROM THE LOGO BOOK".24
80 PRINT "IT CAME DIRECT FROM DENMARK.".
2490 PRINT "IT IS MEANT TO BE RUN AND TH
EN HAVE".2500 PRINT "THE ROUTINES CALLED
FROM DIRECT MODE".2510 PRINT "BUT TO GI
VE YOU AN IDEA OF TURTLE".2520 PRINT "PI
CTURES TRY THE AUTO DEMO OR LIST".2530 P
RINT "THE PROGRAM AND SEE THE COMMANDS A
T THE".2540 PRINT "END - YOU CAN TRY THE
M IN DIRECT MODE.".2550 PRINT .2560 PRIN
T "HIT ANY KEY TO STOP THE SUN, STAIRS,"
.2570 PRINT "SPINSQUARES, GROWSQUARES, A
ND MANYBOXES.".2580 INPUT "HIT RETURN FO
R THE DEMO": REPLY$.2590 ENDPROC INSTRUC
TIONS.2600 //.2610 PROC DEMO .2620 INSTR
UCTIONS.2630 SETGRAPHIC 0.2640 PI:=3.141
59265.2650 BACKGROUND 11.2660 PENCOLOR 1
.2670 CLEAR .2680 BASE.2690 TURTLESIZE 6
.2700 PLOTTEXT 0,192,"TREE(10)".2710 TRE
E(10).2720 PLOTTEXT 0,184,"TREE(20)".273
0 TREE(20).2740 PLOTTEXT 0,176,"FORWARD
200".2750 FORWARD 200.2760 PLOTTEXT 0,16
8,"BASE".2770 BASE.2780 PLOTTEXT 0,160,"
TREE(40)".2790 TREE(40).2800 PLOTTEXT 0,
152,"TREE(80)".2810 TREE(80).2820 CLEAR
.2830 HOME .2840 CLEAR'KEYS.2850 PLOTTEX
T 0,192,"SPINRECS(90)".2860 SPINRECS(90)
.2870 CLEAR .2880 BASE.2890 PLOTTEXT 0,1
92,"TELESCOPE(40)".2900 TELESCOPE(40).29
10 CLEAR .2920 HOME .2930 CLEAR'KEYS.294
0 PLOTTEXT 0,0,"HIT ANY KEY TO QUIT THIS
PICTURE".2950 PLOTTEXT 0,192,"MANYBOXES
".2960 MANYBOXES.2970 CLEAR .2980 PLOTTE
XT 0,192,"BASE".2990 BASE.3000 PLOTTEXT
0,184,"ROCKET".3010 ROCKET.3020 CLEAR'KE
YS.3030 PLOTTEXT 0,0,"HIT ANY KEY TO QUI
T THIS PICTURE".3040 PLOTTEXT 0,176,"PEN
UP".3050 PENUP .3060 PLOTTEXT 0,168,"SET
XY 150,140".3070 SETXY 150,140.3080 PLOT
TEXT 0,160,"PENDOWN".3090 PENDOWN .3100
PLOTTEXT 0,152,"SUN(8)".3110 SUN(8).3120
CLEAR .3130 HOME .3140 CLEAR'KEYS.3150
PLOTTEXT 0,0,"HIT ANY KEY TO QUIT THIS P
ICTURE".3160 PLOTTEXT 0,192,"SPINSQUARES
(40)".3170 SPINSQUARES(40).3180 CLEAR .3
190 HOME .3200 CLEAR'KEYS.3210 PLOTTEXT
0,0,"HIT ANY KEY TO QUIT THIS PICTURE".3
220 PLOTTEXT 0,192,"GROWSQUARES(1)".3230
GROWSQUARES(1).3240 CLEAR .3250 CLEAR'K
EYS.3260 PLOTTEXT 0,192,"SPINSLINK(30)".
3270 PLOTTEXT 0,0,"HIT ANY KEY TO GO ON
TO NEXT PART".3280 SPINSLINK(30).3290 PL
OTTEXT 0,0,"
".3300 CLEAR'KEYS.3310 PLOTTEX
T 0,184,"SHRINKRCIRCLE(30)".3320 SHRINKR
CIRCLE(30).3330 CLEAR .3340 HOME .3350 P
LOTTEXT 0,192,"GROWCIRCLE(10)".3360 PLOT
TEXT 0,0,"HIT ANY KEY TO QUIT THIS PICTU
RE".3370 CLEAR'KEYS.3380 GROWCIRCLE(10).
3390 CHOICE.3400 CLEAR'KEYS.3410 ENDPROC
DEMO.3420 //.3430 PROC CLEAR'KEYS .3440
REPLY$:=KEY$.3450 WHILE REPLY$>CHR$(0)
DO REPLY$:=KEY$.3460 ENDPROC CLEAR'KEYS.
3470 //.3480 PROC CHOICE .3490 SETTEXT .
3500 PRINT CHR$(147) //CLEAR.3510 PRINT
CHR$(14) // LOWER CASE.3520 PRINT "ENTER
:".3530 PRINT .3540 PRINT "D TO SEE THE
DEMO AGAIN".3550 PRINT .3560 PRINT "C FO
R COMMAND MODE - YOU TRY COMMANDS".3570
PRINT .3580 PRINT "Q TO QUIT THIS PROGRA
M".3590 PRINT .3600 PRINT "WHAT IS YOUR
CHOICE (D,C,Q):",.3610 REPEAT .3620 REPL
Y$:=KEY$.3630 UNTIL REPLY$ IN "DDCCQQ".3
640 CASE REPLY$ OF.3650 WHEN "D","D".366
0 NULL // MAIN PROGRAM LOOP CONT.3670 WH
EN "C","C".3680 SETGRAPHIC .3690 CLEAR .
3700 HOME .3710 END .3720 WHEN "Q","Q".3
730 CHAIN "HI".3740 OTHERWISE .3750 CHAI
N "HI".3760 ENDCASE .3770 ENDPROC CHOICE
.3780 //.
> CLICK IMAGE PREVIEW FOR FULL MODAL