TUTORIAL
FILE INFORMATION
FILENAME(S): TUTORIAL
FILE TYPE(S): PRG
FILE SIZE: 16.2K
FIRST SEEN: 2025-10-19 22:49:31
APPEARS ON: 1 disk(s)
FILE HASH
f82f4e2ca81b3cb21df661934e9abb9d4f97fe0b9d9c43e26efe498e3228350d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOLD DISK 8 | TUTORIAL | PRG | Radd Maxx | 10 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 01 00 8F 20 28 43 29 31 39 38 35 20 |....... (C)1985 |
00000010: 47 4F 4C 44 20 44 49 53 4B 20 49 4E 43 00 23 08 |GOLD DISK INC.#.|
00000020: 02 00 8F 00 40 08 03 00 8F 20 54 55 54 4F 52 49 |....@.... TUTORI|
00000030: 41 4C 3A 20 46 4F 52 54 48 20 50 41 52 54 20 31 |AL: FORTH PART 1|
00000040: 00 46 08 04 00 8F 00 68 08 0A 00 99 22 93 90 22 |.F.....h....".."|
00000050: 3A 97 35 33 32 38 31 2C 31 3A 97 35 33 32 37 32 |:.53281,1:.53272|
00000060: 2C 32 33 3A 50 47 B2 31 00 B4 08 14 00 91 20 50 |,23:PG.1...... P|
00000070: 47 20 89 20 31 30 30 2C 31 35 30 2C 32 30 30 2C |G . 100,150,200,|
00000080: 32 35 30 2C 34 30 30 30 2C 33 30 30 2C 33 35 30 |250,4000,300,350|
00000090: 2C 34 30 30 2C 34 35 30 2C 35 30 30 2C 35 35 30 |,400,450,500,550|
000000A0: 2C 36 30 30 2C 36 35 30 2C 37 30 30 2C 37 35 30 |,600,650,700,750|
000000B0: 2C 38 30 30 00 D2 08 1E 00 91 20 50 47 AB 31 36 |,800...... PG.16|
000000C0: 20 89 38 35 30 2C 39 30 30 2C 39 35 30 2C 31 30 | .850,900,950,10|
000000D0: 30 30 00 F1 08 63 00 8F 2D 2D 2D 2D 2D 2D 2D 2D |00...c..--------|
000000E0: 2D 2D 2D 50 41 47 45 20 31 2D 2D 2D 2D 2D 2D 2D |---PAGE 1-------|
000000F0: 2D 00 1A 09 64 00 3A 99 22 93 22 A3 31 37 29 22 |-...d.:.".".17)"|
00000100: 12 46 4F 52 54 48 92 20 20 20 20 20 20 20 20 20 |.FORTH. |
00000110: 20 20 20 20 20 20 20 20 31 22 00 20 09 65 00 99 | 1". .e..|
00000120: 00 4E 09 66 00 99 22 20 20 20 C9 46 20 59 4F 55 |.N.f.." .F YOU|
00000130: 20 41 52 45 20 4C 49 4B 45 20 4D 4F 53 54 20 50 | ARE LIKE MOST P|
00000140: 45 4F 50 4C 45 20 57 48 4F 20 20 20 20 22 00 7C |EOPLE WHO ".||
00000150: 09 67 00 99 22 20 50 52 4F 47 52 41 4D 20 49 4E |.g.." PROGRAM IN|
00000160: 20 C2 C1 D3 C9 C3 2C 20 59 4F 55 20 50 52 4F 42 | ....., YOU PROB|
00000170: 41 42 4C 59 20 43 55 52 53 45 20 22 00 AA 09 68 |ABLY CURSE "...h|
00000180: 00 99 22 20 54 48 45 20 53 4C 4F 57 4E 45 53 53 |.." THE SLOWNESS|
00000190: 20 57 49 54 48 20 57 48 49 43 48 20 59 4F 55 52 | WITH WHICH YOUR|
000001A0: 20 50 52 4F 47 52 41 4D 53 22 00 D8 09 69 00 99 | PROGRAMS"...i..|
000001B0: 22 20 45 58 45 43 55 54 45 2E 20 20 CF 4E 45 20 |" EXECUTE. .NE |
000001C0: 53 4F 4C 55 54 49 4F 4E 20 57 4F 55 4C 44 20 42 |SOLUTION WOULD B|
000001D0: 45 20 54 4F 20 20 20 22 00 06 0A 6A 00 99 22 20 |E TO "...j.." |
000001E0: 50 52 4F 47 52 41 4D 20 49 4E 20 41 53 53 45 4D |PROGRAM IN ASSEM|
000001F0: 42 4C 59 20 4C 41 4E 47 55 41 47 45 2C 20 42 55 |BLY LANGUAGE, BU|
00000200: 54 20 20 20 20 22 00 34 0A 6B 00 99 22 20 54 48 |T ".4.k.." TH|
00000210: 49 53 20 48 41 53 20 54 48 45 20 44 49 53 41 44 |IS HAS THE DISAD|
00000220: 56 41 4E 54 41 47 45 53 20 4F 46 20 42 45 49 4E |VANTAGES OF BEIN|
00000230: 47 20 20 22 00 62 0A 6C 00 99 22 20 44 49 46 46 |G ".b.l.." DIFF|
00000240: 49 43 55 4C 54 20 54 4F 20 4C 45 41 52 4E 20 49 |ICULT TO LEARN I|
00000250: 4E 20 54 48 45 20 46 49 52 53 54 20 50 4C 41 43 |N THE FIRST PLAC|
00000260: 45 22 00 8F 0A 6D 00 99 22 20 41 4E 44 20 4C 4F |E"...m.." AND LO|
00000270: 4E 47 45 52 20 50 52 4F 47 52 41 4D 20 44 45 56 |NGER PROGRAM DEV|
00000280: 45 4C 4F 50 4D 45 4E 54 20 54 49 4D 45 2E 22 00 |ELOPMENT TIME.".|
00000290: 97 0A 6F 00 99 3A 99 00 C5 0A 70 00 99 22 20 20 |..o..:....p.." |
000002A0: 20 C6 4F 52 54 55 4E 41 54 45 4C 59 2C 20 54 48 | .ORTUNATELY, TH|
000002B0: 45 20 4C 41 4E 47 55 41 47 45 20 C6 CF D2 D4 C8 |E LANGUAGE .....|
000002C0: 20 20 20 20 22 00 F3 0A 71 00 99 22 20 43 4F 4D | "...q.." COM|
000002D0: 42 49 4E 45 53 20 54 48 45 20 43 4F 4E 56 45 4E |BINES THE CONVEN|
000002E0: 49 45 4E 43 45 20 4F 46 20 50 52 4F 47 52 41 4D |IENCE OF PROGRAM|
000002F0: 4D 2D 22 00 21 0B 72 00 99 22 20 49 4E 47 20 49 |M-".!.r.." ING I|
00000300: 4E 20 20 41 20 48 49 47 48 20 4C 45 56 45 4C 20 |N A HIGH LEVEL |
00000310: 4C 41 4E 47 55 41 47 45 20 57 49 54 48 20 20 20 |LANGUAGE WITH |
00000320: 22 00 4D 0B 73 00 99 22 20 45 58 45 43 55 54 49 |".M.s.." EXECUTI|
00000330: 4F 4E 20 53 50 45 45 44 20 41 50 50 52 4F 41 43 |ON SPEED APPROAC|
00000340: 48 49 4E 47 20 54 48 41 54 20 4F 46 22 00 73 0B |HING THAT OF".s.|
00000350: 74 00 99 22 20 4D 41 43 48 49 4E 45 20 43 4F 44 |t.." MACHINE COD|
00000360: 45 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E. |
00000370: 20 20 22 00 7A 0B 75 00 99 22 00 A8 0B 76 00 99 | ".z.u.."...v..|
00000380: 22 20 C6 CF D2 D4 C8 20 57 41 53 20 49 4E 56 45 |" ..... WAS INVE|
00000390: 4E 54 45 44 20 42 59 20 C3 48 41 52 4C 45 53 20 |NTED BY .HARLES |
000003A0: CD 4F 4F 52 45 20 20 22 00 D5 0B 78 00 99 22 11 |.OORE "...x..".|
000003B0: 11 11 11 20 12 53 50 41 43 45 92 20 41 48 45 41 |... .SPACE. AHEA|
000003C0: 44 20 20 20 20 20 12 5F 92 20 47 4F 4C 44 20 44 |D ._. GOLD D|
000003D0: 49 53 4B 22 3B 00 E8 0B 82 00 A1 41 24 3A 8B 41 |ISK";......A$:.A|
000003E0: 24 B2 22 22 A7 31 33 30 00 F9 0B 83 00 8B 41 24 |$."".130......A$|
000003F0: B2 22 5F 22 A7 33 30 30 30 00 0A 0C 84 00 8B 41 |."_".3000......A|
00000400: 24 B3 B1 22 20 22 A7 31 33 30 00 1A 0C 85 00 50 |$.." ".130.....P|
00000410: 47 B2 50 47 AA 31 3A 89 32 30 00 38 0C 95 00 8F |G.PG.1:.20.8....|
00000420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 50 41 47 45 20 32 |----------PAGE 2|
00000430: 2D 2D 2D 2D 2D 2D 2D 2D 00 61 0C 96 00 3A 99 22 |--------.a...:."|
00000440: 93 22 A3 31 37 29 22 12 46 4F 52 54 48 92 20 20 |.".17)".FORTH. |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 | 2|
00000460: 22 00 67 0C 97 00 99 00 92 0C 98 00 99 22 20 4F |".g.........." O|
00000470: 56 45 52 20 20 31 35 20 59 45 41 52 53 20 41 47 |VER 15 YEARS AG|
00000480: 4F 2E 20 CF 52 49 47 49 4E 41 4C 4C 59 20 48 45 |O. .RIGINALLY HE|
00000490: 20 22 00 C1 0C 99 00 99 22 20 57 41 4E 54 45 44 | "......" WANTED|
000004A0: 20 54 4F 20 43 41 4C 4C 20 49 54 20 C6 CF D5 D2 | TO CALL IT ....|
000004B0: D4 C8 20 20 42 45 43 41 55 53 45 20 48 45 20 20 |.. BECAUSE HE |
000004C0: 22 00 EC 0C 9A 00 99 22 20 43 4F 4E 53 49 44 45 |"......" CONSIDE|
000004D0: 52 45 44 20 49 54 20 41 20 46 4F 55 52 54 48 20 |RED IT A FOURTH |
000004E0: 47 45 4E 45 52 41 54 49 4F 4E 20 22 00 1B 0D 9B |GENERATION "....|
000004F0: 00 99 22 20 4C 41 4E 47 55 41 47 45 20 42 55 54 |.." LANGUAGE BUT|
00000500: 20 48 49 53 20 43 4F 4D 50 55 54 45 52 20 41 4C | HIS COMPUTER AL|
00000510: 4C 4F 57 45 44 20 4F 4E 4C 59 22 00 49 0D 9C 00 |LOWED ONLY".I...|
00000520: 99 22 20 46 49 56 45 20 43 48 41 52 41 43 54 45 |." FIVE CHARACTE|
00000530: 52 20 46 49 4C 45 20 4E 41 4D 45 53 2E 20 20 C6 |R FILE NAMES. .|
00000540: CF D2 D4 C8 20 48 41 53 22 00 77 0D 9D 00 99 22 |.... HAS".w...."|
00000550: 20 44 45 56 45 4C 4F 50 45 44 20 41 20 4C 4F 59 | DEVELOPED A LOY|
00000560: 41 4C 20 46 4F 4C 4C 4F 57 49 4E 47 20 4F 56 45 |AL FOLLOWING OVE|
00000570: 52 20 54 48 45 20 22 00 A5 0D 9E 00 99 22 20 59 |R THE "......" Y|
00000580: 45 41 52 53 20 41 4E 44 20 57 48 4F 20 4B 4E 4F |EARS AND WHO KNO|
00000590: 57 53 20 4D 41 59 42 45 20 20 59 4F 55 27 4C 4C |WS MAYBE YOU'LL|
000005A0: 20 42 45 20 22 00 D3 0D 9F 00 99 22 20 4F 4E 45 | BE "......" ONE|
000005B0: 20 4F 46 20 49 54 27 53 20 4E 45 57 45 53 54 20 | OF IT'S NEWEST |
000005C0: 43 4F 4E 56 45 52 54 53 2E 20 20 20 20 20 20 20 |CONVERTS. |
000005D0: 20 20 22 00 DD 0D A1 00 99 3A 99 3A 99 00 08 0E | "......:.:....|
000005E0: A2 00 99 22 20 20 20 D4 48 49 53 20 4D 4F 4E 54 |..." .HIS MONT|
000005F0: 48 53 20 54 55 54 4F 52 49 41 4C 20 57 49 4C 4C |HS TUTORIAL WILL|
00000600: 20 43 4F 56 45 52 20 22 00 36 0E A3 00 99 22 20 | COVER ".6...." |
00000610: 53 4F 4D 45 20 4F 46 20 54 48 45 20 53 49 4D 50 |SOME OF THE SIMP|
00000620: 4C 45 52 20 41 53 50 45 43 54 53 20 4F 46 20 C6 |LER ASPECTS OF .|
00000630: CF D2 D4 C8 2C 22 00 62 0E A4 00 99 22 20 53 55 |....,".b...." SU|
00000640: 43 48 20 41 53 20 53 54 41 43 4B 20 4D 41 4E 49 |CH AS STACK MANI|
00000650: 50 55 4C 41 54 49 4F 4E 20 43 4F 4D 4D 41 4E 44 |PULATION COMMAND|
00000660: 53 22 00 86 0E A5 00 99 22 20 41 4E 44 20 49 4E |S"......" AND IN|
00000670: 54 45 47 45 52 20 41 52 49 54 48 4D 45 54 49 43 |TEGER ARITHMETIC|
00000680: 2E 20 20 20 20 22 00 90 0E A9 00 99 3A 99 3A 99 |. "......:.:.|
00000690: 00 9A 0E AA 00 99 3A 99 3A 99 00 A4 0E AB 00 89 |......:.:.......|
000006A0: 32 35 30 30 00 C3 0E C7 00 8F 2D 2D 2D 2D 2D 2D |2500......------|
000006B0: 2D 2D 2D 2D 2D 50 41 47 45 20 33 2D 2D 2D 2D 2D |-----PAGE 3-----|
000006C0: 2D 2D 2D 00 EC 0E C8 00 3A 99 22 93 22 A3 31 37 |---.....:.".".17|
000006D0: 29 22 12 46 4F 52 54 48 92 20 20 20 20 20 20 20 |)".FORTH. |
000006E0: 20 20 20 20 20 20 20 20 20 20 33 22 00 F2 0E C9 | 3"....|
000006F0: 00 99 00 1E 0F CA 00 99 22 20 C9 4D 41 47 49 4E |........" .MAGIN|
00000700: 45 20 54 48 41 54 20 59 4F 55 20 48 41 56 45 20 |E THAT YOU HAVE |
00000710: C6 CF D2 D4 C8 20 4C 4F 41 44 45 44 20 22 00 49 |..... LOADED ".I|
00000720: 0F CB 00 99 22 20 41 4E 44 20 52 55 4E 4E 49 4E |...." AND RUNNIN|
00000730: 47 20 49 4E 20 59 4F 55 52 20 43 4F 4D 50 55 54 |G IN YOUR COMPUT|
00000740: 45 52 2E 20 D4 48 45 4E 22 00 71 0F CC 00 99 22 |ER. .HEN".q...."|
00000750: 20 48 49 54 54 49 4E 47 20 54 48 45 20 20 52 45 | HITTING THE RE|
00000760: 54 55 52 4E 20 20 4B 45 59 20 57 4F 55 4C 44 20 |TURN KEY WOULD |
00000770: 22 00 9A 0F CD 00 99 22 20 47 45 4E 45 52 41 54 |"......" GENERAT|
00000780: 45 20 54 48 45 20 4D 45 53 53 41 47 45 2C 20 20 |E THE MESSAGE, |
00000790: 20 20 20 20 20 20 20 20 20 22 00 A0 0F CE 00 99 | "......|
000007A0: 00 CF 0F CF 00 99 22 20 CF CB 20 20 20 20 20 20 |......" .. |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000007D0: D5 0F D0 00 99 00 04 10 D1 00 99 22 20 D4 48 49 |..........." .HI|
000007E0: 53 20 49 53 20 4A 55 53 54 20 C6 CF D2 D4 C8 20 |S IS JUST ..... |
000007F0: 41 43 4B 4E 4F 57 4C 45 44 47 49 4E 47 20 54 48 |ACKNOWLEDGING TH|
00000800: 41 54 20 22 00 33 10 D2 00 99 22 20 41 20 43 4F |AT ".3...." A CO|
00000810: 4D 4D 41 4E 44 20 57 41 53 20 45 58 45 43 55 54 |MMAND WAS EXECUT|
00000820: 45 44 20 57 49 54 48 4F 55 54 20 45 52 52 4F 52 |ED WITHOUT ERROR|
00000830: 2E 20 22 00 62 10 D3 00 99 22 20 CF 46 20 43 4F |. ".b...." .F CO|
00000840: 55 52 53 45 2C 20 59 4F 55 20 20 48 41 44 4E 27 |URSE, YOU HADN'|
00000850: 54 20 20 45 4E 54 45 52 45 44 20 41 4E 59 20 20 |T ENTERED ANY |
00000860: 20 22 00 91 10 D4 00 99 22 20 43 4F 4D 4D 41 4E | "......" COMMAN|
00000870: 44 20 59 45 54 20 53 4F 20 4E 4F 54 48 49 4E 47 |D YET SO NOTHING|
00000880: 20 57 41 53 20 44 4F 4E 45 2E 20 CE 4F 57 20 20 | WAS DONE. .OW |
00000890: 22 00 C0 10 D5 00 99 22 20 49 46 20 59 4F 55 20 |"......" IF YOU |
000008A0: 54 52 59 20 54 59 50 49 4E 47 20 20 2D 20 20 20 |TRY TYPING - |
000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000008C0: 00 C6 10 D6 00 99 00 F5 10 D7 00 99 22 20 36 35 |............" 65|
000008D0: 20 C5 CD C9 D4 20 20 20 12 52 45 54 55 52 4E 92 | .... .RETURN.|
000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008F0: 20 20 20 20 22 00 FD 10 D8 00 99 3A 99 00 2C 11 | "......:..,.|
00000900: D9 00 99 22 20 28 CE 4F 54 45 2E 20 20 12 52 45 |..." (.OTE. .RE|
00000910: 54 55 52 4E 92 20 49 4E 44 49 43 41 54 45 53 20 |TURN. INDICATES |
00000920: 54 48 41 54 20 20 59 4F 55 20 20 22 00 5B 11 DA |THAT YOU ".[..|
00000930: 00 99 22 20 4D 55 53 54 20 48 49 54 20 54 48 45 |.." MUST HIT THE|
00000940: 20 52 45 54 55 52 4E 20 4B 45 59 2E 29 20 20 20 | RETURN KEY.) |
00000950: 20 20 20 20 20 20 20 20 20 20 22 00 82 11 DB 00 | ".....|
00000960: 99 3A 99 3A 99 20 20 20 20 20 20 20 20 20 20 20 |.:.:. |
00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000980: 20 22 00 8C 11 DD 00 89 32 35 30 30 00 AB 11 F9 | "......2500....|
00000990: 00 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 50 41 47 |..-----------PAG|
000009A0: 45 20 34 2D 2D 2D 2D 2D 2D 2D 2D 00 D4 11 FA 00 |E 4--------.....|
000009B0: 3A 99 22 93 22 A3 31 37 29 22 12 46 4F 52 54 48 |:.".".17)".FORTH|
000009C0: 92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000009D0: 20 20 34 22 00 DA 11 FB 00 99 00 09 12 FC 00 99 | 4"............|
000009E0: 22 20 20 20 D9 4F 55 20 53 48 4F 55 4C 44 20 53 |" .OU SHOULD S|
000009F0: 45 45 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 |EE THE FOLLOWING|
00000A00: 2C 20 20 20 20 20 20 20 22 00 0F 12 FD 00 99 00 |, ".......|
00000A10: 3E 12 FE 00 99 22 20 C1 20 CF CB 20 20 20 20 20 |>...." . .. |
00000A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 44 | ".D|
00000A40: 12 FF 00 99 00 73 12 00 01 99 22 20 D4 4F 20 41 |.....s...." .O A|
00000A50: 43 43 4F 4D 50 4C 49 53 48 20 54 48 49 53 20 49 |CCOMPLISH THIS I|
00000A60: 4E 20 42 41 53 49 43 20 59 4F 55 20 57 4F 55 4C |N BASIC YOU WOUL|
00000A70: 44 20 22 00 A2 12 01 01 99 22 20 55 53 45 20 2D |D "......" USE -|
00000A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AA0: 20 22 00 A8 12 02 01 99 00 D5 12 03 01 99 22 20 | "............" |
00000AB0: 50 52 49 4E 54 43 48 52 24 28 36 35 29 20 20 20 |PRINTCHR$(65) |
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AD0: 20 20 20 20 22 00 DB 12 04 01 99 00 0A 13 05 01 | "...........|
00000AE0: 99 22 20 28 D3 45 45 20 59 4F 55 52 20 43 4F 4D |." (.EE YOUR COM|
00000AF0: 4D 4F 44 4F 52 45 20 36 34 20 55 53 45 52 53 20 |MODORE 64 USERS |
00000B00: 4D 41 4E 55 41 4C 20 20 20 22 00 39 13 06 01 99 |MANUAL ".9....|
00000B10: 22 20 46 4F 52 20 41 4C 4C 20 54 48 45 20 41 53 |" FOR ALL THE AS|
00000B20: 43 49 49 20 43 48 41 52 41 43 54 45 52 20 43 4F |CII CHARACTER CO|
00000B30: 44 45 53 2E 29 20 20 20 22 00 3F 13 07 01 99 00 |DES.) ".?.....|
00000B40: 6E 13 08 01 99 22 20 D7 48 41 54 20 48 41 50 50 |n...." .HAT HAPP|
00000B50: 45 4E 45 44 20 41 46 54 45 52 20 59 4F 55 20 48 |ENED AFTER YOU H|
00000B60: 49 54 20 52 45 54 55 52 4E 20 49 53 20 22 00 9D |IT RETURN IS "..|
00000B70: 13 09 01 99 22 20 54 48 45 20 46 4F 4C 4C 4F 57 |...." THE FOLLOW|
00000B80: 49 4E 47 2E 20 20 C6 CF D2 D4 C8 20 54 4F 4F 4B |ING. ..... TOOK|
00000B90: 20 54 48 45 20 4E 55 4D 42 45 52 20 22 00 CC 13 | THE NUMBER "...|
00000BA0: 0A 01 99 22 20 36 35 20 41 4E 44 20 50 55 54 20 |..." 65 AND PUT |
00000BB0: 20 49 54 20 4F 4E 20 20 53 4F 4D 45 54 48 49 4E | IT ON SOMETHIN|
00000BC0: 47 20 20 43 41 4C 4C 45 44 20 20 22 00 F9 13 0B |G CALLED "....|
00000BD0: 01 99 22 20 54 48 45 20 20 D3 D4 C1 C3 CB 2E 20 |.." THE ...... |
00000BE0: 20 C9 54 20 54 48 45 4E 20 53 45 41 52 43 48 45 | .T THEN SEARCHE|
00000BF0: 44 20 49 54 27 53 20 20 22 00 25 14 0C 01 99 22 |D IT'S ".%...."|
00000C00: 20 C4 C9 C3 D4 C9 CF CE C1 D2 D9 20 20 4F 46 20 | .......... OF |
00000C10: 43 4F 4D 4D 41 4E 44 20 44 45 46 49 4E 49 54 49 |COMMAND DEFINITI|
00000C20: 4F 4E 53 20 22 00 54 14 0D 01 99 22 20 46 4F 52 |ONS ".T...." FOR|
00000C30: 20 54 48 45 20 57 4F 52 44 20 C5 CD C9 D4 2E 20 | THE WORD ..... |
00000C40: 20 C5 CD C9 D4 20 49 53 20 41 20 53 59 53 54 45 | .... IS A SYSTE|
00000C50: 4D 20 20 22 00 83 14 0E 01 99 22 20 44 45 46 49 |M "......" DEFI|
00000C60: 4E 45 44 20 57 4F 52 44 20 57 48 49 43 48 20 54 |NED WORD WHICH T|
00000C70: 41 4B 45 53 20 54 48 45 20 4E 55 4D 42 45 52 20 |AKES THE NUMBER |
00000C80: 20 20 22 00 8B 14 0F 01 99 3A 99 00 95 14 10 01 | "......:......|
00000C90: 89 32 35 30 30 00 B3 14 2B 01 8F 2D 2D 2D 2D 2D |.2500...+..-----|
00000CA0: 2D 2D 2D 2D 2D 50 41 47 45 20 36 2D 2D 2D 2D 2D |-----PAGE 6-----|
00000CB0: 2D 2D 2D 00 DC 14 2C 01 3A 99 22 93 22 A3 31 37 |---...,.:.".".17|
00000CC0: 29 22 12 46 4F 52 54 48 92 20 20 20 20 20 20 20 |)".FORTH. |
00000CD0: 20 20 20 20 20 20 20 20 20 20 36 22 00 E2 14 2D | 6"...-|
00000CE0: 01 99 00 0F 15 2E 01 99 22 20 C9 54 27 53 20 41 |........" .T'S A|
00000CF0: 4C 53 4F 20 49 4D 50 4F 52 54 41 4E 54 20 54 4F |LSO IMPORTANT TO|
00000D00: 20 4B 45 45 50 20 41 54 20 4C 45 41 53 54 22 00 | KEEP AT LEAST".|
00000D10: 3A 15 2F 01 99 22 20 4F 4E 45 20 53 50 41 43 45 |:./.." ONE SPACE|
00000D20: 20 42 45 54 57 45 45 4E 20 49 4E 44 49 56 49 44 | BETWEEN INDIVID|
00000D30: 55 41 4C 20 57 4F 52 44 53 22 00 60 15 30 01 99 |UAL WORDS".`.0..|
00000D40: 22 20 41 4E 44 20 4E 55 4D 42 45 52 53 2E 20 20 |" AND NUMBERS. |
00000D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000D60: 00 66 15 31 01 99 00 95 15 32 01 99 22 20 20 CC |.f.1.....2.." .|
00000D70: 45 54 27 53 20 4C 4F 4F 4B 20 41 54 20 54 48 45 |ET'S LOOK AT THE|
00000D80: 20 53 54 41 43 4B 20 4D 4F 52 45 20 43 4C 4F 53 | STACK MORE CLOS|
00000D90: 45 4C 59 2E 22 00 C4 15 33 01 99 22 20 C9 46 20 |ELY."...3.." .F |
00000DA0: 59 4F 55 20 45 4E 54 45 52 45 44 20 54 48 45 20 |YOU ENTERED THE |
00000DB0: 46 4F 4C 4C 4F 57 49 4E 47 20 53 45 51 55 45 4E |FOLLOWING SEQUEN|
00000DC0: 43 45 20 22 00 F3 15 34 01 99 22 20 4F 46 20 4E |CE "...4.." OF N|
00000DD0: 55 4D 42 45 52 53 20 2D 20 20 20 20 20 20 20 20 |UMBERS - |
00000DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000DF0: 20 20 22 00 F9 15 35 01 99 00 28 16 36 01 99 22 | "...5...(.6.."|
00000E00: 20 32 20 20 34 20 20 38 20 31 36 20 20 20 20 20 | 2 4 8 16 |
00000E10: 12 52 45 54 55 52 4E 92 20 20 20 20 20 20 20 20 |.RETURN. |
00000E20: 20 20 20 20 20 20 20 22 00 2E 16 37 01 99 00 5D | "...7...]|
00000E30: 16 38 01 99 22 20 D4 48 45 20 53 54 41 43 4B 20 |.8.." .HE STACK |
00000E40: 57 4F 55 4C 44 20 4C 4F 4F 4B 20 4C 49 4B 45 20 |WOULD LOOK LIKE |
00000E50: 54 48 49 53 20 2D 20 20 20 20 20 20 22 00 63 16 |THIS - ".c.|
00000E60: 39 01 99 00 92 16 3A 01 99 22 20 20 20 20 20 20 |9.....:.." |
00000E70: 20 12 31 36 92 20 20 20 20 20 20 20 3C 2D 2D 2D | .16. <---|
00000E80: 2D 2D 20 54 4F 50 20 20 20 20 20 20 20 20 20 20 |-- TOP |
00000E90: 20 22 00 C1 16 3B 01 99 22 20 20 20 20 20 20 20 | "...;.." |
00000EA0: 12 20 38 92 20 20 20 20 20 20 20 20 20 20 20 20 |. 8. |
00000EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EC0: 22 00 F0 16 3C 01 99 22 20 20 20 20 20 20 20 12 |"...<.." .|
00000ED0: 20 34 92 20 20 20 20 20 20 20 20 20 20 20 20 20 | 4. |
00000EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000EF0: 00 1F 17 3D 01 99 22 20 20 20 20 20 20 20 12 20 |...=.." . |
00000F00: 32 92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |2. |
00000F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000F20: 25 17 3E 01 99 00 54 17 3F 01 99 22 20 D4 48 45 |%.>...T.?.." .HE|
00000F30: 20 4C 41 53 54 20 4E 55 4D 42 45 52 20 C6 CF D2 | LAST NUMBER ...|
00000F40: D4 C8 20 45 4E 43 4F 55 4E 54 45 52 53 20 57 49 |.. ENCOUNTERS WI|
00000F50: 4C 4C A0 22 00 83 17 40 01 99 22 20 41 4C 57 41 |LL."...@.." ALWA|
00000F60: 59 53 20 44 45 46 49 4E 45 20 54 48 45 20 54 4F |YS DEFINE THE TO|
00000F70: 50 20 4F 46 20 54 48 45 20 53 54 41 43 4B 2E 20 |P OF THE STACK. |
00000F80: 20 20 22 00 8B 17 41 01 99 3A 99 00 95 17 42 01 | "...A..:....B.|
00000F90: 89 32 35 30 30 00 B3 17 5D 01 8F 2D 2D 2D 2D 2D |.2500...]..-----|
00000FA0: 2D 2D 2D 2D 2D 50 41 47 45 20 37 2D 2D 2D 2D 2D |-----PAGE 7-----|
00000FB0: 2D 2D 2D 00 DC 17 5E 01 3A 99 22 93 22 A3 31 37 |---...^.:.".".17|
00000FC0: 29 22 12 46 4F 52 54 48 92 20 20 20 20 20 20 20 |)".FORTH. |
00000FD0: 20 20 20 20 20 20 20 20 20 20 37 22 00 E2 17 5F | 7"..._|
00000FE0: 01 99 00 0E 18 60 01 99 22 20 C1 20 55 53 45 46 |.....`.." . USEF|
00000FF0: 55 4C 20 43 4F 4D 4D 41 4E 44 20 46 4F 52 20 50 |UL COMMAND FOR P|
00001000: 52 49 4E 54 49 4E 47 20 41 20 20 20 20 22 00 3A |RINTING A ".:|
00001010: 18 61 01 99 22 20 4E 55 4D 42 45 52 20 46 52 4F |.a.." NUMBER FRO|
00001020: 4D 20 54 48 45 20 53 54 41 43 4B 20 49 53 2C 20 |M THE STACK IS, |
00001030: 20 20 20 20 20 20 20 20 20 22 00 40 18 62 01 99 | ".@.b..|
00001040: 00 6C 18 63 01 99 22 20 2E 20 20 20 20 28 20 54 |.l.c.." . ( T|
00001050: 48 45 20 50 45 52 49 4F 44 20 29 20 20 20 20 20 |HE PERIOD ) |
00001060: 20 20 20 20 20 20 20 20 20 20 20 22 00 72 18 64 | ".r.d|
00001070: 01 99 00 9E 18 65 01 99 22 20 D4 48 45 20 53 45 |.....e.." .HE SE|
00001080: 51 55 45 4E 43 45 20 20 20 20 20 20 2E 20 2E 20 |QUENCE . . |
00001090: 20 20 20 20 12 52 45 54 55 52 4E 92 20 22 00 C2 | .RETURN. "..|
000010A0: 18 66 01 99 22 20 57 49 4C 4C 20 50 52 49 4E 54 |.f.." WILL PRINT|
000010B0: 2C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |, |
000010C0: A0 22 00 C8 18 67 01 99 00 F4 18 68 01 99 22 20 |."...g.....h.." |
000010D0: 31 36 20 38 20 CF CB 20 20 20 20 20 20 20 20 20 |16 8 .. |
000010E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010F0: 20 20 20 22 00 FA 18 69 01 99 00 26 19 6A 01 99 | "...i...&.j..|
00001100: 22 20 CE 4F 54 49 43 45 20 54 48 41 54 20 54 4F |" .OTICE THAT TO|
00001110: 20 50 52 49 4E 54 20 54 48 45 20 38 2C 20 54 48 | PRINT THE 8, TH|
00001120: 45 20 31 36 20 22 00 53 19 6B 01 99 22 20 48 41 |E 16 ".S.k.." HA|
00001130: 44 20 54 4F 20 42 45 20 52 45 4D 4F 56 45 44 20 |D TO BE REMOVED |
00001140: 46 49 52 53 54 2E 20 20 CF 46 20 43 4F 55 52 53 |FIRST. .F COURS|
00001150: 45 20 22 00 7F 19 6C 01 99 22 20 54 48 45 20 4E |E "...l.." THE N|
00001160: 55 4D 42 45 52 20 34 20 49 53 20 4E 4F 57 20 41 |UMBER 4 IS NOW A|
00001170: 54 20 54 48 45 20 54 4F 50 2E 20 20 20 20 22 00 |T THE TOP. ".|
00001180: AB 19 6D 01 99 22 20 C1 4E 4F 54 48 45 52 20 57 |..m.." .NOTHER W|
00001190: 41 59 20 4F 46 20 50 55 54 54 49 4E 47 20 54 48 |AY OF PUTTING TH|
000011A0: 49 53 20 49 53 20 54 4F 20 20 22 00 D7 19 6E 01 |IS IS TO "...n.|
000011B0: 99 22 20 53 41 59 20 54 48 41 54 20 54 48 45 20 |." SAY THAT THE |
000011C0: 53 54 41 43 4B 20 49 53 20 12 CC 92 41 53 54 20 |STACK IS ...AST |
000011D0: 12 C9 92 4E 20 20 22 00 03 1A 6F 01 99 22 20 12 |...N "...o.." .|
000011E0: C6 92 49 52 53 54 20 12 CF 92 55 54 2E 28 CC C9 |..IRST ...UT.(..|
000011F0: C6 CF 29 20 20 20 20 20 20 20 20 20 20 20 20 20 |..) |
00001200: 20 20 22 00 09 1A 70 01 99 00 35 1A 71 01 99 22 | "...p...5.q.."|
00001210: 20 20 20 C3 41 4E 20 59 4F 55 20 47 55 45 53 53 | .AN YOU GUESS|
00001220: 20 57 48 41 54 20 57 49 4C 4C 20 48 41 50 50 45 | WHAT WILL HAPPE|
00001230: 4E 20 49 46 22 00 61 1A 72 01 99 22 20 59 4F 55 |N IF".a.r.." YOU|
00001240: 20 54 59 50 45 20 20 20 20 2E 20 2E 20 2E 20 20 | TYPE . . . |
00001250: 20 12 52 45 54 55 52 4E 92 20 20 20 20 20 20 3F | .RETURN. ?|
00001260: 22 00 69 1A 73 01 99 3A 99 00 73 1A 74 01 89 32 |".i.s..:..s.t..2|
00001270: 35 30 30 00 91 1A 8F 01 8F 2D 2D 2D 2D 2D 2D 2D |500......-------|
00001280: 2D 2D 2D 50 41 47 45 20 38 2D 2D 2D 2D 2D 2D 2D |---PAGE 8-------|
00001290: 2D 00 BA 1A 90 01 3A 99 22 93 22 A3 31 37 29 22 |-.....:.".".17)"|
000012A0: 12 46 4F 52 54 48 92 20 20 20 20 20 20 20 20 20 |.FORTH. |
000012B0: 20 20 20 20 20 20 20 20 38 22 00 C0 1A 91 01 99 | 8"......|
000012C0: 00 EB 1A 92 01 99 22 20 D2 45 4D 45 4D 42 45 52 |......" .EMEMBER|
000012D0: 20 54 48 41 54 20 20 54 48 45 52 45 20 41 52 45 | THAT THERE ARE|
000012E0: 20 4F 4E 4C 59 20 54 57 4F 20 22 00 16 1B 93 01 | ONLY TWO ".....|
000012F0: 99 22 20 4E 55 4D 42 45 52 53 20 4C 45 46 54 20 |." NUMBERS LEFT |
00001300: 4F 4E 20 54 48 45 20 53 54 41 43 4B 2C 20 41 4E |ON THE STACK, AN|
00001310: 44 20 57 45 20 22 00 41 1B 94 01 99 22 20 57 41 |D WE ".A...." WA|
00001320: 4E 54 20 54 48 52 45 45 20 50 52 49 4E 54 45 44 |NT THREE PRINTED|
00001330: 2E 20 D4 48 45 52 45 46 4F 52 45 20 54 48 45 20 |. .HEREFORE THE |
00001340: 22 00 6C 1B 95 01 99 22 20 54 48 45 20 4F 55 54 |".l...." THE OUT|
00001350: 50 55 54 20 57 49 4C 4C 20 42 45 2C 20 20 20 20 |PUT WILL BE, |
00001360: 20 20 20 20 20 20 20 20 20 20 20 22 00 72 1B 96 | ".r..|
00001370: 01 99 00 9D 1B 97 01 99 22 20 34 20 20 20 32 20 |........" 4 2 |
00001380: 20 20 30 20 2E 20 D3 D4 C1 C3 CB 20 C5 CD D0 D4 | 0 . ..... ....|
00001390: D9 20 20 20 20 20 20 20 20 20 20 20 22 00 A3 1B |. "...|
000013A0: 98 01 99 00 CE 1B 99 01 99 22 20 D4 48 45 20 45 |........." .HE E|
000013B0: 58 54 52 41 20 30 20 49 53 20 57 48 41 54 20 57 |XTRA 0 IS WHAT W|
000013C0: 41 53 20 4A 55 53 54 20 42 45 4C 4F 57 22 00 F9 |AS JUST BELOW"..|
000013D0: 1B 9A 01 99 22 20 54 48 45 20 53 54 41 43 4B 20 |...." THE STACK |
000013E0: 49 4E 20 4D 45 4D 4F 52 59 2E 20 20 20 20 20 20 |IN MEMORY. |
000013F0: 20 20 20 20 20 20 20 20 22 00 FF 1B 9B 01 99 00 | ".......|
00001400: 2A 1C 9C 01 99 22 20 C8 45 52 45 20 41 52 45 20 |*...." .ERE ARE |
00001410: 41 20 46 45 57 20 4D 4F 52 45 20 53 54 41 43 4B |A FEW MORE STACK|
00001420: 20 4D 41 4E 49 50 2D 20 20 22 00 55 1C 9D 01 99 | MANIP- ".U....|
00001430: 22 20 55 4C 41 54 49 4F 4E 20 43 4F 4D 4D 41 4E |" ULATION COMMAN|
00001440: 44 53 20 54 48 41 54 20 59 4F 55 20 53 48 4F 55 |DS THAT YOU SHOU|
00001450: 4C 44 20 20 22 00 80 1C 9E 01 99 22 20 4B 4E 4F |LD "......" KNO|
00001460: 57 20 41 42 4F 55 54 2E 20 20 20 20 20 20 20 20 |W ABOUT. |
00001470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001480: 00 AB 1C A0 01 99 22 20 D3 D7 C1 D0 20 20 2D 2D |......" .... --|
00001490: 20 D2 45 56 45 52 53 45 53 20 54 48 45 20 54 4F | .EVERSES THE TO|
000014A0: 50 20 54 57 4F 20 20 20 20 20 22 00 D6 1C A1 01 |P TWO ".....|
000014B0: 99 22 20 20 20 20 20 20 20 20 20 20 4E 55 4D 42 |." NUMB|
000014C0: 45 52 53 20 4F 4E 20 54 48 45 20 53 54 41 43 4B |ERS ON THE STACK|
000014D0: 20 20 20 20 20 22 00 01 1D A2 01 99 22 20 20 20 | "......" |
000014E0: 20 20 20 20 20 20 20 45 2E 47 2E 20 20 31 20 32 | E.G. 1 2|
000014F0: 20 D3 D7 C1 D0 20 20 20 20 20 20 20 20 20 20 A0 | .... .|
00001500: 22 00 2C 1D A4 01 99 22 20 20 20 20 20 20 20 C2 |".,...." .|
00001510: C5 C6 CF D2 C5 20 20 20 20 20 20 20 20 20 20 C1 |..... .|
00001520: C6 D4 C5 D2 20 20 20 20 20 20 20 22 00 57 1D A5 |.... ".W..|
00001530: 01 99 22 20 20 20 20 20 20 20 20 20 12 32 92 20 |.." .2. |
00001540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 31 | .1|
00001550: 92 20 20 20 20 20 22 00 82 1D A6 01 99 22 20 20 |. "......" |
00001560: 20 20 20 20 20 20 20 12 31 92 20 20 20 20 20 20 | .1. |
00001570: 20 20 20 20 20 20 20 20 20 12 32 92 20 20 20 20 | .2. |
00001580: 20 22 00 8A 1D A7 01 99 3A 99 00 94 1D A8 01 89 | "......:.......|
00001590: 32 35 30 30 00 B2 1D C1 01 8F 2D 2D 2D 2D 2D 2D |2500......------|
000015A0: 2D 2D 2D 2D 50 41 47 45 20 39 2D 2D 2D 2D 2D 2D |----PAGE 9------|
000015B0: 2D 2D 00 DB 1D C2 01 3A 99 22 93 22 A3 31 37 29 |--.....:.".".17)|
000015C0: 22 12 46 4F 52 54 48 92 20 20 20 20 20 20 20 20 |".FORTH. |
000015D0: 20 20 20 20 20 20 20 20 20 39 22 00 E1 1D C3 01 | 9".....|
000015E0: 99 00 0D 1E C4 01 99 22 20 C4 D5 D0 20 20 20 2D |......." ... -|
000015F0: 2D 20 CD 41 4B 45 53 20 41 20 43 4F 50 59 20 4F |- .AKES A COPY O|
00001600: 46 20 54 48 45 20 4E 55 4D 42 45 52 22 00 3A 1E |F THE NUMBER".:.|
00001610: C5 01 99 22 20 20 20 20 20 20 20 20 20 20 4F 4E |..." ON|
00001620: 20 54 48 45 20 54 4F 50 20 4F 46 20 54 48 45 20 | THE TOP OF THE |
00001630: 53 54 41 43 4B 20 41 4E 44 22 00 67 1E C6 01 99 |STACK AND".g....|
00001640: 22 20 20 20 20 20 20 20 20 20 20 50 55 54 53 20 |" PUTS |
00001650: 49 54 20 4F 4E 20 54 48 45 20 53 54 41 43 4B 2E |IT ON THE STACK.|
00001660: 20 20 20 20 20 20 22 00 92 1E C7 01 99 22 20 20 | "......" |
00001670: 20 20 20 20 20 20 20 20 45 2E 47 2E 20 20 20 32 | E.G. 2|
00001680: 20 C4 D5 D0 20 12 52 45 54 55 52 4E 92 20 20 20 | ... .RETURN. |
00001690: 20 22 00 98 1E C8 01 99 00 C5 1E C9 01 99 22 20 | "............" |
000016A0: 20 20 20 20 20 20 C2 C5 C6 CF D2 C5 20 20 20 20 | ...... |
000016B0: 20 20 20 20 20 20 20 20 20 20 C1 C6 D4 C5 D2 20 | ..... |
000016C0: 20 20 20 20 22 00 CB 1E CA 01 99 00 F8 1E CB 01 | "...........|
000016D0: 99 22 20 20 20 20 20 20 20 20 20 12 32 92 20 20 |." .2. |
000016E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000016F0: 12 32 92 20 20 20 20 22 00 25 1F CC 01 99 22 20 |.2. ".%...." |
00001700: 20 20 20 20 20 12 31 31 32 34 92 20 20 20 20 20 | .1124. |
00001710: 20 20 20 20 20 20 20 20 20 20 20 20 20 12 32 92 | .2.|
00001720: 20 20 20 20 22 00 52 1F CD 01 99 22 20 20 20 20 | ".R...." |
00001730: 20 20 20 20 20 12 30 92 20 20 20 20 20 20 20 20 | .0. |
00001740: 20 20 20 20 20 20 20 12 31 31 32 34 92 20 20 20 | .1124. |
00001750: 20 22 00 7F 1F CE 01 99 22 20 20 20 20 20 20 20 | "......" |
00001760: 20 12 2D 31 92 20 20 20 20 20 20 20 20 20 20 20 | .-1. |
00001770: 20 20 20 20 20 20 20 12 30 92 20 20 20 20 22 00 | .0. ".|
00001780: AC 1F CF 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00001790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000017A0: 20 12 2D 31 92 20 20 20 20 20 20 22 00 B2 1F D0 | .-1. "....|
000017B0: 01 99 00 DF 1F D1 01 99 22 20 D4 48 49 53 20 49 |........" .HIS I|
000017C0: 53 20 55 53 45 46 55 4C 20 57 48 45 4E 20 59 4F |S USEFUL WHEN YO|
000017D0: 55 20 57 41 4E 54 20 54 4F 20 53 45 45 20 22 00 |U WANT TO SEE ".|
000017E0: 0C 20 D2 01 99 22 20 57 48 41 54 27 53 20 4F 4E |. ..." WHAT'S ON|
000017F0: 20 54 4F 50 20 4F 46 20 54 48 45 20 53 54 41 43 | TOP OF THE STAC|
00001800: 4B 20 57 48 49 4C 45 20 20 20 20 22 00 39 20 D3 |K WHILE ".9 .|
00001810: 01 99 22 20 4B 45 45 50 49 4E 47 20 41 20 43 4F |.." KEEPING A CO|
00001820: 50 59 20 4F 46 20 54 48 45 20 4E 55 4D 42 45 52 |PY OF THE NUMBER|
00001830: 20 41 52 4F 55 4E 44 2E 22 00 44 20 D4 01 99 22 | AROUND.".D ..."|
00001840: 20 45 58 2E 00 71 20 D5 01 99 22 20 20 20 20 20 | EX..q ..." |
00001850: 20 20 20 20 C4 D5 D0 20 2E 20 20 20 12 52 45 54 | ... . .RET|
00001860: 55 52 4E 92 20 20 20 20 20 20 20 20 20 20 20 20 |URN. |
00001870: 22 00 77 20 D6 01 99 00 A4 20 D7 01 99 22 20 28 |".w ..... ..." (|
00001880: D2 45 4D 45 4D 42 45 52 20 20 2E 20 20 52 45 4D |.EMEMBER . REM|
00001890: 4F 56 45 53 20 54 48 45 20 4E 55 4D 42 45 52 29 |OVES THE NUMBER)|
000018A0: 20 20 20 22 00 AA 20 D8 01 99 00 B4 20 D9 01 89 | ".. ..... ...|
000018B0: 32 35 30 30 00 D3 20 F3 01 8F 2D 2D 2D 2D 2D 2D |2500.. ...------|
000018C0: 2D 2D 2D 2D 50 41 47 45 20 31 30 2D 2D 2D 2D 2D |----PAGE 10-----|
000018D0: 2D 2D 2D 00 FC 20 F4 01 3A 99 22 93 22 A3 31 37 |---.. ..:.".".17|
000018E0: 29 22 12 46 4F 52 54 48 92 20 20 20 20 20 20 20 |)".FORTH. |
000018F0: 20 20 20 20 20 20 20 20 20 31 30 22 00 02 21 F5 | 10"..!.|
00001900: 01 99 00 2E 21 F6 01 99 22 20 20 CF D6 C5 D2 20 |....!..." .... |
00001910: 2D 2D 20 CD 41 4B 45 53 20 41 20 43 4F 50 59 20 |-- .AKES A COPY |
00001920: 4F 46 20 54 48 45 20 53 45 43 4F 4E 44 22 00 5A |OF THE SECOND".Z|
00001930: 21 F7 01 99 22 20 20 20 20 20 20 20 20 20 20 4E |!..." N|
00001940: 55 4D 42 45 52 20 41 4E 44 20 50 55 54 53 20 49 |UMBER AND PUTS I|
00001950: 54 20 4F 4E 20 54 4F 50 2E 22 00 86 21 F8 01 99 |T ON TOP."..!...|
00001960: 22 20 20 45 58 41 4D 50 4C 45 20 20 20 20 20 20 |" EXAMPLE |
00001970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001980: 20 20 20 20 20 22 00 8C 21 F9 01 99 00 B7 21 FA | "..!.....!.|
00001990: 01 99 22 20 20 20 20 31 30 30 20 20 32 30 30 20 |.." 100 200 |
000019A0: 20 CF D6 C5 D2 20 12 52 45 54 55 52 4E 92 20 20 | .... .RETURN. |
000019B0: 20 20 20 20 20 20 22 00 BD 21 FB 01 99 00 E9 21 | "..!.....!|
000019C0: FC 01 99 22 20 20 20 20 20 C2 C5 C6 CF D2 C5 20 |..." ...... |
000019D0: 20 20 20 20 20 20 20 20 C1 C6 D4 C5 D2 20 20 20 | ..... |
000019E0: 20 20 20 20 20 20 20 20 22 00 EF 21 FD 01 99 00 | "..!....|
000019F0: 1B 22 FE 01 99 22 20 20 20 20 20 20 20 12 32 30 |."..." .20|
00001A00: 30 92 20 20 20 20 20 20 20 20 20 20 20 12 31 30 |0. .10|
00001A10: 30 92 20 20 20 20 20 20 20 20 22 00 47 22 FF 01 |0. ".G"..|
00001A20: 99 22 20 20 20 20 20 20 20 12 31 30 30 92 20 20 |." .100. |
00001A30: 20 20 20 20 20 20 20 20 20 12 32 30 30 92 20 20 | .200. |
00001A40: 20 20 20 20 20 20 22 00 73 22 00 02 99 22 20 20 | ".s"..." |
00001A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A60: 20 20 20 12 31 30 30 92 20 20 20 20 20 20 20 20 | .100. |
00001A70: 20 20 22 00 79 22 01 02 99 00 A7 22 02 02 99 22 | ".y"....."..."|
00001A80: 20 20 C4 D2 CF D0 20 2D 2D 20 20 D2 45 4D 4F 56 | .... -- .EMOV|
00001A90: 45 53 20 54 48 45 20 54 4F 50 20 4E 55 4D 42 45 |ES THE TOP NUMBE|
00001AA0: 52 20 46 52 4F 4D 22 00 D5 22 03 02 99 22 20 20 |R FROM".."..." |
00001AB0: 20 20 20 20 20 20 20 20 20 54 48 45 20 53 54 41 | THE STA|
00001AC0: 43 4B 28 42 55 54 20 44 4F 45 53 4E 27 54 20 50 |CK(BUT DOESN'T P|
00001AD0: 52 49 4E 54 22 00 02 23 04 02 99 22 20 20 20 20 |RINT"..#..." |
00001AE0: 20 20 20 20 20 20 20 49 54 20 4F 55 54 2E 29 20 | IT OUT.) |
00001AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B00: 20 22 00 08 23 05 02 99 00 36 23 06 02 99 22 20 | "..#....6#..." |
00001B10: 20 D2 CF D4 20 2D 2D 20 20 20 D2 4F 54 41 54 45 | ... -- .OTATE|
00001B20: 53 20 54 48 45 20 54 48 49 52 44 20 4E 55 4D 42 |S THE THIRD NUMB|
00001B30: 45 52 20 20 20 22 00 64 23 07 02 99 22 20 20 20 |ER ".d#..." |
00001B40: 20 20 20 20 20 20 20 20 54 4F 20 54 48 45 20 54 | TO THE T|
00001B50: 4F 50 20 4F 46 20 54 48 45 20 53 54 41 43 4B 2E |OP OF THE STACK.|
00001B60: 20 20 20 22 00 92 23 08 02 99 22 20 20 20 20 20 | "..#..." |
00001B70: 20 20 20 20 20 20 45 58 41 4D 50 4C 45 20 2D 2D | EXAMPLE --|
00001B80: 20 4E 45 58 54 20 50 41 47 45 20 20 20 20 20 20 | NEXT PAGE |
00001B90: 20 22 00 9A 23 09 02 99 3A 99 00 A4 23 0A 02 89 | "..#...:...#...|
00001BA0: 32 35 30 30 00 C3 23 25 02 8F 2D 2D 2D 2D 2D 2D |2500..#%..------|
00001BB0: 2D 2D 2D 2D 50 41 47 45 20 31 31 2D 2D 2D 2D 2D |----PAGE 11-----|
00001BC0: 2D 2D 2D 00 EC 23 26 02 3A 99 22 93 22 A3 31 37 |---..#&.:.".".17|
00001BD0: 29 22 12 46 4F 52 54 48 92 20 20 20 20 20 20 20 |)".FORTH. |
00001BE0: 20 20 20 20 20 20 20 20 20 31 31 22 00 F2 23 27 | 11"..#'|
00001BF0: 02 99 00 1E 24 28 02 99 22 20 C5 58 41 4D 50 4C |....$(.." .XAMPL|
00001C00: 45 20 20 20 20 20 D2 CF D4 A0 A0 D2 CF D4 20 20 |E ........ |
00001C10: 20 12 52 45 54 55 52 4E 92 20 20 20 20 22 00 24 | .RETURN. ".$|
00001C20: 24 29 02 99 00 50 24 2A 02 99 22 20 20 20 C2 C5 |$)...P$*.." ..|
00001C30: C6 CF D2 C5 20 20 20 20 20 20 20 C1 C6 D4 C5 D2 |.... .....|
00001C40: 20 20 20 20 20 20 C1 C6 D4 C5 D2 20 20 20 20 22 | ..... "|
00001C50: 00 7C 24 2B 02 99 22 20 20 20 20 20 20 20 20 20 |.|$+.." |
00001C60: 20 20 20 20 20 20 31 53 54 20 D2 CF D4 20 20 20 | 1ST ... |
00001C70: 20 32 4E 44 20 D2 CF D4 20 20 20 22 00 82 24 2C | 2ND ... "..$,|
00001C80: 02 99 00 AE 24 2D 02 99 22 20 20 20 20 20 12 32 |....$-.." .2|
00001C90: 92 20 20 20 20 20 20 20 20 20 20 20 20 12 38 92 |. .8.|
00001CA0: 20 20 20 20 20 20 20 20 20 20 12 34 92 22 00 DA | .4."..|
00001CB0: 24 2E 02 99 22 20 20 20 20 20 12 34 92 20 20 20 |$..." .4. |
00001CC0: 20 20 20 20 20 20 20 20 20 12 32 92 20 20 20 20 | .2. |
00001CD0: 20 20 20 20 20 20 12 38 92 22 00 06 25 2F 02 99 | .8."..%/..|
00001CE0: 22 20 20 20 20 20 12 38 92 20 20 20 20 20 20 20 |" .8. |
00001CF0: 20 20 20 20 20 12 34 92 20 20 20 20 20 20 20 20 | .4. |
00001D00: 20 20 12 32 92 22 00 0C 25 30 02 99 00 39 25 31 | .2."..%0...9%1|
00001D10: 02 99 22 20 D7 48 41 54 20 57 4F 55 4C 44 20 54 |.." .HAT WOULD T|
00001D20: 48 45 20 53 54 41 43 4B 20 4C 4F 4F 4B 20 4C 49 |HE STACK LOOK LI|
00001D30: 4B 45 20 41 46 54 45 52 22 00 66 25 32 02 99 22 |KE AFTER".f%2.."|
00001D40: 20 4F 4E 45 20 4D 4F 52 45 20 D2 CF D4 20 3F 20 | ONE MORE ... ? |
00001D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D60: 20 20 20 20 20 22 00 6C 25 33 02 99 00 98 25 34 | ".l%3....%4|
00001D70: 02 99 22 20 20 20 D4 48 45 20 55 53 45 46 55 4C |.." .HE USEFUL|
00001D80: 4E 45 53 53 20 4F 46 20 54 48 45 53 45 20 20 53 |NESS OF THESE S|
00001D90: 54 41 43 4B 20 20 20 22 00 C5 25 35 02 99 22 20 |TACK "..%5.." |
00001DA0: 4D 41 4E 49 50 55 4C 41 54 49 4F 4E 20 4F 50 45 |MANIPULATION OPE|
00001DB0: 52 41 54 4F 52 53 20 57 49 4C 4C 20 42 45 43 4F |RATORS WILL BECO|
00001DC0: 4D 45 20 20 22 00 F2 25 36 02 99 22 20 4F 42 56 |ME "..%6.." OBV|
00001DD0: 49 4F 55 53 20 20 57 48 45 4E 20 57 45 20 54 52 |IOUS WHEN WE TR|
00001DE0: 59 20 20 54 4F 20 20 20 45 56 41 4C 55 41 54 45 |Y TO EVALUATE|
00001DF0: 20 22 00 1F 26 37 02 99 22 20 41 52 49 54 48 4D | "..&7.." ARITHM|
00001E00: 45 54 49 43 20 20 45 58 50 52 45 53 53 49 4F 4E |ETIC EXPRESSION|
00001E10: 53 2E 20 20 20 20 20 20 20 20 20 20 20 20 22 00 |S. ".|
00001E20: 25 26 38 02 99 00 52 26 39 02 99 22 20 20 20 CE |%&8...R&9.." .|
00001E30: 4F 57 20 49 54 27 53 20 54 49 4D 45 20 46 4F 52 |OW IT'S TIME FOR|
00001E40: 20 59 4F 55 20 54 4F 20 54 52 59 20 59 4F 55 52 | YOU TO TRY YOUR|
00001E50: 20 22 00 7F 26 3A 02 99 22 20 48 41 4E 44 20 20 | "..&:.." HAND |
00001E60: 41 54 20 53 4F 4D 45 20 45 58 41 4D 50 4C 45 53 |AT SOME EXAMPLES|
00001E70: 2E 20 20 D0 4C 45 41 53 45 20 54 55 52 4E 22 00 |. .LEASE TURN".|
00001E80: AC 26 3B 02 99 22 20 54 4F 20 54 48 45 20 4E 45 |.&;.." TO THE NE|
00001E90: 58 54 20 50 41 47 45 20 2D 2D 2D 20 20 20 20 20 |XT PAGE --- |
00001EA0: 20 20 20 20 20 20 20 20 20 20 20 22 00 B2 26 3C | "..&<|
00001EB0: 02 99 00 BC 26 3D 02 89 32 35 30 30 00 D0 26 45 |....&=..2500..&E|
00001EC0: 02 8B 41 24 B2 22 5E 22 A7 50 47 B2 50 47 AB 31 |..A$."^".PG.PG.1|
00001ED0: 00 EF 26 57 02 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..&W..----------|
00001EE0: 50 41 47 45 20 31 32 2D 2D 2D 2D 2D 2D 2D 2D 00 |PAGE 12--------.|
00001EF0: 18 27 58 02 3A 99 22 93 22 A3 31 37 29 22 12 46 |.'X.:.".".17)".F|
00001F00: 4F 52 54 48 92 20 20 20 20 20 20 20 20 20 20 20 |ORTH. |
00001F10: 20 20 20 20 20 31 32 22 00 1E 27 59 02 99 00 4A | 12"..'Y...J|
00001F20: 27 5A 02 99 22 20 20 20 D3 55 50 50 4F 53 45 20 |'Z.." .UPPOSE |
00001F30: 54 48 45 20 43 4F 4E 54 45 4E 54 53 20 4F 46 20 |THE CONTENTS OF |
00001F40: 54 48 45 20 53 54 41 43 4B 22 00 76 27 5B 02 99 |THE STACK".v'[..|
00001F50: 22 20 57 45 52 45 2C 20 20 20 20 20 20 20 20 20 |" WERE, |
00001F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F70: 20 20 20 20 20 22 00 7C 27 5C 02 99 00 A8 27 5D | ".|'\....']|
00001F80: 02 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00001F90: 20 20 20 20 12 32 92 20 20 20 20 20 20 20 20 20 | .2. |
00001FA0: 20 20 20 20 20 20 20 22 00 D4 27 5E 02 99 22 20 | "..'^.." |
00001FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FC0: 12 34 92 20 20 20 20 20 20 20 20 20 20 20 20 20 |.4. |
00001FD0: 20 20 20 22 00 00 28 5F 02 99 22 20 20 20 20 20 | "..(_.." |
00001FE0: 20 20 20 20 20 20 20 20 20 20 20 20 12 38 92 20 | .8. |
00001FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00002000: 00 06 28 60 02 99 00 32 28 61 02 99 22 20 D7 48 |..(`...2(a.." .H|
00002010: 41 54 20 4E 55 4D 42 45 52 20 57 4F 55 4C 44 20 |AT NUMBER WOULD |
00002020: 41 50 50 45 41 52 20 4F 4E 20 54 48 45 20 54 4F |APPEAR ON THE TO|
00002030: 50 22 00 5A 28 62 02 99 22 20 4F 46 20 54 48 45 |P".Z(b.." OF THE|
00002040: 20 53 54 41 43 4B 20 41 46 54 45 52 20 54 48 45 | STACK AFTER THE|
00002050: 20 46 4F 4C 4C 4F 57 49 4E 47 00 84 28 63 02 99 | FOLLOWING..(c..|
00002060: 22 20 43 4F 4D 4D 41 4E 44 53 20 28 20 59 4F 55 |" COMMANDS ( YOU|
00002070: 20 47 45 54 20 33 20 43 48 41 4E 43 45 53 2E 29 | GET 3 CHANCES.)|
00002080: 20 20 A0 22 00 8A 28 64 02 99 00 B6 28 65 02 99 | ."..(d....(e..|
00002090: 22 20 20 20 20 20 20 20 C4 D2 CF D0 20 C4 D2 CF |" .... ...|
000020A0: D0 20 20 20 12 52 45 54 55 52 4E 92 20 20 20 20 |. .RETURN. |
000020B0: 20 20 20 20 20 22 00 BC 28 66 02 99 00 CD 28 67 | "..(f....(g|
000020C0: 02 42 24 B2 22 38 22 3A 8D 32 30 30 30 00 F9 28 |.B$."8":.2000..(|
000020D0: 6F 02 99 22 20 20 20 20 20 20 20 CF D6 C5 D2 A0 |o.." .....|
000020E0: C4 D2 CF D0 20 20 20 12 52 45 54 55 52 4E 92 20 |.... .RETURN. |
000020F0: 20 20 20 20 20 20 20 20 22 00 FF 28 70 02 99 00 | "..(p...|
00002100: 10 29 71 02 42 24 B2 22 32 22 3A 8D 32 30 30 30 |.)q.B$."2":.2000|
00002110: 00 3C 29 72 02 99 22 20 20 20 20 20 20 20 D3 D7 |.<)r.." ..|
00002120: C1 D0 20 D2 CF D4 20 D3 D7 C1 D0 20 20 12 52 45 |.. ... .... .RE|
00002130: 54 55 52 4E 92 20 20 20 20 20 20 22 00 42 29 73 |TURN. ".B)s|
00002140: 02 99 00 53 29 74 02 42 24 B2 22 34 22 3A 8D 32 |...S)t.B$."4":.2|
00002150: 30 30 30 00 7F 29 75 02 99 22 20 20 20 20 20 20 |000..)u.." |
00002160: 20 C4 D5 D0 A0 D3 D7 C1 D0 A0 C4 D2 CF D0 20 20 | ............. |
00002170: 20 12 52 45 54 55 52 4E 92 20 20 20 20 20 22 00 | .RETURN. ".|
00002180: 85 29 76 02 99 00 96 29 77 02 42 24 B2 22 32 22 |.)v....)w.B$."2"|
00002190: 3A 8D 32 30 30 30 00 9E 29 80 02 99 3A 99 00 CB |:.2000..)...:...|
000021A0: 29 81 02 99 22 20 20 20 C9 46 20 59 4F 55 20 48 |)..." .F YOU H|
000021B0: 41 44 20 41 4E 59 20 44 49 46 46 49 43 55 4C 54 |AD ANY DIFFICULT|
000021C0: 59 20 57 49 54 48 20 54 48 45 22 00 F8 29 82 02 |Y WITH THE"..)..|
000021D0: 99 22 20 51 55 45 53 54 49 4F 4E 53 20 54 48 45 |." QUESTIONS THE|
000021E0: 4E 20 59 4F 55 20 53 48 4F 55 4C 44 20 52 45 56 |N YOU SHOULD REV|
000021F0: 49 45 57 20 54 48 45 22 00 25 2A 83 02 99 22 20 |IEW THE".%*..." |
00002200: 50 52 45 56 49 4F 55 53 20 4D 41 54 45 52 49 41 |PREVIOUS MATERIA|
00002210: 4C 20 42 45 46 4F 52 45 20 47 4F 49 4E 47 20 4F |L BEFORE GOING O|
00002220: 4E 2E 20 20 22 00 31 2A 84 02 99 22 11 11 11 11 |N. ".1*..."....|
00002230: 22 00 3B 2A 85 02 89 32 35 30 30 00 5A 2A 89 02 |".;*...2500.Z*..|
00002240: 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 50 41 47 45 20 |.----------PAGE |
00002250: 31 33 2D 2D 2D 2D 2D 2D 2D 2D 00 83 2A 8A 02 3A |13--------..*..:|
00002260: 99 22 93 22 A3 31 37 29 22 12 46 4F 52 54 48 92 |.".".17)".FORTH.|
00002270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002280: 31 33 22 00 89 2A 8B 02 99 00 B5 2A 8C 02 99 22 |13"..*.....*..."|
00002290: 20 20 20 CE 4F 57 20 49 54 27 53 20 54 49 4D 45 | .OW IT'S TIME|
000022A0: 20 54 4F 20 4C 4F 4F 4B 20 41 54 20 48 4F 57 20 | TO LOOK AT HOW |
000022B0: 4F 4E 45 20 22 00 E1 2A 8D 02 99 22 20 44 4F 45 |ONE "..*..." DOE|
000022C0: 53 20 41 52 49 54 48 4D 45 54 49 43 20 57 49 54 |S ARITHMETIC WIT|
000022D0: 48 20 C6 CF D2 D4 C8 2E A0 20 20 20 20 20 20 20 |H ....... |
000022E0: 22 00 E7 2A 8E 02 99 00 13 2B 8F 02 99 22 20 20 |"..*.....+..." |
000022F0: 20 C8 45 52 45 27 53 20 41 20 4C 49 53 54 20 4F | .ERE'S A LIST O|
00002300: 46 20 54 48 45 20 46 4F 55 52 20 42 41 53 49 43 |F THE FOUR BASIC|
00002310: 20 20 22 00 3F 2B 90 02 99 22 20 41 52 49 54 48 | ".?+..." ARITH|
00002320: 4D 45 54 49 43 20 4F 50 45 52 41 54 4F 52 53 2E |METIC OPERATORS.|
00002330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00002340: 47 2B 91 02 99 3A 99 00 73 2B 92 02 99 22 20 20 |G+...:..s+..." |
00002350: 20 20 2B 20 20 20 20 20 20 20 20 20 C1 44 44 53 | + .DDS|
00002360: 20 54 48 45 20 54 4F 50 20 54 57 4F 20 20 20 20 | THE TOP TWO |
00002370: 20 20 22 00 9F 2B 93 02 99 22 20 20 20 20 20 20 | "..+..." |
00002380: 20 20 20 20 20 20 20 20 4E 55 4D 42 45 52 53 20 | NUMBERS |
00002390: 41 4E 44 20 50 4C 41 43 45 53 20 54 48 45 22 00 |AND PLACES THE".|
000023A0: CB 2B 94 02 99 22 20 20 20 20 20 20 20 20 20 20 |.+..." |
000023B0: 20 20 20 20 52 45 53 55 4C 54 20 4F 4E 20 54 48 | RESULT ON TH|
000023C0: 45 20 53 54 41 43 4B 2E 20 20 22 00 D1 2B 95 02 |E STACK. "..+..|
000023D0: 99 00 FF 2B 96 02 99 22 20 20 20 20 2D 20 20 20 |...+..." - |
000023E0: 20 20 20 20 20 20 D3 55 42 54 52 41 43 54 53 20 | .UBTRACTS |
000023F0: 54 48 45 20 54 4F 50 20 4E 55 4D 42 45 52 22 00 |THE TOP NUMBER".|
00002400: 2C 2C 97 02 99 22 20 20 20 20 20 20 20 20 20 20 |,,..." |
00002410: 20 20 20 20 4E 55 4D 42 45 52 20 46 52 4F 4D 20 | NUMBER FROM |
00002420: 54 48 45 20 53 45 43 4F 4E 44 2E 22 00 58 2C 98 |THE SECOND.".X,.|
00002430: 02 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00002440: 20 D0 55 54 53 20 54 48 45 20 52 45 53 55 4C 54 | .UTS THE RESULT|
00002450: 20 4F 4E 20 54 48 45 22 00 84 2C 99 02 99 22 20 | ON THE"..,..." |
00002460: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 | STA|
00002470: 43 4B 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 |CK. |
00002480: 20 20 20 22 00 8A 2C 9A 02 99 00 B6 2C 9B 02 99 | "..,.....,...|
00002490: 22 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 CD |" * .|
000024A0: 55 4C 54 49 50 4C 49 45 53 20 54 48 45 20 54 4F |ULTIPLIES THE TO|
000024B0: 50 20 54 57 4F 22 00 E2 2C 9C 02 99 22 20 20 20 |P TWO"..,..." |
000024C0: 20 20 20 20 20 20 20 20 20 20 20 4E 55 4D 42 45 | NUMBE|
000024D0: 52 53 20 41 4E 44 20 50 4C 41 43 45 53 20 54 48 |RS AND PLACES TH|
000024E0: 45 22 00 0E 2D 9D 02 99 22 20 20 20 20 20 20 20 |E"..-..." |
000024F0: 20 20 20 20 20 20 20 52 45 53 55 4C 54 20 4F 4E | RESULT ON|
00002500: 20 54 48 45 20 53 54 41 43 4B 2E 20 20 22 00 14 | THE STACK. "..|
00002510: 2D 9E 02 99 00 1A 2D 9F 02 99 00 24 2D A0 02 89 |-.....-....$-...|
00002520: 32 35 30 30 00 43 2D BB 02 8F 2D 2D 2D 2D 2D 2D |2500.C-...------|
00002530: 2D 2D 2D 2D 50 41 47 45 20 31 34 2D 2D 2D 2D 2D |----PAGE 14-----|
00002540: 2D 2D 2D 00 6C 2D BC 02 3A 99 22 93 22 A3 31 37 |---.l-..:.".".17|
00002550: 29 22 12 46 4F 52 54 48 92 20 20 20 20 20 20 20 |)".FORTH. |
00002560: 20 20 20 20 20 20 20 20 20 31 34 22 00 72 2D BD | 14".r-.|
00002570: 02 99 00 9E 2D BE 02 99 22 20 20 20 20 2F 20 20 |....-..." / |
00002580: 20 20 20 20 20 20 20 C4 49 56 49 44 45 53 20 54 | .IVIDES T|
00002590: 48 45 20 53 45 43 4F 4E 44 20 20 20 20 22 00 CA |HE SECOND "..|
000025A0: 2D BF 02 99 22 20 20 20 20 20 20 20 20 20 20 20 |-..." |
000025B0: 20 20 20 4E 55 4D 42 45 52 20 42 59 20 54 48 45 | NUMBER BY THE|
000025C0: 20 46 49 52 53 54 20 20 20 22 00 F6 2D C0 02 99 | FIRST "..-...|
000025D0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 |" A|
000025E0: 4E 44 20 50 4C 41 43 45 53 20 54 48 45 20 52 45 |ND PLACES THE RE|
000025F0: 53 55 4C 54 20 22 00 22 2E C1 02 99 22 20 20 20 |SULT "."...." |
00002600: 20 20 20 20 20 20 20 20 20 20 20 4F 4E 20 54 48 | ON TH|
00002610: 45 20 53 54 41 43 4B 2E 20 20 20 20 20 20 20 20 |E STACK. |
00002620: 20 22 00 28 2E C2 02 99 00 2E 2E C3 02 99 00 5A | ".(...........Z|
00002630: 2E C4 02 99 22 20 20 20 CC 45 54 27 53 20 54 41 |...." .ET'S TA|
00002640: 4B 45 20 20 2F 20 20 41 53 20 41 4E 20 45 58 41 |KE / AS AN EXA|
00002650: 4D 50 4C 45 2E 20 20 20 20 22 00 60 2E C5 02 99 |MPLE. ".`....|
00002660: 00 8C 2E C6 02 99 22 20 20 20 20 20 20 20 20 20 |......" |
00002670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002680: 20 20 20 20 20 20 20 20 20 20 20 22 00 B8 2E C7 | "....|
00002690: 02 99 22 20 20 20 20 20 20 C2 C5 C6 CF D2 C5 20 |.." ...... |
000026A0: 20 20 20 20 20 20 20 20 C1 C6 D4 C5 D2 20 20 20 | ..... |
000026B0: 20 20 20 20 20 20 20 22 00 BE 2E C8 02 99 00 E9 | "........|
000026C0: 2E C9 02 99 22 20 20 20 20 20 20 20 20 12 34 92 |...." .4.|
000026D0: 20 20 20 20 20 20 20 20 20 20 20 12 36 92 20 20 | .6. |
000026E0: 20 20 20 20 20 20 20 20 22 00 15 2F CA 02 99 22 | "../..."|
000026F0: 20 20 20 20 20 20 20 20 12 32 36 92 20 20 20 20 | .26. |
00002700: 20 20 20 20 20 20 12 31 31 92 20 20 20 20 20 20 | .11. |
00002710: 20 20 20 20 22 00 41 2F CB 02 99 22 20 20 20 20 | ".A/..." |
00002720: 20 20 20 20 12 31 31 92 20 20 20 20 20 20 20 20 | .11. |
00002730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002740: 22 00 47 2F CC 02 99 00 73 2F CD 02 99 22 20 CE |".G/....s/..." .|
00002750: 4F 54 49 43 45 20 54 48 41 54 20 54 4F 50 20 54 |OTICE THAT TOP T|
00002760: 57 4F 20 4E 55 4D 42 45 52 53 20 41 52 45 20 4E |WO NUMBERS ARE N|
00002770: 4F 20 22 00 9F 2F CE 02 99 22 20 4C 4F 4E 47 45 |O "../..." LONGE|
00002780: 52 20 50 52 45 53 45 4E 54 20 4F 4E 20 54 48 45 |R PRESENT ON THE|
00002790: 20 53 54 41 43 4B 2E 20 D4 48 49 53 20 20 22 00 | STACK. .HIS ".|
000027A0: CB 2F CF 02 99 22 20 49 53 20 54 52 55 45 20 46 |./..." IS TRUE F|
000027B0: 4F 52 20 41 4C 4C 20 54 48 45 20 4D 41 54 48 20 |OR ALL THE MATH |
000027C0: 4F 50 45 52 41 54 4F 52 53 2E 22 00 F7 2F D0 02 |OPERATORS."../..|
000027D0: 99 22 20 C1 4C 53 4F 20 4E 4F 54 45 20 54 48 41 |." .LSO NOTE THA|
000027E0: 54 20 57 45 20 47 45 54 20 41 4E 20 49 4E 54 45 |T WE GET AN INTE|
000027F0: 47 45 52 20 20 20 22 00 25 30 D1 02 99 22 20 52 |GER ".%0..." R|
00002800: 45 53 55 4C 54 20 28 52 41 54 48 45 52 20 54 48 |ESULT (RATHER TH|
00002810: 41 4E 20 36 2E 35 20 2E 29 20 20 20 20 20 20 20 |AN 6.5 .) |
00002820: 20 20 20 20 22 00 2B 30 D2 02 99 00 35 30 D3 02 | ".+0....50..|
00002830: 89 32 35 30 30 00 54 30 ED 02 8F 2D 2D 2D 2D 2D |.2500.T0...-----|
00002840: 2D 2D 2D 2D 2D 50 41 47 45 20 31 35 2D 2D 2D 2D |-----PAGE 15----|
00002850: 2D 2D 2D 2D 00 7D 30 EE 02 3A 99 22 93 22 A3 31 |----.}0..:.".".1|
00002860: 37 29 22 12 46 4F 52 54 48 92 20 20 20 20 20 20 |7)".FORTH. |
00002870: 20 20 20 20 20 20 20 20 20 20 31 35 22 00 83 30 | 15"..0|
00002880: EF 02 99 00 B0 30 F0 02 99 22 20 D3 4F 4D 45 54 |.....0..." .OMET|
00002890: 49 4D 45 53 20 49 54 27 53 20 49 4D 50 4F 52 54 |IMES IT'S IMPORT|
000028A0: 41 4E 54 20 54 4F 20 4B 4E 4F 57 20 54 48 45 22 |ANT TO KNOW THE"|
000028B0: 00 DD 30 F1 02 99 22 20 52 45 4D 41 49 4E 44 45 |..0..." REMAINDE|
000028C0: 52 20 20 4F 46 20 41 20 44 49 56 49 53 49 4F 4E |R OF A DIVISION|
000028D0: 2E 20 20 C6 CF D2 D4 C8 20 20 20 20 22 00 0A 31 |. ..... "..1|
000028E0: F2 02 99 22 20 50 52 4F 56 49 44 45 53 20 54 57 |..." PROVIDES TW|
000028F0: 4F 20 20 41 44 44 49 54 49 4F 4E 41 4C 20 20 44 |O ADDITIONAL D|
00002900: 49 56 49 53 49 4F 4E 20 20 22 00 37 31 F3 02 99 |IVISION ".71...|
00002910: 22 20 4F 50 45 52 41 54 4F 52 53 2C 20 20 20 20 |" OPERATORS, |
00002920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002930: 20 20 20 20 20 20 22 00 3D 31 F4 02 99 00 69 31 | ".=1....i1|
00002940: F5 02 99 22 20 2F CD CF C4 20 20 20 20 20 20 20 |..." /... |
00002950: 20 C4 49 56 49 44 45 53 20 54 48 45 20 32 4E 44 | .IVIDES THE 2ND|
00002960: 20 4E 55 4D 42 45 52 20 22 00 94 31 F6 02 99 22 | NUMBER "..1..."|
00002970: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 59 20 | BY |
00002980: 54 48 45 20 46 49 52 53 54 2E 20 D2 45 54 55 52 |THE FIRST. .ETUR|
00002990: 4E 53 20 22 00 C0 31 F7 02 99 22 20 20 20 20 20 |NS "..1..." |
000029A0: 20 20 20 20 20 20 20 20 54 48 45 20 51 55 4F 54 | THE QUOT|
000029B0: 49 45 4E 54 20 41 4E 44 20 52 45 4D 2D 20 20 22 |IENT AND REM- "|
000029C0: 00 EC 31 F8 02 99 22 20 20 20 20 20 20 20 20 20 |..1..." |
000029D0: 20 20 20 20 41 49 4E 44 45 52 20 54 4F 20 54 48 | AINDER TO TH|
000029E0: 45 20 53 54 41 43 4B 2E 20 20 20 22 00 F2 31 F9 |E STACK. "..1.|
000029F0: 02 99 00 1E 32 FA 02 99 22 20 CD CF C4 20 20 20 |....2..." ... |
00002A00: 20 20 20 20 20 20 D2 45 54 55 52 4E 53 20 54 48 | .ETURNS TH|
00002A10: 45 20 52 45 4D 41 49 4E 44 45 52 20 20 22 00 4A |E REMAINDER ".J|
00002A20: 32 05 03 99 22 20 20 20 20 20 20 20 20 20 20 20 |2..." |
00002A30: 20 20 4F 4E 4C 59 20 41 46 54 45 52 20 44 49 56 | ONLY AFTER DIV|
00002A40: 49 53 49 4F 4E 2E 20 20 20 22 00 50 32 06 03 99 |ISION. ".P2...|
00002A50: 00 7B 32 07 03 99 22 20 C5 58 41 4D 50 4C 45 20 |.{2..." .XAMPLE |
00002A60: 20 20 20 39 39 20 31 32 20 2F CD CF C4 20 12 52 | 99 12 /... .R|
00002A70: 45 54 55 52 4E 92 20 20 20 20 22 00 81 32 08 03 |ETURN. "..2..|
00002A80: 99 00 B0 32 09 03 99 22 20 20 20 20 20 C2 C5 C6 |...2..." ...|
00002A90: CF D2 C5 20 20 20 20 20 20 20 20 20 20 20 20 C1 |... .|
00002AA0: C6 D4 C5 D2 20 20 20 20 20 20 20 20 20 20 20 22 |.... "|
00002AB0: 00 B6 32 0A 03 99 00 E5 32 0B 03 99 22 20 20 20 |..2.....2..." |
00002AC0: 20 20 20 20 12 31 32 92 20 20 20 20 20 20 20 20 | .12. |
00002AD0: 20 20 20 20 20 20 20 12 38 92 20 3C 2D 2D 51 55 | .8. <--QU|
00002AE0: 4F 54 2E 20 22 00 14 33 0C 03 99 22 20 20 20 20 |OT. "..3..." |
00002AF0: 20 20 20 12 39 39 92 20 20 20 20 20 20 20 20 20 | .99. |
00002B00: 20 20 20 20 20 20 12 33 92 20 3C 2D 2D 20 52 45 | .3. <-- RE|
00002B10: 4D 2E 20 22 00 1C 33 0D 03 99 3A 99 00 26 33 0E |M. "..3...:..&3.|
00002B20: 03 89 32 35 30 30 00 45 33 1F 03 8F 2D 2D 2D 2D |..2500.E3...----|
00002B30: 2D 2D 2D 2D 2D 2D 50 41 47 45 20 31 36 2D 2D 2D |------PAGE 16---|
00002B40: 2D 2D 2D 2D 2D 00 6E 33 20 03 3A 99 22 93 22 A3 |-----.n3 .:.".".|
00002B50: 31 37 29 22 12 46 4F 52 54 48 92 20 20 20 20 20 |17)".FORTH. |
00002B60: 20 20 20 20 20 20 20 20 20 20 20 31 36 22 00 74 | 16".t|
00002B70: 33 21 03 99 00 A1 33 22 03 99 22 20 20 C1 4E 20 |3!....3".." .N |
00002B80: 45 58 41 4D 50 4C 45 20 57 49 4C 4C 20 53 45 52 |EXAMPLE WILL SER|
00002B90: 56 45 20 54 4F 20 50 4F 49 4E 54 20 4F 55 54 20 |VE TO POINT OUT |
00002BA0: 22 00 CD 33 23 03 99 22 20 4F 4E 45 20 4F 46 20 |"..3#.." ONE OF |
00002BB0: 54 48 45 20 46 55 4E 44 45 4D 45 4E 54 41 4C 20 |THE FUNDEMENTAL |
00002BC0: 44 49 46 46 45 52 45 4E 43 45 53 20 22 00 F9 33 |DIFFERENCES "..3|
00002BD0: 24 03 99 22 20 42 45 54 57 45 45 4E 20 C6 CF D2 |$.." BETWEEN ...|
00002BE0: D4 C8 20 41 4E 44 20 4F 54 48 45 52 20 20 4C 41 |.. AND OTHER LA|
00002BF0: 4E 47 55 41 47 45 53 20 22 00 27 34 25 03 99 22 |NGUAGES ".'4%.."|
00002C00: 20 53 55 43 48 20 41 53 20 C2 C1 D3 C9 C3 2E 20 | SUCH AS ...... |
00002C10: C9 4E 20 C2 C1 D3 C9 C3 20 57 45 20 4D 49 47 48 |.N ..... WE MIGH|
00002C20: 54 20 48 41 56 45 22 00 50 34 26 03 99 22 20 53 |T HAVE".P4&.." S|
00002C30: 4F 4D 45 54 48 49 4E 47 20 4C 49 4B 45 20 54 48 |OMETHING LIKE TH|
00002C40: 49 53 2C 20 20 20 20 20 20 20 20 20 20 20 20 22 |IS, "|
00002C50: 00 56 34 27 03 99 00 82 34 28 03 99 22 20 20 20 |.V4'....4(.." |
00002C60: 20 41 20 3D 20 31 20 2B 20 31 20 20 20 20 20 20 | A = 1 + 1 |
00002C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C80: 20 22 00 88 34 29 03 99 00 B4 34 2A 03 99 22 20 | "..4)....4*.." |
00002C90: C8 45 52 45 20 54 48 45 20 2B 20 53 49 47 4E 20 |.ERE THE + SIGN |
00002CA0: 41 50 50 45 41 52 53 20 42 45 54 57 45 45 4E 20 |APPEARS BETWEEN |
00002CB0: 54 48 45 22 00 E1 34 2B 03 99 22 20 54 57 4F 20 |THE"..4+.." TWO |
00002CC0: 4E 55 4D 42 45 52 53 20 41 4E 44 20 54 48 45 20 |NUMBERS AND THE |
00002CD0: 52 45 53 55 4C 54 20 49 53 20 53 54 4F 52 45 44 |RESULT IS STORED|
00002CE0: 22 00 0D 35 2C 03 99 22 20 49 4E 20 41 20 56 41 |"..5,.." IN A VA|
00002CF0: 52 49 41 42 4C 45 20 53 4F 4D 45 57 48 45 52 45 |RIABLE SOMEWHERE|
00002D00: 20 49 4E 20 4D 45 4D 4F 52 59 2E 20 22 00 39 35 | IN MEMORY. ".95|
00002D10: 2D 03 99 22 20 C9 4E 20 C6 CF D2 D4 C8 20 4F 46 |-.." .N ..... OF|
00002D20: 20 43 4F 55 52 53 45 20 57 45 20 48 41 56 45 2C | COURSE WE HAVE,|
00002D30: 20 20 20 20 20 20 20 20 22 00 3F 35 2E 03 99 00 | ".?5....|
00002D40: 6B 35 2F 03 99 22 20 20 20 20 20 31 20 20 31 20 |k5/.." 1 1 |
00002D50: 20 2B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | + |
00002D60: 20 20 20 20 20 20 20 20 20 20 22 00 71 35 30 03 | ".q50.|
00002D70: 99 00 9C 35 31 03 99 22 20 D4 48 45 20 2B 20 53 |...51.." .HE + S|
00002D80: 49 47 4E 20 43 4F 4D 45 53 20 41 46 54 45 52 20 |IGN COMES AFTER |
00002D90: 54 48 45 20 4E 55 4D 42 45 52 53 22 00 CB 35 32 |THE NUMBERS"..52|
00002DA0: 03 99 22 20 41 4E 44 20 54 48 45 20 52 45 53 55 |.." AND THE RESU|
00002DB0: 4C 54 20 49 53 20 53 54 4F 52 45 44 20 4F 4E 20 |LT IS STORED ON |
00002DC0: 54 48 45 20 53 54 41 43 4B 2E 22 00 F8 35 33 03 |THE STACK."..53.|
00002DD0: 99 22 20 D4 48 49 53 20 49 53 20 43 41 4C 4C 45 |." .HIS IS CALLE|
00002DE0: 44 20 50 4F 53 54 2D 46 49 58 20 4F 52 20 52 45 |D POST-FIX OR RE|
00002DF0: 56 45 52 53 45 20 20 22 00 1D 36 34 03 99 22 20 |VERSE "..64.." |
00002E00: 50 4F 4C 49 53 48 20 4E 4F 54 41 54 49 4F 4E 2E |POLISH NOTATION.|
00002E10: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 25 36 | ".%6|
00002E20: 35 03 99 3A 99 00 2F 36 36 03 89 32 35 30 30 00 |5..:../66..2500.|
00002E30: 47 36 3F 03 8B 41 24 B2 22 5E 22 A7 50 47 B2 50 |G6?..A$."^".PG.P|
00002E40: 47 AB 31 3A 89 32 30 00 66 36 51 03 8F 2D 2D 2D |G.1:.20.f6Q..---|
00002E50: 2D 2D 2D 2D 2D 2D 2D 50 41 47 45 20 31 37 2D 2D |-------PAGE 17--|
00002E60: 2D 2D 2D 2D 2D 2D 00 8F 36 52 03 3A 99 22 93 22 |------..6R.:."."|
00002E70: A3 31 37 29 22 12 46 4F 52 54 48 92 20 20 20 20 |.17)".FORTH. |
00002E80: 20 20 20 20 20 20 20 20 20 20 20 20 31 37 22 00 | 17".|
00002E90: 95 36 53 03 99 00 C1 36 54 03 99 22 20 D4 48 45 |.6S....6T.." .HE|
00002EA0: 20 42 45 53 54 20 57 41 59 20 54 4F 20 4C 45 41 | BEST WAY TO LEA|
00002EB0: 52 4E 20 46 4F 52 54 48 20 49 53 20 20 20 20 20 |RN FORTH IS |
00002EC0: 22 00 ED 36 55 03 99 22 20 54 48 52 4F 55 47 48 |"..6U.." THROUGH|
00002ED0: 20 50 52 41 43 54 49 43 45 2C 20 53 4F 20 48 45 | PRACTICE, SO HE|
00002EE0: 52 45 20 41 52 45 20 53 4F 4D 45 20 22 00 19 37 |RE ARE SOME "..7|
00002EF0: 56 03 99 22 20 51 55 45 53 54 49 4F 4E 53 20 54 |V.." QUESTIONS T|
00002F00: 4F 20 47 45 54 20 59 4F 55 20 47 4F 49 4E 47 2E |O GET YOU GOING.|
00002F10: 20 20 20 20 20 20 20 20 22 00 21 37 57 03 99 3A | ".!7W..:|
00002F20: 99 00 4D 37 58 03 99 22 20 D7 48 49 43 48 20 4F |..M7X.." .HICH O|
00002F30: 46 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 |F THE FOLLOWING |
00002F40: 50 45 52 46 4F 52 4D 53 20 54 48 45 22 00 79 37 |PERFORMS THE".y7|
00002F50: 59 03 99 22 20 53 41 4D 45 20 46 55 4E 43 54 49 |Y.." SAME FUNCTI|
00002F60: 4F 4E 20 41 53 20 20 20 20 20 20 20 20 20 20 20 |ON AS |
00002F70: 20 20 20 20 20 20 20 20 22 00 A5 37 5A 03 99 22 | "..7Z.."|
00002F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F90: 20 CF D6 C5 D2 20 20 20 20 20 20 20 20 20 20 20 | .... |
00002FA0: 20 20 20 20 22 00 AB 37 5B 03 99 00 D7 37 5C 03 | "..7[....7\.|
00002FB0: 99 22 20 41 29 20 D2 CF D4 20 D3 D7 C1 D0 20 20 |." A) ... .... |
00002FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002FD0: 20 20 20 20 20 20 22 00 03 38 5D 03 99 22 20 42 | "..8].." B|
00002FE0: 29 20 D3 D7 C1 D0 20 D2 CF D4 20 20 20 20 20 20 |) .... ... |
00002FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003000: 20 20 22 00 2F 38 5E 03 99 22 20 43 29 20 D2 CF | "./8^.." C) ..|
00003010: D4 A0 C4 D5 D0 A0 C4 D2 CF D0 20 20 20 20 20 20 |.......... |
00003020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00003030: 5B 38 5F 03 99 22 20 44 29 20 D3 D7 C1 D0 A0 C4 |[8_.." D) ......|
00003040: D5 D0 A0 D2 CF D4 A0 D3 D7 C1 D0 20 20 20 20 20 |........... |
00003050: 20 20 20 20 20 20 20 20 20 20 22 00 77 38 60 03 | ".w8`.|
00003060: 99 22 20 45 29 20 CE 4F 4E 45 20 4F 46 20 54 48 |." E) .ONE OF TH|
00003070: 45 20 41 42 4F 56 45 00 A4 38 61 03 99 3A 99 22 |E ABOVE..8a..:."|
00003080: 20 45 4E 54 45 52 20 41 2C 42 2C 43 2C 44 2C 4F | ENTER A,B,C,D,O|
00003090: 52 20 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |R E |
000030A0: 20 20 20 22 00 AE 38 62 03 85 41 24 3A 99 00 DE | "..8b..A$:...|
000030B0: 38 63 03 8B 41 24 B2 22 44 22 A7 99 22 20 54 48 |8c..A$."D".." TH|
000030C0: 41 54 27 53 20 52 49 47 48 54 21 20 20 20 20 20 |AT'S RIGHT! |
000030D0: 20 20 20 20 20 20 20 22 3A 89 20 38 36 39 00 0B | ":. 869..|
000030E0: 39 64 03 99 22 20 54 48 45 20 41 4E 53 57 45 52 |9d.." THE ANSWER|
000030F0: 20 49 53 20 20 20 22 2C 22 44 22 20 20 20 20 20 | IS ","D" |
00003100: 20 20 20 20 20 20 20 20 20 20 22 00 13 39 65 03 | "..9e.|
00003110: 99 3A 99 00 1D 39 68 03 89 32 35 30 30 00 3C 39 |.:...9h..2500.<9|
00003120: 83 03 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 50 41 47 |...----------PAG|
00003130: 45 20 31 38 2D 2D 2D 2D 2D 2D 2D 2D 00 65 39 84 |E 18--------.e9.|
00003140: 03 3A 99 22 93 22 A3 31 37 29 22 12 46 4F 52 54 |.:.".".17)".FORT|
00003150: 48 92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |H. |
00003160: 20 20 31 38 22 00 6B 39 85 03 99 00 97 39 86 03 | 18".k9.....9..|
00003170: 99 22 20 D3 55 50 50 4F 53 45 20 54 48 45 20 53 |." .UPPOSE THE S|
00003180: 54 41 43 4B 20 4C 4F 4F 4B 53 20 4C 49 4B 45 20 |TACK LOOKS LIKE |
00003190: 54 48 49 53 2E 20 22 00 9D 39 87 03 99 00 C9 39 |THIS. "..9.....9|
000031A0: 88 03 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
000031B0: 20 12 31 92 20 20 20 20 20 20 20 20 20 20 20 20 | .1. |
000031C0: 20 20 20 20 20 20 20 20 22 00 F5 39 89 03 99 22 | "..9..."|
000031D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 12 32 92 | .2.|
000031E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000031F0: 20 20 20 20 22 00 21 3A 8A 03 99 22 20 20 20 20 | ".!:..." |
00003200: 20 20 20 20 20 20 20 20 20 12 34 92 20 20 20 20 | .4. |
00003210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003220: 22 00 27 3A 8B 03 99 00 53 3A 8C 03 99 22 20 D7 |".':....S:..." .|
00003230: 48 41 54 20 57 49 4C 4C 20 42 45 20 4F 4E 20 54 |HAT WILL BE ON T|
00003240: 4F 50 20 4F 46 20 54 48 45 20 53 54 41 43 4B 20 |OP OF THE STACK |
00003250: 20 20 22 00 7F 3A 8D 03 99 22 20 41 46 54 45 52 | "..:..." AFTER|
00003260: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 2D | THE FOLLOWING -|
00003270: 2D 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 |- ".|
00003280: 85 3A 8E 03 99 00 B1 3A 8F 03 99 22 20 20 20 20 |.:.....:..." |
00003290: C4 D5 D0 A0 2B 20 CF D6 C5 D2 20 2D 20 20 12 52 |....+ .... - .R|
000032A0: 45 54 55 52 4E 92 20 20 20 20 20 20 20 20 20 20 |ETURN. |
000032B0: 22 00 CB 3A 91 03 99 22 20 41 29 20 30 20 20 20 |"..:..." A) 0 |
000032C0: 20 20 20 20 20 20 20 42 29 20 32 00 F7 3A 92 03 | B) 2..:..|
000032D0: 99 22 20 43 29 20 34 20 20 20 20 20 20 20 20 20 |." C) 4 |
000032E0: 20 44 29 20 31 20 20 20 20 20 20 20 20 20 20 20 | D) 1 |
000032F0: 20 20 20 20 20 20 22 00 24 3B 94 03 99 22 20 45 | ".$;..." E|
00003300: 4E 54 45 52 20 41 2C 42 2C 43 2C 4F 52 20 44 20 |NTER A,B,C,OR D |
00003310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003320: 20 20 20 22 00 2C 3B 95 03 85 41 24 00 5C 3B 96 | ".,;...A$.\;.|
00003330: 03 8B 41 24 B2 22 41 22 A7 99 22 20 54 48 41 54 |..A$."A".." THAT|
00003340: 27 53 20 52 49 47 48 54 21 20 20 20 20 20 20 20 |'S RIGHT! |
00003350: 20 20 20 20 20 22 3A 89 20 39 32 30 00 77 3B 97 | ":. 920.w;.|
00003360: 03 99 22 20 54 48 45 20 41 4E 53 57 45 52 20 49 |.." THE ANSWER I|
00003370: 53 20 22 2C 22 41 22 00 7D 3B 98 03 99 00 A9 3B |S ","A".};.....;|
00003380: 99 03 99 22 20 C1 46 54 45 52 20 20 20 20 20 20 |..." .FTER |
00003390: 20 D2 CF D4 20 2D 20 2D 20 2E 20 20 12 52 45 54 | ... - - . .RET|
000033A0: 55 52 4E 92 20 20 20 20 22 00 D2 3B 9B 03 99 22 |URN. "..;..."|
000033B0: 20 41 29 20 35 20 20 20 20 20 42 29 20 D3 D4 C1 | A) 5 B) ...|
000033C0: C3 CB A0 C5 CD D0 D4 D9 20 20 20 20 20 20 20 20 |........ |
000033D0: 20 22 00 FF 3B 9C 03 99 22 20 45 4E 54 45 52 20 | "..;..." ENTER |
000033E0: 41 2C 42 20 20 20 20 20 20 20 20 20 20 20 20 20 |A,B |
000033F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00003400: 07 3C 9D 03 85 41 24 00 37 3C 9E 03 8B 41 24 B2 |.<...A$.7<...A$.|
00003410: 22 42 22 A7 99 22 20 54 48 41 54 27 53 20 52 49 |"B".." THAT'S RI|
00003420: 47 48 54 21 20 20 20 20 20 20 20 20 20 20 20 20 |GHT! |
00003430: 22 3A 89 20 39 32 38 00 52 3C 9F 03 99 22 20 54 |":. 928.R<..." T|
00003440: 48 45 20 41 4E 53 57 45 52 20 49 53 20 22 2C 22 |HE ANSWER IS ","|
00003450: 42 22 00 5C 3C A0 03 89 32 35 30 30 00 7B 3C B5 |B".\<...2500.{<.|
00003460: 03 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 50 41 47 45 |..----------PAGE|
00003470: 20 31 39 2D 2D 2D 2D 2D 2D 2D 2D 00 A4 3C B6 03 | 19--------..<..|
00003480: 3A 99 22 93 22 A3 31 37 29 22 12 46 4F 52 54 48 |:.".".17)".FORTH|
00003490: 92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000034A0: 20 31 39 22 00 AA 3C B7 03 99 00 D7 3C B8 03 99 | 19"..<.....<...|
000034B0: 22 20 20 20 D3 55 50 50 4F 53 45 20 54 48 45 20 |" .UPPOSE THE |
000034C0: 53 54 41 43 4B 20 43 4F 4E 54 41 49 4E 53 20 54 |STACK CONTAINS T|
000034D0: 48 45 20 20 20 20 22 00 05 3D B9 03 99 22 20 54 |HE "..=..." T|
000034E0: 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 2D 2D 20 |HE FOLLOWING -- |
000034F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003500: 20 20 20 20 22 00 0B 3D BA 03 99 00 39 3D BB 03 | "..=....9=..|
00003510: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 12 41 |." .A|
00003520: 92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00003530: 20 20 20 20 20 20 20 20 22 00 67 3D BC 03 99 22 | ".g=..."|
00003540: 20 20 20 20 20 20 20 20 20 20 20 20 12 42 92 20 | .B. |
00003550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003560: 20 20 20 20 20 20 22 00 95 3D BD 03 99 22 20 20 | "..=..." |
00003570: 20 20 20 20 20 20 20 20 20 20 12 43 92 20 20 20 | .C. |
00003580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003590: 20 20 20 20 22 00 C5 3D BE 03 99 3A 99 22 20 28 | "..=...:." (|
000035A0: 57 48 45 52 45 20 41 2C 42 2C 43 20 41 52 45 20 |WHERE A,B,C ARE |
000035B0: 53 4F 4D 45 20 4E 55 4D 42 45 52 53 29 20 20 20 |SOME NUMBERS) |
000035C0: 20 20 20 20 22 00 F3 3D BF 03 99 22 20 D7 48 49 | "..=..." .HI|
000035D0: 43 48 20 4F 46 20 54 48 45 20 46 4F 4C 4C 4F 57 |CH OF THE FOLLOW|
000035E0: 49 4E 47 20 57 4F 55 4C 44 20 59 4F 55 20 55 53 |ING WOULD YOU US|
000035F0: 45 20 22 00 23 3E C0 03 99 3A 99 22 20 54 4F 20 |E ".#>...:." TO |
00003600: 43 41 4C 43 55 4C 41 54 45 20 20 20 20 20 20 20 |CALCULATE |
00003610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003620: 20 20 22 00 51 3E C1 03 99 22 20 20 20 20 20 20 | ".Q>..." |
00003630: 20 20 20 20 20 20 20 20 20 20 41 2A 28 41 2A 42 | A*(A*B|
00003640: 2D 43 29 20 20 20 20 20 20 20 20 20 20 20 20 20 |-C) |
00003650: 22 00 57 3E C2 03 99 00 67 3E C3 03 99 22 20 41 |".W>....g>..." A|
00003660: 29 20 2A 20 2A 20 2D 00 85 3E C4 03 99 22 20 42 |) * * -..>..." B|
00003670: 29 20 CF D6 C5 D2 20 2A 20 D2 CF D4 20 D3 D7 C1 |) .... * ... ...|
00003680: D0 20 2D 20 2A 00 A1 3E C5 03 99 22 20 43 29 20 |. - *..>..." C) |
00003690: C4 D5 D0 20 D2 CF D4 20 2A 20 D2 CF D4 20 2D 20 |... ... * ... - |
000036A0: 2A 00 CE 3E C6 03 99 22 20 44 29 20 CE 4F 4E 45 |*..>..." D) .ONE|
000036B0: 20 4F 46 20 54 48 45 20 41 42 4F 56 45 20 20 20 | OF THE ABOVE |
000036C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 FB | "..|
000036D0: 3E C7 03 99 22 20 45 4E 54 45 52 20 41 2C 42 2C |>..." ENTER A,B,|
000036E0: 43 2C 4F 52 20 44 20 20 20 20 20 20 20 20 20 20 |C,OR D |
000036F0: 20 20 20 20 20 20 20 20 20 20 22 00 03 3F C8 03 | "..?..|
00003700: 85 41 24 00 33 3F C9 03 8B 41 24 B2 22 43 22 A7 |.A$.3?...A$."C".|
00003710: 99 22 20 54 48 41 54 27 53 20 52 49 47 48 54 21 |." THAT'S RIGHT!|
00003720: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 89 20 | ":. |
00003730: 39 37 31 00 4E 3F CA 03 99 22 20 54 48 45 20 41 |971.N?..." THE A|
00003740: 4E 53 57 45 52 20 49 53 20 22 2C 22 43 22 00 54 |NSWER IS ","C".T|
00003750: 3F CB 03 99 00 5E 3F CD 03 89 32 35 30 30 00 7D |?....^?...2500.}|
00003760: 3F E7 03 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 50 41 |?...----------PA|
00003770: 47 45 20 32 30 2D 2D 2D 2D 2D 2D 2D 2D 00 A6 3F |GE 20--------..?|
00003780: E8 03 3A 99 22 93 22 A3 31 37 29 22 12 46 4F 52 |..:.".".17)".FOR|
00003790: 54 48 92 20 20 20 20 20 20 20 20 20 20 20 20 20 |TH. |
000037A0: 20 20 20 32 30 22 00 AC 3F E9 03 99 00 DB 3F EA | 20"..?.....?.|
000037B0: 03 99 22 20 D7 48 49 43 48 20 53 45 51 55 45 4E |.." .HICH SEQUEN|
000037C0: 43 45 20 57 49 4C 4C 20 44 4F 20 54 48 49 53 20 |CE WILL DO THIS |
000037D0: 54 4F 20 54 48 45 20 20 20 20 22 00 0A 40 EB 03 |TO THE "..@..|
000037E0: 99 22 20 53 54 41 43 4B 3F 20 20 20 20 20 20 20 |." STACK? |
000037F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003800: 20 20 20 20 20 20 20 20 20 22 00 39 40 EC 03 99 | ".9@...|
00003810: 22 20 20 20 20 20 12 41 92 20 20 20 20 20 20 20 |" .A. |
00003820: 20 20 20 20 20 20 20 20 20 20 20 12 43 92 20 20 | .C. |
00003830: 20 20 20 20 20 20 20 20 22 00 68 40 ED 03 99 22 | ".h@..."|
00003840: 20 20 20 20 20 12 42 92 20 20 20 2D 2D 2D 2D 3E | .B. ---->|
00003850: 20 20 20 20 20 20 20 20 20 20 12 42 92 20 20 20 | .B. |
00003860: 20 20 20 20 20 20 20 22 00 97 40 EE 03 99 22 20 | "..@..." |
00003870: 20 20 20 20 12 43 92 20 20 20 20 20 20 20 20 20 | .C. |
00003880: 20 20 20 20 20 20 20 20 20 12 41 92 20 20 20 20 | .A. |
00003890: 20 20 20 20 20 20 22 00 9D 40 EF 03 99 00 CC 40 | "..@.....@|
000038A0: F0 03 99 22 20 41 29 20 D2 CF D4 20 20 20 20 20 |..." A) ... |
000038B0: 20 20 20 20 20 20 20 20 20 42 29 20 CF D6 C5 D2 | B) ....|
000038C0: 20 D3 D7 C1 D0 20 C4 D2 CF D0 20 22 00 F3 40 F1 | .... .... "..@.|
000038D0: 03 99 22 20 43 29 20 D2 CF D4 A0 D3 D7 C1 D0 20 |.." C) ........ |
000038E0: 20 20 20 20 20 20 20 20 44 29 20 D3 D7 C1 D0 20 | D) .... |
000038F0: D2 CF D4 00 F9 40 F2 03 99 00 01 41 F3 03 85 41 |.....@.....A...A|
00003900: 24 00 32 41 F4 03 8B 41 24 B2 22 44 22 A7 99 22 |$.2A...A$."D".."|
00003910: 20 54 48 41 54 27 53 20 52 49 47 48 54 21 20 20 | THAT'S RIGHT! |
00003920: 20 20 20 20 20 20 20 20 20 20 22 3A 89 20 31 30 | ":. 10|
00003930: 31 34 00 4F 41 F5 03 99 22 20 54 48 45 20 41 4E |14.OA..." THE AN|
00003940: 53 57 45 52 20 49 53 20 22 2C 22 44 22 3A 99 00 |SWER IS ","D":..|
00003950: 55 41 F6 03 99 00 81 41 08 04 99 22 20 20 D4 48 |UA.....A..." .H|
00003960: 41 54 20 43 4F 4E 43 4C 55 44 45 53 20 54 48 49 |AT CONCLUDES THI|
00003970: 53 20 4D 4F 4E 54 48 53 20 C6 CF D2 D4 C8 20 20 |S MONTHS ..... |
00003980: 22 00 AD 41 09 04 99 22 20 54 55 54 4F 52 49 41 |"..A..." TUTORIA|
00003990: 4C 2E 20 CE 45 58 54 20 4D 4F 4E 54 48 20 57 45 |L. .EXT MONTH WE|
000039A0: 27 4C 4C 20 49 4E 56 45 53 54 2D 20 22 00 D9 41 |'LL INVEST- "..A|
000039B0: 0A 04 99 22 20 49 47 41 54 45 20 54 48 45 20 C4 |..." IGATE THE .|
000039C0: C9 C3 D4 C9 CF CE C1 D2 D9 20 41 4E 44 20 48 4F |......... AND HO|
000039D0: 57 20 54 4F 20 20 20 20 22 00 05 42 0B 04 99 22 |W TO "..B..."|
000039E0: 20 43 52 45 41 54 45 20 59 4F 55 52 20 4F 57 4E | CREATE YOUR OWN|
000039F0: 20 C6 CF D2 D4 C8 20 44 45 46 49 4E 49 54 49 4F | ..... DEFINITIO|
00003A00: 4E 53 2E 20 22 00 31 42 0C 04 99 22 20 D7 45 27 |NS. ".1B..." .E'|
00003A10: 4C 4C 20 41 4C 53 4F 20 4C 4F 4F 4B 20 41 54 20 |LL ALSO LOOK AT |
00003A20: 48 4F 57 20 C6 CF D2 D4 C8 20 44 4F 45 53 20 20 |HOW ..... DOES |
00003A30: 22 00 5D 42 0D 04 99 22 20 4C 4F 4F 50 49 4E 47 |".]B..." LOOPING|
00003A40: 20 41 4E 44 20 43 4F 4E 44 49 54 49 4F 4E 41 4C | AND CONDITIONAL|
00003A50: 20 54 45 53 54 49 4E 47 2E 20 20 20 22 00 8A 42 | TESTING. "..B|
00003A60: 0E 04 99 22 20 C2 59 45 20 46 4F 52 20 4E 4F 57 |..." .YE FOR NOW|
00003A70: 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00003A80: 20 20 20 20 20 20 20 20 20 22 00 90 42 0F 04 99 | "..B...|
00003A90: 00 BE 42 10 04 99 22 20 12 5E 92 20 54 4F 20 47 |..B..." .^. TO G|
00003AA0: 4F 20 42 41 43 4B 20 20 20 20 20 20 12 5F 92 20 |O BACK ._. |
00003AB0: 20 47 4F 4C 44 20 44 49 53 4B 20 20 22 3B 00 D2 | GOLD DISK ";..|
00003AC0: 42 11 04 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 |B...A$:.A$."".10|
00003AD0: 34 31 00 EA 42 12 04 8B 41 24 B2 22 5E 22 A7 50 |41..B...A$."^".P|
00003AE0: 47 B2 50 47 AB 31 3A 89 32 30 00 FC 42 13 04 8B |G.PG.1:.20..B...|
00003AF0: 41 24 B2 22 5F 22 A7 89 33 30 30 30 00 06 43 4C |A$."_"..3000..CL|
00003B00: 04 89 31 30 34 31 00 10 43 D0 07 43 4E 54 B2 31 |..1041..C..CNT.1|
00003B10: 00 23 43 D1 07 85 41 24 3A 41 24 B2 C8 28 41 24 |.#C...A$:A$..(A$|
00003B20: 2C 31 29 00 52 43 DA 07 8B 41 24 B2 42 24 A7 99 |,1).RC...A$.B$..|
00003B30: 22 20 54 48 41 54 27 53 20 52 49 47 48 54 21 20 |" THAT'S RIGHT! |
00003B40: 20 20 20 20 20 20 20 20 20 20 20 22 3A 89 32 30 | ":.20|
00003B50: 35 35 00 62 43 E4 07 8B 43 4E 54 B2 33 A7 32 30 |55.bC...CNT.3.20|
00003B60: 35 30 00 90 43 EE 07 43 4E 54 B2 43 4E 54 AA 31 |50..C..CNT.CNT.1|
00003B70: 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |:." |
00003B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00003B90: 00 9F 43 F0 07 81 49 B2 31 A4 31 35 30 3A 82 00 |..C...I.1.150:..|
00003BA0: C0 43 F3 07 99 22 91 20 49 4E 43 4F 52 52 45 43 |.C...". INCORREC|
00003BB0: 54 2E 20 20 20 54 52 59 20 41 47 41 49 4E 20 22 |T. TRY AGAIN "|
00003BC0: 00 D1 43 F8 07 99 22 91 91 91 22 3A 89 32 30 30 |..C..."...":.200|
00003BD0: 31 00 FF 43 02 08 99 22 20 20 20 20 20 20 20 20 |1..C..." |
00003BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00003C00: 1F 44 04 08 99 22 91 22 3B 3A 99 22 20 54 48 45 |.D...".";:." THE|
00003C10: 20 41 4E 53 57 45 52 20 49 53 20 22 2C 42 24 00 | ANSWER IS ",B$.|
00003C20: 4D 44 07 08 99 22 20 12 50 52 45 53 53 20 41 4E |MD..." .PRESS AN|
00003C30: 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |Y KEY TO CONTINU|
00003C40: 45 92 20 20 20 20 20 20 20 20 20 20 22 00 79 44 |E. ".yD|
00003C50: 08 08 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 30 35 |...A$:.A$."".205|
00003C60: 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |6 |
00003C70: 20 20 20 20 20 20 20 20 22 00 97 44 0C 08 99 22 | "..D..."|
00003C80: 91 91 91 91 91 91 91 22 3A 99 22 20 20 20 20 20 |.......":." |
00003C90: 20 20 20 20 20 20 A0 00 C5 44 16 08 99 22 20 20 | ...D..." |
00003CA0: 20 20 20 20 20 20 20 20 20 A0 20 20 20 20 20 20 | . |
00003CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003CC0: 20 20 20 20 22 00 F3 44 20 08 99 22 20 20 20 20 | "..D .." |
00003CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003CF0: 20 20 22 00 21 45 2A 08 99 22 20 20 20 20 20 20 | ".!E*.." |
00003D00: 20 20 20 20 20 A0 20 20 20 20 20 20 20 20 20 20 | . |
00003D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003D20: 22 00 4F 45 34 08 99 22 20 20 20 20 20 20 20 20 |".OE4.." |
00003D30: 20 20 20 A0 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00003D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00003D50: 7D 45 39 08 99 22 20 20 20 20 20 20 20 20 20 20 |}E9.." |
00003D60: 20 A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00003D70: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 AB 45 | "..E|
00003D80: 3E 08 99 22 20 20 20 20 20 20 20 20 20 20 20 A0 |>.." .|
00003D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003DA0: 20 20 20 20 20 20 20 20 20 20 22 00 BA 45 48 08 | "..EH.|
00003DB0: 99 22 91 91 91 91 91 91 22 3B 00 C0 45 52 08 8E |."......";..ER..|
00003DC0: 00 F1 45 C4 09 99 22 20 12 53 50 41 43 45 92 20 |..E..." .SPACE. |
00003DD0: 41 48 45 41 44 20 20 20 12 5E 92 20 42 41 43 4B |AHEAD .^. BACK|
00003DE0: 20 20 12 5F 92 20 47 4F 4C 44 20 44 49 53 4B 22 | ._. GOLD DISK"|
00003DF0: 3B 00 05 46 C5 09 A1 41 24 3A 8B 41 24 B2 22 22 |;..F...A$:.A$.""|
00003E00: A7 32 35 30 31 00 1D 46 C6 09 8B 41 24 B2 22 5E |.2501..F...A$."^|
00003E10: 22 A7 50 47 B2 50 47 AB 31 3A 89 32 30 00 2E 46 |".PG.PG.1:.20..F|
00003E20: C7 09 8B 41 24 B2 22 5F 22 A7 33 30 30 30 00 40 |...A$."_".3000.@|
00003E30: 46 C8 09 8B 41 24 B3 B1 22 20 22 A7 32 35 30 31 |F...A$.." ".2501|
00003E40: 00 50 46 C9 09 50 47 B2 50 47 AA 31 3A 89 32 30 |.PF..PG.PG.1:.20|
00003E50: 00 60 46 B8 0B 99 22 93 22 3A 9E 34 39 31 35 32 |.`F...".":.49152|
00003E60: 00 7E 46 9F 0F 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.~F...----------|
00003E70: 50 41 47 45 20 35 2D 2D 2D 2D 2D 2D 2D 2D 00 A7 |PAGE 5--------..|
00003E80: 46 A0 0F 3A 99 22 93 22 A3 31 37 29 22 12 46 4F |F..:.".".17)".FO|
00003E90: 52 54 48 92 20 20 20 20 20 20 20 20 20 20 20 20 |RTH. |
00003EA0: 20 20 20 20 20 35 22 00 AD 46 A1 0F 99 00 DC 46 | 5"..F.....F|
00003EB0: A2 0F 99 22 20 4F 46 46 20 54 48 45 20 54 4F 50 |..." OFF THE TOP|
00003EC0: 20 4F 46 20 54 48 45 20 53 54 41 43 4B 20 41 4E | OF THE STACK AN|
00003ED0: 44 20 53 45 4E 44 53 20 54 48 45 22 00 0B 47 A3 |D SENDS THE"..G.|
00003EE0: 0F 99 22 20 43 48 41 52 41 43 54 45 52 20 43 4F |.." CHARACTER CO|
00003EF0: 52 52 45 53 50 4F 4E 44 49 4E 47 20 54 4F 20 54 |RRESPONDING TO T|
00003F00: 48 49 53 20 4E 55 4D 42 45 52 22 00 3A 47 A4 0F |HIS NUMBER".:G..|
00003F10: 99 22 20 54 4F 20 59 4F 55 52 20 54 45 52 4D 49 |." TO YOUR TERMI|
00003F20: 4E 41 4C 2E 20 20 20 20 20 20 20 20 20 20 20 20 |NAL. |
00003F30: 20 20 20 20 20 20 20 20 20 22 00 40 47 A5 0F 99 | ".@G...|
00003F40: 00 6E 47 A6 0F 99 22 20 D9 4F 55 20 43 41 4E 20 |.nG..." .OU CAN |
00003F50: 47 45 54 20 41 20 4C 4F 4F 4B 20 41 54 20 41 4C |GET A LOOK AT AL|
00003F60: 4C 20 54 48 45 20 43 4F 4D 4D 41 4E 44 22 00 97 |L THE COMMAND"..|
00003F70: 47 A7 0F 99 22 20 57 4F 52 44 53 20 54 48 41 54 |G..." WORDS THAT|
00003F80: 20 C6 CF D2 D4 C8 20 52 45 43 4F 47 4E 49 53 45 | ..... RECOGNISE|
00003F90: 53 20 42 59 2C 20 22 00 9D 47 A8 0F 99 00 C0 47 |S BY, "..G.....G|
00003FA0: A9 0F 99 22 20 D6 CC C9 D3 D4 20 12 52 45 54 55 |..." ..... .RETU|
00003FB0: 52 4E 92 20 20 20 20 20 20 20 20 20 20 20 20 22 |RN. "|
00003FC0: 00 C8 47 AA 0F 99 3A 99 00 F5 47 AB 0F 99 22 20 |..G...:...G..." |
00003FD0: D0 4C 45 41 53 45 20 4E 4F 54 45 20 41 4C 53 4F |.LEASE NOTE ALSO|
00003FE0: 20 54 48 41 54 20 54 48 45 20 46 4F 4C 4C 4F 57 | THAT THE FOLLOW|
00003FF0: 49 4E 47 2C 22 00 FB 47 AC 0F 99 00 1E 48 AD 0F |ING,"..G.....H..|
00004000: 99 22 20 36 35 20 C5 CD C9 D4 A0 12 52 45 54 55 |." 65 ......RETU|
00004010: 52 4E 92 20 20 20 20 20 20 20 20 20 20 22 00 24 |RN. ".$|
00004020: 48 AE 0F 99 00 4C 48 AF 0F 99 22 20 41 43 43 4F |H....LH..." ACCO|
00004030: 4D 50 4C 49 53 48 45 53 20 54 48 45 20 53 41 4D |MPLISHES THE SAM|
00004040: 45 20 54 48 49 4E 47 20 41 53 2C 22 00 52 48 B0 |E THING AS,".RH.|
00004050: 0F 99 00 77 48 B1 0F 99 22 20 36 35 20 20 20 12 |...wH..." 65 .|
00004060: 52 45 54 55 52 4E 92 20 20 20 20 20 20 20 20 20 |RETURN. |
00004070: 20 20 20 20 20 A0 22 00 7D 48 B2 0F 99 00 A0 48 | .".}H.....H|
00004080: B3 0F 99 22 20 C5 CD C9 D4 20 12 52 45 54 55 52 |..." .... .RETUR|
00004090: 4E 92 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |N. "|
000040A0: 00 A8 48 B4 0F 99 3A 99 00 B2 48 B5 0F 89 32 35 |..H...:...H...25|
000040B0: 30 30 00 00 00 |00... |
....... (C)1985 GOLD DISK INC.#.....@...
. TUTORIAL: FORTH PART 1.F.....H....".."
:.53281,1:.53272,23:PG.1...... PG . 100,
150,200,250,4000,300,350,400,450,500,550
,600,650,700,750,800.R.... PG.16 .850,90
0,950,1000...C..-----------PAGE 1-------
-...D.:.".".17)".FORTH.
1". .E...N.F.." IF YOU ARE LIKE MOST P
EOPLE WHO ".|.G.." PROGRAM IN BASIC,
YOU PROBABLY CURSE "...H.." THE SLOWNESS
WITH WHICH YOUR PROGRAMS".X.I.." EXECUT
E. ONE SOLUTION WOULD BE TO "...J.."
PROGRAM IN ASSEMBLY LANGUAGE, BUT ".4
.K.." THIS HAS THE DISADVANTAGES OF BEIN
G ".B.L.." DIFFICULT TO LEARN IN THE FI
RST PLACE"...M.." AND LONGER PROGRAM DEV
ELOPMENT TIME."...O..:..E.P.." FORTUNA
TELY, THE LANGUAGE FORTH "...Q.." COM
BINES THE CONVENIENCE OF PROGRAMM-".!.R.
." ING IN A HIGH LEVEL LANGUAGE WITH
".M.S.." EXECUTION SPEED APPROACHING THA
T OF".S.T.." MACHINE CODE.
".Z.U.."...V.." FORTH WAS INVENTED BY
CHARLES MOORE ".U.X..".... .SPACE. AHEA
D ._. GOLD DISK";......A$:.A$."".130
......A$."_".3000......A$.." ".130.....P
G.PG.1:.20.8....----------PAGE 2--------
.A...:.".".17)".FORTH. 2
".G.........." OVER 15 YEARS AGO. ORIGI
NALLY HE ".A...." WANTED TO CALL IT FOUR
TH BECAUSE HE "......" CONSIDERED IT A
FOURTH GENERATION "......" LANGUAGE BUT
HIS COMPUTER ALLOWED ONLY".I...." FIVE
CHARACTER FILE NAMES. FORTH HAS".W...."
DEVELOPED A LOYAL FOLLOWING OVER THE ".
....." YEARS AND WHO KNOWS MAYBE YOU'LL
BE ".S...." ONE OF IT'S NEWEST CONVERTS
. "......:.:......." THIS MONT
HS TUTORIAL WILL COVER ".6...." SOME OF
THE SIMPLER ASPECTS OF FORTH,".B...." SU
CH AS STACK MANIPULATION COMMANDS"......
" AND INTEGER ARITHMETIC. "......:.:.
......:.:.......2500.C.G..-----------PAG
E 3--------...H.:.".".17)".FORTH.
3"...I.....J.." IMAGINE THAT Y
OU HAVE FORTH LOADED ".I.K.." AND RUNNIN
G IN YOUR COMPUTER. THEN".Q.L.." HITTING
THE RETURN KEY WOULD "...M.." GENERAT
E THE MESSAGE, ". .N...O.O.."
OK ".
U.P.....Q.." THIS IS JUST FORTH ACKNOWLE
DGING THAT ".3.R.." A COMMAND WAS EXECUT
ED WITHOUT ERROR. ".B.S.." OF COURSE, YO
U HADN'T ENTERED ANY "...T.." COMMAN
D YET SO NOTHING WAS DONE. NOW "...U.."
IF YOU TRY TYPING - "
.F.V.....W.." 65 EMIT .RETURN.
"...X..:..,.Y.." (NOTE. .RE
TURN. INDICATES THAT YOU ".[.Z.." MUST
HIT THE RETURN KEY.) ".....
.:.:. "......
2500......-----------PAGE 4--------.T...
:.".".17)".FORTH. 4".Z..
........" YOU SHOULD SEE THE FOLLOWING
, ".......>...." A OK
".D.....S...." TO A
CCOMPLISH THIS IN BASIC YOU WOULD ".....
." USE -
".......U...." PRINTCHR$(65)
"............" (SEE YOUR COM
MODORE 64 USERS MANUAL ".9...." FOR AL
L THE ASCII CHARACTER CODES.) ".?.....
N...." WHAT HAPPENED AFTER YOU HIT RETUR
N IS "......" THE FOLLOWING. FORTH TOOK
THE NUMBER ".L...." 65 AND PUT IT ON
SOMETHING CALLED "......" THE STACK.
IT THEN SEARCHED IT'S ".%...." DICTION
ARY OF COMMAND DEFINITIONS ".T...." FOR
THE WORD EMIT. EMIT IS A SYSTEM "....
.." DEFINED WORD WHICH TAKES THE NUMBER
"......:.......2500...+..----------PAG
E 6--------...,.:.".".17)".FORTH.
6"...-........" IT'S ALSO IMPO
RTANT TO KEEP AT LEAST".:./.." ONE SPACE
BETWEEN INDIVIDUAL WORDS".`.0.." AND NU
MBERS. ".F.1.....2.." L
ET'S LOOK AT THE STACK MORE CLOSELY.".D.
3.." IF YOU ENTERED THE FOLLOWING SEQUEN
CE "...4.." OF NUMBERS -
"...5...(.6.." 2 4 8 16
.RETURN. "...7...].8.." TH
E STACK WOULD LOOK LIKE THIS - ".C.
9.....:.." .16. <----- TOP
".A.;.." . 8.
"...<.." . 4.
"...=.." .
2. ".%.>...T.
?.." THE LAST NUMBER FORTH ENCOUNTERS WI
LL "...@.." ALWAYS DEFINE THE TOP OF THE
STACK. "...A..:....B..2500...]..-----
-----PAGE 7--------...^.:.".".17)".FORTH
. 7"..._.....`.." A USEF
UL COMMAND FOR PRINTING A ".:.A.." NU
MBER FROM THE STACK IS, ".@.B..
.L.C.." . ( THE PERIOD )
".R.D.....E.." THE SEQUENCE . .
.RETURN. ".B.F.." WILL PRINT,
".H.G.....H.." 16 8 OK
"...I...&.J.." NOTICE
THAT TO PRINT THE 8, THE 16 ".S.K.." HA
D TO BE REMOVED FIRST. OF COURSE "..L.
." THE NUMBER 4 IS NOW AT THE TOP. ".
..M.." ANOTHER WAY OF PUTTING THIS IS TO
".W.N.." SAY THAT THE STACK IS .L.AST
.I.N "...O.." .F.IRST .O.UT.(LIFO)
"...P...5.Q.." CAN YOU GUESS
WHAT WILL HAPPEN IF".A.R.." YOU TYPE
. . . .RETURN. ?".I.S..:..S.T..2
500......----------PAGE 8--------.....:.
".".17)".FORTH. 8"......
......" REMEMBER THAT THERE ARE ONLY TW
O "......" NUMBERS LEFT ON THE STACK, AN
D WE ".A...." WANT THREE PRINTED. THEREF
ORE THE ".L...." THE OUTPUT WILL BE,
".R.........." 4 2 0 . ST
ACK EMPTY ".......N...." THE E
XTRA 0 IS WHAT WAS JUST BELOW"......" TH
E STACK IN MEMORY. ".......
*...." HERE ARE A FEW MORE STACK MANIP-
".U...." ULATION COMMANDS THAT YOU SHOU
LD "......" KNOW ABOUT.
"... .." SWAP -- REVERSES THE TO
P TWO ".V...." NUMBERS ON T
HE STACK "......" E.G. 1 2
SWAP ".,...." BEFORE
AFTER ".W...." .2.
.1. "......" .
1. .2. "......:.......
2500...A..----------PAGE 9--------...B.:
.".".17)".FORTH. 9"...C.
....D.." DUP -- MAKES A COPY OF THE NU
MBER".:.E.." ON THE TOP OF THE
STACK AND".G.F.." PUTS IT ON TH
E STACK. "...G.." E.G. 2
DUP .RETURN. "...H...E.I.." BE
FORE AFTER ".K.J.....K.
." .2. .2. "
.%.L.." .1124. .2.
".R.M.." .0. .
1124. "..N.." .-1.
.0. "...O.."
.-1. "...P.....Q.." THIS I
S USEFUL WHEN YOU WANT TO SEE ".. R.." W
HAT'S ON TOP OF THE STACK WHILE ".9 S
.." KEEPING A COPY OF THE NUMBER AROUND.
".D T.." EX..Q U.." DUP . .RET
URN. ".W V.... W.." (REMEMBER
. REMOVES THE NUMBER) ".. X.... Y..
2500.S ...----------PAGE 10--------.. ..
:.".".17)".FORTH. 10"..!.
....!..." OVER -- MAKES A COPY OF THE S
ECOND".Z!..." NUMBER AND PUTS I
T ON TOP."..!..." EXAMPLE
"..!.....!..." 100 200
OVER .RETURN. "..!.....!..."
BEFORE AFTER "..!....
."..." .200. .100.
".G"..." .100. .200.
".S"..." .100.
".Y"....."..." DROP -- REMOV
ES THE TOP NUMBER FROM".U"..."
THE STACK(BUT DOESN'T PRINT"..#..."
IT OUT.) "..#...
.6#..." ROT -- ROTATES THE THIRD NUMB
ER ".D#..." TO THE TOP OF TH
E STACK. "..#..." EXAMPLE --
NEXT PAGE "..#...:...#...2500.C#%
..----------PAGE 11--------..#&.:.".".17
)".FORTH. 11"..#'....$(..
" EXAMPLE ROT ROT .RETURN. ".$
$)...P$*.." BEFORE AFTER AF
TER ".|$+.." 1ST ROT
2ND ROT "..$,....$-.." .2.
.8. .4.".Z$..." .4.
.2. .8."..%/.." .8
. .4. .2."..%0...9%1
.." WHAT WOULD THE STACK LOOK LIKE AFTER
".F%2.." ONE MORE ROT ?
".L%3....%4.." THE USEFULNESS OF
THESE STACK ".E%5.." MANIPULATION OPE
RATORS WILL BECOME "..%6.." OBVIOUS WH
EN WE TRY TO EVALUATE "..&7.." ARITHM
ETIC EXPRESSIONS. ".%&8...R&
9.." NOW IT'S TIME FOR YOU TO TRY YOUR
".&:.." HAND AT SOME EXAMPLES. PLEAS
E TURN"..&;.." TO THE NEXT PAGE ---
"..&<....&=..2500.P&E..A$."^"
.PG.PG.1..&W..----------PAGE 12--------.
.'X.:.".".17)".FORTH. 12"
..'Y...J'Z.." SUPPOSE THE CONTENTS OF
THE STACK".V'[.." WERE,
".|'\....'].."
.2. ".T'^.."
.4. "..(_.."
.8. "..(`...2
(A.." WHAT NUMBER WOULD APPEAR ON THE TO
P".Z(B.." OF THE STACK AFTER THE FOLLOWI
NG..(C.." COMMANDS ( YOU GET 3 CHANCES.)
"..(D....(E.." DROP DROP .RET
URN. "..(F...M(G.B$."8":.2000..(
O.." OVER DROP .RETURN.
"..(P....)Q.B$."2":.2000.<)R.." SW
AP ROT SWAP .RETURN. ".B)S...S)T.B
$."4":.2000.)U.." DUP SWAP DROP
.RETURN. "..)V....)W.B$."2":.2000..
)...:..K)..." IF YOU HAD ANY DIFFICULT
Y WITH THE"..)..." QUESTIONS THEN YOU SH
OULD REVIEW THE".%*..." PREVIOUS MATERIA
L BEFORE GOING ON. ".1*..."....".;*...2
500.Z*...----------PAGE 13--------..*..:
.".".17)".FORTH. 13"..*..
...*..." NOW IT'S TIME TO LOOK AT HOW
ONE "..*..." DOES ARITHMETIC WITH FORTH.
"..*.....+..." HERE'S A LIST O
F THE FOUR BASIC ".?+..." ARITHMETIC OP
ERATORS. ".G+...:..S+..."
+ ADDS THE TOP TWO "..+..
." NUMBERS AND PLACES THE".
K+..." RESULT ON THE STACK.
".Q+.....+..." - SUBTRACTS
THE TOP NUMBER".,,..." NUMB
ER FROM THE SECOND.".X,..."
PUTS THE RESULT ON THE"..,..."
STACK. "..,.....,...
" * MULTIPLIES THE TOP TWO"..
,..." NUMBERS AND PLACES TH
E"..-..." RESULT ON THE STA
CK. "..-.....-....$- ..2500.C-...------
----PAGE 14--------.L-..:.".".17)".FORTH
. 14".R-.....-..." /
DIVIDES THE SECOND ".J-..."
NUMBER BY THE FIRST "..-...
" AND PLACES THE RESULT "."
.A.." ON THE STACK.
".(.B.....C...Z.D.." LET'S TAKE / A
S AN EXAMPLE. ".`.E.....F.."
"...G.."
BEFORE AFTER "...H....
.I.." .4. .6.
"../J.." .26. .11.
".A/K.." .11.
".G/L...S/M.." NOTICE THAT TOP T
WO NUMBERS ARE NO "../N.." LONGER PRESEN
T ON THE STACK. THIS ".K/O.." IS TRUE F
OR ALL THE MATH OPERATORS."../P.." ALSO
NOTE THAT WE GET AN INTEGER ".%0Q.." R
ESULT (RATHER THAN 6.5 .) ".+0
R...50S..2500.T0...----------PAGE 15----
----.}0..:.".".17)".FORTH.
15"..0.....0..." SOMETIMES IT'S IMPORT
ANT TO KNOW THE"..0..." REMAINDER OF A
DIVISION. FORTH "..1..." PROVIDES TW
O ADDITIONAL DIVISION ".71..." OPERAT
ORS, ".=1....I1
..." /MOD DIVIDES THE 2ND NUMBER
"..1..." BY THE FIRST. RETUR
NS "..1..." THE QUOTIENT AND
REM- "..1..." AINDER TO TH
E STACK. "..1.....2..." MOD RE
TURNS THE REMAINDER ".J2..."
ONLY AFTER DIVISION. ".P2....{2..."
EXAMPLE 99 12 /MOD .RETURN. "..2..
...2..." BEFORE AFTER
"..2.....2..." .12.
.8. <--QUOT. "..3..." .99.
.3. <-- REM. "..3...:..&3.
..2500.E3...----------PAGE 16--------.N3
.:.".".17)".FORTH. 16".T
3!....3".." AN EXAMPLE WILL SERVE TO PO
INT OUT ".M3#.." ONE OF THE FUNDEMENTAL
DIFFERENCES "..3$.." BETWEEN FORTH AND O
THER LANGUAGES ".'4%.." SUCH AS BASIC.
IN BASIC WE MIGHT HAVE".P4&.." SOMETHING
LIKE THIS, ".V4'....4(.."
A = 1 + 1 "..4)..
..4*.." HERE THE + SIGN APPEARS BETWEEN
THE"..4+.." TWO NUMBERS AND THE RESULT I
S STORED"..5,.." IN A VARIABLE SOMEWHERE
IN MEMORY. ".95-.." IN FORTH OF COURSE
WE HAVE, ".?5....K5/.." 1 1
+ ".Q50....51.."
THE + SIGN COMES AFTER THE NUMBERS".K52
.." AND THE RESULT IS STORED ON THE STAC
K."..53.." THIS IS CALLED POST-FIX OR RE
VERSE "..64.." POLISH NOTATION.
".%65..:../66..2500.G6?..A$."^".PG.P
G.1:.20.F6Q..----------PAGE 17--------..
6R.:.".".17)".FORTH. 17".
.6S...A6T.." THE BEST WAY TO LEARN FORTH
IS "..6U.." THROUGH PRACTICE, SO HE
RE ARE SOME "..7V.." QUESTIONS TO GET YO
U GOING. ".!7W..:..M7X.." WHICH O
F THE FOLLOWING PERFORMS THE".Y7Y.." SAM
E FUNCTION AS "..7Z.."
OVER "..7
[...W7\.." A) ROT SWAP
"..8].." B) SWAP ROT
"./8^.." C) ROT DUP DROP
".[8_.." D) SWAP DUP ROT S
WAP ".W8`.." E) NONE OF TH
E ABOVE..8A..:." ENTER A,B,C,D,OR E
"..8B..A$:...8C..A$."D".." TH
AT'S RIGHT! ":. 869..9D.." TH
E ANSWER IS ","D" "..9E.
.:...9H..2500.<9...----------PAGE 18----
----.E9..:.".".17)".FORTH.
18".K9.....9..." SUPPOSE THE STACK LOO
KS LIKE THIS. "..9....I9..."
.1. "..9..."
.2. ".!:..."
.4. ".':....
S:..." WHAT WILL BE ON TOP OF THE STACK
".:..." AFTER THE FOLLOWING --
"..:.....:..." DUP + OVER - .R
ETURN. ".K:..." A) 0 B
) 2..:..." C) 4 D) 1
".$;..." ENTER A,B,C,OR D
".,;...A$.\;...A$."A".." THAT
'S RIGHT! ":. 920.W;..." THE
ANSWER IS ","A".};.....;..." AFTER
ROT - - . .RETURN. ".R;..." A) 5
B) STACK EMPTY "..;..." ENTER
A,B "..<...A$.
7<...A$."B".." THAT'S RIGHT!
":. 928.R<..." THE ANSWER IS ","B".\< ..
2500.{<...----------PAGE 19--------..<..
:.".".17)".FORTH. 19"..<.
...W<..." SUPPOSE THE STACK CONTAINS T
HE "..=..." THE FOLLOWING --
"..=....9=..." .A
. ".G=..."
.B. "..=..."
.C. ".E=
...:." (WHERE A,B,C ARE SOME NUMBERS)
"..=..." WHICH OF THE FOLLOWING WOUL
D YOU USE ".#>...:." TO CALCULATE
".Q>A.."
A*(A*B-C) ".W>B...G>C.." A
) * * -..>D.." B) OVER * ROT SWAP - *..>
E.." C) DUP ROT * ROT - *.N>F.." D) NONE
OF THE ABOVE "..>G.." EN
TER A,B,C,OR D "..?H.
.A$.3?I..A$."C".." THAT'S RIGHT!
":. 971.N?J.." THE ANSWER IS ","C".T
?K...^?M..2500.}?...----------PAGE 20---
-----..?..:.".".17)".FORTH.
20"..?.....?..." WHICH SEQUENCE WILL
DO THIS TO THE "..@..." STACK?
".9@..." .A
. .C. ".H@..."
.B. ----> .B. "
..@..." .C. .A.
"..@....L@..." A) ROT
B) OVER SWAP DROP "..@..." C) ROT SWAP
D) SWAP ROT..@.....A...A$.2A...A
$."D".." THAT'S RIGHT! ":. 10
14.OA..." THE ANSWER IS ","D":..UA.....A
..." THAT CONCLUDES THIS MONTHS FORTH
"..A..." TUTORIAL. NEXT MONTH WE'LL INVE
ST- ".YA..." IGATE THE DICTIONARY AND HO
W TO "..B..." CREATE YOUR OWN FORTH D
EFINITIONS. ".1B..." WE'LL ALSO LOOK AT
HOW FORTH DOES ".]B..." LOOPING AND CON
DITIONAL TESTING. "..B..." BYE FOR NOW
. "..B.....B..."
.^. TO GO BACK ._. GOLD DISK ";.R
B...A$:.A$."".1041..B...A$."^".PG.PG.1:.
20..B...A$."_"..3000..CL..1041..CP.CNT.1
.#CQ..A$:A$.H(A$,1).RCZ..A$.B$.." THAT'S
RIGHT! ":.2055.BC...CNT.3.20
50..C..CNT.CNT.1:."
"..C...I.1.150:...C...". INCORREC
T. TRY AGAIN ".QC..."...":.2001..C..."
".
.D...".";:." THE ANSWER IS ",B$.MD..." .
PRESS ANY KEY TO CONTINUE. ".YD
...A$:.A$."".2056
"..D...".......":." .ED..."
"..D
.."
".!E*.."
".OE4.."
".}E9.."
"..E>.."
"..EH.."......
";..ER....ED.." .SPACE. AHEAD .^. BACK
._. GOLD DISK";..FE..A$:.A$."".2501..F
F..A$."^".PG.PG.1:.20..FG..A$."_".3000.@
FH..A$.." ".2501.PFI.PG.PG.1:.20.`F...".
":.49152.~F...----------PAGE 5--------..
F .:.".".17)".FORTH. 5".
.F.....F..." OFF THE TOP OF THE STACK AN
D SENDS THE"..G..." CHARACTER CORRESPOND
ING TO THIS NUMBER".:G..." TO YOUR TERMI
NAL. ".@G....NG..."
YOU CAN GET A LOOK AT ALL THE COMMAND"..
G..." WORDS THAT FORTH RECOGNISES BY, ".
.G.....G..." VLIST .RETURN. "
.HG...:...G..." PLEASE NOTE ALSO THAT TH
E FOLLOWING,"..G.....H..." 65 EMIT .RETU
RN. ".$H....LH..." ACCOMPLISHES
THE SAME THING AS,".RH....WH..." 65 .
RETURN. ".}H.... H..." EMI
T .RETURN. "..H...:...H...25
00...
> CLICK IMAGE PREVIEW FOR FULL MODAL