FORTH TEACHER
FILE INFORMATION
FILENAME(S): FORTH TEACHER
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-11-30 21:05:39
APPEARS ON: 1 disk(s)
FILE HASH
3b02cc7a64f406765eed5370f358f3590f68ca9363f06693269136f81820ef38
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIE | FORTH TEACHER | PRG | DuncanTwain | 29 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 0A 00 8F 20 20 20 20 20 20 20 20 46 |....... F|
00000010: 4F 52 54 48 20 54 45 41 43 48 45 52 00 3A 08 0B |ORTH TEACHER.:..|
00000020: 00 8F 20 20 20 20 20 28 43 29 20 20 41 4E 44 52 |.. (C) ANDR|
00000030: 45 57 20 41 53 48 57 4F 4F 44 00 56 08 0C 00 8F |EW ASHWOOD.V....|
00000040: 20 20 20 20 20 20 20 20 20 31 33 2F 35 2F 38 32 | 13/5/82|
00000050: 20 20 35 3A 32 34 00 5C 08 0D 00 8F 00 7B 08 0E | 5:24.\.....{..|
00000060: 00 8F 20 20 20 20 20 20 43 42 4D 20 36 34 20 41 |.. CBM 64 A|
00000070: 44 41 50 54 49 4F 4E 20 20 42 59 00 81 08 0F 00 |DAPTION BY.....|
00000080: 8F 00 9E 08 10 00 8F 20 20 20 20 20 20 20 20 44 |....... D|
00000090: 2D 34 35 35 30 20 42 52 41 4D 53 43 48 45 00 B8 |-4550 BRAMSCHE..|
000000A0: 08 11 00 8F 20 20 20 20 20 20 20 20 20 20 32 37 |.... 27|
000000B0: 2D 31 30 2D 31 39 38 33 00 BE 08 12 00 8F 00 DD |-10-1983........|
000000C0: 08 14 00 99 22 93 97 22 3B 3A 97 35 33 32 38 30 |...."..";:.53280|
000000D0: 2C 31 32 3A 97 35 33 32 38 31 2C 31 32 00 0C 09 |,12:.53281,12...|
000000E0: 1E 00 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..."************|
000000F0: 20 46 4F 52 54 48 20 54 45 41 43 48 45 52 20 2A | FORTH TEACHER *|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 09 23 |************.;.#|
00000110: 00 99 22 11 11 20 41 20 43 42 4D 20 36 34 20 41 |..".. A CBM 64 A|
00000120: 44 41 50 54 49 4F 4E 20 42 59 20 52 45 4E 45 20 |DAPTION BY RENE |
00000130: 4B 41 4C 44 45 4E 42 45 52 47 2E 00 8C 09 28 00 |KALDENBERG....(.|
00000140: 99 22 11 11 11 44 49 54 20 50 52 4F 47 52 41 4D |."...DIT PROGRAM|
00000150: 4D 41 20 47 45 45 46 54 20 45 45 4E 20 44 45 4D |MA GEEFT EEN DEM|
00000160: 4F 20 56 41 4E 20 57 41 54 20 45 52 20 42 49 4A |O VAN WAT ER BIJ|
00000170: 20 42 45 50 41 41 4C 44 45 20 4F 50 44 52 41 43 | BEPAALDE OPDRAC|
00000180: 48 54 45 4E 20 49 4E 20 44 45 22 3B 00 B7 09 32 |HTEN IN DE";...2|
00000190: 00 99 22 20 50 52 4F 47 52 41 4D 2D 20 20 4D 45 |.." PROGRAM- ME|
000001A0: 45 52 54 41 41 4C 20 12 46 4F 52 54 48 92 20 47 |ERTAAL .FORTH. G|
000001B0: 45 42 45 55 52 54 2E 00 E3 09 3C 00 99 22 11 11 |EBEURT....<.."..|
000001C0: 4C 45 54 20 56 4F 4F 52 41 4C 20 4F 50 20 44 45 |LET VOORAL OP DE|
000001D0: 20 53 54 41 43 4B 2D 48 41 4E 44 45 4C 49 4E 47 | STACK-HANDELING|
000001E0: 45 4E 2E 00 11 0A 46 00 99 22 11 11 48 45 54 20 |EN....F.."..HET |
000001F0: 49 53 20 56 45 52 53 54 41 4E 44 49 47 20 45 52 |IS VERSTANDIG ER|
00000200: 20 45 45 4E 20 46 4F 52 54 48 2D 42 4F 45 4B 4A | EEN FORTH-BOEKJ|
00000210: 45 00 3E 0A 50 00 99 22 42 49 4A 20 54 45 20 4E |E.>.P.."BIJ TE N|
00000220: 45 4D 45 4E 2C 20 57 41 4E 54 20 44 45 20 55 49 |EMEN, WANT DE UI|
00000230: 54 4C 45 47 20 49 53 20 41 41 4E 20 44 45 00 61 |TLEG IS AAN DE.a|
00000240: 0A 5A 00 99 22 4B 41 52 49 47 45 20 4B 41 4E 54 |.Z.."KARIGE KANT|
00000250: 2E 20 28 4F 46 20 5A 49 45 20 50 42 45 20 31 32 |. (OF ZIE PBE 12|
00000260: 29 00 AA 0A A0 00 44 B2 31 38 3A 86 43 28 35 30 |).....D.18:.C(50|
00000270: 30 29 2C 44 24 28 32 31 29 2C 50 28 32 31 29 2C |0),D$(21),P(21),|
00000280: 52 28 31 30 30 29 2C 53 25 28 31 30 30 29 2C 57 |R(100),S%(100),W|
00000290: 28 32 31 29 3A 44 24 B2 22 20 22 3A 49 4C 24 B2 |(21):D$." ":IL$.|
000002A0: 22 49 4C 4C 45 47 41 4C 20 22 00 E8 0A AA 00 81 |"ILLEGAL "......|
000002B0: 4C B2 31 A4 44 3A 87 44 24 28 4C 29 2C 49 31 24 |L.1.D:.D$(L),I1$|
000002C0: 3A 57 28 4C 29 B2 30 3A 50 28 4C 29 B2 4C AC 32 |:W(L).0:P(L).L.2|
000002D0: AB 31 3A 8B 49 31 24 B2 22 53 22 A7 57 B2 57 AA |.1:.I1$."S".W.W.|
000002E0: 31 3A 57 28 4C 29 B2 57 00 04 0B B4 00 43 28 4C |1:W(L).W.....C(L|
000002F0: AC 32 AB 31 29 B2 AB 4C 3A 43 28 4C AC 32 29 B2 |.2.1)..L:C(L.2).|
00000300: 30 3A 82 4C 00 35 0B BE 00 53 24 B2 22 20 20 20 |0:.L.5...S$." |
00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000330: 20 20 20 20 22 00 63 0B C8 00 44 45 B2 31 30 3A | ".c...DE.10:|
00000340: 43 B2 44 AC 32 AA 31 3A 50 24 B2 22 13 11 11 11 |C.D.2.1:P$."....|
00000350: 11 11 11 22 3A 50 24 B2 50 24 AA 53 24 AA 53 24 |...":P$.P$.S$.S$|
00000360: AA 50 24 00 93 0B CD 00 99 22 11 11 44 52 55 4B |.P$......"..DRUK|
00000370: 20 4F 50 20 45 45 4E 20 54 4F 45 54 53 20 41 4C | OP EEN TOETS AL|
00000380: 53 20 4A 45 20 57 49 4C 54 20 42 45 47 49 4E 4E |S JE WILT BEGINN|
00000390: 45 4E 2E 00 A8 0B CF 00 A1 41 41 24 3A 8B 41 41 |EN.......AA$:.AA|
000003A0: 24 B2 22 22 A7 32 30 37 00 B7 0B D2 00 99 22 93 |$."".207......".|
000003B0: 22 3A 8D 31 30 37 30 00 C1 0B DC 00 8D 31 36 31 |":.1070......161|
000003C0: 30 00 FB 0B E6 00 53 43 24 B2 50 24 AA 22 53 4F |0.....SC$.P$."SO|
000003D0: 20 43 4F 4D 50 49 4C 45 20 49 54 22 3A 53 55 24 | COMPILE IT":SU$|
000003E0: B2 50 24 AA 22 53 54 41 43 4B 20 55 4E 44 45 52 |.P$."STACK UNDER|
000003F0: 46 4C 4F 57 20 45 52 52 4F 52 22 00 10 0C F0 00 |FLOW ERROR".....|
00000400: 8D 31 32 31 30 3A 57 24 B2 C8 28 57 24 2C 37 29 |.1210:W$..(W$,7)|
00000410: 00 27 0C FA 00 8B 4D A7 33 32 30 3A 8F 2A 2A 20 |.'....M.320:.** |
00000420: 43 4F 4D 50 49 4C 45 00 3F 0C 04 01 8D 31 33 38 |COMPILE.?....138|
00000430: 30 3A 8F 20 53 45 41 52 43 48 20 44 49 43 54 00 |0:. SEARCH DICT.|
00000440: 6C 0C 0E 01 8B 4E A7 50 43 B2 50 28 4E 29 3A 99 |l....N.PC.P(N):.|
00000450: 50 24 22 53 4F 20 45 58 45 43 55 54 45 20 49 54 |P$"SO EXECUTE IT|
00000460: 22 3A 8D 31 30 34 30 3A 89 35 32 30 00 95 0C 18 |":.1040:.520....|
00000470: 01 99 50 24 22 49 53 20 22 57 24 22 20 41 20 4E |..P$"IS "W$" A N|
00000480: 55 4D 42 45 52 3F 22 3A 8D 31 30 34 30 3A 4E B2 |UMBER?":.1040:N.|
00000490: C5 28 57 24 29 00 BB 0C 22 01 8B 4E B3 B1 30 B0 |.(W$)..."..N..0.|
000004A0: 57 24 B2 22 30 22 A7 99 50 24 22 59 45 53 20 49 |W$."0"..P$"YES I|
000004B0: 54 20 49 53 22 3A 8D 31 30 34 30 00 EA 0C 2C 01 |T IS":.1040...,.|
000004C0: 8B 4E B0 57 24 B2 22 30 22 A7 99 50 24 22 53 4F |.N.W$."0"..P$"SO|
000004D0: 20 50 55 53 48 20 49 54 22 3A 8D 31 30 34 30 3A | PUSH IT":.1040:|
000004E0: 8D 31 34 35 30 3A 89 32 34 30 00 13 0D 36 01 99 |.1450:.240...6..|
000004F0: 50 24 57 24 22 20 49 53 20 55 4E 44 45 46 49 4E |P$W$" IS UNDEFIN|
00000500: 45 44 22 3A 49 24 B2 22 22 3A 4E 4C B2 30 3A 89 |ED":I$."":NL.0:.|
00000510: 32 34 30 00 1D 0D 40 01 8D 31 33 38 30 00 55 0D |240...@..1380.U.|
00000520: 4A 01 8B 4E B2 31 32 AF 4E 4C B2 30 A7 99 50 24 |J..N.12.NL.0..P$|
00000530: 22 49 20 4F 55 44 53 49 44 45 20 4C 4F 4F 50 20 |"I OUDSIDE LOOP |
00000540: 45 52 52 4F 52 22 3A 4D B2 30 3A 49 24 B2 22 22 |ERROR":M.0:I$.""|
00000550: 3A 89 32 34 30 00 85 0D 54 01 8B 4E B1 30 AF 57 |:.240...T..N.0.W|
00000560: 28 4E 29 B1 30 A7 99 53 43 24 3A 8D 31 30 34 30 |(N).0..SC$:.1040|
00000570: 3A 89 34 30 30 3A AC AC 20 53 50 45 43 49 41 4C |:.400:.. SPECIAL|
00000580: 20 57 B0 44 53 00 AE 0D 5E 01 8B 4E B1 30 A7 99 | W.DS...^..N.0..|
00000590: 53 43 24 3A 8D 31 30 34 30 3A 43 28 43 29 B2 50 |SC$:.1040:C(C).P|
000005A0: 28 4E 29 3A 43 B2 43 AA 31 3A 89 32 34 30 00 D7 |(N):C.C.1:.240..|
000005B0: 0D 68 01 99 50 24 22 49 53 20 22 57 24 22 20 41 |.h..P$"IS "W$" A|
000005C0: 20 4E 55 4D 42 45 52 3F 22 3A 8D 31 30 34 30 3A | NUMBER?":.1040:|
000005D0: 4E B2 C5 28 57 24 29 00 08 0E 72 01 8B 4E B3 B1 |N..(W$)...r..N..|
000005E0: 30 B0 57 24 B2 22 30 22 A7 99 50 24 22 59 45 53 |0.W$."0"..P$"YES|
000005F0: 20 49 54 20 49 53 22 3A 8D 31 30 34 30 3A 99 53 | IT IS":.1040:.S|
00000600: 43 24 3A 8D 31 30 34 30 00 2C 0E 7C 01 8B 4E B3 |C$:.1040.,.|..N.|
00000610: B1 30 B0 57 24 B2 22 30 22 A7 43 28 43 29 B2 2E |.0.W$."0".C(C)..|
00000620: 35 3A 43 B2 43 AA 32 3A 89 32 34 30 00 59 0E 86 |5:C.C.2:.240.Y..|
00000630: 01 99 50 24 57 24 22 20 49 53 20 55 4E 44 45 46 |..P$W$" IS UNDEF|
00000640: 49 4E 45 44 22 3A 4D B2 30 3A 49 24 B2 22 22 3A |INED":M.0:I$."":|
00000650: 4E 4C B2 30 3A 89 32 34 30 00 7B 0E 90 01 91 57 |NL.0:.240.{....W|
00000660: 28 4E 29 89 34 31 30 2C 34 32 30 2C 34 34 30 2C |(N).410,420,440,|
00000670: 34 37 30 2C 34 38 30 2C 35 31 30 00 AB 0E 9A 01 |470,480,510.....|
00000680: 99 50 24 49 4C 24 22 49 4E 20 43 4F 4D 50 49 4C |.P$IL$"IN COMPIL|
00000690: 45 20 4D 4F 44 45 22 3A 4D B2 30 3A 49 24 B2 22 |E MODE":M.0:I$."|
000006A0: 22 3A 4E 4C B2 30 3A 89 32 34 30 00 DB 0E A4 01 |":NL.0:.240.....|
000006B0: 8B 4E 4C A7 99 50 24 22 4D 49 53 53 49 4E 47 20 |.NL..P$"MISSING |
000006C0: 27 4C 4F 4F 50 27 22 3A 49 24 B2 22 22 3A 4E 4C |'LOOP'":I$."":NL|
000006D0: B2 30 3A 4D B2 30 3A 89 32 34 30 00 05 0F AE 01 |.0:M.0:.240.....|
000006E0: 44 B2 44 AA 31 3A 4D B2 30 3A 43 28 43 29 B2 30 |D.D.1:M.0:C(C).0|
000006F0: 3A 43 B2 43 AA 31 3A 4E B2 44 3A 8D 31 36 33 30 |:C.C.1:N.D:.1630|
00000700: 3A 89 32 34 30 00 1F 0F B8 01 44 24 B2 C7 28 33 |:.240.....D$..(3|
00000710: 34 29 3A 8D 31 32 31 30 3A 44 24 B2 22 20 22 00 |4):.1210:D$." ".|
00000720: 59 0F C2 01 43 28 43 29 B2 31 35 3A 43 28 43 AA |Y...C(C).15:C(C.|
00000730: 31 29 B2 C3 28 57 24 29 3A 81 4C B2 31 A4 C3 28 |1)..(W$):.L.1..(|
00000740: 57 24 29 3A 43 28 43 AA 31 AA 4C 29 B2 C6 28 CA |W$):C(C.1.L)..(.|
00000750: 28 57 24 2C 4C 2C 31 29 29 00 6D 0F CC 01 82 4C |(W$,L,1)).m....L|
00000760: 3A 43 B2 43 AA 4C AA 31 3A 89 32 34 30 00 95 0F |:C.C.L.1:.240...|
00000770: D6 01 43 28 43 29 B2 31 39 3A 50 43 3A 8D 31 35 |..C(C).19:PC:.15|
00000780: 32 30 3A 43 B2 43 AA 31 3A 4E 4C B2 4E 4C AA 31 |20:C.C.1:NL.NL.1|
00000790: 3A 89 32 34 30 00 D2 0F E0 01 8B 4E 4C B2 30 A7 |:.240......NL.0.|
000007A0: 99 50 24 22 27 4C 4F 4F 50 27 20 57 49 54 48 4F |.P$"'LOOP' WITHO|
000007B0: 55 54 20 27 44 4F 27 20 45 52 52 4F 52 22 3A 49 |UT 'DO' ERROR":I|
000007C0: 24 B2 22 22 3A 4E 4C B2 30 3A 4D B2 30 3A 89 32 |$."":NL.0:M.0:.2|
000007D0: 34 30 00 EA 0F EA 01 8D 31 35 34 30 3A 41 44 B2 |40......1540:AD.|
000007E0: 50 43 3A 4E 4C B2 4E 4C AB 31 00 0B 10 F4 01 43 |PC:NL.NL.1.....C|
000007F0: 28 43 29 B2 32 31 3A 43 28 43 AA 31 29 B2 41 44 |(C).21:C(C.1).AD|
00000800: 3A 43 B2 43 AA 32 3A 89 32 34 30 00 3B 10 FE 01 |:C.C.2:.240.;...|
00000810: 99 50 24 49 4C 24 22 49 4E 20 43 4F 4D 50 49 4C |.P$IL$"IN COMPIL|
00000820: 45 20 4D 4F 44 45 22 3A 4D B2 30 3A 49 24 B2 22 |E MODE":M.0:I$."|
00000830: 22 3A 4E 4C B2 30 3A 89 32 34 30 00 67 10 08 02 |":NL.0:.240.g...|
00000840: 8B 43 4C 28 31 29 AC 32 35 36 AA 43 4C 28 30 29 |.CL(1).256.CL(0)|
00000850: AA 43 4C 28 32 29 B1 33 32 37 36 37 AA 36 AC 34 |.CL(2).32767.6.4|
00000860: 30 A7 8D 31 35 36 30 00 93 10 12 02 8B C2 28 31 |0..1560.......(1|
00000870: 35 38 29 B1 30 A7 8B C2 28 C2 28 31 35 38 29 AA |58).0...(.(158).|
00000880: 36 36 32 29 B2 31 38 A7 97 31 35 38 2C 30 3A 89 |662).18..158,0:.|
00000890: 32 34 30 00 B1 10 1C 02 8B 43 28 50 43 29 B3 30 |240......C(PC).0|
000008A0: A7 35 39 30 3A AC AC 20 9E 54 45 4D 20 57 B0 44 |.590:.. .TEM W.D|
000008B0: 53 00 C7 10 26 02 8B 43 28 50 43 29 B2 30 AF 52 |S...&..C(PC).0.R|
000008C0: 50 B2 30 A7 32 34 30 00 DF 10 30 02 8B 43 28 50 |P.0.240...0..C(P|
000008D0: 43 29 B2 30 A7 8D 31 35 34 30 3A 89 36 31 30 00 |C).0..1540:.610.|
000008E0: F1 10 3A 02 8B 43 28 50 43 29 B2 2E 35 A7 37 34 |..:..C(PC)..5.74|
000008F0: 30 00 09 11 44 02 8D 31 35 32 30 3A 50 43 B2 43 |0...D..1520:PC.C|
00000900: 28 50 43 29 3A 89 35 32 30 00 3F 11 4E 02 91 B6 |(PC):.520.?.N...|
00000910: 28 43 28 50 43 29 29 89 36 32 30 2C 36 34 30 2C |(C(PC)).620,640,|
00000920: 36 35 30 2C 36 36 30 2C 36 37 30 2C 37 30 30 2C |650,660,670,700,|
00000930: 37 33 30 2C 37 35 30 2C 37 38 30 2C 37 39 30 00 |730,750,780,790.|
00000940: 71 11 58 02 91 B6 28 43 28 50 43 29 29 AB 31 30 |q.X...(C(PC)).10|
00000950: 89 38 33 30 2C 38 37 30 2C 39 30 30 2C 39 32 30 |.830,870,900,920|
00000960: 2C 39 34 30 2C 39 37 30 2C 39 38 30 2C 31 30 32 |,940,970,980,102|
00000970: 30 00 82 11 62 02 50 43 B2 50 43 AA 31 3A 89 35 |0...b.PC.PC.1:.5|
00000980: 32 30 00 9F 11 6C 02 8D 31 34 39 30 3A 8B 45 52 |20...l..1490:.ER|
00000990: A7 49 24 22 22 3A 4E 4C B2 30 3A 89 32 34 30 00 |.I$"":NL.0:.240.|
000009A0: B8 11 76 02 8D 31 30 36 30 3A 99 4E 3B 3A 8D 31 |..v..1060:.N;:.1|
000009B0: 30 35 30 3A 89 36 31 30 00 DF 11 80 02 8D 31 34 |050:.610......14|
000009C0: 39 30 3A 4E 31 B2 4E 3A 8D 31 34 39 30 3A 4E B2 |90:N1.N:.1490:N.|
000009D0: 4E AA 4E 31 3A 8D 31 34 35 30 3A 89 36 31 30 00 |N.N1:.1450:.610.|
000009E0: 06 12 8A 02 8D 31 34 39 30 3A 4E 31 B2 4E 3A 8D |.....1490:N1.N:.|
000009F0: 31 34 39 30 3A 4E B2 4E AB 4E 31 3A 8D 31 34 35 |1490:N.N.N1:.145|
00000A00: 30 3A 89 36 31 30 00 2D 12 94 02 8D 31 34 39 30 |0:.610.-....1490|
00000A10: 3A 4E 31 B2 4E 3A 8D 31 34 39 30 3A 4E B2 4E AC |:N1.N:.1490:N.N.|
00000A20: 4E 31 3A 8D 31 34 35 30 3A 89 36 31 30 00 42 12 |N1:.1450:.610.B.|
00000A30: 9E 02 8D 31 34 39 30 3A 4E 31 B2 4E 3A 8D 31 34 |...1490:N1.N:.14|
00000A40: 39 30 00 5F 12 A8 02 8B 4E 31 B3 B1 30 A7 4E B2 |90._....N1..0.N.|
00000A50: 4E AD 4E 31 3A 8D 31 34 35 30 3A 89 36 31 30 00 |N.N1:.1450:.610.|
00000A60: 84 12 B2 02 99 50 24 22 44 49 56 49 53 49 4F 4E |.....P$"DIVISION|
00000A70: 20 42 59 20 5A 45 52 4F 22 3A 49 24 B2 22 22 3A | BY ZERO":I$."":|
00000A80: 89 32 34 30 00 B2 12 BC 02 8B 44 B2 32 31 A7 99 |.240......D.21..|
00000A90: 50 24 22 44 49 43 54 49 4F 4E 41 52 59 20 4F 56 |P$"DICTIONARY OV|
00000AA0: 45 52 46 4C 4F 57 22 3A 49 24 B2 22 22 3A 89 32 |ERFLOW":I$."":.2|
00000AB0: 34 30 00 EB 12 C6 02 8D 31 32 31 30 3A 44 24 28 |40......1210:D$(|
00000AC0: 44 AA 31 29 B2 C8 28 57 24 2C 37 29 3A 50 28 44 |D.1)..(W$,7):P(D|
00000AD0: AA 31 29 B2 43 3A 4D B2 31 3A 99 50 24 22 43 4F |.1).C:M.1:.P$"CO|
00000AE0: 4D 50 49 4C 49 4E 47 20 22 57 24 00 FA 12 D0 02 |MPILING "W$.....|
00000AF0: 8D 31 30 34 30 3A 89 36 31 30 00 23 13 DA 02 99 |.1040:.610.#....|
00000B00: 50 24 49 4C 24 22 49 4E 20 49 4D 4D 45 44 49 41 |P$IL$"IN IMMEDIA|
00000B10: 44 45 20 4D 4F 44 45 22 3A 49 24 B2 22 22 3A 89 |DE MODE":I$."":.|
00000B20: 32 34 30 00 44 13 E4 02 4E B2 43 28 50 43 AA 31 |240.D...N.C(PC.1|
00000B30: 29 3A 8D 31 34 35 30 3A 50 43 B2 50 43 AA 31 3A |):.1450:PC.PC.1:|
00000B40: 89 36 31 30 00 7C 13 EE 02 8D 31 30 36 30 3A 8B |.610.|....1060:.|
00000B50: 52 50 A7 4E B2 52 28 52 50 AB 31 29 AA 32 3A 4E |RP.N.R(RP.1).2:N|
00000B60: 31 B2 43 28 4E AB 31 29 AA 4E 3A 52 28 52 50 AB |1.C(N.1).N:R(RP.|
00000B70: 31 29 B2 4E 31 AB 31 3A 89 37 37 30 00 A6 13 F8 |1).N1.1:.770....|
00000B80: 02 44 24 B2 C7 28 33 34 29 3A 8D 31 32 31 30 3A |.D$..(34):.1210:|
00000B90: 44 24 B2 22 20 22 3A 99 57 24 3B 3A 8D 31 30 35 |D$." ":.W$;:.105|
00000BA0: 30 3A 89 36 31 30 00 C9 13 02 03 81 4C B2 4E A4 |0:.610......L.N.|
00000BB0: 4E 31 3A 99 C7 28 43 28 4C 29 29 3B 3A 82 3A 8D |N1:..(C(L));:.:.|
00000BC0: 31 30 35 30 3A 89 36 31 30 00 DF 13 0C 03 8D 31 |1050:.610......1|
00000BD0: 30 36 30 3A 99 3A 8D 31 30 35 30 89 36 31 30 00 |060:.:.1050.610.|
00000BE0: 1A 14 16 03 8B 52 50 B2 30 A7 99 50 24 22 53 4F |.....RP.0..P$"SO|
00000BF0: 52 52 59 20 4E 4F 20 4C 4F 4F 50 53 20 49 4E 20 |RRY NO LOOPS IN |
00000C00: 49 4D 4D 45 44 49 41 54 45 20 4D 4F 44 45 22 3A |IMMEDIATE MODE":|
00000C10: 49 24 B2 22 22 3A 89 32 34 30 00 41 14 20 03 53 |I$."":.240.A. .S|
00000C20: 43 B2 50 43 3A 8D 31 35 34 30 3A 53 32 B2 50 43 |C.PC:.1540:S2.PC|
00000C30: 3A 8D 31 34 39 30 3A 4E 31 B2 4E 3A 8D 31 34 39 |:.1490:N1.N:.149|
00000C40: 30 00 7B 14 2A 03 8B 45 52 A7 99 50 24 22 20 4E |0.{.*..ER..P$" N|
00000C50: 4F 54 20 45 4E 4F 55 47 48 20 50 41 52 41 4D 45 |OT ENOUGH PARAME|
00000C60: 54 45 52 53 20 46 4F 52 20 41 20 4C 4F 4F 50 22 |TERS FOR A LOOP"|
00000C70: 3A 49 24 B2 22 22 3A 89 32 34 30 00 B5 14 34 03 |:I$."":.240...4.|
00000C80: 50 43 B2 4E 3A 8D 31 35 32 30 3A 50 43 B2 4E 31 |PC.N:.1520:PC.N1|
00000C90: 3A 8D 31 35 32 30 3A 50 43 B2 53 32 3A 8D 31 35 |:.1520:PC.S2:.15|
00000CA0: 32 30 3A 4E 4C B2 4E 4C AA 31 3A 50 43 B2 53 43 |20:NL.NL.1:PC.SC|
00000CB0: 3A 89 36 31 30 00 F0 14 3E 03 8B 52 50 B2 30 A7 |:.610...>..RP.0.|
00000CC0: 99 50 24 22 53 4F 52 52 59 20 4E 4F 20 4C 4F 4F |.P$"SORRY NO LOO|
00000CD0: 50 53 20 49 4E 20 49 4D 4D 45 44 49 41 54 45 20 |PS IN IMMEDIATE |
00000CE0: 4D 4F 44 45 22 3A 49 24 B2 22 22 3A 89 32 34 30 |MODE":I$."":.240|
00000CF0: 00 29 15 48 03 53 43 B2 50 43 3A 8D 31 35 34 30 |.).H.SC.PC:.1540|
00000D00: 3A 53 32 B2 50 43 AA 31 3A 41 44 B2 43 28 53 32 |:S2.PC.1:AD.C(S2|
00000D10: 29 3A 8D 31 35 34 30 3A 4C 4F B2 50 43 3A 8D 31 |):.1540:LO.PC:.1|
00000D20: 35 34 30 3A 55 50 B2 50 43 00 5C 15 52 03 4C 4F |540:UP.PC.\.R.LO|
00000D30: B2 4C 4F AA 31 3A 8B 4C 4F B1 B2 55 50 A7 50 43 |.LO.1:.LO..UP.PC|
00000D40: B2 53 32 3A 8D 31 35 32 30 3A 4E 4C B2 4E 4C AB |.S2:.1520:NL.NL.|
00000D50: 31 3A 50 43 B2 53 43 3A 89 36 31 30 00 83 15 5C |1:PC.SC:.610...\|
00000D60: 03 50 43 B2 55 50 3A 8D 31 35 32 30 3A 50 43 B2 |.PC.UP:.1520:PC.|
00000D70: 4C 4F 3A 8D 31 35 32 30 3A 50 43 B2 41 44 3A 89 |LO:.1520:PC.AD:.|
00000D80: 36 31 30 00 BF 15 66 03 8B 52 50 B2 30 A7 99 50 |610...f..RP.0..P|
00000D90: 24 22 27 49 27 20 4E 4F 54 20 41 4C 4C 4F 57 45 |$"'I' NOT ALLOWE|
00000DA0: 44 20 49 4E 20 49 4D 4D 45 44 49 41 54 45 20 4D |D IN IMMEDIATE M|
00000DB0: 4F 44 45 22 3A 49 24 B2 22 22 3A 89 32 34 30 00 |ODE":I$."":.240.|
00000DC0: F6 15 70 03 8B 4E 4C B2 30 A7 99 50 24 22 4E 4F |..p..NL.0..P$"NO|
00000DD0: 20 4C 4F 4F 50 20 46 4F 52 20 27 49 27 20 54 4F | LOOP FOR 'I' TO|
00000DE0: 20 42 45 20 49 4E 22 3A 4D B2 30 3A 49 24 B2 22 | BE IN":M.0:I$."|
00000DF0: 22 3A 89 32 34 30 00 0F 16 7A 03 4E B2 52 28 52 |":.240...z.N.R(R|
00000E00: 50 AB 32 29 3A 8D 31 34 35 30 3A 89 36 31 30 00 |P.2):.1450:.610.|
00000E10: 30 16 84 03 8B 53 50 B2 30 A7 99 50 24 53 55 24 |0....SP.0..P$SU$|
00000E20: 3A 49 24 B2 22 22 3A 4E 4C B2 30 3A 89 32 34 30 |:I$."":NL.0:.240|
00000E30: 00 4A 16 8E 03 4E B2 53 25 28 53 50 AB 31 29 3A |.J...N.S%(SP.1):|
00000E40: 8D 31 34 35 30 3A 89 36 31 30 00 6B 16 98 03 8B |.1450:.610.k....|
00000E50: 53 50 B3 32 A7 99 50 24 53 55 24 3A 49 24 B2 22 |SP.2..P$SU$:I$."|
00000E60: 22 3A 4E 4C B2 30 3A 89 32 34 30 00 A2 16 A2 03 |":NL.0:.240.....|
00000E70: 4E B2 53 25 28 53 50 AB 31 29 3A 53 25 28 53 50 |N.S%(SP.1):S%(SP|
00000E80: AB 31 29 B2 53 25 28 53 50 AB 32 29 3A 53 25 28 |.1).S%(SP.2):S%(|
00000E90: 53 50 AB 32 29 B2 4E 3A 8D 31 36 34 30 3A 89 36 |SP.2).N:.1640:.6|
00000EA0: 31 30 00 C3 16 AC 03 8B 53 50 B3 33 A7 99 50 24 |10......SP.3..P$|
00000EB0: 53 55 24 3A 49 24 B2 22 22 3A 4E 4C B2 30 3A 89 |SU$:I$."":NL.0:.|
00000EC0: 32 34 30 00 01 17 B6 03 4E B2 53 25 28 53 50 AB |240.....N.S%(SP.|
00000ED0: 33 29 3A 53 25 28 53 50 AB 33 29 B2 53 25 28 53 |3):S%(SP.3).S%(S|
00000EE0: 50 AB 32 29 3A 53 25 28 53 50 AB 32 29 B2 53 25 |P.2):S%(SP.2).S%|
00000EF0: 28 53 50 AB 31 29 3A 53 25 28 53 50 AB 31 29 B2 |(SP.1):S%(SP.1).|
00000F00: 4E 00 10 17 C0 03 8D 31 36 34 30 3A 89 36 31 30 |N......1640:.610|
00000F10: 00 1F 17 CA 03 8D 31 34 39 30 3A 89 36 31 30 00 |......1490:.610.|
00000F20: 2F 17 D4 03 8D 31 32 31 30 3A 8D 31 33 38 30 00 |/....1210:.1380.|
00000F30: 44 17 DE 03 8B 4E B1 31 37 A7 44 B2 4E AB 31 3A |D....N.17.D.N.1:|
00000F40: 89 32 31 30 00 7D 17 E8 03 8B 4E B2 30 A7 99 50 |.210.}....N.0..P|
00000F50: 24 57 24 22 20 49 53 20 4E 4F 54 20 49 4E 20 54 |$W$" IS NOT IN T|
00000F60: 48 45 20 44 49 43 54 49 4F 4E 41 52 59 22 3A 4D |HE DICTIONARY":M|
00000F70: B2 30 3A 49 24 B2 22 22 3A 89 32 34 30 00 A5 17 |.0:I$."":.240...|
00000F80: F2 03 99 50 24 22 50 4C 45 41 53 45 20 44 4F 20 |...P$"PLEASE DO |
00000F90: 4E 4F 54 20 46 4F 52 47 45 54 20 54 48 41 54 22 |NOT FORGET THAT"|
00000FA0: 3A 89 32 34 30 00 BE 17 FC 03 8D 31 34 39 30 3A |:.240......1490:|
00000FB0: 8B 45 52 A7 44 45 B2 31 30 3A 89 36 31 30 00 CC |.ER.DE.10:.610..|
00000FC0: 17 06 04 44 45 B2 4E 3A 89 36 31 30 00 E1 17 10 |...DE.N:.610....|
00000FD0: 04 81 4C B2 31 A4 20 31 30 30 AC 44 45 3A 82 3A |..L.1. 100.DE:.:|
00000FE0: 8E 00 11 18 1A 04 81 4C B2 32 30 39 A4 20 32 31 |.......L.209. 21|
00000FF0: 31 3A 43 4C 28 4C AB 32 30 39 29 B2 C2 28 4C 29 |1:CL(L.209)..(L)|
00001000: 3A 82 3A 43 4C 28 33 29 B2 C2 28 32 31 34 29 3A |:.:CL(3)..(214):|
00001010: 8E 00 42 18 24 04 8D 31 35 37 30 3A 81 4C B2 32 |..B.$..1570:.L.2|
00001020: 30 39 A4 32 31 31 3A 97 4C 2C 43 4C 28 4C AB 32 |09.211:.L,CL(L.2|
00001030: 30 39 29 3A 82 3A 97 32 31 34 2C 43 4C 28 33 29 |09):.:.214,CL(3)|
00001040: 3A 8E 00 74 18 2E 04 4D 31 24 B2 22 DD 20 20 20 |:..t...M1$.". |
00001050: 20 20 20 20 20 DD 20 20 20 20 20 20 20 20 DD 20 | . . |
00001060: 20 20 20 20 20 20 20 DD 20 20 20 20 20 20 20 20 | . |
00001070: 20 20 20 DD 00 A6 18 38 04 4D 32 24 B2 22 AB C0 | ....8.M2$."..|
00001080: C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001090: DB C0 C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 C0 |................|
000010A0: C0 C0 C0 C0 C0 B3 00 D6 18 42 04 42 24 B2 22 AD |.........B.B$.".|
000010B0: C0 C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 |................|
000010C0: C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 |................|
000010D0: C0 C0 C0 C0 C0 C0 00 07 19 4C 04 54 24 B2 22 B0 |.........L.T$.".|
000010E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000010F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B2 C0 C0 C0 C0 C0 |................|
00001100: C0 C0 C0 C0 C0 C0 AE 00 39 19 56 04 54 31 24 B2 |........9.V.T1$.|
00001110: 22 AB C0 C0 C0 C0 C0 C0 C0 C0 B2 C0 C0 C0 C0 C0 |"...............|
00001120: C0 C0 C0 B2 C0 C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 |................|
00001130: C0 C0 C0 C0 C0 C0 C0 C0 B3 00 6B 19 60 04 53 24 |..........k.`.S$|
00001140: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00001150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001160: 20 20 20 20 20 20 20 20 20 20 22 00 A5 19 6A 04 | "...j.|
00001170: 99 22 93 11 11 11 11 11 11 11 11 22 54 24 4D 31 |."........."T$M1|
00001180: 24 22 91 1D 22 C8 28 53 24 2C 33 38 29 22 1D 91 |$"..".(S$,38)"..|
00001190: 1D 1D 1D 1D 1D 1D 1D 1D 1D 44 49 43 54 49 4F 4E |.........DICTION|
000011A0: 41 52 59 22 3B 00 BE 19 74 04 99 22 20 20 20 20 |ARY";...t.." |
000011B0: 20 20 20 20 DD 20 20 20 53 54 41 43 4B 22 00 C8 | . STACK"..|
000011C0: 19 7E 04 99 54 31 24 3B 00 FA 19 88 04 81 4C B2 |.~..T1$;......L.|
000011D0: 31 A4 36 3A 99 4D 31 24 22 9D 9D 9D 9D 9D 9D 9D |1.6:.M1$".......|
000011E0: 9D 9D 9D 9D 9D 22 CA 28 C4 28 4C 29 2C 32 29 22 |.....".(.(L),2)"|
000011F0: 29 22 3A 99 4D 32 24 3B 3A 82 00 1B 1A 92 04 99 |)":.M2$;:.......|
00001200: 4D 31 24 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |M1$"............|
00001210: 37 29 22 3A 99 42 24 22 13 22 3B 00 40 1A 9C 04 |7)":.B$".";.@...|
00001220: 97 32 30 32 33 2C 31 32 35 3A 97 32 30 32 33 AA |.2023,125:.2023.|
00001230: 35 34 32 37 32 2C 31 31 3A 8D 31 36 34 30 3A 8E |54272,11:.1640:.|
00001240: 00 7E 1A A6 04 83 22 2E 22 2C 4E 2C 22 2B 22 2C |.~....".",N,"+",|
00001250: 4E 2C 22 2D 22 2C 4E 2C 22 2A 22 2C 4E 2C 22 2F |N,"-",N,"*",N,"/|
00001260: 22 2C 4E 2C 22 3A 22 2C 53 2C 22 3B 22 2C 53 2C |",N,":",S,";",S,|
00001270: 2E 22 2C 53 2C 43 52 2C 4E 2C 44 4F 2C 53 00 C1 |.",S,CR,N,DO,S..|
00001280: 1A B0 04 83 4C 4F 4F 50 2C 53 2C 49 2C 4E 2C 44 |....LOOP,S,I,N,D|
00001290: 55 50 2C 4E 2C 53 57 41 50 2C 4E 2C 52 4F 54 2C |UP,N,SWAP,N,ROT,|
000012A0: 4E 2C 44 52 4F 50 2C 4E 2C 46 4F 52 47 45 54 2C |N,DROP,N,FORGET,|
000012B0: 53 2C 44 45 4C 41 59 2C 4E 2C 30 2C 30 2C 30 2C |S,DELAY,N,0,0,0,|
000012C0: 30 00 D6 1A BA 04 8F 20 2A 2A 20 47 45 54 20 57 |0...... ** GET W|
000012D0: 4F 52 44 20 2A 2A 00 E8 1A C4 04 8B C3 28 49 24 |ORD **.......(I$|
000012E0: 29 B2 30 A7 31 32 38 30 00 09 1B CE 04 8B C8 28 |).0.1280.......(|
000012F0: 49 24 2C 31 29 B2 44 24 A7 49 24 B2 CA 28 49 24 |I$,1).D$.I$..(I$|
00001300: 2C 32 29 3A 89 31 32 32 30 00 18 1B D8 04 81 4C |,2):.1220......L|
00001310: B2 31 A4 C3 28 49 24 29 00 4A 1B E2 04 8B CA 28 |.1..(I$).J.....(|
00001320: 49 24 2C 4C 2C 31 29 B2 44 24 A7 57 24 B2 C8 28 |I$,L,1).D$.W$..(|
00001330: 49 24 2C 4C AB 31 29 3A 49 24 B2 CA 28 49 24 2C |I$,L.1):I$..(I$,|
00001340: 4C AA 31 29 3A 89 31 32 37 30 00 5D 1B EC 04 82 |L.1):.1270.]....|
00001350: 4C 3A 57 24 B2 49 24 3A 49 24 B2 22 22 00 63 1B |L:W$.I$:I$."".c.|
00001360: F6 04 8E 00 7D 1B 00 05 99 22 13 22 53 24 53 24 |....}...."."S$S$|
00001370: 3B 3A 8D 31 30 35 30 3A 99 22 13 22 3B 00 8A 1B |;:.1050:.".";...|
00001380: 0A 05 99 22 12 20 92 9D 22 3B 00 A0 1B 14 05 A1 |...". ..";......|
00001390: 49 31 24 3A 8B 49 31 24 B2 22 22 A7 31 33 30 30 |I1$:.I1$."".1300|
000013A0: 00 C4 1B 1E 05 4E B2 C6 28 49 31 24 29 3A 8B 4E |.....N..(I1$):.N|
000013B0: B2 31 33 A7 99 22 20 22 3A 8D 31 35 36 30 3A 89 |.13.." ":.1560:.|
000013C0: 31 32 31 30 00 D7 1B 28 05 8B 4E B2 33 34 A7 99 |1210...(..N.34..|
000013D0: 49 31 24 22 9D 22 3B 00 ED 1B 32 05 8B 4E B2 31 |I1$".";...2..N.1|
000013E0: 39 A7 49 24 B2 22 22 3A 89 31 32 31 30 00 24 1C |9.I$."":.1210.$.|
000013F0: 3C 05 8B 28 4E B2 32 30 B0 4E B2 31 35 37 29 AF |<..(N.20.N.157).|
00001400: C3 28 49 24 29 B1 30 A7 49 24 B2 C8 28 49 24 2C |.(I$).0.I$..(I$,|
00001410: C3 28 49 24 29 AB 31 29 3A 99 22 9D 22 3B 3A 89 |.(I$).1):.".";:.|
00001420: 31 32 39 30 00 39 1C 46 05 8B 28 4E AF 31 32 37 |1290.9.F..(N.127|
00001430: 29 B3 33 32 A7 31 32 39 30 00 5C 1C 50 05 99 49 |).32.1290.\.P..I|
00001440: 31 24 3B 3A 49 24 B2 49 24 AA 49 31 24 3A 8B C3 |1$;:I$.I$.I1$:..|
00001450: 28 49 24 29 B3 38 30 A7 31 32 39 30 00 66 1C 5A |(I$).80.1290.f.Z|
00001460: 05 89 31 32 31 30 00 7E 1C 64 05 8F 20 2A 2A 20 |..1210.~.d.. ** |
00001470: 53 45 41 52 43 48 20 44 49 43 54 20 2A 2A 00 A2 |SEARCH DICT **..|
00001480: 1C 6E 05 99 50 24 22 49 53 20 22 57 24 22 20 49 |.n..P$"IS "W$" I|
00001490: 4E 20 54 48 45 20 44 49 43 54 49 4F 4E 41 52 59 |N THE DICTIONARY|
000014A0: 3F 22 00 B0 1C 78 05 81 4E B2 44 A4 31 A9 AB 31 |?"...x..N.D.1..1|
000014B0: 00 C0 1C 82 05 8B 44 45 B1 30 A7 8D 31 36 32 30 |......DE.0..1620|
000014C0: 00 EC 1C 8C 05 8B 44 24 28 4E 29 B2 57 24 A7 8D |......D$(N).W$..|
000014D0: 31 36 33 30 3A 99 50 24 22 59 45 53 20 49 54 20 |1630:.P$"YES IT |
000014E0: 49 53 22 3B 3A 8D 31 30 34 30 3A 8E 00 FC 1C 96 |IS";:.1040:.....|
000014F0: 05 8B 44 45 B1 30 A7 8D 31 36 33 30 00 1C 1D A0 |..DE.0..1630....|
00001500: 05 82 4E 3A 99 50 24 22 4E 4F 20 49 54 20 49 53 |..N:.P$"NO IT IS|
00001510: 4E 27 54 22 3A 8D 31 30 34 30 3A 8E 00 37 1D AA |N'T":.1040:..7..|
00001520: 05 8F 20 2A 2A 20 50 55 53 48 20 50 41 52 41 4D |.. ** PUSH PARAM|
00001530: 45 54 45 52 20 2A 2A 00 63 1D B4 05 8B 53 50 B2 |ETER **.c....SP.|
00001540: 31 30 31 A7 99 50 24 22 53 54 41 43 4B 20 4F 56 |101..P$"STACK OV|
00001550: 45 52 46 4C 4F 57 22 3A 4E B2 30 3A 45 52 B2 AB |ERFLOW":N.0:ER..|
00001560: 31 3A 8E 00 99 1D BE 05 8B B6 28 4E 29 B1 32 30 |1:........(N).20|
00001570: 32 33 A7 99 50 24 22 4F 55 54 20 4F 46 20 52 41 |23..P$"OUT OF RA|
00001580: 4E 47 45 20 45 52 52 4F 52 22 3A 49 24 B2 22 22 |NGE ERROR":I$.""|
00001590: 3A 4D B2 30 3A 89 32 34 30 00 B9 1D C8 05 45 52 |:M.0:.240.....ER|
000015A0: B2 30 3A 53 25 28 53 50 29 B2 4E 3A 53 50 B2 53 |.0:S%(SP).N:SP.S|
000015B0: 50 AA 31 3A 89 31 36 34 30 00 D4 1D D2 05 8F 20 |P.1:.1640...... |
000015C0: 2A 2A 20 50 55 4C 4C 20 50 41 52 41 4D 45 54 45 |** PULL PARAMETE|
000015D0: 52 20 2A 2A 00 F1 1D DC 05 8B 53 50 B2 30 A7 99 |R **......SP.0..|
000015E0: 50 24 53 55 24 3A 4E B2 30 3A 45 52 B2 AB 31 3A |P$SU$:N.0:ER..1:|
000015F0: 8E 00 11 1E E6 05 45 52 B2 30 3A 53 50 B2 53 50 |......ER.0:SP.SP|
00001600: AB 31 3A 4E B2 53 25 28 53 50 29 3A 89 31 36 34 |.1:N.S%(SP):.164|
00001610: 30 00 29 1E F0 05 8F 20 2A 2A 20 50 55 53 48 20 |0.).... ** PUSH |
00001620: 41 44 52 45 53 53 20 2A 2A 00 40 1E FA 05 52 28 |ADRESS **.@...R(|
00001630: 52 50 29 B2 50 43 3A 52 50 B2 52 50 AA 31 3A 8E |RP).PC:RP.RP.1:.|
00001640: 00 58 1E 04 06 8F 20 2A 2A 20 50 55 4C 4C 20 41 |.X.... ** PULL A|
00001650: 44 52 45 53 53 20 2A 2A 00 6F 1E 0E 06 52 50 B2 |DRESS **.o...RP.|
00001660: 52 50 AB 31 3A 50 43 B2 52 28 52 50 29 3A 8E 00 |RP.1:PC.R(RP):..|
00001670: 97 1E 18 06 99 22 13 11 11 22 3B 3A 81 4C B2 31 |....."...";:.L.1|
00001680: A4 35 3A 99 53 24 3B 3A 82 3A 99 22 13 11 11 22 |.5:.S$;:.:."..."|
00001690: 3B 3A 8D 31 30 35 30 00 A6 1E 22 06 81 4C B2 32 |;:.1050..."..L.2|
000016A0: 31 37 A4 32 32 33 00 BB 1E 2C 06 97 4C 2C 31 32 |17.223...,..L,12|
000016B0: 38 3A 82 3A 99 22 13 22 3B 3A 8E 00 E4 1E 36 06 |8:.:.".";:....6.|
000016C0: 4E B2 4E AB 31 3A 99 22 13 22 3B 3A 81 4C B2 31 |N.N.1:.".";:.L.1|
000016D0: A4 31 31 AA B5 28 4E AD 33 29 AC 32 3A 99 22 11 |.11..(N.3).2:.".|
000016E0: 22 3B 3A 82 00 11 1F 40 06 81 4C B2 31 A4 32 2E |";:....@..L.1.2.|
000016F0: 31 AA 28 4E AD 33 AB B5 28 4E AD 33 29 29 AC 32 |1.(N.3..(N.3)).2|
00001700: 37 3A 99 22 1D 22 3B 3A 82 3A 4E B2 4E AA 31 3A |7:.".";:.:N.N.1:|
00001710: 8E 00 2D 1F 4A 06 81 4E B2 31 A4 44 3A 8D 31 35 |..-.J..N.1.D:.15|
00001720: 39 30 3A 99 44 24 28 4E 29 3A 82 3A 8E 00 43 1F |90:.D$(N):.:..C.|
00001730: 54 06 8D 31 35 39 30 3A 99 22 12 22 44 24 28 4E |T..1590:."."D$(N|
00001740: 29 3A 8E 00 56 1F 5E 06 8D 31 35 39 30 3A 99 44 |):..V.^..1590:.D|
00001750: 24 28 4E 29 3A 8E 00 75 1F 68 06 99 22 13 11 11 |$(N):..u.h.."...|
00001760: 11 11 11 11 11 11 11 11 22 3B 3A 8B 53 50 B2 30 |........";:.SP.0|
00001770: A7 31 36 37 30 00 AC 1F 72 06 81 4C B2 31 A4 28 |.1670...r..L.1.(|
00001780: 37 AA 53 50 AB B6 28 53 50 AB 37 29 29 AD 32 3A |7.SP..(SP.7)).2:|
00001790: 99 A6 33 31 29 22 11 20 20 20 20 20 20 9D 9D 9D |..31)". ...|
000017A0: 9D 9D 9D 22 53 25 28 53 50 AB 4C 29 00 B2 1F 7C |..."S%(SP.L)...||
000017B0: 06 82 00 CC 1F 86 06 8B 53 50 B3 37 A7 99 A6 33 |........SP.7...3|
000017C0: 31 29 22 11 20 20 20 20 20 20 22 3B 00 D2 1F 90 |1)". ";....|
000017D0: 06 8E 00 00 00 C6 C0 01 85 20 |......... |
....... FORTH TEACHER.:.... (
C) ANDREW ASHWOOD.V.... 13/5/82
5:24.\.....{.... CBM 64 ADAPTION
BY............ D-4550 BRAMSCHE..
.... 27-10-1983............".."
;:.53280,12:.53281,12......"************
FORTH TEACHER *************.;.#..".. A
CBM 64 ADAPTION BY RENE KALDENBERG....(.
."...DIT PROGRAMMA GEEFT EEN DEMO VAN WA
T ER BIJ BEPAALDE OPDRACHTEN IN DE";...2
.." PROGRAM- MEERTAAL .FORTH. GEBEURT..
..<.."..LET VOORAL OP DE STACK-HANDELING
EN....F.."..HET IS VERSTANDIG ER EEN FOR
TH-BOEKJE.>.P.."BIJ TE NEMEN, WANT DE UI
TLEG IS AAN DE.A.Z.."KARIGE KANT. (OF ZI
E PBE 12)... .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.5...S$."
".C.H.DE.10:C.D.2.1:
P$.".......":P$.P$.S$.S$.P$...M.."..DRUK
OP EEN TOETS ALS JE WILT BEGINNEN....O.
.AA$:.AA$."".207...R..".":.1070.A....161
0.....SC$.P$."SO COMPILE IT":SU$.P$."STA
CK UNDERFLOW ERROR"......1210:W$.H(W$,7)
.'....M.320:.** COMPILE.?....1380:. SEAR
CH DICT.L....N.PC.P(N):.P$"SO EXECUTE IT
":.1040:.520......P$"IS "W$" A NUMBER?":
.1040:N.E(W$)..."..N..0.W$."0"..P$"YES I
T IS":.1040...,..N.W$."0"..P$"SO PUSH IT
":.1040:.1450:.240...6..P$W$" IS UNDEFIN
ED":I$."":NL.0:.240...@..1380.U.J..N.12.
NL.0..P$"I OUDSIDE LOOP ERROR":M.0:I$.""
:.240...T..N.0.W(N).0..SC$:.1040:.400:..
SPECIAL W.DS...^..N.0..SC$:.1040:C(C).P
(N):C.C.1:.240.W.H..P$"IS "W$" A NUMBER?
":.1040:N.E(W$)...R..N..0.W$."0"..P$"YES
IT IS":.1040:.SC$:.1040.,.|..N..0.W$."0
".C(C)..5:C.C.2:.240.Y....P$W$" IS UNDEF
INED":M.0:I$."":NL.0:.240.{....W(N).410,
420,440,470,480,510......P$IL$"IN COMPIL
E MODE":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...
..D$.G(34):.1210:D$." ".Y.B.C(C).15:C(C.
1).C(W$):.L.1.C(W$):C(C.1.L).F(J(W$,L,1)
).M.L..L:C.C.L.1:.240...V.C(C).19:PC:.15
20:C.C.1:NL.NL.1:.240.R....NL.0..P$"'LOO
P' WITHOUT 'DO' ERROR":I$."":NL.0:M.0:.2
40......1540:AD.PC:NL.NL.1.....C(C).21:C
(C.1).AD:C.C.2:.240.;....P$IL$"IN COMPIL
E MODE":M.0:I$."":NL.0:.240.G....CL(1).2
56.CL(0).CL(2).32767.6.40..1560......B(1
58).0..B(B(158).662).18..158,0:.240.....
.C(PC).0.590:.. .TEM W.DS.G.&..C(PC).0.R
P.0.240...0..C(PC).0..1540:.610...:..C(P
C)..5.740...D..1520:PC.C(PC):.520.?.N...
(C(PC)).620,640,650,660,670,700,730,750,
780,790.Q.X...(C(PC)).10.830,870,900,920
,940,970,980,1020...B.PC.PC.1:.520...L..
1490:.ER.I$"":NL.0:.240...V..1060:.N;:.1
050:.610......1490:N1.N:.1490:N.N.N1:.14
50:.610......1490:N1.N:.1490:N.N.N1:.145
0:.610.-....1490:N1.N:.1490:N.N.N1:.1450
:.610.B....1490:N1.N:.1490._....N1..0.N.
N.N1:.1450:.610......P$"DIVISION BY ZERO
":I$."":.240......D.21..P$"DICTIONARY OV
ERFLOW":I$."":.240...F..1210:D$(D.1).H(W
$,7):P(D.1).C:M.1:.P$"COMPILING "W$...P.
.1040:.610.#.Z..P$IL$"IN IMMEDIADE MODE"
:I$."":.240.D...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.I....L.N.N1:.G(C(
L));:.:.1050:.610......1060:.:.1050.610.
.....RP.0..P$"SORRY NO LOOPS IN IMMEDIAT
E MODE":I$."":.240.A. .SC.PC:.1540:S2.PC
:.1490:N1.N:.1490.{.*..ER..P$" NOT ENOUG
H PARAMETERS FOR A LOOP":I$."":.240...4.
PC.N:.1520:PC.N1:.1520:PC.S2:.1520:NL.NL
.1:PC.SC:.610...>..RP.0..P$"SORRY NO LOO
PS IN IMMEDIATE MODE":I$."":.240.).H.SC.
PC:.1540:S2.PC.1:AD.C(S2):.1540:LO.PC:.1
540:UP.PC.\.R.LO.LO.1:.LO..UP.PC.S2:.152
0:NL.NL.1:PC.SC:.610...\.PC.UP:.1520:PC.
LO:.1520:PC.AD:.610...F..RP.0..P$"'I' NO
T ALLOWED IN IMMEDIATE MODE":I$."":.240.
..P..NL.0..P$"NO LOOP FOR 'I' TO BE IN":
M.0:I$."":.240...Z.N.R(RP.2):.1450:.610.
0....SP.0..P$SU$:I$."":NL.0:.240.J...N.S
%(SP.1):.1450:.610.K....SP.2..P$SU$:I$."
":NL.0:.240.....N.S%(SP.1):S%(SP.1).S%(S
P.2):S%(SP.2).N:.1640:.610.C....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..121
0:.1380.D....N.17.D.N.1:.210.}....N.0..P
$W$" IS NOT IN THE DICTIONARY":M.0:I$.""
:.240......P$"PLEASE DO NOT FORGET THAT"
:.240......1490:.ER.DE.10:.610.L...DE.N:
.610......L.1. 100.DE:.:.......L.209. 21
1:CL(L.209).B(L):.:CL(3).B(214):..B.$..1
570:.L.209.211:.L,CL(L.209):.:.214,CL(3)
:..T...M1$.". . . .
....8.M2$."..................
.......................V.B.B$.".........
.................................L.T$.".
........................................
9.V.T1$."...............................
..........K.`.S$."
"...J.."........."T$M1
$".."H(S$,38)"...........DICTIONARY";...
T.." . STACK".H.~..T1$;......L.
1.6:.M1$"............"J(D(L),2)")":.M2$;
:.......M1$"............7)":.B$".";.@...
.2023,125:.2023.54272,11:.1640:..~....".
",N,"+",N,"-",N,"*",N,"/",N,":",S,";",S,
.",S,CR,N,DO,S.A....LOOP,S,I,N,DUP,N,SWA
P,N,ROT,N,DROP,N,FORGET,S,DELAY,N,0,0,0,
0.V.... ** GET WORD **...D..C(I$).0.1280
...N..H(I$,1).D$.I$.J(I$,2):.1220...X..L
.1.C(I$).J....J(I$,L,1).D$.W$.H(I$,L.1):
I$.J(I$,L.1):.1270.]....L:W$.I$:I$."".C.
....}...."."S$S$;:.1050:.".";......". ..
";. ....I1$:.I1$."".1300.D...N.F(I1$):.N
.13.." ":.1560:.1210.W.(..N.34..I1$".";.
..2..N.19.I$."":.1210.$.<..(N.20.N.157).
C(I$).0.I$.H(I$,C(I$).1):.".";:.1290.9.F
..(N.127).32.1290.\.P..I1$;:I$.I$.I1$:.C
(I$).80.1290.F.Z..1210.~.D.. ** SEARCH D
ICT **...N..P$"IS "W$" IN THE DICTIONARY
?"...X..N.D.1..1......DE.0..1620......D$
(N).W$..1630:.P$"YES IT IS";:.1040:.....
..DE.0..1630... ..N:.P$"NO IT ISN'T":.10
40:..7.... ** PUSH PARAMETER **.C....SP.
101..P$"STACK OVERFLOW":N.0:ER..1:......
..(N).2023..P$"OUT OF RANGE ERROR":I$.""
:M.0:.240...H.ER.0:S%(SP).N:SP.SP.1:.164
0.T.R.. ** PULL PARAMETER **......SP.0..
P$SU$:N.0:ER..1:......ER.0:SP.SP.1:N.S%(
SP):.1640.).... ** PUSH ADRESS **.@...R(
RP).PC:RP.RP.1:..X.... ** PULL ADRESS **
.O...RP.RP.1:PC.R(RP):......."...";:.L.1
.5:.S$;:.:."...";:.1050..."..L.217.223..
.,..L,128:.:.".";:....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:.15
90:.D$(N):.:..C.T..1590:."."D$(N):..V.^.
.1590:.D$(N):..U.H.."...........";:.SP.0
.1670...R..L.1.(7.SP..(SP.7)).2:..31)".
......"S%(SP.L)...|...L....SP.7...3
1)". ";.R.......F...
> CLICK IMAGE PREVIEW FOR FULL MODAL