TURTLE GRAPHIC 1
FILE INFORMATION
FILENAME(S): TURTLE GRAPHIC 1
FILE TYPE(S): PRG
FILE SIZE: 8.5K
FIRST SEEN: 2025-11-30 18:12:59
APPEARS ON: 1 disk(s)
FILE HASH
f27f6ad25cc1f7463166191f938ab72ddfc6c3be02bc01104da7f459d7c1989e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| OCTOBER GAZETTE | TURTLE GRAPHIC 1 | PRG | Sailor, Ganheden | 10 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 23 40 0A 00 8F 20 54 55 52 54 4C 45 20 47 |.@#@... TURTLE G|
00000010: 52 41 50 48 49 43 53 20 49 4E 54 45 52 50 52 45 |RAPHICS INTERPRE|
00000020: 54 45 52 00 60 40 1E 00 8B 20 C2 28 34 39 31 35 |TER.`@... .(4915|
00000030: 32 29 B3 B1 31 37 33 20 A7 20 99 20 C7 28 31 35 |2)..173 . . .(15|
00000040: 30 29 20 22 54 55 52 54 4C 45 20 44 41 54 41 20 |0) "TURTLE DATA |
00000050: 44 49 44 20 4E 4F 54 20 4C 4F 41 44 22 3A 20 80 |DID NOT LOAD": .|
00000060: 00 AA 40 28 00 58 B2 30 3A 20 59 B2 30 3A 20 49 |..@(.X.0: Y.0: I|
00000070: 58 B2 30 3A 20 49 59 B2 30 3A 20 44 B2 30 3A 20 |X.0: IY.0: D.0: |
00000080: 4E 55 B2 30 3A 20 42 59 B2 30 3A 20 42 49 B2 30 |NU.0: BY.0: BI.0|
00000090: 3A 20 58 48 B2 31 36 30 3A 20 58 4C B2 AB 31 35 |: XH.160: XL..15|
000000A0: 39 3A 20 43 B2 FF AD 31 38 30 00 F4 40 32 00 43 |9: C...180..@2.C|
000000B0: 52 B2 2E 37 34 3A 20 59 48 B2 B5 28 37 39 AD 43 |R..74: YH..(79.C|
000000C0: 52 29 3A 20 59 4C B2 AB 59 48 3A 20 42 41 B2 32 |R): YL..YH: BA.2|
000000D0: 3A 20 42 42 B2 38 3A 20 42 4C B2 33 32 30 3A 20 |: BB.8: BL.320: |
000000E0: 53 43 B2 38 31 39 32 3A 20 50 45 B2 30 3A 20 44 |SC.8192: PE.0: D|
000000F0: 52 B2 AB 31 00 45 41 3C 00 4D 41 B2 37 3A 20 48 |R..1.EA<.MA.7: H|
00000100: B2 30 3A 20 50 58 B2 35 33 32 34 38 3A 20 42 42 |.0: PX.53248: BB|
00000110: B2 38 3A 20 42 4C B2 33 32 30 3A 20 53 43 B2 38 |.8: BL.320: SC.8|
00000120: 31 39 32 3A 20 50 45 B2 30 3A 20 44 52 B2 AB 31 |192: PE.0: DR..1|
00000130: 3A 20 4D 41 B2 37 3A 20 48 B2 30 3A 20 50 58 B2 |: MA.7: H.0: PX.|
00000140: 35 33 32 34 38 00 92 41 46 00 50 59 B2 35 33 32 |53248..AF.PY.532|
00000150: 34 39 3A 20 42 47 B2 32 35 36 3A 20 52 4F B2 30 |49: BG.256: RO.0|
00000160: 3A 20 43 4F B2 30 3A 20 58 53 B2 30 3A 20 59 53 |: CO.0: XS.0: YS|
00000170: B2 30 3A 20 53 50 B2 30 3A 20 50 54 B2 32 30 34 |.0: SP.0: PT.204|
00000180: 30 3A 20 53 45 B2 35 33 32 36 39 3A 20 48 41 B2 |0: SE.53269: HA.|
00000190: 2E 35 00 DC 41 50 00 43 31 B2 31 32 3A 20 43 32 |.5..AP.C1.12: C2|
000001A0: B2 34 30 3A 20 43 33 B2 35 30 3A 20 43 34 B2 32 |.40: C3.50: C4.2|
000001B0: 38 3A 20 43 35 B2 32 34 3A 20 43 36 B2 33 3A 20 |8: C5.24: C6.3: |
000001C0: 43 37 B2 35 3A 20 43 49 B2 33 36 30 3A 20 4D 58 |C7.5: CI.360: MX|
000001D0: B2 35 33 32 36 34 3A 20 50 43 B2 30 00 FC 41 5A |.53264: PC.0..AZ|
000001E0: 00 46 46 B2 32 35 35 3A 20 53 53 B2 34 35 3A 20 |.FF.255: SS.45: |
000001F0: 53 42 B2 35 36 3A 20 59 4D B2 37 39 00 2D 42 64 |SB.56: YM.79.-Bd|
00000200: 00 86 20 53 54 24 28 32 35 35 29 2C 53 54 28 32 |.. ST$(255),ST(2|
00000210: 35 35 29 2C 52 50 28 32 35 35 29 2C 50 52 24 28 |55),RP(255),PR$(|
00000220: 32 35 35 29 2C 50 4E 24 28 32 35 35 29 00 4D 42 |255),PN$(255).MB|
00000230: 6E 00 96 20 A5 52 28 58 29 B2 B5 28 28 58 AA 2E |n.. .R(X)..((X..|
00000240: 30 30 35 29 AC 31 30 30 29 AD 31 30 30 00 70 42 |005).100).100.pB|
00000250: 78 00 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 53 |x.. INITIALIZE S|
00000260: 43 52 45 45 4E 20 41 4E 44 20 54 55 52 54 4C 45 |CREEN AND TURTLE|
00000270: 00 A8 42 82 00 8D 20 33 30 30 30 3A 20 97 20 32 |..B... 3000: . 2|
00000280: 2C 20 31 31 30 3A 20 97 20 35 33 32 37 37 2C 20 |, 110: . 53277, |
00000290: 30 3A 20 97 20 35 33 32 37 31 2C 20 30 3A 20 97 |0: . 53271, 0: .|
000002A0: 20 35 33 32 38 37 2C 30 00 E5 42 8C 00 9E 20 34 | 53287,0..B... 4|
000002B0: 39 32 39 35 3A 20 9E 20 34 39 32 33 35 3A 20 9E |9295: . 49235: .|
000002C0: 20 34 39 33 32 32 3A 20 97 20 53 45 2C 20 31 3A | 49322: . SE, 1:|
000002D0: 20 97 20 35 33 32 38 30 2C 32 3A 20 97 35 33 32 | . 53280,2: .532|
000002E0: 38 31 2C 31 31 00 10 43 96 00 99 20 C7 28 31 32 |81,11..C... .(12|
000002F0: 39 29 20 22 54 55 52 54 4C 45 20 47 52 41 50 48 |9) "TURTLE GRAPH|
00000300: 49 43 53 20 49 4E 54 45 52 50 52 45 54 45 52 22 |ICS INTERPRETER"|
00000310: 00 1C 43 AA 00 99 20 C7 28 33 30 29 00 54 43 C8 |..C... .(30).TC.|
00000320: 00 8F 20 4D 41 49 4E 20 4C 4F 4F 50 20 2D 20 47 |.. MAIN LOOP - G|
00000330: 45 54 20 41 20 4C 49 4E 45 20 4F 46 20 43 4F 4D |ET A LINE OF COM|
00000340: 4D 41 4E 44 53 20 41 4E 44 20 50 52 4F 43 45 53 |MANDS AND PROCES|
00000350: 53 20 49 54 00 6C 43 D2 00 53 54 24 28 30 29 B2 |S IT.lC..ST$(0).|
00000360: 22 22 3A 20 85 20 53 54 24 28 30 29 00 8D 43 DC |"": . ST$(0)..C.|
00000370: 00 4E 45 B2 30 3A 20 53 54 28 30 29 B2 30 3A 20 |.NE.0: ST(0).0: |
00000380: 52 50 28 30 29 B2 30 3A 20 45 52 B2 30 00 A3 43 |RP(0).0: ER.0..C|
00000390: E6 00 8B 20 53 54 24 28 30 29 B2 22 22 20 A7 20 |... ST$(0)."" . |
000003A0: 32 31 30 00 ED 43 F0 00 8F 20 43 4F 50 59 20 55 |210..C... COPY U|
000003B0: 4E 45 58 45 43 55 54 45 44 20 50 41 52 54 20 4F |NEXECUTED PART O|
000003C0: 46 20 43 55 52 52 45 4E 54 20 43 4F 4D 4D 41 4E |F CURRENT COMMAN|
000003D0: 44 20 53 54 52 49 4E 47 20 28 4E 45 53 54 49 4E |D STRING (NESTIN|
000003E0: 47 20 4C 45 56 45 4C 20 3D 20 4E 45 29 00 0C 44 |G LEVEL = NE)..D|
000003F0: FA 00 8F 20 49 4E 54 4F 20 49 4E 24 20 54 4F 20 |... INTO IN$ TO |
00000400: 42 45 20 50 52 4F 43 45 53 53 45 44 00 38 44 04 |BE PROCESSED.8D.|
00000410: 01 49 4E 24 B2 C9 28 53 54 24 28 4E 45 29 2C 20 |.IN$..(ST$(NE), |
00000420: C3 28 53 54 24 28 4E 45 29 29 AB 53 54 28 4E 45 |.(ST$(NE)).ST(NE|
00000430: 29 29 3A 20 49 4E B2 30 00 61 44 0E 01 8D 20 35 |)): IN.0.aD... 5|
00000440: 30 30 30 20 20 46 49 4C 4C 20 57 44 24 20 57 49 |000 FILL WD$ WI|
00000450: 54 48 20 82 20 57 B0 44 20 46 52 4F 4D 20 49 4E |TH . W.D FROM IN|
00000460: 24 00 75 44 18 01 8B 20 57 44 24 B3 B1 22 22 20 |$.uD... WD$.."" |
00000470: A7 20 33 35 30 00 BD 44 22 01 8F 20 49 4E 24 20 |. 350..D".. IN$ |
00000480: 49 53 20 45 4D 50 54 59 3B 20 57 45 20 41 52 45 |IS EMPTY; WE ARE|
00000490: 20 44 4F 4E 45 20 57 49 54 48 20 41 4C 4C 20 43 | DONE WITH ALL C|
000004A0: 4F 4D 4D 41 4E 44 53 20 49 46 20 4E 45 53 54 49 |OMMANDS IF NESTI|
000004B0: 4E 47 20 4C 45 56 45 4C 20 49 53 20 30 00 CE 44 |NG LEVEL IS 0..D|
000004C0: 2C 01 8B 20 4E 45 B2 30 20 A7 20 32 30 30 00 19 |,.. NE.0 . 200..|
000004D0: 45 36 01 8F 20 57 45 20 48 41 56 45 20 43 4F 4D |E6.. WE HAVE COM|
000004E0: 50 4C 45 54 45 44 20 41 20 52 45 50 45 54 49 54 |PLETED A REPETIT|
000004F0: 49 4F 4E 20 4F 46 20 54 48 45 20 43 55 52 52 45 |ION OF THE CURRE|
00000500: 4E 54 20 43 4F 4D 4D 41 4E 44 20 53 54 52 49 4E |NT COMMAND STRIN|
00000510: 47 20 53 54 24 28 4E 45 29 00 4B 45 40 01 8F 20 |G ST$(NE).KE@.. |
00000520: 49 46 20 4E 45 45 44 45 44 2C 20 52 45 50 45 41 |IF NEEDED, REPEA|
00000530: 54 2E 20 20 45 4C 53 45 2C 20 50 4F 50 20 4E 45 |T. ELSE, POP NE|
00000540: 53 54 49 4E 47 20 4C 45 56 45 4C 00 7D 45 4A 01 |STING LEVEL.}EJ.|
00000550: 52 50 28 4E 45 29 B2 52 50 28 4E 45 29 AB 31 3A |RP(NE).RP(NE).1:|
00000560: 20 8B 20 52 50 28 4E 45 29 B1 30 20 A7 20 53 54 | . RP(NE).0 . ST|
00000570: 28 4E 45 29 B2 30 3A 20 89 20 32 34 30 00 90 45 |(NE).0: . 240..E|
00000580: 54 01 4E 45 B2 4E 45 AB 31 3A 20 89 20 32 34 30 |T.NE.NE.1: . 240|
00000590: 00 B6 45 5E 01 8B 20 28 57 44 24 B2 22 52 45 50 |..E^.. (WD$."REP|
000005A0: 45 41 54 22 29 B0 28 57 44 24 B2 22 52 50 22 29 |EAT").(WD$."RP")|
000005B0: 20 A7 20 34 34 30 00 E1 45 68 01 8F 20 43 48 45 | . 440..Eh.. CHE|
000005C0: 43 4B 20 49 46 20 43 4F 4D 4D 41 4E 44 20 49 53 |CK IF COMMAND IS|
000005D0: 20 41 20 50 52 4F 43 45 44 55 52 45 20 4E 41 4D | A PROCEDURE NAM|
000005E0: 45 00 FA 45 72 01 8D 20 36 30 30 30 3A 20 8B 20 |E..Er.. 6000: . |
000005F0: 50 4E B2 30 20 A7 20 34 31 30 00 37 46 7C 01 8F |PN.0 . 410.7F|..|
00000600: 20 53 54 55 46 46 20 49 4E 24 20 57 49 54 48 20 | STUFF IN$ WITH |
00000610: 50 52 4F 43 20 53 54 52 49 4E 47 20 41 53 20 49 |PROC STRING AS I|
00000620: 46 20 49 54 20 57 45 52 45 20 41 20 52 45 50 45 |F IT WERE A REPE|
00000630: 41 54 20 4C 4F 4F 50 00 74 46 86 01 49 4E 24 B2 |AT LOOP.tF..IN$.|
00000640: 20 22 5B 22 20 AA 20 50 52 24 28 50 4E 29 20 AA | "[" . PR$(PN) .|
00000650: 20 22 5D 22 20 AA 20 C9 28 49 4E 24 2C 20 C3 28 | "]" . .(IN$, .(|
00000660: 49 4E 24 29 AB 49 4E 29 3A 20 49 4E B2 30 3A 20 |IN$).IN): IN.0: |
00000670: 4E 55 B2 31 00 9A 46 90 01 53 54 28 4E 45 29 B2 |NU.1..F..ST(NE).|
00000680: 53 54 28 4E 45 29 AB C3 28 50 52 24 28 50 4E 29 |ST(NE)..(PR$(PN)|
00000690: 29 AB 32 3A 20 89 20 34 38 30 00 C6 46 9A 01 8F |).2: . 480..F...|
000006A0: 20 49 44 45 4E 54 49 46 59 20 41 4E 44 20 45 58 | IDENTIFY AND EX|
000006B0: 48 43 55 54 48 20 57 44 24 20 41 53 20 41 20 43 |HCUTH WD$ AS A C|
000006C0: 4F 4D 4D 41 4E 44 00 DD 46 A4 01 8D 20 31 30 30 |OMMAND..F... 100|
000006D0: 30 3A 20 8B 20 45 52 20 A7 20 32 30 30 00 06 47 |0: . ER . 200..G|
000006E0: AE 01 89 20 32 37 30 3A 20 8F 20 57 45 20 41 52 |... 270: . WE AR|
000006F0: 45 20 44 4F 4E 45 20 43 55 52 52 45 4E 54 20 43 |E DONE CURRENT C|
00000700: 4F 4D 4D 41 4E 44 00 32 47 B8 01 8F 20 47 45 54 |OMMAND.2G... GET|
00000710: 20 52 45 50 45 54 49 54 49 4F 4E 20 46 41 43 54 | REPETITION FACT|
00000720: 4F 52 20 46 4F 52 20 52 45 50 45 41 54 20 4C 4F |OR FOR REPEAT LO|
00000730: 4F 50 00 5A 47 C2 01 8D 20 34 30 30 30 3A 20 49 |OP.ZG... 4000: I|
00000740: 4E 24 B2 C9 28 49 4E 24 2C 20 C3 28 49 4E 24 29 |N$..(IN$, .(IN$)|
00000750: AB 49 4E 29 3A 20 49 4E B2 30 00 7F 47 CC 01 8B |.IN): IN.0..G...|
00000760: 20 28 A8 20 45 52 29 AF 28 4E 55 B1 30 29 AF 28 | (. ER).(NU.0).(|
00000770: B5 28 4E 55 29 B2 4E 55 29 20 A7 20 34 38 30 00 |.(NU).NU) . 480.|
00000780: BD 47 D6 01 99 20 22 49 20 43 41 4E 27 54 20 52 |.G... "I CAN'T R|
00000790: 45 50 45 41 54 20 53 4F 4D 45 54 48 49 4E 47 20 |EPEAT SOMETHING |
000007A0: 22 20 57 44 24 20 22 20 54 49 4D 45 53 22 20 3A |" WD$ " TIMES" :|
000007B0: 49 4E 24 B2 22 22 3A 20 89 20 32 30 30 00 FB 47 |IN$."": . 200..G|
000007C0: E0 01 8F 20 50 55 53 48 20 54 48 45 20 43 4F 4D |... PUSH THE COM|
000007D0: 4D 41 4E 44 20 53 54 52 49 4E 47 20 53 54 41 43 |MAND STRING STAC|
000007E0: 4B 20 28 49 4E 43 52 45 4D 45 4E 54 20 4E 45 53 |K (INCREMENT NES|
000007F0: 54 49 4E 47 20 4C 45 56 45 4C 29 00 2F 48 EA 01 |TING LEVEL)./H..|
00000800: 4E 45 B2 4E 45 AA 31 3A 20 8B 20 4E 45 B2 32 35 |NE.NE.1: . NE.25|
00000810: 36 20 A7 20 99 20 22 4E 45 53 54 49 4E 47 20 54 |6 . . "NESTING T|
00000820: 4F 4F 20 44 45 45 50 22 3A 20 89 20 32 30 30 00 |OO DEEP": . 200.|
00000830: 4C 48 EF 01 52 50 28 4E 45 29 B2 4E 55 3A 20 53 |LH..RP(NE).NU: S|
00000840: 54 28 4E 45 29 B2 31 3A 20 4B B2 30 00 80 48 F4 |T(NE).1: K.0..H.|
00000850: 01 8F 20 46 49 4C 4C 20 53 54 24 28 4E 45 29 20 |.. FILL ST$(NE) |
00000860: 57 49 54 48 20 43 4F 4E 54 45 4E 54 53 20 4F 46 |WITH CONTENTS OF|
00000870: 20 52 45 50 45 41 54 20 42 52 41 43 4B 45 54 53 | REPEAT BRACKETS|
00000880: 00 9A 48 FE 01 53 54 24 28 4E 45 29 B2 22 22 3A |..H..ST$(NE)."":|
00000890: 20 51 51 B2 30 3A 20 4B B2 30 00 B3 48 08 02 54 | QQ.0: K.0..H..T|
000008A0: 24 B2 CA 28 49 4E 24 2C 20 53 54 28 4E 45 29 2C |$..(IN$, ST(NE),|
000008B0: 20 31 29 00 C8 48 12 02 8B 20 54 24 B2 22 5D 22 | 1)..H... T$."]"|
000008C0: 20 A7 20 4B B2 4B AB 31 00 E7 48 1C 02 8B 20 4B | . K.K.1..H... K|
000008D0: B1 30 20 A7 20 53 54 24 28 4E 45 29 B2 53 54 24 |.0 . ST$(NE).ST$|
000008E0: 28 4E 45 29 AA 54 24 00 03 49 26 02 8B 20 54 24 |(NE).T$..I&.. T$|
000008F0: B2 22 5B 22 20 A7 20 4B B2 4B AA 31 3A 20 51 51 |."[" . K.K.1: QQ|
00000900: B2 AB 31 00 14 49 30 02 8B 20 4B B3 B2 30 20 A7 |..1..I0.. K..0 .|
00000910: 20 36 30 30 00 28 49 3A 02 53 54 28 4E 45 29 B2 | 600.(I:.ST(NE).|
00000920: 53 54 28 4E 45 29 AA 31 00 43 49 44 02 8B 20 53 |ST(NE).1.CID.. S|
00000930: 54 28 4E 45 29 B3 B2 C3 28 49 4E 24 29 20 A7 20 |T(NE)...(IN$) . |
00000940: 35 32 30 00 78 49 4E 02 99 20 22 4D 49 53 4D 41 |520.xIN.. "MISMA|
00000950: 54 43 48 45 44 20 42 52 41 43 4B 45 54 53 20 49 |TCHED BRACKETS I|
00000960: 4E 20 52 45 50 45 41 54 22 3A 20 49 4E 24 B2 22 |N REPEAT": IN$."|
00000970: 22 3A 20 89 20 32 30 30 00 9A 49 58 02 8B 20 28 |": . 200..IX.. (|
00000980: 4B B3 30 29 20 B0 20 28 28 4B B2 30 29 AF 28 A8 |K.0) . ((K.0).(.|
00000990: 51 51 29 29 20 A7 20 35 39 30 00 C1 49 62 02 53 |QQ)) . 590..Ib.S|
000009A0: 54 28 4E 45 AB 31 29 B2 53 54 28 4E 45 29 AA 53 |T(NE.1).ST(NE).S|
000009B0: 54 28 4E 45 AB 31 29 3A 20 53 54 28 4E 45 29 B2 |T(NE.1): ST(NE).|
000009C0: 30 00 ED 49 6C 02 89 20 32 34 30 3A 20 8F 20 45 |0..Il.. 240: . E|
000009D0: 58 45 43 55 54 45 20 54 48 45 20 4E 45 57 20 43 |XECUTE THE NEW C|
000009E0: 4F 4D 4D 41 4E 44 20 53 54 52 49 4E 47 00 10 4A |OMMAND STRING..J|
000009F0: E8 03 8F 20 49 44 45 4E 54 49 46 59 20 41 4E 44 |... IDENTIFY AND|
00000A00: 20 45 58 45 43 55 54 45 20 43 4F 4D 4D 41 4E 44 | EXECUTE COMMAND|
00000A10: 00 19 4A ED 03 45 52 B2 30 00 46 4A F2 03 8B 20 |..J..ER.0.FJ... |
00000A20: 28 57 44 24 B2 22 46 4F 52 57 41 52 44 22 29 B0 |(WD$."FORWARD").|
00000A30: 28 57 44 24 B2 22 46 44 22 29 20 A7 20 8D 20 39 |(WD$."FD") . . 9|
00000A40: 30 30 30 3A 20 8E 00 72 4A FC 03 8B 20 28 57 44 |000: ..rJ... (WD|
00000A50: 24 B2 22 52 49 47 48 54 22 29 B0 28 57 44 24 B2 |$."RIGHT").(WD$.|
00000A60: 22 52 54 22 29 20 A7 20 8D 20 31 30 30 30 30 3A |"RT") . . 10000:|
00000A70: 20 8E 00 9D 4A 06 04 8B 20 28 57 44 24 B2 22 4C | ...J... (WD$."L|
00000A80: 45 46 54 22 29 B0 28 57 44 24 B2 22 4C 54 22 29 |EFT").(WD$."LT")|
00000A90: 20 A7 20 8D 20 31 31 30 30 30 3A 20 8E 00 C7 4A | . . 11000: ...J|
00000AA0: 10 04 8B 20 28 57 44 24 B2 22 50 45 4E 55 50 22 |... (WD$."PENUP"|
00000AB0: 29 B0 28 57 44 24 B2 22 50 55 22 29 20 A7 20 50 |).(WD$."PU") . P|
00000AC0: 45 B2 AB 31 3A 20 8E 00 F2 4A 1A 04 8B 20 28 57 |E..1: ...J... (W|
00000AD0: 44 24 B2 22 50 45 4E 44 4F 57 4E 22 29 B0 28 57 |D$."PENDOWN").(W|
00000AE0: 44 24 B2 22 50 44 22 29 20 A7 20 50 45 B2 30 3A |D$."PD") . PE.0:|
00000AF0: 20 8E 00 10 4B 24 04 8B 20 57 44 24 B2 22 48 4F | ...K$.. WD$."HO|
00000B00: 4D 45 22 20 A7 20 8D 20 31 32 30 30 30 3A 20 8E |ME" . . 12000: .|
00000B10: 00 2F 4B 2E 04 8B 20 57 44 24 B2 22 43 4C 45 41 |./K... WD$."CLEA|
00000B20: 4E 22 20 A7 20 9E 20 34 39 32 39 35 3A 20 8E 00 |N" . . 49295: ..|
00000B30: 6A 4B 38 04 8B 20 28 57 44 24 B2 22 43 4C 45 41 |jK8.. (WD$."CLEA|
00000B40: 52 53 43 52 45 45 4E 22 29 B0 28 57 44 24 B2 22 |RSCREEN").(WD$."|
00000B50: 43 53 22 29 20 A7 20 8D 20 31 32 30 30 30 3A 20 |CS") . . 12000: |
00000B60: 9E 20 34 39 32 39 35 3A 20 8E 00 9D 4B 42 04 8B |. 49295: ...KB..|
00000B70: 20 28 57 44 24 B2 22 53 45 54 48 45 41 44 49 4E | (WD$."SETHEADIN|
00000B80: 47 22 29 B0 28 57 44 24 B2 22 53 45 54 48 22 29 |G").(WD$."SETH")|
00000B90: 20 A7 20 8D 20 31 33 30 30 30 3A 20 8E 00 D1 4B | . . 13000: ...K|
00000BA0: 4C 04 8B 20 28 57 44 24 B2 22 53 45 54 50 4F 53 |L.. (WD$."SETPOS|
00000BB0: 49 54 49 4F 4E 22 29 B0 28 57 44 24 B2 22 53 45 |ITION").(WD$."SE|
00000BC0: 54 50 22 29 20 A7 20 8D 20 31 34 30 30 30 3A 20 |TP") . . 14000: |
00000BD0: 8E 00 FD 4B 56 04 8B 20 28 57 44 24 B2 22 50 45 |...KV.. (WD$."PE|
00000BE0: 4E 45 52 41 53 45 22 29 B0 28 57 44 24 B2 22 50 |NERASE").(WD$."P|
00000BF0: 45 22 29 20 A7 20 44 52 B2 30 3A 20 8E 00 29 4C |E") . DR.0: ..)L|
00000C00: 60 04 8B 20 28 57 44 24 B2 22 50 45 4E 44 52 41 |`.. (WD$."PENDRA|
00000C10: 57 22 29 B0 28 57 44 24 B2 22 50 57 22 29 20 A7 |W").(WD$."PW") .|
00000C20: 20 44 52 B2 AB 31 3A 20 8E 00 5A 4C 6A 04 8B 20 | DR..1: ..ZLj.. |
00000C30: 28 57 44 24 B2 22 53 54 22 29 B0 28 57 44 24 B2 |(WD$."ST").(WD$.|
00000C40: 22 53 48 4F 57 54 55 52 54 4C 45 22 29 20 A7 20 |"SHOWTURTLE") . |
00000C50: 97 20 53 45 2C 20 31 3A 20 8E 00 8B 4C 74 04 8B |. SE, 1: ...Lt..|
00000C60: 20 28 57 44 24 B2 22 48 49 44 45 54 55 52 54 4C | (WD$."HIDETURTL|
00000C70: 45 22 29 B0 28 57 44 24 B2 22 48 54 22 29 20 A7 |E").(WD$."HT") .|
00000C80: 20 97 20 53 45 2C 20 30 3A 20 8E 00 BA 4C 7E 04 | . SE, 0: ...L~.|
00000C90: 8B 20 28 57 44 24 B2 22 50 45 4E 43 4F 4C 4F 52 |. (WD$."PENCOLOR|
00000CA0: 22 29 B0 28 57 44 24 B2 22 50 43 22 29 20 A7 20 |").(WD$."PC") . |
00000CB0: 8D 20 31 35 30 30 30 3A 20 8E 00 F0 4C 88 04 8B |. 15000: ...L...|
00000CC0: 20 28 57 44 24 B2 22 42 41 43 4B 47 52 4F 55 4E | (WD$."BACKGROUN|
00000CD0: 44 43 4F 4C 4F 52 22 29 B0 28 57 44 24 B2 22 42 |DCOLOR").(WD$."B|
00000CE0: 43 22 29 20 A7 20 8D 20 31 36 30 30 30 3A 20 8E |C") . . 16000: .|
00000CF0: 00 22 4D 92 04 8B 20 28 57 44 24 B2 22 54 55 52 |."M... (WD$."TUR|
00000D00: 54 4C 45 43 4F 4C 4F 52 22 29 B0 28 57 44 24 B2 |TLECOLOR").(WD$.|
00000D10: 22 54 43 22 29 20 A7 20 8D 20 31 37 30 30 30 3A |"TC") . . 17000:|
00000D20: 20 8E 00 48 4D 9C 04 8B 20 57 44 24 B2 22 50 52 | ..HM... WD$."PR|
00000D30: 49 4E 54 48 45 41 44 49 4E 47 22 20 A7 20 99 20 |INTHEADING" . . |
00000D40: A5 52 28 48 29 3A 20 8E 00 81 4D A6 04 8B 20 57 |.R(H): ...M... W|
00000D50: 44 24 B2 22 50 52 49 4E 54 50 4F 53 49 54 49 4F |D$."PRINTPOSITIO|
00000D60: 4E 22 20 A7 20 99 20 22 28 22 20 A5 52 28 58 29 |N" . . "(" .R(X)|
00000D70: 20 22 2C 22 20 A5 52 28 59 29 20 22 29 22 3A 20 | "," .R(Y) ")": |
00000D80: 8E 00 A1 4D B0 04 8B 20 57 44 24 B2 22 44 45 46 |...M... WD$."DEF|
00000D90: 49 4E 45 22 20 A7 20 8D 20 31 38 30 30 30 3A 20 |INE" . . 18000: |
00000DA0: 8E 00 C0 4D BA 04 8B 20 57 44 24 B2 22 4E 41 4D |...M... WD$."NAM|
00000DB0: 45 53 22 20 A7 20 8D 20 31 39 30 30 30 3A 20 8E |ES" . . 19000: .|
00000DC0: 00 F8 4D C4 04 8B 20 28 57 44 24 B2 22 50 52 49 |..M... (WD$."PRI|
00000DD0: 4E 54 50 52 4F 43 45 44 55 52 45 22 29 B0 28 57 |NTPROCEDURE").(W|
00000DE0: 44 24 B2 22 50 50 52 4F 43 22 29 20 A7 20 8D 20 |D$."PPROC") . . |
00000DF0: 32 30 30 30 30 3A 20 8E 00 17 4E CE 04 8B 20 57 |20000: ...N... W|
00000E00: 44 24 B2 22 45 52 41 53 45 22 20 A7 20 8D 20 32 |D$."ERASE" . . 2|
00000E10: 31 30 30 30 3A 20 8E 00 51 4E D8 04 8B 20 57 44 |1000: ..QN... WD|
00000E20: 24 B2 22 45 52 41 53 45 41 4C 4C 22 20 A7 20 50 |$."ERASEALL" . P|
00000E30: 43 B2 30 3A 20 99 20 22 41 4C 4C 20 50 52 4F 43 |C.0: . "ALL PROC|
00000E40: 45 44 55 52 45 53 20 45 52 41 53 45 44 22 3A 20 |EDURES ERASED": |
00000E50: 8E 00 71 4E E2 04 8B 20 57 44 24 B2 22 52 45 4E |..qN... WD$."REN|
00000E60: 41 4D 45 22 20 A7 20 8D 20 32 32 30 30 30 3A 20 |AME" . . 22000: |
00000E70: 8E 00 8F 4E EC 04 8B 20 57 44 24 B2 22 4C 4F 41 |...N... WD$."LOA|
00000E80: 44 22 20 A7 20 8D 20 32 33 30 30 30 3A 20 8E 00 |D" . . 23000: ..|
00000E90: AD 4E F6 04 8B 20 57 44 24 B2 22 53 41 56 45 22 |.N... WD$."SAVE"|
00000EA0: 20 A7 20 8D 20 32 34 30 30 30 3A 20 8E 00 CE 4E | . . 24000: ...N|
00000EB0: 00 05 8B 20 57 44 24 B2 22 53 43 52 41 54 43 48 |... WD$."SCRATCH|
00000EC0: 22 20 A7 20 8D 20 32 35 30 30 30 3A 20 8E 00 EC |" . . 25000: ...|
00000ED0: 4E 0A 05 8B 20 57 44 24 B2 22 51 55 49 54 22 20 |N... WD$."QUIT" |
00000EE0: A7 20 99 20 22 42 59 45 22 3A 20 80 00 16 4F 14 |. . "BYE": ...O.|
00000EF0: 05 45 52 B2 AB 31 3A 20 99 20 22 49 20 44 4F 4E |.ER..1: . "I DON|
00000F00: 27 54 20 55 4E 44 45 52 53 54 41 4E 44 20 22 20 |'T UNDERSTAND " |
00000F10: 57 44 24 3A 20 8E 00 28 4F D0 07 8F 20 4D 4F 56 |WD$: ..(O... MOV|
00000F20: 45 20 54 55 52 54 4C 45 00 42 4F DA 07 52 4F B2 |E TURTLE.BO..RO.|
00000F30: 59 4D AB 28 59 AC 43 52 29 3A 20 43 4F B2 58 AB |YM.(Y.CR): CO.X.|
00000F40: 58 4C 00 76 4F E4 07 8B 20 28 53 50 AD 42 41 29 |XL.vO... (SP.BA)|
00000F50: B2 B5 28 53 50 AD 42 41 29 20 A7 20 58 53 B2 43 |..(SP.BA) . XS.C|
00000F60: 4F AA 43 31 3A 20 59 53 B2 52 4F AA 43 32 3A 20 |O.C1: YS.RO.C2: |
00000F70: 89 20 32 32 30 30 00 94 4F EE 07 58 53 B2 43 4F |. 2200..O..XS.CO|
00000F80: 3A 20 8B 20 53 50 B1 43 36 20 A7 20 58 53 B2 58 |: . SP.C6 . XS.X|
00000F90: 53 AA 43 35 00 BD 4F 02 08 8B 20 28 53 50 B2 43 |S.C5..O... (SP.C|
00000FA0: 36 29 B0 28 53 50 B2 43 37 29 20 A7 20 59 53 B2 |6).(SP.C7) . YS.|
00000FB0: 52 4F AA 43 34 3A 20 89 20 32 32 30 30 00 CA 4F |RO.C4: . 2200..O|
00000FC0: 0C 08 59 53 B2 52 4F AA 43 33 00 F2 4F 98 08 8B |..YS.RO.C3..O...|
00000FD0: 20 58 53 B3 42 47 20 A7 20 97 20 50 58 2C 20 58 | XS.BG . . PX, X|
00000FE0: 53 3A 20 97 20 4D 58 2C 20 30 3A 20 89 20 32 32 |S: . MX, 0: . 22|
00000FF0: 32 30 00 0B 50 A2 08 97 20 50 58 2C 20 58 53 AB |20..P... PX, XS.|
00001000: 42 47 3A 20 97 20 4D 58 2C 20 31 00 18 50 AC 08 |BG: . MX, 1..P..|
00001010: 97 20 50 59 2C 20 59 53 00 1E 50 B6 08 8E 00 33 |. PY, YS..P....3|
00001020: 50 B8 0B 8F 20 43 48 41 4E 47 45 20 48 45 41 44 |P... CHANGE HEAD|
00001030: 49 4E 47 00 3E 50 C2 0B 48 B2 48 AA 44 48 00 5B |ING.>P..H.H.DH.[|
00001040: 50 CC 0B 8B 20 48 B1 B2 43 49 20 A7 20 48 B2 48 |P... H..CI . H.H|
00001050: AB 43 49 3A 20 89 20 33 30 32 30 00 76 50 D6 0B |.CI: . 3020.vP..|
00001060: 8B 20 48 B3 30 20 A7 20 48 B2 48 AA 43 49 3A 20 |. H.0 . H.H.CI: |
00001070: 89 20 33 30 33 30 00 90 50 E0 0B 53 50 B2 28 B5 |. 3030..P..SP.(.|
00001080: 28 48 AD 53 53 AA 48 41 29 29 20 AF 20 4D 41 3A |(H.SS.HA)) . MA:|
00001090: 00 BB 50 EA 0B 51 51 B2 C2 28 53 45 29 3A 20 97 |..P..QQ..(SE): .|
000010A0: 20 53 45 2C 20 30 3A 20 97 20 50 54 2C 20 53 42 | SE, 0: . PT, SB|
000010B0: AA 53 50 3A 20 8D 20 32 30 30 30 00 C8 50 F9 0B |.SP: . 2000..P..|
000010C0: 97 20 53 45 2C 20 51 51 00 CE 50 FE 0B 8E 00 E2 |. SE, QQ..P.....|
000010D0: 50 A0 0F 8F 20 4E 55 4D 45 52 49 43 20 49 4E 50 |P... NUMERIC INP|
000010E0: 55 54 00 24 51 AA 0F 8F 20 47 45 54 53 20 4E 45 |UT.$Q... GETS NE|
000010F0: 58 54 20 57 4F 52 44 20 46 52 4F 4D 20 49 4E 24 |XT WORD FROM IN$|
00001100: 20 41 53 20 41 20 4E 55 4D 42 45 52 20 28 4E 55 | AS A NUMBER (NU|
00001110: 29 2E 20 20 43 48 45 43 4B 53 20 46 4F 52 20 45 |). CHECKS FOR E|
00001120: 52 52 4F 52 00 50 51 B4 0F 8D 20 35 30 30 30 3A |RROR.PQ... 5000:|
00001130: 20 45 52 B2 30 3A 20 4E 55 B2 30 3A 20 8B 20 57 | ER.0: NU.0: . W|
00001140: 44 24 B2 22 22 20 A7 20 45 52 B2 AB 31 3A 20 8E |D$."" . ER..1: .|
00001150: 00 75 51 BE 0F 81 20 4B B2 20 31 20 A4 20 C3 28 |.uQ... K. 1 . .(|
00001160: 57 44 24 29 3A 20 54 24 B2 CA 28 57 44 24 2C 20 |WD$): T$..(WD$, |
00001170: 4B 2C 20 31 29 00 B7 51 C8 0F 8B 20 28 28 54 24 |K, 1)..Q... ((T$|
00001180: B3 22 30 22 29 B0 28 54 24 B1 22 39 22 29 29 20 |."0").(T$."9")) |
00001190: AF 20 28 54 24 B3 B1 22 2D 22 29 AF 28 54 24 B3 |. (T$.."-").(T$.|
000011A0: B1 22 2B 22 29 AF 28 54 24 B3 B1 22 2E 22 29 20 |."+").(T$..".") |
000011B0: A7 20 45 52 B2 AB 31 00 CB 51 D2 0F 82 3A 20 4E |. ER..1..Q...: N|
000011C0: 55 B2 C5 28 57 44 24 29 3A 20 8E 00 F2 51 88 13 |U..(WD$): ...Q..|
000011D0: 8F 20 46 49 4C 4C 20 57 44 24 20 57 49 54 48 20 |. FILL WD$ WITH |
000011E0: 4E 45 58 54 20 57 4F 52 44 20 46 52 4F 4D 20 49 |NEXT WORD FROM I|
000011F0: 4E 24 00 0E 52 92 13 57 44 24 B2 22 22 3A 20 8B |N$..R..WD$."": .|
00001200: 20 49 4E 24 B2 22 22 20 A7 20 35 30 37 30 00 2E | IN$."" . 5070..|
00001210: 52 9C 13 49 4E 24 B2 C9 28 49 4E 24 2C 20 C3 28 |R..IN$..(IN$, .(|
00001220: 49 4E 24 29 AB 49 4E 29 3A 20 49 4E B2 30 00 4B |IN$).IN): IN.0.K|
00001230: 52 A6 13 53 54 28 4E 45 29 B2 53 54 28 4E 45 29 |R..ST(NE).ST(NE)|
00001240: AA 31 3A 20 49 4E B2 49 4E AA 31 00 7E 52 B0 13 |.1: IN.IN.1.~R..|
00001250: 8B 20 49 4E B1 C3 28 49 4E 24 29 20 A7 20 49 4E |. IN..(IN$) . IN|
00001260: B2 49 4E AB 31 3A 20 53 54 28 4E 45 29 B2 53 54 |.IN.1: ST(NE).ST|
00001270: 28 4E 45 29 AB 31 3A 20 89 20 35 30 37 30 00 B9 |(NE).1: . 5070..|
00001280: 52 BA 13 8B 20 CA 28 49 4E 24 2C 20 49 4E 2C 20 |R... .(IN$, IN, |
00001290: 31 29 B3 B1 22 20 22 20 A7 20 57 44 24 B2 57 44 |1).." " . WD$.WD|
000012A0: 24 20 AA 20 CA 28 49 4E 24 2C 20 49 4E 2C 20 31 |$ . .(IN$, IN, 1|
000012B0: 29 3A 20 89 20 35 30 33 30 00 D9 52 C4 13 8B 20 |): . 5030..R... |
000012C0: 28 57 44 24 B2 22 22 29 AF 28 49 4E 24 B3 B1 22 |(WD$."").(IN$.."|
000012D0: 22 29 20 A7 20 35 30 32 30 00 DF 52 CE 13 8E 00 |") . 5020..R....|
000012E0: F8 52 70 17 8F 20 49 44 45 4E 54 49 46 59 20 50 |.Rp.. IDENTIFY P|
000012F0: 52 4F 43 45 44 55 52 45 00 39 53 7A 17 8F 20 52 |ROCEDURE.9Sz.. R|
00001300: 45 54 55 52 4E 53 20 49 4E 44 45 58 20 28 50 4E |ETURNS INDEX (PN|
00001310: 29 20 4F 46 20 50 52 4F 43 4E 41 4D 45 20 49 4E |) OF PROCNAME IN|
00001320: 20 57 44 24 3B 20 30 20 49 46 20 4E 4F 54 20 41 | WD$; 0 IF NOT A|
00001330: 20 50 52 4F 43 4E 41 4D 45 00 47 53 84 17 4B B2 | PROCNAME.GS..K.|
00001340: 30 3A 20 50 4E B2 30 00 5D 53 8E 17 4B B2 4B AA |0: PN.0.]S..K.K.|
00001350: 31 3A 20 8B 20 4B B1 50 43 20 A7 20 8E 00 76 53 |1: . K.PC . ..vS|
00001360: 98 17 8B 20 57 44 24 B3 B1 50 4E 24 28 4B 29 20 |... WD$..PN$(K) |
00001370: A7 20 36 30 33 30 00 82 53 A2 17 50 4E B2 4B 3A |. 6030..S..PN.K:|
00001380: 20 8E 00 97 53 58 1B 8F 20 4F 50 45 4E 20 44 49 | ...SX.. OPEN DI|
00001390: 53 4B 20 46 49 4C 45 00 BA 53 62 1B 45 52 B2 30 |SK FILE..Sb.ER.0|
000013A0: 3A 20 8D 20 35 30 30 30 3A 20 8B 20 57 44 24 B3 |: . 5000: . WD$.|
000013B0: B1 22 22 20 A7 20 37 30 33 30 00 E7 53 6C 1B 45 |."" . 7030..Sl.E|
000013C0: 52 B2 AB 31 3A 20 99 20 22 59 4F 55 20 4D 55 53 |R..1: . "YOU MUS|
000013D0: 54 20 53 55 50 50 4C 59 20 41 20 46 49 4C 45 4E |T SUPPLY A FILEN|
000013E0: 41 4D 45 22 3A 20 8E 00 F5 53 76 1B 9F 20 31 35 |AME": ...Sv.. 15|
000013F0: 2C 38 2C 31 35 00 33 54 80 1B 9F 20 32 2C 38 2C |,8,15.3T... 2,8,|
00001400: 32 2C 20 22 30 3A 22 20 AA 20 57 44 24 20 AA 20 |2, "0:" . WD$ . |
00001410: 22 2E 54 55 52 54 4C 45 2C 53 2C 22 20 AA 20 4D |".TURTLE,S," . M|
00001420: 44 24 3A 20 84 31 35 2C 20 51 51 2C 54 24 2C 4B |D$: .15, QQ,T$,K|
00001430: 2C 5A 5A 00 70 54 8A 1B 8B 20 28 51 51 B2 32 36 |,ZZ.pT... (QQ.26|
00001440: 29 AF 28 4D 44 24 B2 22 57 22 29 20 A7 20 99 20 |).(MD$."W") . . |
00001450: 22 57 52 49 54 45 2D 50 52 4F 54 45 43 54 45 44 |"WRITE-PROTECTED|
00001460: 20 44 49 53 4B 22 3A 20 45 52 B2 AB 31 3A 20 8E | DISK": ER..1: .|
00001470: 00 AD 54 94 1B 8B 20 28 51 51 B2 36 37 29 AF 28 |..T... (QQ.67).(|
00001480: 4D 44 24 B2 22 57 22 29 AF 28 4B B2 33 36 29 20 |MD$."W").(K.36) |
00001490: A7 20 99 20 22 44 49 53 4B 20 49 53 20 46 55 4C |. . "DISK IS FUL|
000014A0: 4C 2E 22 3A 20 45 52 B2 AB 31 3A 20 8E 00 E6 54 |L.": ER..1: ...T|
000014B0: 9E 1B 8B 20 28 51 51 B2 36 33 29 AF 28 4D 44 24 |... (QQ.63).(MD$|
000014C0: B2 22 57 22 29 20 A7 20 99 20 22 46 49 4C 45 4E |."W") . . "FILEN|
000014D0: 41 4D 45 20 49 53 20 55 53 45 44 22 3A 20 45 52 |AME IS USED": ER|
000014E0: B2 AB 31 3A 20 8E 00 23 55 A8 1B 8B 20 28 51 51 |..1: ..#U... (QQ|
000014F0: B2 36 32 29 AF 28 4D 44 24 B2 22 52 22 29 20 A7 |.62).(MD$."R") .|
00001500: 20 99 20 22 4E 4F 20 53 55 43 48 20 46 49 4C 45 | . "NO SUCH FILE|
00001510: 20 4F 4E 20 44 49 53 4B 22 3A 20 45 52 B2 AB 31 | ON DISK": ER..1|
00001520: 3A 20 8E 00 5D 55 B2 1B 8B 20 51 51 B1 31 39 20 |: ..]U... QQ.19 |
00001530: A7 20 99 20 22 49 27 4D 20 48 41 56 49 4E 47 20 |. . "I'M HAVING |
00001540: 54 52 4F 55 42 4C 45 20 57 49 54 48 20 54 48 45 |TROUBLE WITH THE|
00001550: 20 44 49 53 4B 22 3A 20 45 52 B2 AB 31 00 63 55 | DISK": ER..1.cU|
00001560: BC 1B 8E 00 80 55 40 1F 8F 20 47 45 54 20 56 41 |.....U@.. GET VA|
00001570: 4C 49 44 20 43 4F 4C 4F 52 20 4E 55 4D 42 45 52 |LID COLOR NUMBER|
00001580: 00 95 55 4A 1F 8D 20 34 30 30 30 20 4E 55 4D 45 |..UJ.. 4000 NUME|
00001590: 52 49 43 20 85 00 B7 55 54 1F 8B 20 45 52 20 B0 |RIC ...UT.. ER .|
000015A0: 20 28 4E 55 B1 31 35 29 B0 28 4E 55 B3 30 29 20 | (NU.15).(NU.0) |
000015B0: A7 20 45 52 B2 AB 31 00 BD 55 5E 1F 8E 00 D3 55 |. ER..1..U^....U|
000015C0: 28 23 8F 20 46 4F 52 57 41 52 44 20 43 4F 4D 4D |(#. FORWARD COMM|
000015D0: 41 4E 44 00 0F 56 32 23 8D 20 34 30 30 30 3A 20 |AND..V2#. 4000: |
000015E0: 8B 20 45 52 20 B0 20 28 4E 55 B3 B2 30 29 20 A7 |. ER . (NU..0) .|
000015F0: 20 99 20 22 49 20 43 41 4E 27 54 20 47 4F 20 46 | . "I CAN'T GO F|
00001600: 4F 52 57 41 52 44 20 22 20 57 44 24 3A 20 8E 00 |ORWARD " WD$: ..|
00001610: 51 56 3C 23 49 58 B2 58 3A 20 49 59 B2 59 3A 20 |QV<#IX.X: IY.Y: |
00001620: 81 20 44 B2 20 30 20 A4 20 4E 55 3A 20 58 B2 A5 |. D. 0 . NU: X..|
00001630: 52 28 44 AC BF 28 48 AC 43 29 AA 49 58 29 3A 20 |R(D..(H.C).IX): |
00001640: 59 B2 A5 52 28 44 AC BE 28 48 AC 43 29 AA 49 59 |Y..R(D..(H.C).IY|
00001650: 29 00 63 56 46 23 8B 20 58 B1 58 48 20 A7 20 58 |).cVF#. X.XH . X|
00001660: B2 58 48 00 75 56 50 23 8B 20 58 B3 58 4C 20 A7 |.XH.uVP#. X.XL .|
00001670: 20 58 B2 58 4C 00 87 56 5A 23 8B 20 59 B1 59 48 | X.XL..VZ#. Y.YH|
00001680: 20 A7 20 59 B2 59 48 00 99 56 64 23 8B 20 59 B3 | . Y.YH..Vd#. Y.|
00001690: 59 4C 20 A7 20 59 B2 59 4C 00 A9 56 6E 23 8B 20 |YL . Y.YL..Vn#. |
000016A0: 50 45 20 A7 20 39 31 32 30 00 F0 56 78 23 42 59 |PE . 9120..Vx#BY|
000016B0: B2 53 43 20 AA 20 42 4C AC B5 28 28 59 4D AB 28 |.SC . BL..((YM.(|
000016C0: 59 AC 43 52 29 29 AD 42 42 29 20 AA 42 42 AC B5 |Y.CR)).BB) .BB..|
000016D0: 28 28 58 AB 58 4C 29 AD 42 42 29 20 AA 20 28 28 |((X.XL).BB) . ((|
000016E0: 59 4D AB 28 59 AC 43 52 29 29 20 AF 20 4D 41 29 |YM.(Y.CR)) . MA)|
000016F0: 00 0A 57 82 23 42 49 B2 4D 41 20 AB 20 28 28 58 |..W.#BI.MA . ((X|
00001700: AB 58 4C 29 20 AF 20 4D 41 29 00 31 57 8C 23 8B |.XL) . MA).1W.#.|
00001710: 20 44 52 20 A7 20 97 20 42 59 2C 20 C2 28 42 59 | DR . . BY, .(BY|
00001720: 29 20 B0 20 42 41 AE 42 49 3A 20 89 20 39 31 32 |) . BA.BI: . 912|
00001730: 30 00 4E 57 96 23 97 20 42 59 2C 20 C2 28 42 59 |0.NW.#. BY, .(BY|
00001740: 29 20 AF 20 28 46 46 AB 42 41 AE 42 49 29 00 5F |) . (FF.BA.BI)._|
00001750: 57 A0 23 8D 20 32 30 30 30 3A 20 82 3A 20 8E 00 |W.#. 2000: .: ..|
00001760: 73 57 10 27 8F 20 52 49 47 48 54 20 43 4F 4D 4D |sW.'. RIGHT COMM|
00001770: 41 4E 44 00 AE 57 1A 27 8D 20 34 30 30 30 3A 20 |AND..W.'. 4000: |
00001780: 8B 20 45 52 20 B0 20 28 4E 55 B3 30 29 20 A7 20 |. ER . (NU.0) . |
00001790: 99 20 22 49 20 43 41 4E 27 54 20 54 55 52 4E 20 |. "I CAN'T TURN |
000017A0: 52 49 47 48 54 20 22 20 57 44 24 3A 20 8E 00 C3 |RIGHT " WD$: ...|
000017B0: 57 24 27 44 48 B2 4E 55 3A 20 8D 20 33 30 30 30 |W$'DH.NU: . 3000|
000017C0: 3A 20 8E 00 D6 57 F8 2A 8F 20 4C 45 46 54 20 43 |: ...W.*. LEFT C|
000017D0: 4F 4D 4D 41 4E 44 00 0E 58 02 2B 8D 20 34 30 30 |OMMAND..X.+. 400|
000017E0: 30 3A 20 8B 20 45 52 20 B0 20 28 4E 55 B3 30 29 |0: . ER . (NU.0)|
000017F0: 20 A7 20 99 20 22 49 20 43 41 4E 27 54 20 47 4F | . . "I CAN'T GO|
00001800: 20 4C 45 46 54 20 22 20 57 44 24 3A 20 8E 00 24 | LEFT " WD$: ..$|
00001810: 58 0C 2B 44 48 B2 AB 4E 55 3A 20 8D 20 33 30 30 |X.+DH..NU: . 300|
00001820: 30 3A 20 8E 00 37 58 E0 2E 8F 20 48 4F 4D 45 20 |0: ..7X... HOME |
00001830: 43 4F 4D 4D 41 4E 44 00 5A 58 EA 2E 58 B2 30 3A |COMMAND.ZX..X.0:|
00001840: 20 59 B2 30 3A 20 48 B2 30 3A 20 44 48 B2 30 3A | Y.0: H.0: DH.0:|
00001850: 20 8D 20 33 30 30 30 3A 20 8E 00 73 58 C8 32 8F | . 3000: ..sX.2.|
00001860: 20 53 45 54 48 45 41 44 49 4E 47 20 43 4F 4D 4D | SETHEADING COMM|
00001870: 41 4E 44 00 99 58 D2 32 8D 20 34 30 30 30 3A 20 |AND..X.2. 4000: |
00001880: 8B 20 28 A8 20 45 52 29 AF 28 48 B3 B2 33 36 30 |. (. ER).(H..360|
00001890: 29 20 A7 20 31 33 30 33 30 00 C9 58 DC 32 45 52 |) . 13030..X.2ER|
000018A0: B2 AB 31 3A 20 99 20 22 49 20 43 41 4E 27 54 20 |..1: . "I CAN'T |
000018B0: 53 45 54 20 41 20 48 45 41 44 49 4E 47 20 4F 46 |SET A HEADING OF|
000018C0: 20 22 20 57 44 24 3A 20 8E 00 E3 58 E6 32 48 B2 | " WD$: ...X.2H.|
000018D0: 4E 55 3A 20 44 48 B2 30 3A 20 8D 20 33 30 30 30 |NU: DH.0: . 3000|
000018E0: 3A 20 8E 00 FD 58 B0 36 8F 20 53 45 54 50 4F 53 |: ...X.6. SETPOS|
000018F0: 49 54 49 4F 4E 20 43 4F 4D 4D 41 4E 44 00 2C 59 |ITION COMMAND.,Y|
00001900: BA 36 8D 20 34 30 30 30 3A 20 8B 20 28 A8 20 45 |.6. 4000: . (. E|
00001910: 52 29 AF 28 4E 55 B1 B2 58 4C 29 AF 28 4E 55 B3 |R).(NU..XL).(NU.|
00001920: B2 58 48 29 20 A7 20 31 34 30 33 30 00 5C 59 C4 |.XH) . 14030.\Y.|
00001930: 36 45 52 B2 AB 31 3A 20 99 20 22 49 20 43 41 4E |6ER..1: . "I CAN|
00001940: 27 54 20 53 45 54 20 41 4E 20 58 2D 56 41 4C 55 |'T SET AN X-VALU|
00001950: 45 20 4F 46 20 22 57 44 24 3A 20 8E 00 6E 59 CE |E OF "WD$: ..nY.|
00001960: 36 51 51 B2 4E 55 3A 20 8D 20 34 30 30 30 00 A5 |6QQ.NU: . 4000..|
00001970: 59 D8 36 8B 20 28 A8 20 45 52 29 AF 28 4E 55 B1 |Y.6. (. ER).(NU.|
00001980: B2 59 4C 29 AF 28 4E 55 B3 B2 59 48 29 20 A7 20 |.YL).(NU..YH) . |
00001990: 58 B2 51 51 3A 20 59 B2 4E 55 3A 20 8D 20 32 30 |X.QQ: Y.NU: . 20|
000019A0: 30 30 3A 20 8E 00 D4 59 E2 36 45 52 B2 AB 31 3A |00: ...Y.6ER..1:|
000019B0: 20 99 20 22 49 20 43 41 4E 27 54 20 53 45 54 20 | . "I CAN'T SET |
000019C0: 41 20 59 2D 56 41 4C 55 45 20 4F 46 20 22 57 44 |A Y-VALUE OF "WD|
000019D0: 24 3A 20 8E 00 EB 59 98 3A 8F 20 50 45 4E 43 4F |$: ...Y.:. PENCO|
000019E0: 4C 4F 52 20 43 4F 4D 4D 41 4E 44 00 1C 5A A2 3A |LOR COMMAND..Z.:|
000019F0: 8D 20 38 30 30 30 3A 20 8B 20 45 52 20 A7 20 99 |. 8000: . ER . .|
00001A00: 20 57 44 24 20 22 20 49 53 20 4E 4F 54 20 41 20 | WD$ " IS NOT A |
00001A10: 50 45 4E 43 4F 4C 4F 52 22 3A 20 8E 00 41 5A AC |PENCOLOR": ..AZ.|
00001A20: 3A 97 20 32 2C 20 28 C2 28 32 29 AF 31 35 29 AA |:. 2, (.(2).15).|
00001A30: 31 36 AC 4E 55 3A 20 9E 20 34 39 32 33 35 3A 20 |16.NU: . 49235: |
00001A40: 8E 00 5F 5A 80 3E 8F 20 42 41 43 4B 47 52 4F 55 |.._Z.>. BACKGROU|
00001A50: 4E 44 43 4F 4C 4F 52 20 43 4F 4D 4D 41 4E 44 00 |NDCOLOR COMMAND.|
00001A60: 97 5A 8A 3E 8D 20 38 30 30 30 3A 20 8B 20 45 52 |.Z.>. 8000: . ER|
00001A70: 20 A7 20 99 20 57 44 24 20 22 20 49 53 20 4E 4F | . . WD$ " IS NO|
00001A80: 54 20 41 20 42 41 43 4B 47 52 4F 55 4E 44 43 4F |T A BACKGROUNDCO|
00001A90: 4C 4F 52 22 3A 20 8E 00 BA 5A 94 3E 97 20 32 2C |LOR": ...Z.>. 2,|
00001AA0: 20 28 C2 28 32 29 AF 32 34 30 29 AA 4E 55 3A 20 | (.(2).240).NU: |
00001AB0: 9E 20 34 39 32 33 35 3A 20 8E 00 D4 5A 68 42 8F |. 49235: ...ZhB.|
00001AC0: 20 54 55 52 54 4C 45 43 4F 4C 4F 52 20 43 4F 4D | TURTLECOLOR COM|
00001AD0: 4D 41 4E 44 00 08 5B 7C 42 8D 20 38 30 30 30 3A |MAND..[|B. 8000:|
00001AE0: 20 8B 20 45 52 20 A7 20 99 20 57 44 24 20 22 20 | . ER . . WD$ " |
00001AF0: 49 53 20 4E 4F 54 20 41 20 54 55 52 4C 54 45 43 |IS NOT A TURLTEC|
00001B00: 4F 4C 4F 52 22 3A 20 8E 00 1B 5B 86 42 97 20 35 |OLOR": ...[.B. 5|
00001B10: 33 32 38 37 2C 20 4E 55 3A 20 8E 00 36 5B 50 46 |3287, NU: ..6[PF|
00001B20: 8F 20 44 45 46 49 4E 45 20 4E 45 57 20 50 52 4F |. DEFINE NEW PRO|
00001B30: 43 45 44 55 52 45 00 53 5B 5A 46 8D 20 35 30 30 |CEDURE.S[ZF. 500|
00001B40: 30 3A 8B 20 57 44 24 B3 B1 22 22 20 A7 20 31 38 |0:. WD$.."" . 18|
00001B50: 30 33 30 00 7D 5B 64 46 99 20 22 49 20 4E 45 45 |030.}[dF. "I NEE|
00001B60: 44 20 41 20 50 52 4F 43 45 44 55 52 45 20 4E 41 |D A PROCEDURE NA|
00001B70: 4D 45 22 3A 20 45 52 B2 AB 31 3A 20 8E 00 BD 5B |ME": ER..1: ...[|
00001B80: 6E 46 8B 20 50 43 B2 46 46 20 A7 20 99 22 49 20 |nF. PC.FF . ."I |
00001B90: 43 41 4E 27 54 20 52 45 4D 45 4D 42 45 52 20 41 |CAN'T REMEMBER A|
00001BA0: 4E 59 20 4D 4F 52 45 20 50 52 4F 43 45 44 55 52 |NY MORE PROCEDUR|
00001BB0: 45 53 22 3A 20 45 52 B2 AB 31 3A 20 8E 00 F5 5B |ES": ER..1: ...[|
00001BC0: 78 46 8D 20 36 30 30 30 3A 20 8B 20 50 4E B3 B1 |xF. 6000: . PN..|
00001BD0: 30 20 A7 20 99 20 57 44 24 20 22 20 41 4C 52 45 |0 . . WD$ " ALRE|
00001BE0: 41 44 59 20 45 58 49 53 54 53 22 3A 20 45 52 B2 |ADY EXISTS": ER.|
00001BF0: AB 31 3A 20 8E 00 21 5C 82 46 50 43 B2 50 43 AA |.1: ..!\.FPC.PC.|
00001C00: 31 3A 20 50 4E 24 28 50 43 29 B2 57 44 24 3A 20 |1: PN$(PC).WD$: |
00001C10: 99 20 57 44 24 3B 3A 20 85 20 50 52 24 28 50 43 |. WD$;: . PR$(PC|
00001C20: 29 00 40 5C 8C 46 99 20 57 44 24 20 22 20 49 53 |).@\.F. WD$ " IS|
00001C30: 20 4E 4F 57 20 44 45 46 49 4E 45 44 22 3A 20 8E | NOW DEFINED": .|
00001C40: 00 59 5C 38 4A 8F 20 50 52 49 4E 54 4E 41 4D 45 |.Y\8J. PRINTNAME|
00001C50: 53 20 43 4F 4D 4D 41 4E 44 00 7A 5C 42 4A 99 20 |S COMMAND.z\BJ. |
00001C60: 22 4E 55 4D 42 45 52 20 4F 46 20 50 52 4F 43 45 |"NUMBER OF PROCE|
00001C70: 44 55 52 45 53 3A 22 20 50 43 00 89 5C 4C 4A 8B |DURES:" PC..\LJ.|
00001C80: 20 50 43 B2 30 20 A7 20 8E 00 A9 5C 56 4A 81 20 | PC.0 . ...\VJ. |
00001C90: 4B B2 20 31 20 A4 20 50 43 3A 20 99 20 50 4E 24 |K. 1 . PC: . PN$|
00001CA0: 28 4B 29 3A 20 82 3A 20 8E 00 C6 5C 20 4E 8F 20 |(K): .: ...\ N. |
00001CB0: 50 52 49 4E 54 50 52 4F 43 45 44 55 52 45 20 43 |PRINTPROCEDURE C|
00001CC0: 4F 4D 4D 41 4E 44 00 E4 5C 2A 4E 8D 20 35 30 30 |OMMAND..\*N. 500|
00001CD0: 30 3A 20 8B 20 57 44 24 B3 B1 22 22 20 A7 20 32 |0: . WD$.."" . 2|
00001CE0: 30 30 33 30 00 0E 5D 34 4E 45 52 B2 AB 31 3A 20 |0030..]4NER..1: |
00001CF0: 99 20 22 49 20 4E 45 45 44 20 41 20 50 52 4F 43 |. "I NEED A PROC|
00001D00: 45 44 55 52 45 20 4E 41 4D 45 22 3A 20 8E 00 31 |EDURE NAME": ..1|
00001D10: 5D 3E 4E 8D 20 36 30 30 30 3A 20 8B 20 50 4E B3 |]>N. 6000: . PN.|
00001D20: B1 30 20 A7 20 99 20 50 52 24 28 50 4E 29 3A 20 |.0 . . PR$(PN): |
00001D30: 8E 00 5E 5D 48 4E 45 52 B2 AB 31 3A 20 99 20 22 |..^]HNER..1: . "|
00001D40: 54 48 45 52 45 20 49 53 20 4E 4F 20 50 52 4F 43 |THERE IS NO PROC|
00001D50: 45 44 55 52 45 20 22 20 57 44 24 3A 20 8E 00 72 |EDURE " WD$: ..r|
00001D60: 5D 08 52 8F 20 45 52 41 53 45 20 43 4F 4D 4D 41 |].R. ERASE COMMA|
00001D70: 4E 44 00 90 5D 12 52 8D 20 35 30 30 30 3A 20 8B |ND..].R. 5000: .|
00001D80: 20 57 44 24 B3 B1 22 22 20 A7 20 32 31 30 33 30 | WD$.."" . 21030|
00001D90: 00 BA 5D 1C 52 45 52 B2 AB 31 3A 20 99 20 22 49 |..].RER..1: . "I|
00001DA0: 20 4E 45 45 44 20 41 20 50 52 4F 43 45 44 55 52 | NEED A PROCEDUR|
00001DB0: 45 20 4E 41 4D 45 22 3A 20 8E 00 D5 5D 26 52 8D |E NAME": ...]&R.|
00001DC0: 36 30 30 30 3A 20 8B 20 50 4E B3 B1 30 20 A7 20 |6000: . PN..0 . |
00001DD0: 32 31 30 35 30 00 02 5E 30 52 45 52 B2 AB 31 3A |21050..^0RER..1:|
00001DE0: 20 99 20 22 54 48 45 52 45 20 49 53 20 4E 4F 20 | . "THERE IS NO |
00001DF0: 50 52 4F 43 45 44 55 52 45 20 22 20 57 44 24 3A |PROCEDURE " WD$:|
00001E00: 20 8E 00 46 5E 3A 52 50 52 24 28 50 4E 29 B2 50 | ..F^:RPR$(PN).P|
00001E10: 52 24 28 50 43 29 3A 20 50 4E 24 28 50 4E 29 B2 |R$(PC): PN$(PN).|
00001E20: 50 4E 24 28 50 43 29 3A 20 50 43 B2 50 43 AB 31 |PN$(PC): PC.PC.1|
00001E30: 3A 99 20 57 44 24 20 22 20 49 53 20 45 52 41 53 |:. WD$ " IS ERAS|
00001E40: 45 44 22 3A 20 8E 00 5B 5E F0 55 8F 20 52 45 4E |ED": ..[^.U. REN|
00001E50: 41 4D 45 20 43 4F 4D 4D 41 4E 44 00 79 5E FA 55 |AME COMMAND.y^.U|
00001E60: 8D 20 35 30 30 30 3A 20 8B 20 57 44 24 B3 B1 22 |. 5000: . WD$.."|
00001E70: 22 20 A7 20 32 32 30 33 30 00 A7 5E 04 56 45 52 |" . 22030..^.VER|
00001E80: B2 AB 31 3A 20 99 20 22 49 20 4E 45 45 44 20 54 |..1: . "I NEED T|
00001E90: 4F 20 4B 4E 4F 57 20 54 48 45 20 4F 4C 44 20 4E |O KNOW THE OLD N|
00001EA0: 41 4D 45 22 3A 20 8E 00 B2 5E 0E 56 8D 20 36 30 |AME": ...^.V. 60|
00001EB0: 30 30 00 ED 5E 18 56 8B 20 50 4E B2 30 20 A7 20 |00..^.V. PN.0 . |
00001EC0: 99 20 22 50 52 4F 43 45 44 55 52 45 20 22 20 57 |. "PROCEDURE " W|
00001ED0: 44 24 20 22 20 44 4F 45 53 4E 27 54 20 45 58 49 |D$ " DOESN'T EXI|
00001EE0: 53 54 22 3A 20 45 52 B2 AB 31 3A 20 8E 00 F7 5E |ST": ER..1: ...^|
00001EF0: 22 56 51 51 B2 50 4E 00 14 5F 2C 56 8D 20 35 30 |"VQQ.PN.._,V. 50|
00001F00: 30 30 3A 20 8B 20 57 44 24 B3 B1 22 22 20 A7 32 |00: . WD$.."" .2|
00001F10: 32 30 38 30 00 42 5F 36 56 99 20 22 49 20 4E 45 |2080.B_6V. "I NE|
00001F20: 45 44 20 54 4F 20 4B 4E 4F 57 20 54 48 45 20 4E |ED TO KNOW THE N|
00001F30: 45 57 20 4E 41 4D 45 22 3A 20 45 52 B2 AB 31 3A |EW NAME": ER..1:|
00001F40: 20 8E 00 4D 5F 40 56 8D 20 36 30 30 30 00 89 5F | ..M_@V. 6000.._|
00001F50: 4A 56 8B 20 50 4E B3 B1 30 20 A7 20 99 20 22 59 |JV. PN..0 . . "Y|
00001F60: 4F 55 20 48 41 56 45 20 41 4C 52 45 41 44 59 20 |OU HAVE ALREADY |
00001F70: 55 53 45 44 20 54 48 41 54 20 4E 41 4D 45 22 3A |USED THAT NAME":|
00001F80: 20 45 52 B2 AB 31 3A 20 8E 00 AD 5F 54 56 50 4E | ER..1: ..._TVPN|
00001F90: 24 28 51 51 29 B2 57 44 24 3A 20 99 20 22 52 45 |$(QQ).WD$: . "RE|
00001FA0: 4E 41 4D 49 4E 47 20 4F 4B 22 3A 20 8E 00 C0 5F |NAMING OK": ..._|
00001FB0: D8 59 8F 20 4C 4F 41 44 20 43 4F 4D 4D 41 4E 44 |.Y. LOAD COMMAND|
00001FC0: 00 E2 5F E2 59 4D 44 24 B2 22 52 22 3A 20 8D 20 |.._.YMD$."R": . |
00001FD0: 37 30 30 30 3A 20 8B 20 45 52 20 A7 20 32 33 30 |7000: . ER . 230|
00001FE0: 36 30 00 ED 5F EC 59 84 32 2C 20 4E 50 00 28 60 |60.._.Y.2, NP.(`|
00001FF0: F6 59 8B 20 28 4E 50 AA 50 43 29 B1 46 46 20 A7 |.Y. (NP.PC).FF .|
00002000: 20 99 20 22 54 4F 4F 20 4D 41 4E 59 20 50 52 4F | . "TOO MANY PRO|
00002010: 43 45 44 55 52 45 53 22 3A 20 45 52 B2 AB 31 3A |CEDURES": ER..1:|
00002020: 20 89 20 32 33 30 36 30 00 5F 60 00 5A 81 20 4B | . 23060._`.Z. K|
00002030: B2 20 31 20 A4 20 4E 50 3A 20 84 32 2C 20 50 4E |. 1 . NP: .2, PN|
00002040: 24 28 50 43 AA 4B 29 2C 20 50 52 24 28 50 43 AA |$(PC.K), PR$(PC.|
00002050: 4B 29 3A 20 82 3A 20 50 43 B2 50 43 AA 4E 50 00 |K): .: PC.PC.NP.|
00002060: 7C 60 0A 5A 99 20 4E 50 20 22 50 52 4F 43 45 44 ||`.Z. NP "PROCED|
00002070: 55 52 45 53 20 4C 4F 41 44 45 44 22 00 8D 60 14 |URES LOADED"..`.|
00002080: 5A A0 20 32 3A 20 A0 20 31 35 3A 20 8E 00 A0 60 |Z. 2: . 15: ...`|
00002090: C0 5D 8F 20 53 41 56 45 20 43 4F 4D 4D 41 4E 44 |.]. SAVE COMMAND|
000020A0: 00 C2 60 CA 5D 4D 44 24 B2 22 57 22 3A 20 8D 20 |..`.]MD$."W": . |
000020B0: 37 30 30 30 3A 20 8B 20 45 52 20 A7 20 32 34 30 |7000: . ER . 240|
000020C0: 34 30 00 F5 60 D4 5D 98 32 2C 20 50 43 3A 20 81 |40..`.].2, PC: .|
000020D0: 20 4B B2 20 31 20 A4 20 50 43 3A 20 98 32 2C 20 | K. 1 . PC: .2, |
000020E0: 50 4E 24 28 4B 29 3A 20 98 32 2C 20 50 52 24 28 |PN$(K): .2, PR$(|
000020F0: 4B 29 3A 20 82 00 11 61 DE 5D 99 20 50 43 20 22 |K): ...a.]. PC "|
00002100: 50 52 4F 43 45 44 55 52 45 53 20 53 41 56 45 44 |PROCEDURES SAVED|
00002110: 22 00 22 61 E8 5D A0 20 32 3A 20 A0 20 31 35 3A |"."a.]. 2: . 15:|
00002120: 20 8E 00 3C 61 A8 61 8F 20 53 43 52 41 54 43 48 | ..<a.a. SCRATCH|
00002130: 46 49 4C 45 20 43 4F 4D 4D 41 4E 44 00 60 61 B2 |FILE COMMAND.`a.|
00002140: 61 45 52 B2 30 3A 20 8D 20 35 30 30 30 3A 20 8B |aER.0: . 5000: .|
00002150: 20 57 44 24 B3 B1 22 22 20 A7 20 32 35 30 33 30 | WD$.."" . 25030|
00002160: 00 8D 61 BC 61 99 20 22 59 4F 55 20 4D 55 53 54 |..a.a. "YOU MUST|
00002170: 20 53 55 50 50 4C 59 20 41 20 46 49 4C 45 4E 41 | SUPPLY A FILENA|
00002180: 4D 45 22 3A 20 45 52 B2 AB 31 3A 20 8E 00 9B 61 |ME": ER..1: ...a|
00002190: C6 61 9F 20 31 35 2C 38 2C 31 35 00 CE 61 D0 61 |.a. 15,8,15..a.a|
000021A0: 98 31 35 2C 20 22 53 30 3A 22 20 AA 20 57 44 24 |.15, "S0:" . WD$|
000021B0: 20 AA 20 22 2E 54 55 52 54 4C 45 22 3A 20 84 31 | . ".TURTLE": .1|
000021C0: 35 2C 20 51 51 2C 54 24 2C 5A 5A 2C 5A 5A 00 12 |5, QQ,T$,ZZ,ZZ..|
000021D0: 62 DA 61 8B 20 28 51 51 B1 31 39 29 AF 28 51 51 |b.a. (QQ.19).(QQ|
000021E0: B3 B1 36 32 29 20 A7 20 99 20 22 49 27 4D 20 48 |..62) . . "I'M H|
000021F0: 41 56 49 4E 47 20 54 52 4F 55 42 4C 45 20 57 49 |AVING TROUBLE WI|
00002200: 54 48 20 54 48 45 20 44 49 53 4B 22 3A 45 52 B2 |TH THE DISK":ER.|
00002210: AB 31 00 1E 62 E4 61 A0 20 31 35 3A 20 8E 00 00 |.1..b.a. 15: ...|
00002220: 00 |. |
.@#@... TURTLE GRAPHICS INTERPRETER.`@..
. B(49152)..173 . . G(150) "TURTLE DATA
DID NOT LOAD": ...@(.X.0: Y.0: IX.0: IY.
0: D.0: NU.0: BY.0: BI.0: XH.160: XL..15
9: C...180..@2.CR..74: YH..(79.CR): YL..
YH: BA.2: BB.8: BL.320: SC.8192: PE.0: D
R..1.EA<.MA.7: H.0: PX.53248: BB.8: BL.3
20: SC.8192: PE.0: DR..1: MA.7: H.0: PX.
53248..AF.PY.53249: BG.256: RO.0: CO.0:
XS.0: YS.0: SP.0: PT.2040: SE.53269: HA.
.5..AP.C1.12: C2.40: C3.50: C4.28: C5.24
: C6.3: C7.5: CI.360: MX.53264: PC.0..AZ
.FF.255: SS.45: SB.56: YM.79.-BD.. ST$(2
55),ST(255),RP(255),PR$(255),PN$(255).MB
N.. .R(X)..((X..005).100).100.PBX.. INIT
IALIZE SCREEN AND TURTLE..B... 3000: . 2
, 110: . 53277, 0: . 53271, 0: . 53287,0
..B... 49295: . 49235: . 49322: . SE, 1:
. 53280,2: .53281,11..C... G(129) "TURT
LE GRAPHICS INTERPRETER"..C... G(30).TCH
.. MAIN LOOP - GET A LINE OF COMMANDS AN
D PROCESS IT.LCR.ST$(0)."": . ST$(0)..C.
.NE.0: ST(0).0: RP(0).0: ER.0..C... ST$(
0)."" . 210..C... COPY UNEXECUTED PART O
F CURRENT COMMAND STRING (NESTING LEVEL
= NE)..D... INTO IN$ TO BE PROCESSED.8D.
.IN$.I(ST$(NE), C(ST$(NE)).ST(NE)): IN.0
.AD... 5000 FILL WD$ WITH . W.D FROM IN
$.UD... WD$.."" . 350..D".. IN$ IS EMPTY
; WE ARE DONE WITH ALL COMMANDS IF NESTI
NG LEVEL IS 0.ND,.. NE.0 . 200..E6.. WE
HAVE COMPLETED A REPETITION OF THE CURRE
NT COMMAND STRING ST$(NE).KE@.. IF NEEDE
D, REPEAT. ELSE, POP NESTING LEVEL.}EJ.
RP(NE).RP(NE).1: . RP(NE).0 . ST(NE).0:
. 240..ET.NE.NE.1: . 240..E^.. (WD$."REP
EAT").(WD$."RP") . 440..EH.. CHECK IF CO
MMAND IS A PROCEDURE NAME..ER.. 6000: .
PN.0 . 410.7F|.. STUFF IN$ WITH PROC STR
ING AS IF IT WERE A REPEAT LOOP.TF..IN$.
"[" . PR$(PN) . "]" . I(IN$, C(IN$).IN)
: IN.0: NU.1..F..ST(NE).ST(NE).C(PR$(PN)
).2: . 480.FF... IDENTIFY AND EXHCUTH WD
$ AS A COMMAND..F... 1000: . ER . 200..G
... 270: . WE ARE DONE CURRENT COMMAND.2
G... GET REPETITION FACTOR FOR REPEAT LO
OP.ZGB.. 4000: IN$.I(IN$, C(IN$).IN): IN
.0.GL.. (. ER).(NU.0).(.(NU).NU) . 480.
.GV.. "I CAN'T REPEAT SOMETHING " WD$ "
TIMES" :IN$."": . 200..G... PUSH THE COM
MAND STRING STACK (INCREMENT NESTING LEV
EL)./H..NE.NE.1: . NE.256 . . "NESTING T
OO DEEP": . 200.LH..RP(NE).NU: ST(NE).1:
K.0..H... FILL ST$(NE) WITH CONTENTS OF
REPEAT BRACKETS..H..ST$(NE)."": QQ.0: K
.0..H..T$.J(IN$, ST(NE), 1).HH... T$."]"
. K.K.1..H... K.0 . ST$(NE).ST$(NE).T$.
.I&.. T$."[" . K.K.1: QQ..1..I0.. K..0 .
600.(I:.ST(NE).ST(NE).1.CID.. ST(NE)..C
(IN$) . 520.XIN.. "MISMATCHED BRACKETS I
N REPEAT": IN$."": . 200..IX.. (K.0) . (
(K.0).(.QQ)) . 590.AIB.ST(NE.1).ST(NE).S
T(NE.1): ST(NE).0..IL.. 240: . EXECUTE T
HE NEW COMMAND STRING..J... IDENTIFY AND
EXECUTE COMMAND..J..ER.0.FJ... (WD$."FO
RWARD").(WD$."FD") . . 9000: ..RJ... (WD
$."RIGHT").(WD$."RT") . . 10000: ...J...
(WD$."LEFT").(WD$."LT") . . 11000: ..GJ
... (WD$."PENUP").(WD$."PU") . PE..1: ..
.J... (WD$."PENDOWN").(WD$."PD") . PE.0:
...K$.. WD$."HOME" . . 12000: ../K... W
D$."CLEAN" . . 49295: ..JK8.. (WD$."CLEA
RSCREEN").(WD$."CS") . . 12000: . 49295:
...KB.. (WD$."SETHEADING").(WD$."SETH")
. . 13000: ..QKL.. (WD$."SETPOSITION").
(WD$."SETP") . . 14000: ...KV.. (WD$."PE
NERASE").(WD$."PE") . DR.0: ..)L`.. (WD$
."PENDRAW").(WD$."PW") . DR..1: ..ZLJ..
(WD$."ST").(WD$."SHOWTURTLE") . . SE, 1:
...LT.. (WD$."HIDETURTLE").(WD$."HT") .
. SE, 0: ...L~.. (WD$."PENCOLOR").(WD$.
"PC") . . 15000: ...L... (WD$."BACKGROUN
DCOLOR").(WD$."BC") . . 16000: .."M... (
WD$."TURTLECOLOR").(WD$."TC") . . 17000:
..HM... WD$."PRINTHEADING" . . .R(H): .
..M... WD$."PRINTPOSITION" . . "(" .R(X)
"," .R(Y) ")": ...M... WD$."DEFINE" . .
18000: ...M... WD$."NAMES" . . 19000: .
..MD.. (WD$."PRINTPROCEDURE").(WD$."PPRO
C") . . 20000: ...NN.. WD$."ERASE" . . 2
1000: ..QNX.. WD$."ERASEALL" . PC.0: . "
ALL PROCEDURES ERASED": ..QN... WD$."REN
AME" . . 22000: ...N... WD$."LOAD" . . 2
3000: ...N... WD$."SAVE" . . 24000: ..NN
... WD$."SCRATCH" . . 25000: ...N... WD$
."QUIT" . . "BYE": ...O..ER..1: . "I DON
'T UNDERSTAND " WD$: ..(OP.. MOVE TURTLE
.BOZ.RO.YM.(Y.CR): CO.X.XL.VO... (SP.BA)
..(SP.BA) . XS.CO.C1: YS.RO.C2: . 2200..
O..XS.CO: . SP.C6 . XS.XS.C5..O... (SP.C
6).(SP.C7) . YS.RO.C4: . 2200.JO..YS.RO.
C3..O... XS.BG . . PX, XS: . MX, 0: . 22
20..P... PX, XS.BG: . MX, 1..P... PY, YS
..P....3P... CHANGE HEADING.>PB.H.H.DH.[
PL.. H..CI . H.H.CI: . 3020.VPV.. H.0 .
H.H.CI: . 3030..P..SP.(.(H.SS.HA)) . MA:
..P..QQ.B(SE): . SE, 0: . PT, SB.SP: . 2
000.HP... SE, QQ.NP.....P .. NUMERIC INP
UT.$Q... GETS NEXT WORD FROM IN$ AS A NU
MBER (NU). CHECKS FOR ERROR.PQ... 5000:
ER.0: NU.0: . WD$."" . ER..1: ..UQ... K
. 1 . C(WD$): T$.J(WD$, K, 1)..QH.. ((T$
."0").(T$."9")) . (T$.."-").(T$.."+").(T
$..".") . ER..1.KQR..: NU.E(WD$): ...Q..
. FILL WD$ WITH NEXT WORD FROM IN$..R..W
D$."": . IN$."" . 5070..R..IN$.I(IN$, C(
IN$).IN): IN.0.KR..ST(NE).ST(NE).1: IN.I
N.1.~R... IN.C(IN$) . IN.IN.1: ST(NE).ST
(NE).1: . 5070..R... J(IN$, IN, 1).." "
. WD$.WD$ . J(IN$, IN, 1): . 5030.YRD..
(WD$."").(IN$.."") . 5020..RN....RP.. ID
ENTIFY PROCEDURE.9SZ.. RETURNS INDEX (PN
) OF PROCNAME IN WD$; 0 IF NOT A PROCNAM
E.GS..K.0: PN.0.]S..K.K.1: . K.PC . ..VS
... WD$..PN$(K) . 6030..S..PN.K: ...SX..
OPEN DISK FILE..SB.ER.0: . 5000: . WD$.
."" . 7030..SL.ER..1: . "YOU MUST SUPPLY
A FILENAME": ...SV.. 15,8,15.3T... 2,8,
2, "0:" . WD$ . ".TURTLE,S," . MD$: .15,
QQ,T$,K,ZZ.PT... (QQ.26).(MD$."W") . .
"WRITE-PROTECTED DISK": ER..1: ...T... (
QQ.67).(MD$."W").(K.36) . . "DISK IS FUL
L.": ER..1: ...T... (QQ.63).(MD$."W") .
. "FILENAME IS USED": ER..1: ..#U... (QQ
.62).(MD$."R") . . "NO SUCH FILE ON DISK
": ER..1: ..]U... QQ.19 . . "I'M HAVING
TROUBLE WITH THE DISK": ER..1.CU.....U@.
. GET VALID COLOR NUMBER..UJ.. 4000 NUME
RIC ...UT.. ER . (NU.15).(NU.0) . ER..1.
.U^...SU(#. FORWARD COMMAND..V2#. 4000:
. ER . (NU..0) . . "I CAN'T GO FORWARD "
WD$: ..QV<#IX.X: IY.Y: . D. 0 . NU: X..
R(D..(H.C).IX): Y..R(D..(H.C).IY).CVF#.
X.XH . X.XH.UVP#. X.XL . X.XL..VZ#. Y.YH
. Y.YH..VD#. Y.YL . Y.YL..VN#. PE . 912
0..VX#BY.SC . BL..((YM.(Y.CR)).BB) .BB..
((X.XL).BB) . ((YM.(Y.CR)) . MA)..W.#BI.
MA . ((X.XL) . MA).1W.#. DR . . BY, B(BY
) . BA.BI: . 9120.NW.#. BY, B(BY) . (FF.
BA.BI)._W #. 2000: .: ..SW.'. RIGHT COMM
AND..W.'. 4000: . ER . (NU.0) . . "I CAN
'T TURN RIGHT " WD$: ..CW$'DH.NU: . 3000
: ..VW.*. LEFT COMMAND..X.+. 4000: . ER
. (NU.0) . . "I CAN'T GO LEFT " WD$: ..$
X.+DH..NU: . 3000: ..7X... HOME COMMAND.
ZX..X.0: Y.0: H.0: DH.0: . 3000: ..SXH2.
SETHEADING COMMAND..XR2. 4000: . (. ER)
.(H..360) . 13030.IX.2ER..1: . "I CAN'T
SET A HEADING OF " WD$: ...X.2H.NU: DH.0
: . 3000: ...X.6. SETPOSITION COMMAND.,Y
.6. 4000: . (. ER).(NU..XL).(NU..XH) . 1
4030.\YD6ER..1: . "I CAN'T SET AN X-VALU
E OF "WD$: ..NYN6QQ.NU: . 4000..YX6. (.
ER).(NU..YL).(NU..YH) . X.QQ: Y.NU: . 20
00: ..TY.6ER..1: . "I CAN'T SET A Y-VALU
E OF "WD$: ...Y.:. PENCOLOR COMMAND..Z.:
. 8000: . ER . . WD$ " IS NOT A PENCOLOR
": ..AZ.:. 2, (B(2).15).16.NU: . 49235:
.._Z.>. BACKGROUNDCOLOR COMMAND..Z.>. 80
00: . ER . . WD$ " IS NOT A BACKGROUNDCO
LOR": ...Z.>. 2, (B(2).240).NU: . 49235:
..TZHB. TURTLECOLOR COMMAND..[|B. 8000:
. ER . . WD$ " IS NOT A TURLTECOLOR": .
..[.B. 53287, NU: ..6[PF. DEFINE NEW PRO
CEDURE.S[ZF. 5000:. WD$.."" . 18030.}[DF
. "I NEED A PROCEDURE NAME": ER..1: ...[
NF. PC.FF . ."I CAN'T REMEMBER ANY MORE
PROCEDURES": ER..1: ...[XF. 6000: . PN..
0 . . WD$ " ALREADY EXISTS": ER..1: ..!\
.FPC.PC.1: PN$(PC).WD$: . WD$;: . PR$(PC
).@\.F. WD$ " IS NOW DEFINED": ..Y\8J. P
RINTNAMES COMMAND.Z\BJ. "NUMBER OF PROCE
DURES:" PC..\LJ. PC.0 . ...\VJ. K. 1 . P
C: . PN$(K): .: ..F\ N. PRINTPROCEDURE C
OMMAND..\*N. 5000: . WD$.."" . 20030..]4
NER..1: . "I NEED A PROCEDURE NAME": ..1
]>N. 6000: . PN..0 . . PR$(PN): ..^]HNER
..1: . "THERE IS NO PROCEDURE " WD$: ..R
].R. ERASE COMMAND..].R. 5000: . WD$..""
. 21030..].RER..1: . "I NEED A PROCEDUR
E NAME": ..U]&R.6000: . PN..0 . 21050..^
0RER..1: . "THERE IS NO PROCEDURE " WD$:
..F^:RPR$(PN).PR$(PC): PN$(PN).PN$(PC):
PC.PC.1:. WD$ " IS ERASED": ..[^.U. REN
AME COMMAND.Y^.U. 5000: . WD$.."" . 2203
0..^.VER..1: . "I NEED TO KNOW THE OLD N
AME": ...^.V. 6000..^.V. PN.0 . . "PROCE
DURE " WD$ " DOESN'T EXIST": ER..1: ...^
"VQQ.PN.._,V. 5000: . WD$.."" .22080.B_6
V. "I NEED TO KNOW THE NEW NAME": ER..1:
..M_@V. 6000.._JV. PN..0 . . "YOU HAVE
ALREADY USED THAT NAME": ER..1: ..._TVPN
$(QQ).WD$: . "RENAMING OK": ..._XY. LOAD
COMMAND.._.YMD$."R": . 7000: . ER . 230
60.._.Y.2, NP.(`.Y. (NP.PC).FF . . "TOO
MANY PROCEDURES": ER..1: . 23060._`.Z. K
. 1 . NP: .2, PN$(PC.K), PR$(PC.K): .: P
C.PC.NP.|`.Z. NP "PROCEDURES LOADED"..`.
Z 2: 15: .. `.]. SAVE COMMAND.B`J]MD$
."W": . 7000: . ER . 24040..`T].2, PC: .
K. 1 . PC: .2, PN$(K): .2, PR$(K): ...A
.]. PC "PROCEDURES SAVED"."A.] 2: 15:
..<A.A. SCRATCHFILE COMMAND.`A.AER.0: .
5000: . WD$.."" . 25030..A.A. "YOU MUST
SUPPLY A FILENAME": ER..1: ...AFA. 15,8
,15.NAPA.15, "S0:" . WD$ . ".TURTLE": .1
5, QQ,T$,ZZ,ZZ..BZA. (QQ.19).(QQ..62) .
. "I'M HAVING TROUBLE WITH THE DISK":ER.
.1..B.A 15: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL