TURTLE
FILE INFORMATION
FILENAME(S): TURTLE
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-10-20 14:30:17
APPEARS ON: 3 disk(s)
FILE HASH
445947d4e14d8a365a3d21920645054b6cd7b9f5bea100f1e2e83a75200d3884
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | TURTLE | PRG | Treasure Chest - Klaus Der Suhler | 9 | 2 | DOWNLOAD FILE |
| A NWENDER | TURTLE | PRG | Treasure Chest - Wolfgang Rauprich | 31 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | TURTLE | PRG | Treasure Chest - Wolfgang Rauprich | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 10 04 05 00 97 20 35 39 34 36 38 2C 31 32 |....... 59468,12| 00000010: 00 2C 04 0A 00 8F 20 54 55 52 54 4C 45 20 42 59 |.,.... TURTLE BY| 00000020: 20 42 49 4C 4C 20 46 49 4E 5A 45 52 00 48 04 14 | BILL FINZER.H..| 00000030: 00 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 53 |.. S| 00000040: 45 50 54 2C 31 39 37 38 00 4E 04 1E 00 8F 00 70 |EPT,1978.N.....p| 00000050: 04 28 00 8F 20 54 48 49 53 20 50 52 4F 47 52 41 |.(.. THIS PROGRA| 00000060: 4D 20 4D 49 4D 49 43 53 20 53 45 59 4D 4F 55 52 |M MIMICS SEYMOUR| 00000070: 00 95 04 32 00 8F 20 20 20 50 41 50 45 52 54 27 |...2.. PAPERT'| 00000080: 53 20 50 52 4F 47 52 41 4D 4D 41 42 4C 45 20 54 |S PROGRAMMABLE T| 00000090: 55 52 54 4C 45 00 B6 04 3C 00 8F 20 20 20 4F 4E |URTLE...<.. ON| 000000A0: 20 54 48 45 20 50 45 54 27 53 20 43 52 54 20 44 | THE PET'S CRT D| 000000B0: 49 53 50 4C 41 59 00 DB 04 46 00 8F 20 41 20 22 |ISPLAY...F.. A "| 000000C0: 54 55 52 54 4C 45 22 20 4C 41 4E 47 55 41 47 45 |TURTLE" LANGUAGE| 000000D0: 20 49 53 20 43 52 45 41 54 45 44 00 00 05 50 00 | IS CREATED...P.| 000000E0: 8F 20 20 20 57 48 45 52 45 42 59 20 54 48 45 20 |. WHEREBY THE | 000000F0: 55 53 45 52 20 43 41 4E 20 50 52 4F 47 52 41 4D |USER CAN PROGRAM| 00000100: 00 25 05 5A 00 8F 20 20 20 54 48 45 20 54 55 52 |.%.Z.. THE TUR| 00000110: 54 4C 45 20 41 4E 44 20 4D 41 4B 45 20 44 52 41 |TLE AND MAKE DRA| 00000120: 57 49 4E 47 53 00 2B 05 64 00 8F 00 51 05 6E 00 |WINGS.+.d...Q.n.| 00000130: 8F 20 48 45 52 45 20 42 45 47 49 4E 53 20 54 48 |. HERE BEGINS TH| 00000140: 45 20 43 41 4C 4C 49 4E 47 20 52 4F 55 54 49 4E |E CALLING ROUTIN| 00000150: 45 00 57 05 78 00 8F 00 67 05 82 00 4D 41 58 20 |E.W.x...g...MAX | 00000160: 20 20 B2 20 32 30 30 00 75 05 8C 00 86 20 50 24 | . 200.u.... P$| 00000170: 28 4D 41 58 29 00 91 05 96 00 8D 20 35 30 30 20 |(MAX)...... 500 | 00000180: 20 20 3A 20 20 8F 20 49 4E 49 54 49 41 4C 49 5A | : . INITIALIZ| 00000190: 45 00 AF 05 A0 00 8D 20 31 30 30 30 20 20 3A 20 |E...... 1000 : | 000001A0: 20 8F 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 00 | . INSTRUCTIONS.| 000001B0: D1 05 AA 00 8D 20 31 35 30 30 20 20 3A 20 20 8F |..... 1500 : .| 000001C0: 20 52 45 41 44 20 55 53 45 52 27 53 20 50 52 4F | READ USER'S PRO| 000001D0: 47 00 F1 05 B4 00 8D 20 32 35 30 30 20 20 3A 20 |G...... 2500 : | 000001E0: 20 8F 20 44 4F 20 55 53 45 52 27 53 20 50 52 4F | . DO USER'S PRO| 000001F0: 47 00 0E 06 BE 00 A1 20 41 4E 24 20 3A 20 8B 20 |G...... AN$ : . | 00000200: 41 4E 24 B2 22 22 20 A7 20 89 20 31 39 30 00 39 |AN$."" . . 190.9| 00000210: 06 C8 00 99 22 93 54 4F 20 53 45 45 20 59 4F 55 |....".TO SEE YOU| 00000220: 52 20 50 52 4F 47 52 41 4D 20 41 47 41 49 4E 2C |R PROGRAM AGAIN,| 00000230: 20 50 52 45 53 53 20 52 22 00 60 06 D2 00 99 22 | PRESS R".`...."| 00000240: 41 4E 59 20 4F 54 48 45 52 20 4B 45 59 20 46 4F |ANY OTHER KEY FO| 00000250: 52 20 41 20 4E 45 57 20 50 52 4F 47 52 41 4D 22 |R A NEW PROGRAM"| 00000260: 00 7E 06 DC 00 A1 20 41 4E 24 20 3A 20 20 8B 20 |.~.... AN$ : . | 00000270: 41 4E 24 B2 22 22 20 A7 20 89 20 32 32 30 00 B3 |AN$."" . . 220..| 00000280: 06 E6 00 8B 20 41 4E 24 20 B2 20 22 52 22 20 A7 |.... AN$ . "R" .| 00000290: 20 50 45 4E B2 30 3A 58 B2 32 30 3A 59 B2 31 32 | PEN.0:X.20:Y.12| 000002A0: 3A 20 20 20 20 20 20 43 B2 38 38 20 3A 20 89 20 |: C.88 : . | 000002B0: 31 38 30 00 BD 06 F0 00 89 20 31 35 30 00 CE 06 |180...... 150...| 000002C0: F4 01 8F 20 49 4E 49 54 49 41 4C 49 5A 45 00 D4 |... INITIALIZE..| 000002D0: 06 FE 01 8F 00 F8 06 08 02 54 20 B2 20 38 31 20 |.........T . 81 | 000002E0: 20 20 20 20 20 3A 20 8F 20 50 45 45 4B 20 43 4F | : . PEEK CO| 000002F0: 44 45 20 46 4F 52 20 D1 00 1B 07 12 02 54 50 20 |DE FOR ......TP | 00000300: B2 20 32 30 20 20 20 20 20 3A 20 8F 20 54 4F 50 |. 20 : . TOP| 00000310: 20 4F 46 20 50 49 43 54 55 52 45 00 41 07 1C 02 | OF PICTURE.A...| 00000320: 42 4F 54 B2 20 30 20 20 20 20 20 20 3A 20 8F 20 |BOT. 0 : . | 00000330: 42 4F 54 54 4F 4D 20 4F 46 20 50 49 43 54 55 52 |BOTTOM OF PICTUR| 00000340: 45 00 66 07 26 02 4C 46 54 20 B2 20 30 20 20 20 |E.f.&.LFT . 0 | 00000350: 20 3A 20 8F 20 4C 45 46 54 20 42 4F 55 4E 44 20 | : . LEFT BOUND | 00000360: 4F 46 20 50 49 43 00 89 07 30 02 52 47 48 54 20 |OF PIC...0.RGHT | 00000370: B2 20 33 39 20 20 3A 20 8F 20 52 54 20 42 4F 55 |. 39 : . RT BOU| 00000380: 4E 44 20 4F 46 20 50 49 43 00 AD 07 35 02 57 20 |ND OF PIC...5.W | 00000390: B2 20 31 35 3A 20 8F 20 20 57 41 49 54 49 4E 47 |. 15: . WAITING| 000003A0: 20 54 49 4D 45 20 3D 20 31 2F 34 20 53 00 CE 07 | TIME = 1/4 S...| 000003B0: 3A 02 50 20 B2 20 31 20 20 20 20 20 20 20 3A 20 |:.P . 1 : | 000003C0: 8F 20 50 52 4F 47 52 41 4D 20 53 54 45 50 00 F4 |. PROGRAM STEP..| 000003D0: 07 44 02 43 20 B2 20 31 30 32 20 20 20 20 20 3A |.D.C . 102 :| 000003E0: 20 8F 20 49 4E 49 54 49 41 4C 20 43 48 41 52 41 | . INITIAL CHARA| 000003F0: 43 54 45 52 00 13 08 46 02 43 31 B2 33 32 20 20 |CTER...F.C1.32 | 00000400: 20 3A 20 8F 20 4C 41 53 54 20 43 48 41 52 41 43 | : . LAST CHARAC| 00000410: 54 45 52 00 1E 08 49 02 43 24 B2 22 A6 22 00 44 |TER...I.C$.".".D| 00000420: 08 4E 02 50 45 4E 20 B2 20 30 20 20 20 20 20 3A |.N.PEN . 0 :| 00000430: 8F 20 50 45 4E 20 44 4F 57 4E 2C 20 31 20 46 4F |. PEN DOWN, 1 FO| 00000440: 52 20 55 50 00 65 08 50 02 43 59 43 4C 45 53 20 |R UP.e.P.CYCLES | 00000450: B2 20 31 30 20 3A 20 8F 20 46 41 4C 4C 20 54 48 |. 10 : . FALL TH| 00000460: 52 4F 55 47 48 00 88 08 52 02 46 4C 41 47 20 B2 |ROUGH...R.FLAG .| 00000470: 20 30 20 20 20 3A 20 8F 20 46 49 52 53 54 20 54 | 0 : . FIRST T| 00000480: 49 4D 45 20 54 48 52 55 00 AC 08 54 02 53 50 45 |IME THRU...T.SPE| 00000490: 45 44 24 20 B2 20 22 46 22 20 3A 20 20 8F 20 46 |ED$ . "F" : . F| 000004A0: 41 53 54 20 41 54 20 46 49 52 53 54 00 C9 08 58 |AST AT FIRST...X| 000004B0: 02 58 20 B2 20 32 30 20 20 20 20 20 20 3A 8F 20 |.X . 20 :. | 000004C0: 49 4E 49 54 49 41 4C 20 58 00 E6 08 62 02 59 20 |INITIAL X...b.Y | 000004D0: B2 20 31 32 20 20 20 20 20 20 3A 8F 20 49 4E 49 |. 12 :. INI| 000004E0: 54 49 41 4C 20 59 00 0B 09 67 02 8F 20 4D 41 4B |TIAL Y...g.. MAK| 000004F0: 45 20 53 55 52 45 20 55 53 45 52 27 53 20 50 52 |E SURE USER'S PR| 00000500: 4F 47 20 49 53 20 42 4C 41 4E 4B 00 1C 09 6C 02 |OG IS BLANK...l.| 00000510: 81 20 49 B2 20 31 20 A4 20 4D 41 58 00 2B 09 76 |. I. 1 . MAX.+.v| 00000520: 02 50 24 28 49 29 20 B2 20 22 22 00 33 09 80 02 |.P$(I) . "".3...| 00000530: 82 20 49 00 57 09 8A 02 8F 20 46 55 4E 43 54 49 |. I.W.... FUNCTI| 00000540: 4F 4E 53 20 54 4F 20 43 4F 4D 50 55 54 45 20 50 |ONS TO COMPUTE P| 00000550: 4F 53 49 54 49 4F 4E 00 77 09 94 02 96 20 A5 53 |OSITION.w.... .S| 00000560: 28 59 29 20 B2 20 33 32 37 36 38 20 AA 20 34 30 |(Y) . 32768 . 40| 00000570: AC 28 32 34 AB 59 29 00 8F 09 9E 02 96 20 A5 54 |.(24.Y)...... .T| 00000580: 28 58 29 20 B2 20 A5 53 28 59 29 20 AA 20 58 00 |(X) . .S(Y) . X.| 00000590: 95 09 BC 02 8E 00 AE 09 E8 03 8F 20 50 52 49 4E |........... PRIN| 000005A0: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 00 B4 |T INSTRUCTIONS..| 000005B0: 09 F2 03 8F 00 CC 09 FC 03 99 22 93 22 3B A6 31 |..........".";.1| 000005C0: 35 29 3B 20 22 54 55 52 54 4C 45 22 00 D2 09 06 |5); "TURTLE"....| 000005D0: 04 99 00 FA 09 10 04 85 20 22 44 4F 20 59 4F 55 |........ "DO YOU| 000005E0: 20 57 41 4E 54 20 41 20 44 45 4D 4F 4E 53 54 52 | WANT A DEMONSTR| 000005F0: 41 54 49 4F 4E 22 3B 41 4E 24 00 15 0A 1A 04 8B |ATION";AN$......| 00000600: 20 C8 28 41 4E 24 2C 31 29 B2 22 4E 22 A7 20 89 | .(AN$,1)."N". .| 00000610: 20 31 31 30 36 00 32 0A 1F 04 8D 20 31 30 30 30 | 1106.2.... 1000| 00000620: 30 20 20 3A 20 8F 20 54 55 52 54 4C 45 20 44 45 |0 : . TURTLE DE| 00000630: 4D 4F 00 64 0A 24 04 99 3A 99 22 59 4F 55 20 47 |MO.d.$..:."YOU G| 00000640: 45 54 20 54 4F 20 54 45 4C 4C 20 54 48 49 53 20 |ET TO TELL THIS | 00000650: 54 55 52 54 4C 45 20 D1 20 48 4F 57 20 54 4F 20 |TURTLE . HOW TO | 00000660: 47 4F 2E 22 00 92 0A 2E 04 99 22 11 59 4F 55 20 |GO."......".YOU | 00000670: 57 52 49 54 45 20 41 20 57 48 4F 4C 45 20 27 50 |WRITE A WHOLE 'P| 00000680: 52 4F 47 52 41 4D 27 20 4F 46 20 54 55 52 54 4C |ROGRAM' OF TURTL| 00000690: 45 22 00 C5 0A 38 04 99 A3 35 29 3B 22 4D 4F 56 |E"...8...5);"MOV| 000006A0: 45 4D 45 4E 54 53 2C 20 54 48 45 4E 20 54 48 45 |EMENTS, THEN THE| 000006B0: 20 54 55 52 54 4C 45 20 44 4F 45 53 20 49 54 2E | TURTLE DOES IT.| 000006C0: 22 20 3A 20 99 00 EC 0A 42 04 99 22 59 4F 55 20 |" : ....B.."YOU | 000006D0: 43 41 4E 20 4D 41 4B 45 20 54 48 45 20 54 55 52 |CAN MAKE THE TUR| 000006E0: 54 4C 45 20 4C 45 41 56 45 20 41 22 00 09 0B 4C |TLE LEAVE A"...L| 000006F0: 04 99 A6 35 29 3B 22 54 52 41 43 45 20 42 45 48 |...5);"TRACE BEH| 00000700: 49 4E 44 2C 54 4F 4F 2E 22 00 29 0B 4E 04 99 22 |IND,TOO.".).N.."| 00000710: 54 59 50 45 20 41 4E 59 20 4C 45 54 54 45 52 20 |TYPE ANY LETTER | 00000720: 54 4F 20 47 4F 20 4F 4E 22 00 35 0B 4F 04 97 20 |TO GO ON".5.O.. | 00000730: 35 32 35 2C 30 00 4F 0B 50 04 A1 20 41 4E 24 3A |525,0.O.P.. AN$:| 00000740: 8B 20 41 4E 24 B2 22 22 20 A7 20 31 31 30 34 00 |. AN$."" . 1104.| 00000750: 59 0B 52 04 99 22 93 22 3B 00 86 0B 56 04 99 22 |Y.R..".";...V.."| 00000760: 48 45 52 45 20 41 52 45 20 54 48 45 20 49 4E 53 |HERE ARE THE INS| 00000770: 54 52 55 43 54 49 4F 4E 53 20 59 4F 55 20 43 41 |TRUCTIONS YOU CA| 00000780: 4E 20 55 53 45 22 00 AA 0B 60 04 99 A6 35 29 3B |N USE"...`...5);| 00000790: 22 55 35 20 20 4D 4F 56 45 20 55 50 20 35 20 28 |"U5 MOVE UP 5 (| 000007A0: 41 4E 59 20 4F 54 48 45 52 22 00 CA 0B 6A 04 99 |ANY OTHER"...j..| 000007B0: A6 31 33 29 3B 22 4E 55 4D 42 45 52 20 57 49 4C |.13);"NUMBER WIL| 000007C0: 4C 20 44 4F 20 54 4F 4F 29 22 00 E5 0B 74 04 99 |L DO TOO)"...t..| 000007D0: A6 35 29 3B 22 44 32 20 20 4D 4F 56 45 20 44 4F |.5);"D2 MOVE DO| 000007E0: 57 4E 20 32 22 00 00 0C 7E 04 99 A6 35 29 3B 22 |WN 2"...~...5);"| 000007F0: 4C 33 20 20 4D 4F 56 45 20 4C 45 46 54 20 33 22 |L3 MOVE LEFT 3"| 00000800: 00 1D 0C 88 04 99 A6 35 29 3B 22 52 31 30 20 4D |.......5);"R10 M| 00000810: 4F 56 45 20 52 49 47 48 54 20 31 30 22 00 42 0C |OVE RIGHT 10".B.| 00000820: 92 04 99 A6 35 29 3B 22 4D 20 20 20 4D 4F 56 45 |....5);"M MOVE| 00000830: 20 4F 4E 4C 59 2C 20 4E 4F 20 44 52 41 57 49 4E | ONLY, NO DRAWIN| 00000840: 47 22 00 66 0C 9C 04 99 A6 35 29 3B 22 50 20 20 |G".f.....5);"P | 00000850: 20 50 45 4E 20 44 4F 57 4E 2C 20 49 2E 45 2E 2C | PEN DOWN, I.E.,| 00000860: 20 44 52 41 57 22 00 88 0C A6 04 99 A6 35 29 3B | DRAW".......5);| 00000870: 22 43 2A 20 20 44 52 41 57 20 57 49 54 48 20 2A |"C* DRAW WITH *| 00000880: 20 4F 52 20 41 4E 59 22 00 A1 0C B0 04 99 A6 31 | OR ANY".......1| 00000890: 33 29 3B 22 4F 54 48 45 52 20 53 59 4D 42 4F 4C |3);"OTHER SYMBOL| 000008A0: 22 00 CB 0C BA 04 99 A6 35 29 3B 22 53 31 2D 36 |".......5);"S1-6| 000008B0: 20 20 47 4F 20 42 41 43 4B 20 54 4F 20 49 4E 53 | GO BACK TO INS| 000008C0: 54 52 55 43 54 49 4F 4E 20 31 22 00 EB 0C C4 04 |TRUCTION 1".....| 000008D0: 99 A6 31 33 29 3B 22 4F 52 20 41 4E 59 20 4F 54 |..13);"OR ANY OT| 000008E0: 48 45 52 20 4E 55 4D 42 45 52 22 00 FC 0C C9 04 |HER NUMBER".....| 000008F0: 99 A6 31 33 29 22 36 54 49 4D 45 53 00 1B 0D CE |..13)"6TIMES....| 00000900: 04 99 A6 35 29 3B 22 45 20 20 20 53 54 4F 50 20 |...5);"E STOP | 00000910: 45 56 45 52 59 54 48 49 4E 47 22 00 4B 0D D8 04 |EVERYTHING".K...| 00000920: 99 22 59 4F 55 20 4D 55 53 54 20 53 45 50 41 52 |."YOU MUST SEPAR| 00000930: 41 54 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ATE INSTRUCTIONS| 00000940: 20 57 49 54 48 20 41 20 2D 2E 22 00 76 0D DD 04 | WITH A -.".v...| 00000950: 99 22 54 48 45 20 53 43 52 45 45 4E 20 49 53 20 |."THE SCREEN IS | 00000960: 33 39 20 57 49 44 45 20 42 59 20 32 33 20 48 49 |39 WIDE BY 23 HI| 00000970: 47 48 20 41 4E 44 00 9D 0D DF 04 99 22 54 48 45 |GH AND......"THE| 00000980: 20 54 55 52 54 4C 45 20 53 54 41 52 54 53 20 49 | TURTLE STARTS I| 00000990: 4E 20 54 48 45 20 4D 49 44 44 4C 45 2E 00 CC 0D |N THE MIDDLE....| 000009A0: E2 04 99 22 11 48 45 52 45 20 49 53 20 41 20 53 |...".HERE IS A S| 000009B0: 41 4D 50 4C 45 20 50 52 4F 47 52 41 4D 20 59 4F |AMPLE PROGRAM YO| 000009C0: 55 20 43 4F 55 4C 44 20 54 52 59 22 00 F4 0D EC |U COULD TRY"....| 000009D0: 04 99 22 20 20 20 46 4F 52 20 53 54 41 52 54 45 |.." FOR STARTE| 000009E0: 52 53 2E 20 20 49 54 20 53 48 4F 55 4C 44 20 44 |RS. IT SHOULD D| 000009F0: 52 41 57 22 00 19 0E F6 04 99 22 20 20 20 41 20 |RAW"......" A | 00000A00: 53 45 52 49 45 53 20 4F 46 20 4C 41 52 47 45 20 |SERIES OF LARGE | 00000A10: 53 51 55 41 52 45 53 2E 22 00 44 0E 00 05 99 22 |SQUARES.".D...."| 00000A20: 4D 2D 4C 32 30 2D 44 35 2D 50 2D 55 31 30 2D 52 |M-L20-D5-P-U10-R| 00000A30: 31 30 2D 44 31 30 2D 4C 31 30 2D 52 32 2D 53 35 |10-D10-L10-R2-S5| 00000A40: 2D 45 2D 22 00 66 0E 0A 05 99 22 41 4C 57 41 59 |-E-".f...."ALWAY| 00000A50: 53 20 45 4E 44 20 41 20 4C 49 4E 45 20 57 49 54 |S END A LINE WIT| 00000A60: 48 20 41 20 2D 22 00 6C 0E AA 05 8E 00 89 0E DC |H A -".l........| 00000A70: 05 8F 20 52 45 41 44 20 49 4E 20 55 53 45 52 27 |.. READ IN USER'| 00000A80: 53 20 50 52 4F 47 52 41 4D 00 8F 0E E6 05 8F 00 |S PROGRAM.......| 00000A90: A0 0E F0 05 99 22 50 52 4F 47 52 41 4D 3A 22 3B |....."PROGRAM:";| 00000AA0: 00 A9 0E FA 05 85 20 4C 24 00 BD 0E 04 06 81 20 |...... L$...... | 00000AB0: 49 31 B2 20 31 20 A4 20 C3 28 4C 24 29 00 D2 0E |I1. 1 . .(L$)...| 00000AC0: 0E 06 4C 43 24 20 B2 20 CA 28 4C 24 2C 49 31 2C |..LC$ . .(L$,I1,| 00000AD0: 31 29 00 06 0F 18 06 8B 20 4C 43 24 20 B2 20 22 |1)...... LC$ . "| 00000AE0: 45 22 20 A7 20 50 24 28 50 29 20 B2 20 4C 43 24 |E" . P$(P) . LC$| 00000AF0: 20 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | : | 00000B00: 89 20 31 39 39 30 00 25 0F 22 06 8B 20 4C 43 24 |. 1990.%.".. LC$| 00000B10: 20 B2 20 22 49 22 20 A7 20 8D 20 32 30 30 30 3A | . "I" . . 2000:| 00000B20: 89 31 37 30 30 00 44 0F 2C 06 8B 20 4C 43 24 20 |.1700.D.,.. LC$ | 00000B30: B2 20 22 55 22 20 A7 20 8D 20 32 32 30 30 3A 89 |. "U" . . 2200:.| 00000B40: 31 37 30 30 00 63 0F 36 06 8B 20 4C 43 24 20 B2 |1700.c.6.. LC$ .| 00000B50: 20 22 44 22 20 A7 20 8D 20 32 32 30 30 3A 89 31 | "D" . . 2200:.1| 00000B60: 37 30 30 00 82 0F 40 06 8B 20 4C 43 24 20 B2 20 |700...@.. LC$ . | 00000B70: 22 4C 22 20 A7 20 8D 20 32 32 30 30 3A 89 31 37 |"L" . . 2200:.17| 00000B80: 30 30 00 A1 0F 4A 06 8B 20 4C 43 24 20 B2 20 22 |00...J.. LC$ . "| 00000B90: 52 22 20 A7 20 8D 20 32 32 30 30 3A 89 31 37 30 |R" . . 2200:.170| 00000BA0: 30 00 C4 0F 54 06 8B 20 4C 43 24 20 B2 20 22 4D |0...T.. LC$ . "M| 00000BB0: 22 20 A7 20 50 24 28 50 29 B2 4C 43 24 20 3A 89 |" . P$(P).LC$ :.| 00000BC0: 31 37 30 30 00 E7 0F 5E 06 8B 20 4C 43 24 20 B2 |1700...^.. LC$ .| 00000BD0: 20 22 50 22 20 A7 20 50 24 28 50 29 B2 4C 43 24 | "P" . P$(P).LC$| 00000BE0: 20 3A 89 31 37 30 30 00 06 10 68 06 8B 20 4C 43 | :.1700...h.. LC| 00000BF0: 24 20 B2 20 22 43 22 20 A7 20 8D 20 32 34 30 30 |$ . "C" . . 2400| 00000C00: 3A 89 31 37 30 30 00 34 10 72 06 8B 20 4C 43 24 |:.1700.4.r.. LC$| 00000C10: 20 B2 20 22 53 22 20 A7 20 8D 20 32 32 30 30 3A | . "S" . . 2200:| 00000C20: 8D 20 20 20 20 20 20 20 34 35 30 30 3A 20 89 20 |. 4500: . | 00000C30: 31 37 30 30 00 4C 10 7C 06 8B 20 4C 43 24 20 B2 |1700.L.|.. LC$ .| 00000C40: 20 22 2D 22 20 A7 20 50 B2 50 AA 31 00 55 10 A4 | "-" . P.P.1.U..| 00000C50: 06 82 20 49 31 00 60 10 B8 06 89 20 31 35 33 30 |.. I1.`.... 1530| 00000C60: 00 66 10 C6 07 8E 00 80 10 D0 07 8F 20 4C 49 53 |.f.......... LIS| 00000C70: 54 20 55 53 45 52 27 53 20 50 52 4F 47 52 41 4D |T USER'S PROGRAM| 00000C80: 00 86 10 DA 07 8F 00 A0 10 E4 07 99 22 20 50 52 |............" PR| 00000C90: 4F 47 52 41 4D 20 4C 49 53 54 49 4E 47 3A 22 3B |OGRAM LISTING:";| 00000CA0: 00 B3 10 EE 07 81 20 49 32 20 B2 20 31 20 A4 20 |...... I2 . 1 . | 00000CB0: 4D 41 58 00 CE 10 F8 07 8B 20 50 24 28 49 32 29 |MAX...... P$(I2)| 00000CC0: 20 B2 20 22 22 20 A7 20 89 20 32 31 30 30 00 E0 | . "" . . 2100..| 00000CD0: 10 02 08 99 20 50 24 28 49 32 29 3B 22 2D 22 3B |.... P$(I2);"-";| 00000CE0: 00 E9 10 0C 08 82 20 49 32 00 EF 10 34 08 8E 00 |...... I2...4...| 00000CF0: 11 11 98 08 8F 20 46 49 4E 44 20 4E 55 4D 42 45 |..... FIND NUMBE| 00000D00: 52 20 41 53 53 4F 43 49 41 54 45 44 20 57 49 54 |R ASSOCIATED WIT| 00000D10: 48 00 33 11 A2 08 8F 20 50 52 45 53 45 4E 54 20 |H.3.... PRESENT | 00000D20: 49 4E 53 54 52 55 43 54 49 4F 4E 20 41 4E 44 20 |INSTRUCTION AND | 00000D30: 50 55 54 00 45 11 AC 08 8F 20 49 54 20 49 4E 20 |PUT.E.... IT IN | 00000D40: 50 24 28 50 29 00 4B 11 B6 08 8F 00 6E 11 C0 08 |P$(P).K.....n...| 00000D50: 4C 31 24 20 B2 20 22 22 20 20 3A 20 8F 20 57 49 |L1$ . "" : . WI| 00000D60: 4C 4C 20 48 4F 4C 44 20 4E 55 4D 42 45 52 00 7E |LL HOLD NUMBER.~| 00000D70: 11 CA 08 50 24 28 50 29 20 B2 20 4C 43 24 00 8C |...P$(P) . LC$..| 00000D80: 11 DE 08 49 31 20 B2 20 49 31 AA 31 00 A1 11 E8 |...I1 . I1.1....| 00000D90: 08 4C 43 24 20 B2 20 CA 28 4C 24 2C 49 31 2C 31 |.LC$ . .(L$,I1,1| 00000DA0: 29 00 BA 11 F2 08 8B 20 4C 43 24 20 B2 20 22 2D |)...... LC$ . "-| 00000DB0: 22 20 A7 20 89 20 32 33 33 30 00 D3 11 FC 08 8B |" . . 2330......| 00000DC0: 20 4C 43 24 20 B2 20 22 20 22 20 A7 20 89 20 32 | LC$ . " " . . 2| 00000DD0: 32 37 30 00 E7 11 06 09 4C 31 24 20 B2 20 4C 31 |270.....L1$ . L1| 00000DE0: 24 20 AA 20 4C 43 24 00 F2 11 10 09 89 20 32 32 |$ . LC$...... 22| 00000DF0: 37 30 00 0A 12 1A 09 50 24 28 50 29 20 B2 20 50 |70.....P$(P) . P| 00000E00: 24 28 50 29 20 AA 20 4C 31 24 00 14 12 1F 09 50 |$(P) . L1$.....P| 00000E10: B2 50 AA 31 00 4D 12 24 09 8B 20 C5 28 4C 31 24 |.P.1.M.$.. .(L1$| 00000E20: 29 B2 30 20 A7 20 99 22 4D 49 53 53 49 4E 47 20 |).0 . ."MISSING | 00000E30: 56 41 4C 55 45 20 49 4E 20 49 4E 53 54 52 55 43 |VALUE IN INSTRUC| 00000E40: 54 49 4F 4E 22 3B 50 AB 31 3B 22 3F 22 00 53 12 |TION";P.1;"?".S.| 00000E50: 2E 09 8E 00 75 12 60 09 8F 20 50 55 54 20 4E 45 |....u.`.. PUT NE| 00000E60: 58 54 20 43 48 41 52 41 43 54 45 52 20 49 4E 20 |XT CHARACTER IN | 00000E70: 50 24 28 50 29 00 85 12 6F 09 50 24 28 50 29 20 |P$(P)...o.P$(P) | 00000E80: B2 20 4C 43 24 00 92 12 74 09 49 31 B2 20 49 31 |. LC$...t.I1. I1| 00000E90: AA 31 00 B1 12 88 09 50 24 28 50 29 20 B2 20 50 |.1.....P$(P) . P| 00000EA0: 24 28 50 29 20 AA 20 CA 28 4C 24 2C 49 31 2C 31 |$(P) . .(L$,I1,1| 00000EB0: 29 00 B7 12 92 09 8E 00 CF 12 C4 09 8F 20 44 4F |)............ DO| 00000EC0: 20 55 53 45 52 27 53 20 50 52 4F 47 52 41 4D 00 | USER'S PROGRAM.| 00000ED0: 15 13 C6 09 85 22 48 4F 57 20 46 41 53 54 20 44 |....."HOW FAST D| 00000EE0: 4F 20 59 4F 55 20 57 41 4E 54 20 4D 45 20 54 4F |O YOU WANT ME TO| 00000EF0: 20 47 4F 20 2D 20 20 20 20 20 20 20 20 20 20 54 | GO - T| 00000F00: 59 50 45 20 46 41 53 54 20 4F 52 20 53 4C 4F 57 |YPE FAST OR SLOW| 00000F10: 22 3B 41 4E 24 00 35 13 C8 09 8B 20 C8 28 41 4E |";AN$.5.... .(AN| 00000F20: 24 2C 31 29 20 B2 22 53 22 A7 20 53 50 45 45 44 |$,1) ."S". SPEED| 00000F30: 24 B2 22 53 22 00 55 13 CA 09 8B 20 C8 28 41 4E |$."S".U.... .(AN| 00000F40: 24 2C 31 29 B2 22 46 22 20 A7 20 53 50 45 45 44 |$,1)."F" . SPEED| 00000F50: 24 B2 22 46 22 00 5F 13 CE 09 99 22 93 22 3B 00 |$."F"._....".";.| 00000F60: 7C 13 D8 09 8D 20 32 30 30 30 20 20 3A 20 8F 20 ||.... 2000 : . | 00000F70: 4C 49 53 54 20 50 52 4F 47 52 41 4D 00 84 13 DD |LIST PROGRAM....| 00000F80: 09 50 B2 31 00 95 13 E2 09 59 43 B2 30 20 3A 20 |.P.1.....YC.0 : | 00000F90: 58 43 20 B2 30 00 AE 13 EC 09 8B 20 50 24 28 50 |XC .0...... P$(P| 00000FA0: 29 B2 22 45 22 20 A7 20 89 20 32 39 39 30 00 C7 |)."E" . . 2990..| 00000FB0: 13 F6 09 8B 20 50 24 28 50 29 B2 22 22 20 20 A7 |.... P$(P)."" .| 00000FC0: 20 89 20 32 39 30 30 00 FE 13 00 0A 8B 20 C8 28 | . 2900...... .(| 00000FD0: 50 24 28 50 29 2C 31 29 B2 22 55 22 20 A7 20 59 |P$(P),1)."U" . Y| 00000FE0: 43 B2 31 20 3A 20 20 20 20 20 20 20 20 20 20 8D |C.1 : .| 00000FF0: 20 33 30 30 30 20 3A 20 89 20 32 39 30 30 00 35 | 3000 : . 2900.5| 00001000: 14 0A 0A 8B 20 C8 28 50 24 28 50 29 2C 31 29 B2 |.... .(P$(P),1).| 00001010: 22 44 22 20 A7 20 59 43 B2 AB 31 3A 20 20 20 20 |"D" . YC..1: | 00001020: 20 20 20 20 20 20 8D 20 33 30 30 30 20 3A 20 89 | . 3000 : .| 00001030: 20 32 39 30 30 00 6C 14 14 0A 8B 20 C8 28 50 24 | 2900.l.... .(P$| 00001040: 28 50 29 2C 31 29 B2 22 52 22 20 A7 20 58 43 B2 |(P),1)."R" . XC.| 00001050: 20 31 3A 20 20 20 20 20 20 20 20 20 20 8D 20 33 | 1: . 3| 00001060: 30 30 30 20 3A 20 89 20 32 39 30 30 00 A4 14 1E |000 : . 2900....| 00001070: 0A 8B 20 C8 28 50 24 28 50 29 2C 31 29 B2 22 4C |.. .(P$(P),1)."L| 00001080: 22 20 A7 20 58 43 B2 AB 31 3A 20 20 20 20 20 20 |" . XC..1: | 00001090: 20 20 20 20 20 8D 20 33 30 30 30 20 3A 20 89 20 | . 3000 : . | 000010A0: 32 39 30 30 00 D8 14 28 0A 8B 20 50 24 28 50 29 |2900...(.. P$(P)| 000010B0: B2 22 4D 22 20 A7 20 50 45 4E 20 B2 20 31 20 20 |."M" . PEN . 1 | 000010C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010D0: 3A 20 89 20 32 39 30 30 00 0C 15 32 0A 8B 20 50 |: . 2900...2.. P| 000010E0: 24 28 50 29 B2 22 50 22 20 A7 20 50 45 4E 20 B2 |$(P)."P" . PEN .| 000010F0: 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 0 | 00001100: 20 20 20 20 3A 20 89 20 32 39 30 30 00 32 15 3C | : . 2900.2.<| 00001110: 0A 8B 20 C8 28 50 24 28 50 29 2C 31 29 20 B2 22 |.. .(P$(P),1) ."| 00001120: 43 22 20 A7 20 8D 20 33 35 30 30 3A 89 20 32 39 |C" . . 3500:. 29| 00001130: 30 30 00 5D 15 46 0A 8B 20 C8 28 50 24 28 50 29 |00.].F.. .(P$(P)| 00001140: 2C 31 29 B2 22 53 22 20 A7 20 20 20 20 20 20 20 |,1)."S" . | 00001150: 20 20 20 20 20 20 20 8D 20 34 30 30 30 00 70 15 | . 4000.p.| 00001160: 54 0B 50 B2 50 AA 31 20 3A 20 89 20 32 35 33 30 |T.P.P.1 : . 2530| 00001170: 00 76 15 AE 0B 8E 00 8C 15 B8 0B 8F 20 4D 4F 56 |.v.......... MOV| 00001180: 45 20 54 48 45 20 54 55 52 54 4C 45 00 92 15 C2 |E THE TURTLE....| 00001190: 0B 8F 00 B1 15 D1 0B 4B 20 B2 20 C5 28 C9 28 50 |.......K . .(.(P| 000011A0: 24 28 50 29 2C C3 28 50 24 28 50 29 29 AB 31 29 |$(P),.(P$(P)).1)| 000011B0: 29 00 C1 15 D6 0B 81 20 4A 20 B2 20 31 20 A4 20 |)...... J . 1 . | 000011C0: 4B 00 DB 15 E0 0B 8B 20 50 45 4E 20 B2 31 20 A7 |K...... PEN .1 .| 000011D0: 20 97 20 A5 54 28 58 29 2C 43 31 00 F5 15 EA 0B | . .T(X),C1.....| 000011E0: 8B 20 50 45 4E 20 B2 20 30 20 A7 20 97 20 A5 54 |. PEN . 0 . . .T| 000011F0: 28 58 29 2C 43 00 10 16 F4 0B 58 20 B2 20 58 20 |(X),C.....X . X | 00001200: AA 58 43 20 3A 20 59 20 B2 20 59 20 AA 20 59 43 |.XC : Y . Y . YC| 00001210: 00 21 16 FE 0B 43 31 B2 20 C2 28 A5 54 28 58 29 |.!...C1. .(.T(X)| 00001220: 29 00 33 16 08 0C 8B 20 59 B1 54 50 A7 20 59 B2 |).3.... Y.TP. Y.| 00001230: 42 4F 54 00 46 16 12 0C 8B 20 59 B3 42 4F 54 20 |BOT.F.... Y.BOT | 00001240: A7 20 59 B2 54 50 00 5B 16 1C 0C 8B 20 58 B1 52 |. Y.TP.[.... X.R| 00001250: 47 48 54 20 A7 20 58 B2 4C 46 54 00 71 16 26 0C |GHT . X.LFT.q.&.| 00001260: 8B 20 58 B3 4C 46 54 20 20 A7 20 58 B2 52 47 48 |. X.LFT . X.RGH| 00001270: 54 00 7F 16 30 0C 97 20 A5 54 28 58 29 2C 54 00 |T...0.. .T(X),T.| 00001280: 9B 16 35 0C 8B 20 53 50 45 45 44 24 20 B2 20 22 |..5.. SPEED$ . "| 00001290: 53 22 20 A7 20 8D 20 33 34 30 30 00 A3 16 3A 0C |S" . . 3400...:.| 000012A0: 82 20 4A 00 A9 16 80 0C 8E 00 BE 16 48 0D 8F 20 |. J.........H.. | 000012B0: 57 41 49 54 20 57 2F 36 30 20 53 45 43 53 00 CA |WAIT W/60 SECS..| 000012C0: 16 52 0D 54 4D 20 B2 20 54 49 00 E5 16 5C 0D 8B |.R.TM . TI...\..| 000012D0: 20 54 49 20 B3 20 54 4D 20 AA 20 57 20 A7 20 89 | TI . TM . W . .| 000012E0: 20 33 34 32 30 00 EB 16 66 0D 8E 00 0C 17 AC 0D | 3420...f.......| 000012F0: 8F 20 46 49 4E 44 20 4E 45 57 20 44 52 41 57 49 |. FIND NEW DRAWI| 00001300: 4E 47 20 43 48 41 52 41 43 54 45 52 00 1E 17 B6 |NG CHARACTER....| 00001310: 0D 43 24 B2 C9 28 50 24 28 50 29 2C 31 29 00 2B |.C$..(P$(P),1).+| 00001320: 17 C0 0D 99 22 13 22 3B 43 24 3B 00 3A 17 CA 0D |....".";C$;.:...| 00001330: 43 B2 C2 28 33 32 37 36 38 29 00 40 17 D4 0D 8E |C..(32768).@....| 00001340: 00 56 17 A0 0F 8F 20 46 49 4E 44 20 4E 45 57 20 |.V.... FIND NEW | 00001350: 43 59 43 4C 45 53 00 6F 17 AA 0F 8B 20 46 4C 41 |CYCLES.o.... FLA| 00001360: 47 20 B3 B1 20 30 20 A7 20 89 20 34 32 30 30 00 |G .. 0 . . 4200.| 00001370: A5 17 B4 0F 8B C6 28 50 24 28 50 AA 31 29 29 20 |......(P$(P.1)) | 00001380: B1 20 35 37 20 A7 20 43 59 43 4C 45 53 B2 39 20 |. 57 . CYCLES.9 | 00001390: 20 20 20 20 20 20 3A 46 4C 41 47 B2 31 3A 20 89 | :FLAG.1: .| 000013A0: 20 34 32 30 30 00 BF 17 BE 0F 43 59 43 4C 45 53 | 4200.....CYCLES| 000013B0: 20 B2 20 C5 28 50 24 28 50 AA 31 29 29 AB 31 00 | . .(P$(P.1)).1.| 000013C0: CB 17 C8 0F 46 4C 41 47 20 B2 31 00 E2 17 68 10 |....FLAG .1...h.| 000013D0: 43 59 43 4C 45 53 20 B2 20 43 59 43 4C 45 53 20 |CYCLES . CYCLES | 000013E0: AB 31 00 03 18 72 10 8B 20 43 59 43 4C 45 53 20 |.1...r.. CYCLES | 000013F0: B3 20 30 20 A7 20 46 4C 41 47 B2 30 3A 89 20 34 |. 0 . FLAG.0:. 4| 00001400: 34 30 30 00 24 18 7C 10 50 20 B2 20 C5 28 C9 28 |400.$.|.P . .(.(| 00001410: 50 24 28 50 29 2C C3 28 50 24 28 50 29 29 AB 31 |P$(P),.(P$(P)).1| 00001420: 29 29 AB 31 00 2A 18 30 11 8E 00 4B 18 94 11 8F |)).1.*.0...K....| 00001430: 20 50 55 54 20 4E 45 58 54 20 4E 55 4D 42 45 52 | PUT NEXT NUMBER| 00001440: 20 49 4E 20 50 24 28 50 2B 31 29 00 75 18 99 11 | IN P$(P+1).u...| 00001450: 8B C6 28 CA 28 4C 24 2C 49 31 AA 31 2C 31 29 29 |..(.(L$,I1.1,1))| 00001460: B1 35 37 20 A7 20 20 20 20 20 20 20 20 20 20 89 |.57 . .| 00001470: 20 34 36 31 30 00 80 18 B2 11 4C 31 24 B2 22 22 | 4610.....L1$.""| 00001480: 00 8C 18 B7 11 49 31 B2 49 31 AA 31 00 A1 18 BC |.....I1.I1.1....| 00001490: 11 4C 43 24 20 B2 20 CA 28 4C 24 2C 49 31 2C 31 |.LC$ . .(L$,I1,1| 000014A0: 29 00 BA 18 C6 11 8B 20 4C 43 24 20 B2 20 22 2D |)...... LC$ . "-| 000014B0: 22 20 A7 20 89 20 34 36 30 30 00 D3 18 D0 11 8B |" . . 4600......| 000014C0: 20 4C 43 24 20 B2 20 22 20 22 20 A7 20 89 20 34 | LC$ . " " . . 4| 000014D0: 35 33 35 00 E7 18 DA 11 4C 31 24 20 B2 20 4C 31 |535.....L1$ . L1| 000014E0: 24 20 AA 20 4C 43 24 00 F2 18 E4 11 89 20 34 35 |$ . LC$...... 45| 000014F0: 33 35 00 02 19 F8 11 50 24 28 50 29 20 B2 20 4C |35.....P$(P) . L| 00001500: 31 24 00 0C 19 FD 11 50 B2 50 AA 31 00 12 19 02 |1$.....P.P.1....| 00001510: 12 8E 00 24 19 10 27 8F 20 54 55 52 54 4C 45 20 |...$..'. TURTLE | 00001520: 44 45 4D 4F 00 46 19 1A 27 83 20 4D 2C 4C 32 30 |DEMO.F..'. M,L20| 00001530: 2C 50 2C 43 2A 2C 52 35 2C 4C 33 2C 44 39 2C 4D |,P,C*,R5,L3,D9,M| 00001540: 2C 55 38 2C 52 35 00 61 19 24 27 83 20 50 2C 22 |,U8,R5.a.$'. P,"| 00001550: 43 A6 22 2C 44 38 2C 52 35 2C 55 39 2C 4D 2C 52 |C.",D8,R5,U9,M,R| 00001560: 32 00 83 19 2E 27 83 20 50 2C 22 43 D6 22 2C 52 |2....'. P,"C.",R| 00001570: 35 2C 44 34 2C 4C 35 2C 55 34 2C 44 38 2C 55 34 |5,D4,L5,U4,D8,U4| 00001580: 2C 52 33 00 9A 19 38 27 83 20 44 32 2C 52 32 2C |,R3...8'. D2,R2,| 00001590: 44 33 2C 4D 2C 52 32 2C 55 38 00 B8 19 42 27 83 |D3,M,R2,U8...B'.| 000015A0: 20 50 2C 22 43 BF 22 2C 52 35 2C 4C 33 2C 44 39 | P,"C.",R5,L3,D9| 000015B0: 2C 4D 2C 55 38 2C 52 34 00 D3 19 4C 27 83 20 50 |,M,U8,R4...L'. P| 000015C0: 2C 22 43 DB 22 2C 44 38 2C 52 36 2C 4D 2C 52 31 |,"C.",D8,R6,M,R1| 000015D0: 2C 55 38 00 F5 19 56 27 83 20 50 2C 22 43 D1 22 |,U8...V'. P,"C."| 000015E0: 2C 52 35 2C 4C 35 2C 44 34 2C 52 33 2C 4C 33 2C |,R5,L5,D4,R3,L3,| 000015F0: 44 34 2C 52 36 00 07 1A 60 27 83 20 4D 2C 55 31 |D4,R6...`'. M,U1| 00001600: 32 2C 4C 32 35 2C 45 00 0D 1A 74 27 8F 00 1D 1A |2,L25,E...t'....| 00001610: 7E 27 81 20 49 B2 20 31 20 A4 20 36 30 00 29 1A |~'. I. 1 . 60.).| 00001620: 88 27 87 20 50 24 28 49 29 00 31 1A 92 27 82 20 |.'. P$(I).1..'. | 00001630: 49 00 3B 1A 97 27 99 22 93 22 3B 00 46 1A 9C 27 |I.;..'.".";.F..'| 00001640: 8D 20 32 35 32 30 00 50 1A A6 27 8D 20 35 30 30 |. 2520.P..'. 500| 00001650: 00 5A 1A AB 27 99 22 93 22 3B 00 60 1A B0 27 8E |.Z..'.".";.`..'.| 00001660: 00 00 00 0A |.... |
....... 59468,12.,.... TURTLE BY BILL FI
NZER.H.... SEPT,1978.N.....P
.(.. THIS PROGRAM MIMICS SEYMOUR...2..
PAPERT'S PROGRAMMABLE TURTLE...<.. ON
THE PET'S CRT DISPLAY...F.. A "TURTLE"
LANGUAGE IS CREATED...P.. WHEREBY THE
USER CAN PROGRAM.%.Z.. THE TURTLE AND
MAKE DRAWINGS.+.D...Q.N.. HERE BEGINS TH
E CALLING ROUTINE.W.X...G...MAX . 200.
U.... P$(MAX)...... 500 : . INITIALIZ
E... .. 1000 : . INSTRUCTIONS.Q.... 15
00 : . READ USER'S PROG...... 2500 :
. DO USER'S PROG...... AN$ : . AN$."" .
. 190.9.H..".TO SEE YOUR PROGRAM AGAIN,
PRESS R".`.R.."ANY OTHER KEY FOR A NEW
PROGRAM".~.... AN$ : . AN$."" . . 220..
.... AN$ . "R" . PEN.0:X.20:Y.12: C
.88 : . 180...... 150.N.... INITIALIZE.T
.........T . 81 : . PEEK CODE FOR Q
.....TP . 20 : . TOP OF PICTURE.A...
BOT. 0 : . BOTTOM OF PICTURE.F.&.LF
T . 0 : . LEFT BOUND OF PIC...0.RGHT
. 39 : . RT BOUND OF PIC...5.W . 15: .
WAITING TIME = 1/4 S.N.:.P . 1 :
. PROGRAM STEP...D.C . 102 : . INITI
AL CHARACTER...F.C1.32 : . LAST CHARAC
TER...I.C$.".".D.N.PEN . 0 :. PEN DO
WN, 1 FOR UP.E.P.CYCLES . 10 : . FALL TH
ROUGH...R.FLAG . 0 : . FIRST TIME THRU
...T.SPEED$ . "F" : . FAST AT FIRST.I.X
.X . 20 :. INITIAL X...B.Y . 12
:. INITIAL Y...G.. MAKE SURE USER'S PR
OG IS BLANK...L.. I. 1 . MAX.+.V.P$(I) .
"".3.... I.W.... FUNCTIONS TO COMPUTE P
OSITION.W.... .S(Y) . 32768 . 40.(24.Y).
..... .T(X) . .S(Y) . X............ PRIN
T INSTRUCTIONS.......L....".";.15); "TUR
TLE".R.......... "DO YOU WANT A DEMONSTR
ATION";AN$...... H(AN$,1)."N". . 1106.2.
... 10000 : . TURTLE DEMO.D.$..:."YOU G
ET TO TELL THIS TURTLE Q HOW TO GO."....
..".YOU WRITE A WHOLE 'PROGRAM' OF TURTL
E".E.8...5);"MOVEMENTS, THEN THE TURTLE
DOES IT." : ....B.."YOU CAN MAKE THE TUR
TLE LEAVE A"...L...5);"TRACE BEHIND,TOO.
".).N.."TYPE ANY LETTER TO GO ON".5.O..
525,0.O.P.. AN$:. AN$."" . 1104.Y.R.."."
;...V.."HERE ARE THE INSTRUCTIONS YOU CA
N USE"...`...5);"U5 MOVE UP 5 (ANY OTHE
R".J.J...13);"NUMBER WILL DO TOO)"...T..
.5);"D2 MOVE DOWN 2"...~...5);"L3 MOVE
LEFT 3".......5);"R10 MOVE RIGHT 10".B.
....5);"M MOVE ONLY, NO DRAWING".F....
.5);"P PEN DOWN, I.E., DRAW".......5);
"C* DRAW WITH * OR ANY".......13);"OTHE
R SYMBOL".K.....5);"S1-6 GO BACK TO INS
TRUCTION 1"...D...13);"OR ANY OTHER NUMB
ER"...I...13)"6TIMES...N...5);"E STOP
EVERYTHING".K.X.."YOU MUST SEPARATE INST
RUCTIONS WITH A -.".V...."THE SCREEN IS
39 WIDE BY 23 HIGH AND......"THE TURTLE
STARTS IN THE MIDDLE..L....".HERE IS A S
AMPLE PROGRAM YOU COULD TRY"......" FO
R STARTERS. IT SHOULD DRAW"......" A
SERIES OF LARGE SQUARES.".D...."M-L20-D5
-P-U10-R10-D10-L10-R2-S5-E-".F...."ALWAY
S END A LINE WITH A -".L.......... READ
IN USER'S PROGRAM....... ...."PROGRAM:";
...... L$...... I1. 1 . C(L$).R...LC$ .
J(L$,I1,1)...... LC$ . "E" . P$(P) . LC$
: . 1990.%.".. LC$ . "I" .
. 2000:.1700.D.,.. LC$ . "U" . . 2200:.
1700.C.6.. LC$ . "D" . . 2200:.1700...@.
. LC$ . "L" . . 2200:.1700...J.. LC$ . "
R" . . 2200:.1700.D.T.. LC$ . "M" . P$(P
).LC$ :.1700...^.. LC$ . "P" . P$(P).LC$
:.1700...H.. LC$ . "C" . . 2400:.1700.4
.R.. LC$ . "S" . . 2200:. 4500: .
1700.L.|.. LC$ . "-" . P.P.1.U.... I1.`.
... 1530.F.F.....P.. LIST USER'S PROGRAM
...Z... ...." PROGRAM LISTING:";...... I
2 . 1 . MAX.N.... P$(I2) . "" . . 2100..
.... P$(I2);"-";...... I2...4........ FI
ND NUMBER ASSOCIATED WITH.3.... PRESENT
INSTRUCTION AND PUT.E.... IT IN P$(P).K.
....N...L1$ . "" : . WILL HOLD NUMBER.~
.J.P$(P) . LC$.....I1 . I1.1.....LC$ . J
(L$,I1,1)...... LC$ . "-" . . 2330.S....
LC$ . " " . . 2270.....L1$ . L1$ . LC$.
..... 2270.....P$(P) . P$(P) . L1$.....P
.P.1.M.$.. E(L1$).0 . ."MISSING VALUE IN
INSTRUCTION";P.1;"?".S.....U.`.. PUT NE
XT CHARACTER IN P$(P)...O.P$(P) . LC$...
T.I1. I1.1.....P$(P) . P$(P) . J(L$,I1,1
).......O.D.. DO USER'S PROGRAM...F.."HO
W FAST DO YOU WANT ME TO GO - T
YPE FAST OR SLOW";AN$.5.H.. H(AN$,1) ."S
". SPEED$."S".U.J.. H(AN$,1)."F" . SPEED
$."F"._.N..".";.|.X.. 2000 : . LIST PRO
GRAM.....P.1.....YC.0 : XC .0...... P$(P
)."E" . . 2990.G.... P$(P)."" . . 2900.
..... H(P$(P),1)."U" . YC.1 : .
3000 : . 2900.5.... H(P$(P),1)."D" . YC
..1: . 3000 : . 2900.L.... H(P$
(P),1)."R" . XC. 1: . 3000 : .
2900...... H(P$(P),1)."L" . XC..1:
. 3000 : . 2900.X.(.. P$(P)."M" . P
EN . 1 : . 2900...2.. P
$(P)."P" . PEN . 0 : .
2900.2.<.. H(P$(P),1) ."C" . . 3500:. 29
00.].F.. H(P$(P),1)."S" . .
4000.P.T.P.P.1 : . 2530.V.......... MOV
E THE TURTLE...B.....Q.K . E(I(P$(P),C(P
$(P)).1)).A.V.. J . 1 . K...... PEN .1 .
. .T(X),C1...... PEN . 0 . . .T(X),C...
..X . X .XC : Y . Y . YC.!...C1. B(.T(X)
).3.... Y.TP. Y.BOT.F.... Y.BOT . Y.TP.[
.... X.RGHT . X.LFT.Q.&.. X.LFT . X.RGH
T..0.. .T(X),T...5.. SPEED$ . "S" . . 3
400...:.. J.........H.. WAIT W/60 SECS.J
.R.TM . TI...\.. TI . TM . W . . 3420...
F........ FIND NEW DRAWING CHARACTER....
.C$.I(P$(P),1).+....".";C$;.:.J.C.B(3276
8).@.T...V. .. FIND NEW CYCLES.O.... FLA
G .. 0 . . 4200......F(P$(P.1)) . 57 . C
YCLES.9 :FLAG.1: . 4200.....CYCLES
. E(P$(P.1)).1.K.H.FLAG .1...H.CYCLES .
CYCLES .1...R.. CYCLES . 0 . FLAG.0:. 4
400.$.|.P . E(I(P$(P),C(P$(P)).1)).1.*.0
...K.... PUT NEXT NUMBER IN P$(P+1).U...
.F(J(L$,I1.1,1)).57 . . 4610...
..L1$."".....I1.I1.1.....LC$ . J(L$,I1,1
)...F.. LC$ . "-" . . 4600.S.P.. LC$ . "
" . . 4535...Z.L1$ . L1$ . LC$...... 45
35.....P$(P) . L1$.....P.P.1.......$..'.
TURTLE DEMO.F..'. M,L20,P,C*,R5,L3,D9,M
,U8,R5.A.$'. P,"C.",D8,R5,U9,M,R2....'.
P,"CV",R5,D4,L5,U4,D8,U4,R3...8'. D2,R2,
D3,M,R2,U8...B'. P,"C.",R5,L3,D9,M,U8,R4
.S.L'. P,"C.",D8,R6,M,R1,U8...V'. P,"CQ"
,R5,L5,D4,R3,L3,D4,R6...`'. M,U12,L25,E.
..T'....~'. I. 1 . 60.)..'. P$(I).1..'.
I.;..'.".";.F..'. 2520.P..'. 500.Z..'.".
";.`..'.....
> CLICK IMAGE PREVIEW FOR FULL MODAL