FORTH TEACHER
FILE INFORMATION
FILENAME(S): FORTH TEACHER
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-12-02 02:15:03
APPEARS ON: 1 disk(s)
FILE HASH
b4cefb084c7ea4989763f713d2f71c06956509543d9f9bb37b1d711c7c8e167e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS TOOLS 08 | FORTH TEACHER | PRG | The BAM Archive | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1C 04 64 00 8F 20 20 20 20 20 20 20 20 46 |....d.. F|
00000010: 4F 52 54 48 20 54 45 41 43 48 45 52 00 22 04 6E |ORTH TEACHER.".n|
00000020: 00 8F 00 40 04 78 00 8F 20 20 20 20 20 28 43 29 |...@.x.. (C)|
00000030: 20 20 41 4E 44 52 45 57 20 41 53 48 57 4F 4F 44 | ANDREW ASHWOOD|
00000040: 00 46 04 82 00 8F 00 61 04 8C 00 8F 20 20 20 20 |.F.....a.... |
00000050: 20 20 20 20 31 33 2F 35 2F 38 32 20 20 35 3A 32 | 13/5/82 5:2|
00000060: 34 00 67 04 96 00 8F 00 B1 04 A0 00 44 B2 31 38 |4.g.........D.18|
00000070: 3A 86 20 43 28 35 30 30 29 2C 44 24 28 32 31 29 |:. C(500),D$(21)|
00000080: 2C 50 28 32 31 29 2C 52 28 31 30 30 29 2C 53 25 |,P(21),R(100),S%|
00000090: 28 31 30 30 29 2C 57 28 32 31 29 3A 44 24 B2 22 |(100),W(21):D$."|
000000A0: 20 22 3A 49 4C 24 B2 22 49 4C 4C 45 47 41 4C 20 | ":IL$."ILLEGAL |
000000B0: 22 00 F6 04 AA 00 81 20 4C B2 31 20 A4 20 44 3A |"...... L.1 . D:|
000000C0: 87 20 44 24 28 4C 29 2C 49 31 24 3A 57 28 4C 29 |. D$(L),I1$:W(L)|
000000D0: B2 30 3A 50 28 4C 29 B2 4C AC 32 AB 31 3A 8B 20 |.0:P(L).L.2.1:. |
000000E0: 49 31 24 B2 22 53 22 20 A7 20 57 B2 57 AA 31 3A |I1$."S" . W.W.1:|
000000F0: 57 28 4C 29 B2 57 00 13 05 B4 00 43 28 4C AC 32 |W(L).W.....C(L.2|
00000100: AB 31 29 B2 AB 4C 3A 43 28 4C AC 32 29 B2 30 3A |.1)..L:C(L.2).0:|
00000110: 82 20 4C 00 43 05 BE 00 53 24 B2 22 20 20 20 20 |. L.C...S$." |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 22 00 6D 05 C8 00 44 45 B2 31 30 3A 43 B2 | ".m...DE.10:C.|
00000150: 44 AC 32 AA 31 3A 50 24 B2 22 13 11 11 11 11 11 |D.2.1:P$."......|
00000160: 22 3A 50 24 B2 50 24 AA 53 24 AA 50 24 00 7E 05 |":P$.P$.S$.P$.~.|
00000170: D2 00 99 20 22 93 22 3A 8D 20 31 30 37 30 00 89 |... ".":. 1070..|
00000180: 05 DC 00 8D 20 31 36 31 30 00 C3 05 E6 00 53 43 |.... 1610.....SC|
00000190: 24 B2 50 24 AA 22 53 4F 20 43 4F 4D 50 49 4C 45 |$.P$."SO COMPILE|
000001A0: 20 49 54 22 3A 53 55 24 B2 50 24 AA 22 53 54 41 | IT":SU$.P$."STA|
000001B0: 43 4B 20 55 4E 44 45 52 46 4C 4F 57 20 45 52 52 |CK UNDERFLOW ERR|
000001C0: 4F 52 22 00 D9 05 F0 00 8D 20 31 32 31 30 3A 57 |OR"...... 1210:W|
000001D0: 24 B2 C8 28 57 24 2C 37 29 00 F2 05 FA 00 8B 20 |$..(W$,7)...... |
000001E0: 4D 20 A7 20 33 32 30 3A AC AC 20 43 4F 4D 50 49 |M . 320:.. COMPI|
000001F0: 4C 45 00 0B 06 04 01 8D 20 31 33 38 30 3A 8F 20 |LE...... 1380:. |
00000200: 53 45 41 52 43 48 20 44 49 43 54 00 3E 06 0E 01 |SEARCH DICT.>...|
00000210: 8B 20 4E 20 A7 20 50 43 B2 50 28 4E 29 3A 99 20 |. N . PC.P(N):. |
00000220: 50 24 22 53 4F 20 45 58 45 43 55 54 45 20 49 54 |P$"SO EXECUTE IT|
00000230: 22 3A 8D 20 31 30 34 30 3A 89 20 35 32 30 00 6A |":. 1040:. 520.j|
00000240: 06 18 01 99 20 50 24 22 49 53 20 22 57 24 22 20 |.... P$"IS "W$" |
00000250: 41 20 4E 55 4D 42 45 52 20 3F 22 3A 8D 20 31 30 |A NUMBER ?":. 10|
00000260: 34 30 3A 4E B2 C5 28 57 24 29 00 98 06 22 01 8B |40:N..(W$)..."..|
00000270: 20 4E B3 B1 30 20 B0 20 57 24 B3 B1 22 30 22 20 | N..0 . W$.."0" |
00000280: A7 20 99 20 50 24 22 59 45 53 20 49 54 20 49 53 |. . P$"YES IT IS|
00000290: 22 3A 8D 20 31 30 34 30 00 CF 06 2C 01 8B 20 4E |":. 1040...,.. N|
000002A0: B0 20 57 24 B2 22 30 22 20 A7 20 99 20 50 24 22 |. W$."0" . . P$"|
000002B0: 53 4F 20 50 55 53 48 20 49 54 22 3A 8D 20 31 30 |SO PUSH IT":. 10|
000002C0: 34 30 3A 8D 20 31 34 35 30 3A 89 20 32 34 30 00 |40:. 1450:. 240.|
000002D0: FA 06 36 01 99 20 50 24 57 24 22 20 49 53 20 55 |..6.. P$W$" IS U|
000002E0: 4E 44 45 46 49 4E 45 44 22 3A 49 24 B2 22 22 3A |NDEFINED":I$."":|
000002F0: 4E 4C B2 30 3A 89 20 32 34 30 00 05 07 40 01 8D |NL.0:. 240...@..|
00000300: 20 31 33 38 30 00 44 07 4A 01 8B 20 4E B2 31 32 | 1380.D.J.. N.12|
00000310: 20 AF 20 4E 4C B2 30 20 A7 20 99 20 50 24 22 49 | . NL.0 . . P$"I|
00000320: 20 4F 55 54 53 49 44 45 20 4C 4F 4F 50 20 45 52 | OUTSIDE LOOP ER|
00000330: 52 4F 52 22 3A 4D B2 30 3A 49 24 B2 22 22 3A 89 |ROR":M.0:I$."":.|
00000340: 20 32 34 30 00 7B 07 54 01 8B 20 4E B1 30 AF 20 | 240.{.T.. N.0. |
00000350: 57 28 4E 29 B1 30 20 A7 20 99 20 53 43 24 3A 8D |W(N).0 . . SC$:.|
00000360: 20 31 30 34 30 3A 89 20 34 30 30 3A AC AC 20 53 | 1040:. 400:.. S|
00000370: 50 45 43 49 41 4C 20 57 B0 44 53 00 AA 07 5E 01 |PECIAL W.DS...^.|
00000380: 8B 20 4E B1 30 20 A7 20 99 20 53 43 24 3A 8D 20 |. N.0 . . SC$:. |
00000390: 31 30 34 30 3A 43 28 43 29 B2 50 28 4E 29 3A 43 |1040:C(C).P(N):C|
000003A0: B2 43 AA 31 3A 89 20 32 34 30 00 D6 07 68 01 99 |.C.1:. 240...h..|
000003B0: 20 50 24 22 49 53 20 22 57 24 22 20 41 20 4E 55 | P$"IS "W$" A NU|
000003C0: 4D 42 45 52 20 3F 22 3A 8D 20 31 30 34 30 3A 4E |MBER ?":. 1040:N|
000003D0: B2 C5 28 57 24 29 00 10 08 72 01 8B 20 4E B3 B1 |..(W$)...r.. N..|
000003E0: 30 20 B0 20 57 24 B2 22 30 22 20 A7 20 99 20 50 |0 . W$."0" . . P|
000003F0: 24 22 59 45 53 20 49 54 20 49 53 22 3A 8D 20 31 |$"YES IT IS":. 1|
00000400: 30 34 30 3A 99 20 53 43 24 3A 8D 20 31 30 34 30 |040:. SC$:. 1040|
00000410: 00 43 08 7C 01 8B 20 4E B3 B1 30 20 B0 20 57 24 |.C.|.. N..0 . W$|
00000420: B2 22 30 22 20 A7 20 43 28 43 29 B2 2E 35 3A 43 |."0" . C(C)..5:C|
00000430: 28 43 AA 31 29 B2 4E 3A 43 B2 43 AA 32 3A 89 20 |(C.1).N:C.C.2:. |
00000440: 32 34 30 00 72 08 86 01 99 20 50 24 57 24 22 20 |240.r.... P$W$" |
00000450: 49 53 20 55 4E 44 45 46 49 4E 45 44 22 3A 4D B2 |IS UNDEFINED":M.|
00000460: 30 3A 49 24 B2 22 22 3A 4E 4C B2 30 3A 89 20 32 |0:I$."":NL.0:. 2|
00000470: 34 30 00 97 08 90 01 91 20 57 28 4E 29 20 89 20 |40...... W(N) . |
00000480: 34 31 30 2C 34 32 30 2C 34 34 30 2C 34 37 30 2C |410,420,440,470,|
00000490: 34 38 30 2C 35 31 30 00 C9 08 9A 01 99 20 50 24 |480,510...... P$|
000004A0: 49 4C 24 22 49 4E 20 43 4F 4D 50 49 4C 45 20 4D |IL$"IN COMPILE M|
000004B0: 4F 44 45 22 3A 4D B2 30 3A 49 24 B2 22 22 3A 4E |ODE":M.0:I$."":N|
000004C0: 4C B2 30 3A 89 20 32 34 30 00 00 09 A4 01 8B 20 |L.0:. 240...... |
000004D0: 4E 4C 20 A7 20 99 20 50 24 22 4D 49 53 53 49 4E |NL . . P$"MISSIN|
000004E0: 47 20 27 4C 4F 4F 50 27 22 3A 49 24 B2 22 22 3A |G 'LOOP'":I$."":|
000004F0: 4E 4C B2 30 3A 3A 4D B2 30 3A 3A 89 20 32 34 30 |NL.0::M.0::. 240|
00000500: 00 2D 09 AE 01 44 B2 44 AA 31 3A 4D B2 30 3A 3A |.-...D.D.1:M.0::|
00000510: 43 28 43 29 B2 30 3A 43 B2 43 AA 31 3A 4E B2 44 |C(C).0:C.C.1:N.D|
00000520: 3A 8D 20 31 36 33 30 3A 89 20 32 34 30 00 48 09 |:. 1630:. 240.H.|
00000530: B8 01 44 24 B2 C7 28 33 34 29 3A 8D 20 31 32 31 |..D$..(34):. 121|
00000540: 30 3A 44 24 B2 22 20 22 00 86 09 C2 01 43 28 43 |0:D$." ".....C(C|
00000550: 29 B2 31 35 3A 43 28 43 AA 31 29 B2 C3 28 57 24 |).15:C(C.1)..(W$|
00000560: 29 3A 81 20 4C B2 31 20 A4 20 C3 20 28 57 24 29 |):. L.1 . . (W$)|
00000570: 3A 43 28 43 AA 31 AA 4C 29 B2 C6 28 CA 28 57 24 |:C(C.1.L)..(.(W$|
00000580: 2C 4C 2C 31 29 29 00 9C 09 CC 01 82 20 4C 3A 43 |,L,1))...... L:C|
00000590: B2 43 AA 31 AA 4C 3A 89 20 32 34 30 00 C8 09 D6 |.C.1.L:. 240....|
000005A0: 01 43 28 43 29 B2 31 39 3A 50 43 B2 43 3A 8D 20 |.C(C).19:PC.C:. |
000005B0: 31 35 32 30 3A 43 B2 43 AA 31 3A 4E 4C B2 4E 4C |1520:C.C.1:NL.NL|
000005C0: AA 31 3A 89 20 32 34 30 00 0A 0A E0 01 8B 20 4E |.1:. 240...... N|
000005D0: 4C B2 30 20 A7 20 99 20 50 24 22 27 4C 4F 4F 50 |L.0 . . P$"'LOOP|
000005E0: 27 20 57 49 54 48 4F 55 54 20 27 44 4F 27 20 45 |' WITHOUT 'DO' E|
000005F0: 52 52 4F 52 22 3A 49 24 B2 22 22 3A 4E 4C B2 30 |RROR":I$."":NL.0|
00000600: 3A 4D B2 30 3A 89 20 32 34 30 00 24 0A EA 01 8D |:M.0:. 240.$....|
00000610: 20 31 35 34 30 3A 41 44 B2 50 43 3A 4E 4C B2 4E | 1540:AD.PC:NL.N|
00000620: 4C B2 AB 31 00 46 0A F4 01 43 28 43 29 B2 32 31 |L..1.F...C(C).21|
00000630: 3A 43 28 43 AA 31 29 B2 41 44 3A 43 B2 43 AA 32 |:C(C.1).AD:C.C.2|
00000640: 3A 89 20 32 34 30 00 78 0A FE 01 99 20 50 24 49 |:. 240.x.... P$I|
00000650: 4C 24 22 49 4E 20 43 4F 4D 50 49 4C 45 20 4D 4F |L$"IN COMPILE MO|
00000660: 44 45 22 3A 4D B2 30 3A 49 24 B2 22 22 3A 4E 4C |DE":M.0:I$."":NL|
00000670: B2 30 3A 89 20 32 34 30 00 A8 0A 08 02 8B 20 43 |.0:. 240...... C|
00000680: 4C 28 31 29 AC 32 35 36 AA 43 4C 28 30 29 AA 43 |L(1).256.CL(0).C|
00000690: 4C 28 32 29 B1 33 32 37 36 37 AA 36 AC 34 30 20 |L(2).32767.6.40 |
000006A0: A7 20 8D 20 31 35 36 30 00 DC 0A 12 02 8B 20 C2 |. . 1560...... .|
000006B0: 28 31 35 38 29 B1 30 20 A7 20 8B 20 C2 28 C2 28 |(158).0 . . .(.(|
000006C0: 31 35 38 29 AA 36 32 32 29 B2 31 38 20 A7 20 97 |158).622).18 . .|
000006D0: 20 31 35 38 2C 30 3A 89 20 32 34 30 00 FD 0A 1C | 158,0:. 240....|
000006E0: 02 8B 20 43 28 50 43 29 B3 30 20 A7 20 35 39 30 |.. C(PC).0 . 590|
000006F0: 3A AC AC 20 9E 54 45 4D 20 57 B0 44 53 00 18 0B |:.. .TEM W.DS...|
00000700: 26 02 8B 20 43 28 50 43 29 B2 30 20 AF 20 52 50 |&.. C(PC).0 . RP|
00000710: B2 30 20 A7 20 32 34 30 00 35 0B 30 02 8B 20 43 |.0 . 240.5.0.. C|
00000720: 28 50 43 29 B2 30 20 A7 20 8D 20 31 35 34 30 3A |(PC).0 . . 1540:|
00000730: 89 20 36 31 30 00 4A 0B 3A 02 8B 20 43 28 50 43 |. 610.J.:.. C(PC|
00000740: 29 B2 2E 35 20 A7 20 37 34 30 00 64 0B 44 02 8D |)..5 . 740.d.D..|
00000750: 20 31 35 32 30 3A 50 43 B2 43 28 50 43 29 3A 89 | 1520:PC.C(PC):.|
00000760: 20 35 32 30 00 9C 0B 4E 02 91 20 B6 28 43 28 50 | 520...N.. .(C(P|
00000770: 43 29 29 89 20 36 32 30 2C 36 34 30 2C 36 35 30 |C)). 620,640,650|
00000780: 2C 36 36 30 2C 36 37 30 2C 37 30 30 2C 37 33 30 |,660,670,700,730|
00000790: 2C 37 35 30 2C 37 38 30 2C 37 39 30 00 D1 0B 58 |,750,780,790...X|
000007A0: 02 91 20 B6 28 43 28 50 43 29 29 AB 31 30 20 89 |.. .(C(PC)).10 .|
000007B0: 20 38 33 30 2C 38 37 30 2C 39 30 30 2C 39 32 30 | 830,870,900,920|
000007C0: 2C 39 34 30 2C 39 37 30 2C 39 38 30 2C 31 30 32 |,940,970,980,102|
000007D0: 30 00 E3 0B 62 02 50 43 B2 50 43 AA 31 3A 89 20 |0...b.PC.PC.1:. |
000007E0: 35 32 30 00 06 0C 6C 02 8D 20 31 34 39 30 3A 8B |520...l.. 1490:.|
000007F0: 20 45 52 20 A7 20 49 24 B2 22 22 3A 4E 4C B2 30 | ER . I$."":NL.0|
00000800: 3A 89 20 32 34 30 00 23 0C 76 02 8D 20 31 30 36 |:. 240.#.v.. 106|
00000810: 30 3A 99 20 4E 3B 3A 8D 20 31 30 35 30 3A 89 20 |0:. N;:. 1050:. |
00000820: 36 31 30 00 4E 0C 80 02 8D 20 31 34 39 30 3A 4E |610.N.... 1490:N|
00000830: 31 B2 4E 3A 8D 20 31 34 39 30 3A 4E B2 4E AA 4E |1.N:. 1490:N.N.N|
00000840: 31 3A 8D 20 31 34 35 30 3A 89 20 36 31 30 00 79 |1:. 1450:. 610.y|
00000850: 0C 8A 02 8D 20 31 34 39 30 3A 4E 31 B2 4E 3A 8D |.... 1490:N1.N:.|
00000860: 20 31 34 39 30 3A 4E B2 4E AA 4E 31 3A 8D 20 31 | 1490:N.N.N1:. 1|
00000870: 34 35 30 3A 89 20 36 31 30 00 A4 0C 94 02 8D 20 |450:. 610...... |
00000880: 31 34 39 30 3A 4E 31 B2 4E 3A 8D 20 31 34 39 30 |1490:N1.N:. 1490|
00000890: 3A 4E B2 4E AC 4E 31 3A 8D 20 31 34 35 30 3A 89 |:N.N.N1:. 1450:.|
000008A0: 20 36 31 30 00 BB 0C 9E 02 8D 20 31 34 39 30 3A | 610...... 1490:|
000008B0: 4E 31 B2 4E 3A 8D 20 31 34 39 30 00 DD 0C A8 02 |N1.N:. 1490.....|
000008C0: 8B 20 4E 31 B3 B1 30 20 A7 20 4E B2 4E AD 4E 31 |. N1..0 . N.N.N1|
000008D0: 3A 8D 20 31 34 35 30 3A 89 20 36 31 30 00 04 0D |:. 1450:. 610...|
000008E0: B2 02 99 20 50 24 22 44 49 56 49 53 49 4F 4E 20 |... P$"DIVISION |
000008F0: 42 59 20 5A 45 52 4F 22 3A 49 24 B2 22 22 3A 89 |BY ZERO":I$."":.|
00000900: 20 32 34 30 00 37 0D BC 02 8B 20 44 B2 32 31 20 | 240.7.... D.21 |
00000910: A7 20 99 20 50 24 22 44 49 43 54 49 4F 4E 41 52 |. . P$"DICTIONAR|
00000920: 59 20 4F 56 45 52 46 4C 4F 57 22 3A 49 24 B2 22 |Y OVERFLOW":I$."|
00000930: 22 3A 89 20 32 34 30 00 72 0D C6 02 8D 20 31 32 |":. 240.r.... 12|
00000940: 31 30 3A 44 24 28 44 AA 31 29 B2 C8 28 57 24 2C |10:D$(D.1)..(W$,|
00000950: 37 29 3A 50 28 44 AA 31 29 B2 43 3A 4D B2 31 3A |7):P(D.1).C:M.1:|
00000960: 99 20 50 24 22 43 4F 4D 50 49 4C 49 4E 47 20 22 |. P$"COMPILING "|
00000970: 57 24 00 83 0D D0 02 8D 20 31 30 34 30 3A 89 20 |W$...... 1040:. |
00000980: 36 31 30 00 AE 0D DA 02 99 20 50 24 49 4C 24 22 |610...... P$IL$"|
00000990: 49 4E 20 49 4D 4D 45 44 49 41 54 45 20 4D 4F 44 |IN IMMEDIATE MOD|
000009A0: 45 22 3A 49 24 B2 22 22 3A 89 20 32 34 30 00 D1 |E":I$."":. 240..|
000009B0: 0D E4 02 4E B2 43 28 50 43 AA 31 29 3A 8D 20 31 |...N.C(PC.1):. 1|
000009C0: 34 35 30 3A 50 43 B2 50 43 AA 31 3A 89 20 36 31 |450:PC.PC.1:. 61|
000009D0: 30 00 0E 0E EE 02 8D 20 31 30 36 30 3A 8B 20 52 |0...... 1060:. R|
000009E0: 50 20 A7 20 4E B2 52 28 52 50 AB 31 29 AA 32 3A |P . N.R(RP.1).2:|
000009F0: 4E 31 B2 43 28 4E AB 31 29 AA 4E 3A 52 28 52 50 |N1.C(N.1).N:R(RP|
00000A00: AB 31 29 B2 4E 31 AB 31 3A 89 20 37 37 30 00 3C |.1).N1.1:. 770.<|
00000A10: 0E F8 02 44 24 B2 C7 28 33 34 29 3A 8D 20 31 32 |...D$..(34):. 12|
00000A20: 31 30 3A 44 24 B2 22 20 22 3A 99 20 57 24 3B 3A |10:D$." ":. W$;:|
00000A30: 8D 20 31 30 35 30 3A 89 20 36 31 30 00 65 0E 02 |. 1050:. 610.e..|
00000A40: 03 81 20 4C B2 4E 20 A4 20 4E 31 3A 99 20 C7 28 |.. L.N . N1:. .(|
00000A50: 43 28 4C 29 29 3B 3A 82 3A 8D 20 31 30 35 30 3A |C(L));:.:. 1050:|
00000A60: 89 20 36 31 30 00 7F 0E 0C 03 8D 20 31 30 36 30 |. 610...... 1060|
00000A70: 3A 99 3A 8D 20 31 30 35 30 3A 89 20 36 31 30 00 |:.:. 1050:. 610.|
00000A80: C0 0E 16 03 8B 20 52 50 B2 30 20 A7 20 99 20 50 |..... RP.0 . . P|
00000A90: 24 22 53 4F 52 52 59 2C 20 4E 4F 20 4C 4F 4F 50 |$"SORRY, NO LOOP|
00000AA0: 53 20 49 4E 20 49 4D 4D 45 44 49 41 54 45 20 4D |S IN IMMEDIATE M|
00000AB0: 4F 44 45 22 3A 49 24 B2 22 22 3A 89 20 32 34 30 |ODE":I$."":. 240|
00000AC0: 00 EA 0E 20 03 53 43 B2 50 43 3A 8D 20 31 35 34 |... .SC.PC:. 154|
00000AD0: 30 3A 53 32 B2 50 43 3A 8D 20 31 34 39 30 3A 4E |0:S2.PC:. 1490:N|
00000AE0: 31 B2 4E 3A 8D 20 31 34 39 30 00 28 0F 2A 03 8B |1.N:. 1490.(.*..|
00000AF0: 20 45 52 20 A7 20 99 20 50 24 22 4E 4F 54 20 45 | ER . . P$"NOT E|
00000B00: 4E 4F 55 47 48 20 50 41 52 41 4D 45 54 45 52 53 |NOUGH PARAMETERS|
00000B10: 20 46 4F 52 20 41 20 4C 4F 4F 50 22 3A 49 24 B2 | FOR A LOOP":I$.|
00000B20: 22 22 3A 89 20 32 34 30 00 66 0F 34 03 50 43 B2 |"":. 240.f.4.PC.|
00000B30: 4E 3A 8D 20 31 35 32 30 3A 50 43 B2 4E 31 3A 8D |N:. 1520:PC.N1:.|
00000B40: 20 31 35 32 30 3A 50 43 B2 53 32 3A 8D 20 31 35 | 1520:PC.S2:. 15|
00000B50: 32 30 3A 4E 4C B2 4E 4C AA 31 3A 50 43 B2 53 43 |20:NL.NL.1:PC.SC|
00000B60: 3A 89 20 36 31 30 00 A7 0F 3E 03 8B 20 52 50 B2 |:. 610...>.. RP.|
00000B70: 30 20 A7 20 99 20 50 24 22 53 4F 52 52 59 2C 20 |0 . . P$"SORRY, |
00000B80: 4E 4F 20 4C 4F 4F 50 53 20 49 4E 20 49 4D 4D 45 |NO LOOPS IN IMME|
00000B90: 44 49 41 54 45 20 4D 4F 44 45 22 3A 49 24 B2 22 |DIATE MODE":I$."|
00000BA0: 22 3A 89 20 32 34 30 00 E3 0F 48 03 53 43 B2 50 |":. 240...H.SC.P|
00000BB0: 43 3A 8D 20 31 35 34 30 3A 53 32 B2 50 43 AA 31 |C:. 1540:S2.PC.1|
00000BC0: 3A 41 44 B2 43 28 53 32 29 3A 8D 20 31 35 34 30 |:AD.C(S2):. 1540|
00000BD0: 3A 4C 4F B2 50 43 3A 8D 20 31 35 34 30 3A 55 50 |:LO.PC:. 1540:UP|
00000BE0: B2 50 43 00 1B 10 52 03 4C 4F B2 4C 4F AA 31 3A |.PC...R.LO.LO.1:|
00000BF0: 8B 20 4C 4F B1 B2 55 50 20 A7 20 50 43 B2 53 32 |. LO..UP . PC.S2|
00000C00: 3A 8D 20 31 35 32 30 3A 4E 4C B2 4E 4C AB 31 3A |:. 1520:NL.NL.1:|
00000C10: 50 43 B2 53 43 3A 89 20 36 31 30 00 45 10 5C 03 |PC.SC:. 610.E.\.|
00000C20: 50 43 B2 55 50 3A 8D 20 31 35 32 30 3A 50 43 B2 |PC.UP:. 1520:PC.|
00000C30: 4C 4F 3A 8D 20 31 35 32 30 3A 50 43 B2 41 44 3A |LO:. 1520:PC.AD:|
00000C40: 89 20 36 31 30 00 86 10 66 03 8B 20 52 50 B2 30 |. 610...f.. RP.0|
00000C50: 20 A7 20 99 20 50 24 22 27 49 27 20 4E 4F 54 20 | . . P$"'I' NOT |
00000C60: 41 4C 4C 4F 57 45 44 20 49 4E 20 49 4D 4D 45 44 |ALLOWED IN IMMED|
00000C70: 49 41 54 45 20 4D 4F 44 45 22 3A 49 24 B2 22 22 |IATE MODE":I$.""|
00000C80: 3A 89 20 32 34 30 00 C2 10 70 03 8B 20 4E 4C B2 |:. 240...p.. NL.|
00000C90: 30 20 A7 20 99 20 50 24 22 4E 4F 20 4C 4F 4F 50 |0 . . P$"NO LOOP|
00000CA0: 20 46 4F 52 20 27 49 27 20 54 4F 20 42 45 20 49 | FOR 'I' TO BE I|
00000CB0: 4E 22 3A 4D B2 30 3A 49 24 B2 22 22 3A 89 20 32 |N":M.0:I$."":. 2|
00000CC0: 34 30 00 DD 10 7A 03 4E B2 52 28 52 50 AB 32 29 |40...z.N.R(RP.2)|
00000CD0: 3A 8D 20 31 34 35 30 3A 89 20 36 31 30 00 03 11 |:. 1450:. 610...|
00000CE0: 84 03 8B 20 53 50 B2 30 20 A7 20 99 20 50 24 53 |... SP.0 . . P$S|
00000CF0: 55 24 3A 49 24 B2 22 22 3A 4E 4C B2 30 3A 89 20 |U$:I$."":NL.0:. |
00000D00: 32 34 30 00 1F 11 8E 03 4E B2 53 25 28 53 50 AB |240.....N.S%(SP.|
00000D10: 31 29 3A 8D 20 31 34 35 30 3A 89 20 36 31 30 00 |1):. 1450:. 610.|
00000D20: 45 11 98 03 8B 20 53 50 B3 32 20 A7 20 99 20 50 |E.... SP.2 . . P|
00000D30: 24 53 55 24 3A 49 24 B2 22 22 3A 4E 4C B2 30 3A |$SU$:I$."":NL.0:|
00000D40: 89 20 32 34 30 00 7E 11 A2 03 4E B2 53 25 28 53 |. 240.~...N.S%(S|
00000D50: 50 AB 31 29 3A 53 25 28 53 50 AB 31 29 B2 53 25 |P.1):S%(SP.1).S%|
00000D60: 28 53 50 AB 32 29 3A 53 25 28 53 50 AB 32 29 B2 |(SP.2):S%(SP.2).|
00000D70: 4E 3A 8D 20 31 36 34 30 3A 89 20 36 31 30 00 A4 |N:. 1640:. 610..|
00000D80: 11 AC 03 8B 20 53 50 B3 33 20 A7 20 99 20 50 24 |.... SP.3 . . P$|
00000D90: 53 55 24 3A 49 24 B2 22 22 3A 4E 4C B2 30 3A 89 |SU$:I$."":NL.0:.|
00000DA0: 20 32 34 30 00 E2 11 B6 03 4E B2 53 25 28 53 50 | 240.....N.S%(SP|
00000DB0: AB 33 29 3A 53 25 28 53 50 AB 33 29 B2 53 25 28 |.3):S%(SP.3).S%(|
00000DC0: 53 50 AB 32 29 3A 53 25 28 53 50 AB 32 29 B2 53 |SP.2):S%(SP.2).S|
00000DD0: 25 28 53 50 AB 31 29 3A 53 25 28 53 50 AB 31 29 |%(SP.1):S%(SP.1)|
00000DE0: B2 4E 00 F3 11 C0 03 8D 20 31 36 34 30 3A 89 20 |.N...... 1640:. |
00000DF0: 36 31 30 00 04 12 CA 03 8D 20 31 34 39 30 3A 89 |610...... 1490:.|
00000E00: 20 36 31 30 00 16 12 D4 03 8D 20 31 32 31 30 3A | 610...... 1210:|
00000E10: 8D 20 31 33 38 30 00 2F 12 DE 03 8B 20 4E B1 31 |. 1380./.... N.1|
00000E20: 37 20 A7 20 44 B2 4E AB 31 3A 89 20 32 31 30 00 |7 . D.N.1:. 210.|
00000E30: 6D 12 E8 03 8B 20 4E B2 30 20 A7 20 99 20 50 24 |m.... N.0 . . P$|
00000E40: 57 24 22 20 49 53 20 4E 4F 54 20 49 4E 20 54 48 |W$" IS NOT IN TH|
00000E50: 45 20 44 49 43 54 49 4F 4E 41 52 59 22 3A 4D B2 |E DICTIONARY":M.|
00000E60: 30 3A 49 24 B2 22 22 3A 89 20 32 34 30 00 97 12 |0:I$."":. 240...|
00000E70: F2 03 99 20 50 24 22 50 4C 45 41 53 45 20 44 4F |... P$"PLEASE DO|
00000E80: 20 4E 4F 54 20 46 4F 52 47 45 54 20 54 48 41 54 | NOT FORGET THAT|
00000E90: 22 3A 89 20 32 34 30 00 B5 12 FC 03 8D 20 31 34 |":. 240...... 14|
00000EA0: 39 30 3A 8B 20 45 52 20 A7 20 44 45 B2 31 30 3A |90:. ER . DE.10:|
00000EB0: 89 20 36 31 30 00 C4 12 06 04 44 45 B2 4E 3A 89 |. 610.....DE.N:.|
00000EC0: 20 36 31 30 00 DC 12 10 04 81 20 4C B2 31 20 A4 | 610...... L.1 .|
00000ED0: 20 31 30 30 AC 44 45 3A 3A 82 3A 8E 00 0C 13 1A | 100.DE::.:.....|
00000EE0: 04 81 20 4C B2 31 39 36 20 A4 20 31 39 38 3A 43 |.. L.196 . 198:C|
00000EF0: 4C 28 4C AB 31 39 36 29 B2 C2 28 4C 29 3A 43 4C |L(L.196)..(L):CL|
00000F00: 28 33 29 B2 C2 28 32 31 36 29 3A 8E 00 43 13 24 |(3)..(216):..C.$|
00000F10: 04 8D 20 31 35 37 30 3A 81 20 4C B2 31 39 36 20 |.. 1570:. L.196 |
00000F20: A4 20 31 39 38 3A 97 20 4C 2C 43 4C 28 4C AB 31 |. 198:. L,CL(L.1|
00000F30: 39 36 29 3A 82 3A 97 20 32 31 36 2C 43 4C 28 33 |96):.:. 216,CL(3|
00000F40: 29 3A 8E 00 75 13 2E 04 4D 31 24 B2 22 DD A0 A0 |):..u...M1$."...|
00000F50: A0 A0 A0 A0 A0 DD A0 A0 A0 A0 A0 A0 A0 A0 DD A0 |................|
00000F60: A0 A0 A0 A0 20 A0 A0 DD A0 A0 A0 A0 A0 A0 A0 A0 |.... ...........|
00000F70: A0 A0 A0 DD 22 00 A7 13 38 04 4D 32 24 B2 22 AB |...."...8.M2$.".|
00000F80: C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F90: DB C0 C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 C0 |................|
00000FA0: C0 C0 C0 C0 C0 B3 22 00 D9 13 42 04 42 24 B2 20 |......"...B.B$. |
00000FB0: 22 AD C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 |"...............|
00000FC0: C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 |................|
00000FD0: C0 C0 C0 C0 C0 C0 C0 BD 22 00 0B 14 4C 04 54 24 |........"...L.T$|
00000FE0: B2 20 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |. ".............|
00000FF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B2 C0 C0 |................|
00001000: C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 3D 14 56 04 |..........".=.V.|
00001010: 54 31 24 B2 22 AB C0 C0 C0 C0 C0 C0 C0 B2 C0 C0 |T1$."...........|
00001020: C0 C0 C0 C0 C0 C0 B2 C0 C0 C0 C0 C0 C0 C0 C0 DB |................|
00001030: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B3 22 00 6F 14 |............".o.|
00001040: 60 04 53 24 B2 20 22 20 20 20 20 20 20 20 20 20 |`.S$. " |
00001050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001070: AD 14 6A 04 99 22 93 11 11 11 11 11 11 11 11 22 |..j.."........."|
00001080: 54 24 3A 99 22 DD 20 20 20 20 20 20 20 20 44 49 |T$:.". DI|
00001090: 43 54 49 4F 4E 41 52 59 20 20 20 20 20 20 20 DD |CTIONARY .|
000010A0: 20 20 53 54 41 43 4B 20 20 20 20 DD 22 00 B7 14 | STACK ."...|
000010B0: 7E 04 99 20 54 31 24 00 ED 14 88 04 81 20 4C B2 |~.. T1$...... L.|
000010C0: 31 20 A4 20 36 3A 99 20 4D 31 24 22 9D 9D 9D 9D |1 . 6:. M1$"....|
000010D0: 9D 9D 9D 9D 9D 9D 9D 9D 22 CA 28 C4 28 4C 29 2C |........".(.(L),|
000010E0: 32 29 22 29 22 3A 99 20 4D 32 24 3A 82 00 10 15 |2)")":. M2$:....|
000010F0: 92 04 99 20 4D 31 24 22 9D 9D 9D 9D 9D 9D 9D 9D |... M1$"........|
00001100: 9D 9D 9D 9D 37 29 22 3A 99 20 42 24 22 13 22 3B |....7)":. B$".";|
00001110: 00 29 15 9C 04 97 20 33 33 37 36 37 2C 31 32 35 |.).... 33767,125|
00001120: 3A 8D 20 31 36 34 30 3A 8E 00 69 15 A6 04 83 20 |:. 1640:..i.... |
00001130: 22 2E 22 2C 4E 2C 22 2B 22 2C 4E 2C 22 2D 22 2C |".",N,"+",N,"-",|
00001140: 4E 2C 22 2A 22 2C 4E 2C 22 2F 22 2C 4E 2C 22 3A |N,"*",N,"/",N,":|
00001150: 22 2C 53 2C 22 3B 22 2C 53 2C 22 2C 22 2C 53 2C |",S,";",S,",",S,|
00001160: 43 52 2C 4E 2C 44 4F 2C 53 00 A4 15 B0 04 83 4C |CR,N,DO,S......L|
00001170: 4F 4F 50 2C 53 2C 49 2C 4E 2C 44 55 50 2C 4E 2C |OOP,S,I,N,DUP,N,|
00001180: 53 57 41 50 2C 4E 2C 52 4F 54 2C 4E 2C 44 52 4F |SWAP,N,ROT,N,DRO|
00001190: 50 2C 4E 2C 46 4F 52 47 45 54 2C 53 2C 44 45 4C |P,N,FORGET,S,DEL|
000011A0: 41 59 2C 4E 00 BF 15 BA 04 8F 20 2A 2A 2A 2A 2A |AY,N...... *****|
000011B0: 20 47 45 54 20 57 4F 52 44 20 2A 2A 2A 2A 2A 00 | GET WORD *****.|
000011C0: D4 15 C4 04 8B 20 C3 28 49 24 29 B2 30 20 A7 20 |..... .(I$).0 . |
000011D0: 31 32 38 30 00 F9 15 CE 04 8B 20 C8 28 49 24 2C |1280...... .(I$,|
000011E0: 31 29 B2 44 24 20 A7 20 49 24 B2 CA 28 49 24 2C |1).D$ . I$..(I$,|
000011F0: 32 29 3A 89 20 31 32 32 30 00 0B 16 D8 04 81 20 |2):. 1220...... |
00001200: 4C B2 31 20 A4 20 C3 28 49 24 29 00 41 16 E2 04 |L.1 . .(I$).A...|
00001210: 8B 20 CA 28 49 24 2C 4C 2C 31 29 B2 44 24 20 A7 |. .(I$,L,1).D$ .|
00001220: 20 57 24 B2 C8 28 49 24 2C 4C AB 31 29 3A 49 24 | W$..(I$,L.1):I$|
00001230: B2 CA 28 49 24 2C 4C AA 31 29 3A 89 20 31 32 37 |..(I$,L.1):. 127|
00001240: 30 00 55 16 EC 04 82 20 4C 3A 57 24 B2 49 24 3A |0.U.... L:W$.I$:|
00001250: 49 24 B2 22 22 00 5B 16 F6 04 8E 00 77 16 00 05 |I$."".[.....w...|
00001260: 99 20 22 13 22 53 24 53 24 3B 3A 8D 20 31 30 35 |. "."S$S$;:. 105|
00001270: 30 3A 99 20 22 13 22 00 85 16 0A 05 99 20 22 12 |0:. "."...... ".|
00001280: 20 92 9D 22 3B 00 9F 16 14 05 A1 20 49 31 24 3A | ..";...... I1$:|
00001290: 8B 20 49 31 24 B2 22 22 20 A7 20 31 33 30 30 00 |. I1$."" . 1300.|
000012A0: CA 16 1E 05 4E B2 C6 28 49 31 24 29 3A 8B 20 4E |....N..(I1$):. N|
000012B0: B2 31 33 20 A7 20 99 20 22 20 22 3A 8D 20 31 35 |.13 . . " ":. 15|
000012C0: 36 30 3A 3A 89 20 31 32 31 30 00 E1 16 28 05 8B |60::. 1210...(..|
000012D0: 20 4E B2 33 34 20 A7 20 99 20 49 31 24 22 14 22 | N.34 . . I1$"."|
000012E0: 3B 00 FB 16 32 05 8B 20 4E B2 31 39 20 A7 20 49 |;...2.. N.19 . I|
000012F0: 24 B2 22 22 3A 89 20 31 32 31 30 00 37 17 3C 05 |$."":. 1210.7.<.|
00001300: 8B 28 4E B2 32 30 B0 4E B2 31 35 37 29 AF C3 28 |.(N.20.N.157)..(|
00001310: 49 24 29 B1 30 A7 49 24 B2 4C 45 46 54 28 49 24 |I$).0.I$.LEFT(I$|
00001320: 2C C3 28 49 24 29 AB 31 29 3A 99 20 22 14 22 3B |,.(I$).1):. ".";|
00001330: 3A 89 20 31 32 39 30 00 4F 17 46 05 8B 20 28 4E |:. 1290.O.F.. (N|
00001340: AF 31 32 37 29 B3 33 32 20 A7 20 31 32 39 30 00 |.127).32 . 1290.|
00001350: 77 17 50 05 99 20 49 31 24 3B 3A 49 24 B2 49 24 |w.P.. I1$;:I$.I$|
00001360: AA 49 31 24 3A 8B 20 C3 20 28 49 24 29 B3 38 30 |.I1$:. . (I$).80|
00001370: 20 A7 20 31 32 39 30 00 82 17 5A 05 89 20 31 32 | . 1290...Z.. 12|
00001380: 31 30 00 A0 17 64 05 8F 20 2A 2A 2A 2A 2A 20 53 |10...d.. ***** S|
00001390: 45 41 52 43 48 20 44 49 43 54 20 2A 2A 2A 2A 2A |EARCH DICT *****|
000013A0: 00 C6 17 6E 05 99 20 50 24 22 49 53 20 22 57 24 |...n.. P$"IS "W$|
000013B0: 22 20 49 4E 20 54 48 45 20 44 49 43 54 49 4F 4E |" IN THE DICTION|
000013C0: 41 52 59 20 3F 22 00 D9 17 78 05 81 20 4E B2 44 |ARY ?"...x.. N.D|
000013D0: 20 A4 20 31 20 A9 20 AB 31 00 ED 17 82 05 8B 20 | . 1 . .1...... |
000013E0: 44 45 B1 30 20 A7 20 8D 20 31 36 32 30 00 1F 18 |DE.0 . . 1620...|
000013F0: 8C 05 8B 20 44 24 28 4E 29 B2 57 24 20 A7 20 8D |... D$(N).W$ . .|
00001400: 20 31 36 33 30 3A 99 20 50 24 22 59 45 53 20 49 | 1630:. P$"YES I|
00001410: 54 20 49 53 22 3B 3A 8D 20 31 30 34 30 3A 8E 00 |T IS";:. 1040:..|
00001420: 33 18 96 05 8B 20 44 45 B1 30 20 A7 20 8D 20 31 |3.... DE.0 . . 1|
00001430: 36 33 30 00 56 18 A0 05 82 20 4E 3A 99 20 50 24 |630.V.... N:. P$|
00001440: 22 4E 4F 20 49 54 20 49 53 4E 27 54 22 3A 8D 20 |"NO IT ISN'T":. |
00001450: 31 30 34 30 3A 8E 00 77 18 AA 05 8F 20 2A 2A 2A |1040:..w.... ***|
00001460: 2A 2A 20 50 55 53 48 20 50 41 52 41 4D 45 54 45 |** PUSH PARAMETE|
00001470: 52 20 2A 2A 2A 2A 2A 00 A7 18 B4 05 8B 20 53 50 |R *****...... SP|
00001480: B2 31 30 31 20 A7 20 99 20 50 24 22 53 54 41 43 |.101 . . P$"STAC|
00001490: 4B 20 4F 56 45 52 46 4C 4F 57 22 3A 4E B2 30 3A |K OVERFLOW":N.0:|
000014A0: 45 52 B2 AB 31 3A 8E 00 E3 18 BE 05 8B 20 B6 28 |ER..1:....... .(|
000014B0: 4E 29 B1 33 32 37 36 37 20 A7 20 99 20 50 24 22 |N).32767 . . P$"|
000014C0: 4F 55 54 20 4F 46 20 52 41 4E 47 45 20 45 52 52 |OUT OF RANGE ERR|
000014D0: 4F 52 22 3A 49 24 B2 22 22 3A 4D B2 30 3A 89 20 |OR":I$."":M.0:. |
000014E0: 32 34 30 00 04 19 C8 05 45 52 B2 30 3A 53 25 28 |240.....ER.0:S%(|
000014F0: 53 50 29 B2 4E 3A 53 50 B2 53 50 AA 31 3A 89 20 |SP).N:SP.SP.1:. |
00001500: 31 36 34 30 00 25 19 D2 05 8F 20 2A 2A 2A 2A 2A |1640.%.... *****|
00001510: 20 50 55 4C 4C 20 50 41 52 41 4D 45 54 45 52 20 | PULL PARAMETER |
00001520: 2A 2A 2A 2A 2A 00 46 19 DC 05 8B 20 53 50 B2 30 |*****.F.... SP.0|
00001530: 20 A7 20 99 20 50 24 53 55 24 3A 4E B2 30 3A 45 | . . P$SU$:N.0:E|
00001540: 52 B2 AB 31 3A 8E 00 67 19 E6 05 45 52 B2 30 3A |R..1:..g...ER.0:|
00001550: 53 50 B2 53 50 AB 31 3A 4E B2 53 25 28 53 50 29 |SP.SP.1:N.S%(SP)|
00001560: 3A 89 20 31 36 34 30 00 85 19 F0 05 8F 20 2A 2A |:. 1640...... **|
00001570: 2A 2A 2A 20 50 55 53 48 20 41 44 52 45 53 53 20 |*** PUSH ADRESS |
00001580: 2A 2A 2A 2A 2A 00 9C 19 FA 05 52 28 52 50 29 B2 |*****.....R(RP).|
00001590: 50 43 3A 52 50 B2 52 50 AA 31 3A 8E 00 BA 19 04 |PC:RP.RP.1:.....|
000015A0: 06 8F 20 2A 2A 2A 2A 2A 20 50 55 4C 4C 20 41 44 |.. ***** PULL AD|
000015B0: 52 45 53 53 20 2A 2A 2A 2A 2A 00 D1 19 0E 06 52 |RESS *****.....R|
000015C0: 50 B2 52 50 AB 31 3A 50 43 B2 52 28 52 50 29 3A |P.RP.1:PC.R(RP):|
000015D0: 8E 00 01 1A 18 06 99 20 22 13 11 11 22 3B 3A 81 |....... "...";:.|
000015E0: 20 4C B2 31 20 A4 20 35 3A 20 99 20 53 24 3B 3A | L.1 . 5: . S$;:|
000015F0: 82 3A 99 20 22 13 11 11 22 3B 3A 8D 20 31 30 35 |.:. "...";:. 105|
00001600: 30 00 13 1A 22 06 81 20 4C B2 32 32 34 20 A4 20 |0...".. L.224 . |
00001610: 32 33 30 00 2A 1A 2C 06 97 20 4C 2C 31 32 38 3A |230.*.,.. L,128:|
00001620: 82 3A 99 20 22 13 22 3B 3A 8E 00 56 1A 36 06 4E |.:. ".";:..V.6.N|
00001630: B2 4E AB 31 3A 99 22 13 22 3B 3A 81 20 4C B2 31 |.N.1:.".";:. L.1|
00001640: 20 A4 20 31 31 AA B5 28 4E AD 33 29 AC 32 3A 99 | . 11..(N.3).2:.|
00001650: 22 11 22 3B 3A 82 00 86 1A 40 06 81 20 4C B2 31 |".";:....@.. L.1|
00001660: 20 A4 20 32 2E 31 AA 28 4E AD 33 AB B5 28 4E AD | . 2.1.(N.3..(N.|
00001670: 33 29 29 AC 32 37 3A 99 22 1D 22 3B 3A 82 3A 4E |3)).27:.".";:.:N|
00001680: B2 4E AA 31 3A 8E 00 A7 1A 4A 06 81 20 4E B2 31 |.N.1:....J.. N.1|
00001690: 20 A4 20 44 3A 8D 20 31 35 39 30 3A 99 20 44 24 | . D:. 1590:. D$|
000016A0: 28 4E 29 3A 82 3A 8E 00 BF 1A 54 06 8D 20 31 35 |(N):.:....T.. 15|
000016B0: 39 30 3A 99 20 22 12 22 44 24 28 4E 29 3A 8E 00 |90:. "."D$(N):..|
000016C0: D4 1A 5E 06 8D 20 31 35 39 30 3A 99 20 44 24 28 |..^.. 1590:. D$(|
000016D0: 4E 29 3A 8E 00 F6 1A 68 06 99 20 22 13 11 11 11 |N):....h.. "....|
000016E0: 11 11 11 11 11 11 11 22 3B 3A 8B 20 53 50 B2 30 |.......";:. SP.0|
000016F0: A7 20 31 36 37 30 00 32 1B 72 06 81 20 4C B2 31 |. 1670.2.r.. L.1|
00001700: 20 A4 20 28 37 AA 53 50 AB B6 28 53 50 AB 37 29 | . (7.SP..(SP.7)|
00001710: 29 AD 32 3A 99 20 A6 33 31 29 22 11 20 20 20 20 |).2:. .31)". |
00001720: 20 20 20 9D 9D 9D 9D 9D 9D 22 53 25 28 53 50 AB | ......"S%(SP.|
00001730: 4C 29 00 3A 1B 7C 06 82 20 4C 00 52 1B 86 06 8B |L).:.|.. L.R....|
00001740: 20 53 50 B3 37 20 A7 20 99 20 A6 33 31 29 22 11 | SP.7 . . .31)".|
00001750: 22 3B 00 58 1B 90 06 8E 00 00 00 FF C7 20 |";.X......... |
....D.. FORTH TEACHER.".N...@.X..
(C) ANDREW ASHWOOD.F.....A....
13/5/82 5:24.G....... .D.18:. C(500
),D$(21),P(21),R(100),S%(100),W(21):D$."
":IL$."ILLEGAL "...... L.1 . D:. D$(L),
I1$:W(L).0:P(L).L.2.1:. I1$."S" . W.W.1:
W(L).W.....C(L.2.1)..L:C(L.2).0:. L.C...
S$."
".M.H.DE.10:C.D.2.1:P$."......":P$.P$.
S$.P$.~.R.. ".":. 1070...... 1610.C...SC
$.P$."SO COMPILE IT":SU$.P$."STACK UNDER
FLOW ERROR".Y.... 1210:W$.H(W$,7)......
M . 320:.. COMPILE...... 1380:. SEARCH D
ICT.>.... N . PC.P(N):. P$"SO EXECUTE IT
":. 1040:. 520.J.... P$"IS "W$" A NUMBER
?":. 1040:N.E(W$)...".. N..0 . W$.."0"
. . P$"YES IT IS":. 1040.O.,.. N. W$."0"
. . P$"SO PUSH IT":. 1040:. 1450:. 240.
..6.. P$W$" IS UNDEFINED":I$."":NL.0:. 2
40...@.. 1380.D.J.. N.12 . NL.0 . . P$"I
OUTSIDE LOOP ERROR":M.0:I$."":. 240.{.T
.. N.0. W(N).0 . . SC$:. 1040:. 400:.. S
PECIAL W.DS...^.. N.0 . . SC$:. 1040:C(C
).P(N):C.C.1:. 240.V.H.. P$"IS "W$" A NU
MBER ?":. 1040:N.E(W$)...R.. N..0 . W$."
0" . . P$"YES IT IS":. 1040:. SC$:. 1040
.C.|.. N..0 . W$."0" . C(C)..5:C(C.1).N:
C.C.2:. 240.R.... P$W$" IS UNDEFINED":M.
0:I$."":NL.0:. 240...... W(N) . 410,420,
440,470,480,510.I.... P$IL$"IN COMPILE M
ODE":M.0:I$."":NL.0:. 240...... NL . . P
$"MISSING 'LOOP'":I$."":NL.0::M.0::. 240
.-...D.D.1:M.0::C(C).0:C.C.1:N.D:. 1630:
. 240.H...D$.G(34):. 1210:D$." "...B.C(C
).15:C(C.1).C(W$):. L.1 . C (W$):C(C.1.L
).F(J(W$,L,1))...L.. L:C.C.1.L:. 240.H.V
.C(C).19:PC.C:. 1520:C.C.1:NL.NL.1:. 240
...... NL.0 . . P$"'LOOP' WITHOUT 'DO' E
RROR":I$."":NL.0:M.0:. 240.$.... 1540:AD
.PC:NL.NL..1.F...C(C).21:C(C.1).AD:C.C.2
:. 240.X.... P$IL$"IN COMPILE MODE":M.0:
I$."":NL.0:. 240...... CL(1).256.CL(0).C
L(2).32767.6.40 . . 1560...... B(158).0
. . B(B(158).622).18 . . 158,0:. 240....
.. C(PC).0 . 590:.. .TEM W.DS...&.. C(PC
).0 . RP.0 . 240.5.0.. C(PC).0 . . 1540:
. 610.J.:.. C(PC)..5 . 740.D.D.. 1520:PC
.C(PC):. 520...N.. .(C(PC)). 620,640,650
,660,670,700,730,750,780,790.Q.X.. .(C(P
C)).10 . 830,870,900,920,940,970,980,102
0...B.PC.PC.1:. 520...L.. 1490:. ER . I$
."":NL.0:. 240.#.V.. 1060:. N;:. 1050:.
610.N.... 1490:N1.N:. 1490:N.N.N1:. 1450
:. 610.Y.... 1490:N1.N:. 1490:N.N.N1:. 1
450:. 610...... 1490:N1.N:. 1490:N.N.N1:
. 1450:. 610...... 1490:N1.N:. 1490.....
. N1..0 . N.N.N1:. 1450:. 610...... P$"D
IVISION BY ZERO":I$."":. 240.7.... D.21
. . P$"DICTIONARY OVERFLOW":I$."":. 240.
R.F.. 1210:D$(D.1).H(W$,7):P(D.1).C:M.1:
. P$"COMPILING "W$...P.. 1040:. 610...Z.
. P$IL$"IN IMMEDIATE MODE":I$."":. 240.Q
...N.C(PC.1):. 1450:PC.PC.1:. 610......
1060:. RP . N.R(RP.1).2:N1.C(N.1).N:R(RP
.1).N1.1:. 770.<...D$.G(34):. 1210:D$."
":. W$;:. 1050:. 610.E.... L.N . N1:. G(
C(L));:.:. 1050:. 610..... 1060:.:. 105
0:. 610...... RP.0 . . P$"SORRY, NO LOOP
S IN IMMEDIATE MODE":I$."":. 240... .SC.
PC:. 1540:S2.PC:. 1490:N1.N:. 1490.(.*..
ER . . P$"NOT ENOUGH PARAMETERS FOR A L
OOP":I$."":. 240.F.4.PC.N:. 1520:PC.N1:.
1520:PC.S2:. 1520:NL.NL.1:PC.SC:. 610..
.>.. RP.0 . . P$"SORRY, NO LOOPS IN IMME
DIATE MODE":I$."":. 240...H.SC.PC:. 1540
:S2.PC.1:AD.C(S2):. 1540:LO.PC:. 1540:UP
.PC...R.LO.LO.1:. LO..UP . PC.S2:. 1520:
NL.NL.1:PC.SC:. 610.E.\.PC.UP:. 1520:PC.
LO:. 1520:PC.AD:. 610...F.. RP.0 . . P$"
'I' NOT ALLOWED IN IMMEDIATE MODE":I$.""
:. 240.B.P.. NL.0 . . P$"NO LOOP FOR 'I'
TO BE IN":M.0:I$."":. 240...Z.N.R(RP.2)
:. 1450:. 610...... SP.0 . . P$SU$:I$.""
:NL.0:. 240.....N.S%(SP.1):. 1450:. 610.
E.... SP.2 . . P$SU$:I$."":NL.0:. 240.~.
..N.S%(SP.1):S%(SP.1).S%(SP.2):S%(SP.2).
N:. 1640:. 610...... SP.3 . . P$SU$:I$."
":NL.0:. 240.....N.S%(SP.3):S%(SP.3).S%(
SP.2):S%(SP.2).S%(SP.1):S%(SP.1).N......
1640:. 610...J.. 1490:. 610...T.. 1210:
. 1380./.... N.17 . D.N.1:. 210.M.... N.
0 . . P$W$" IS NOT IN THE DICTIONARY":M.
0:I$."":. 240...... P$"PLEASE DO NOT FOR
GET THAT":. 240...... 1490:. ER . DE.10:
. 610.D...DE.N:. 610...... L.1 . 100.DE:
:.:....... L.196 . 198:CL(L.196).B(L):CL
(3).B(216):..C.$.. 1570:. L.196 . 198:.
L,CL(L.196):.:. 216,CL(3):..U...M1$.".
. . . ."...
8.M2$.".................................
......".Y.B.B$. ".......................
................"...L.T$. ".............
..........................".=.V.T1$."...
....................................".O.
`.S$. "
"...J.."........."T$:.". DI
CTIONARY . STACK ."...~.. T1$.
..... L.1 . 6:. M1$"............"J(D(L),
2)")":. M2$:....... M1$"............7)":
. B$".";.).... 33767,125:. 1640:..I....
".",N,"+",N,"-",N,"*",N,"/",N,":",S,";",
S,",",S,CR,N,DO,S......LOOP,S,I,N,DUP,N,
SWAP,N,ROT,N,DROP,N,FORGET,S,DELAY,N....
.. ***** GET WORD *****.T.D.. C(I$).0 .
1280...N.. H(I$,1).D$ . I$.J(I$,2):. 122
0...X.. L.1 . C(I$).A.... J(I$,L,1).D$ .
W$.H(I$,L.1):I$.J(I$,L.1):. 1270.U....
L:W$.I$:I$."".[.....W.... "."S$S$;:. 105
0:. "."...... ". ..";...... I1$:. I1$.""
. 1300.J...N.F(I1$):. N.13 . . " ":. 15
60::. 1210...(.. N.34 . . I1$".";...2..
N.19 . I$."":. 1210.7.<..(N.20.N.157).C(
I$).0.I$.LEFT(I$,C(I$).1):. ".";:. 1290.
O.F.. (N.127).32 . 1290.W.P.. I1$;:I$.I$
.I1$:. C (I$).80 . 1290...Z.. 1210. .D..
***** SEARCH DICT *****.F.N.. P$"IS "W$
" IN THE DICTIONARY ?".Y.X.. N.D . 1 . .
1...... DE.0 . . 1620...... D$(N).W$ . .
1630:. P$"YES IT IS";:. 1040:..3.... DE
.0 . . 1630.V. .. N:. P$"NO IT ISN'T":.
1040:..W.... ***** PUSH PARAMETER *****.
..... SP.101 . . P$"STACK OVERFLOW":N.0:
ER..1:....... .(N).32767 . . P$"OUT OF R
ANGE ERROR":I$."":M.0:. 240...H.ER.0:S%(
SP).N:SP.SP.1:. 1640.%.R.. ***** PULL PA
RAMETER *****.F.... SP.0 . . P$SU$:N.0:E
R..1:..G...ER.0:SP.SP.1:N.S%(SP):. 1640.
..... ***** PUSH ADRESS *****.....R(RP).
PC:RP.RP.1:....... ***** PULL ADRESS ***
**.Q...RP.RP.1:PC.R(RP):....... "...";:.
L.1 . 5: . S$;:.:. "...";:. 1050..."..
L.224 . 230.*.,.. L,128:.:. ".";:..V.6.N
.N.1:.".";:. L.1 . 11..(N.3).2:.".";:...
.@.. L.1 . 2.1.(N.3..(N.3)).27:.".";:.:N
.N.1:....J.. N.1 . D:. 1590:. D$(N):.:..
..T.. 1590:. "."D$(N):..T.^.. 1590:. D$(
N):....H.. "...........";:. SP.0. 1670.2
.R.. L.1 . (7.SP..(SP.7)).2:. .31)".
......"S%(SP.L).:.|.. L.R.... SP.7 .
. .31)".";.X........G
> CLICK IMAGE PREVIEW FOR FULL MODAL