HANGMAN
FILE INFORMATION
FILENAME(S): HANGMAN
FILE TYPE(S): PRG
FILE SIZE: 13.2K
FIRST SEEN: 2025-12-02 00:17:40
APPEARS ON: 1 disk(s)
FILE HASH
8d7492a63c1895a61f71ca2c5d0fc9fb5bf9d70f6b6ddbd62310072591001638
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SHOW GAMES | HANGMAN | PRG | Maestro | 29 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 55 52 24 B2 22 22 3A 55 49 24 B2 |...(.UR$."":UI$.|
00000100: 22 22 3A 97 55 4F 2C 30 00 18 09 2A 00 8B 55 4C |"":.UO,0...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 22 09 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 09 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 09 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 09 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 09 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 09 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 09 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 09 50 00 89 35 30 00 F3 |..UI$;...P..50..|
000001D0: 09 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
000001E0: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
000001F0: 2B 2B 2B 00 1B 0A 5A 00 8B 55 52 24 B2 55 58 24 |+++...Z..UR$.UX$|
00000200: A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 |.195:. EXIT TO H|
00000210: 45 4C 50 20 52 4F 55 54 49 4E 45 00 2A 0A 5F 00 |ELP ROUTINE.*._.|
00000220: 8B 55 46 B2 31 A7 8D 32 34 30 00 37 0A 64 00 55 |.UF.1..240.7.d.U|
00000230: 46 B2 30 3A 99 3A 8E 00 50 0A 66 00 8F 20 2B 2B |F.0:.:..P.f.. ++|
00000240: 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B | CHECK DELETE ++|
00000250: 00 61 0A 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 |.a.i...(UR$).1.5|
00000260: 30 00 79 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C |0.y.n.UR$..(UR$,|
00000270: C3 28 55 52 24 29 AB 31 29 00 8B 0A 73 00 99 22 |.(UR$).1)...s.."|
00000280: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B2 0A 78 00 |. ..";:.50...x.|
00000290: 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 |. ++ CHECK FOR V|
000002A0: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 |ALID CHARACTERS |
000002B0: 2B 2B 00 C4 0A 7D 00 8B C3 28 55 53 24 29 B2 30 |++...}...(US$).0|
000002C0: A7 31 35 30 00 D5 0A 82 00 81 55 53 B2 31 A4 C3 |.150......US.1..|
000002D0: 28 55 53 24 29 00 EC 0A 87 00 8B 55 49 24 B2 CA |(US$)......UI$..|
000002E0: 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 F2 0A 8C |(US$,US,1)......|
000002F0: 00 82 00 FF 0A 91 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000300: 1A 0B 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 |..... ** STANDAR|
00000310: 44 20 49 4E 50 55 54 20 2A 2A 00 2B 0B 98 00 8B |D INPUT **.+....|
00000320: C6 28 55 49 24 29 B2 34 36 A7 8E 00 3C 0B 9B 00 |.(UI$).46...<...|
00000330: 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 59 0B A0 |.UI$..(32)...Y..|
00000340: 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 |...(UI$).48..(UI|
00000350: 24 29 B1 35 37 A7 31 37 30 00 5F 0B A5 00 8E 00 |$).57.170._.....|
00000360: 7C 0B AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 ||.....(UI$).65..|
00000370: 28 55 49 24 29 B1 39 30 A7 31 38 30 00 82 0B AF |(UI$).90.180....|
00000380: 00 8E 00 A6 0B B4 00 8B C6 28 55 49 24 29 B3 31 |.........(UI$).1|
00000390: 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 |93..(UI$).218.UI|
000003A0: 24 B2 22 22 3A 8E 00 C9 0B B9 00 8B C2 28 55 54 |$."":........(UT|
000003B0: 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 |).UU%.UI$..(.(UI|
000003C0: 24 29 AB 31 32 38 29 3A 8E 00 CF 0B BB 00 8E 00 |$).128):........|
000003D0: DC 0B BE 00 55 49 24 B2 22 22 3A 8E 00 01 0C C3 |....UI$."":.....|
000003E0: 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 |.UF.1:. +++ HELP|
000003F0: 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B | ROUTINE EXIT ++|
00000400: 2B 00 0A 0C C5 00 8D 32 35 30 00 13 0C C8 00 8D |+......250......|
00000410: 32 34 35 00 32 0C CD 00 81 55 51 B2 55 42 A4 28 |245.2....UQ.UB.(|
00000420: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000430: 32 29 00 4E 0C D2 00 55 51 25 28 55 51 AB 55 42 |2).N...UQ%(UQ.UB|
00000440: 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 61 |)..(UQ):.:.".".a|
00000450: 0C D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 |...UZ.1:UV%..(UT|
00000460: 29 00 6A 0C D8 00 89 33 30 30 00 AD 0C D9 00 55 |).j....300.....U|
00000470: 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 |Z.0:US$.UJ$:UG$.|
00000480: 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 3A |UK$:UP.UJ:UL.UK:|
00000490: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
000004A0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 36 00 E2 0C |81,6:.53280,6...|
000004B0: DC 00 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B 3A |..UT$.UL$:.".";:|
000004C0: 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 |.UT,UV%:.UQ.UB.(|
000004D0: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
000004E0: 33 29 00 F7 0C E1 00 97 55 51 2C 55 51 25 28 55 |3)......UQ,UQ%(U|
000004F0: 51 AB 55 42 29 3A 82 00 03 0D E6 00 97 55 31 2C |Q.UB):.......U1,|
00000500: 55 31 25 00 0F 0D E8 00 97 55 32 2C 55 32 25 00 |U1%......U2,U2%.|
00000510: 1B 0D E9 00 97 55 34 2C 55 34 25 00 29 0D EA 00 |.....U4,U4%.)...|
00000520: 97 55 33 2C 55 33 25 AB 31 00 31 0D EB 00 89 33 |.U3,U3%.1.1....3|
00000530: 35 00 63 0D F0 00 55 44 25 B2 28 28 55 32 25 AC |5.c...UD%.((U2%.|
00000540: 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 |256.U1%.U3%).UB)|
00000550: AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 |.40:..(UD$,UD%.1|
00000560: 29 3A 8E 00 9E 0D F5 00 99 C8 28 55 44 24 2C 32 |):........(UD$,2|
00000570: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" |
00000580: 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 | . HELP|
00000590: 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 CA | COMING . ":...|
000005A0: 0D FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 |...U1%..(U1):U2%|
000005B0: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)|
000005C0: 3A 55 34 25 B2 C2 28 55 34 29 00 F2 0D FB 00 55 |:U4%..(U4).....U|
000005D0: 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 |J$.US$:UK$.UG$:U|
000005E0: 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 |L$.UT$:UJ.UP:UK.|
000005F0: 55 4C 00 F8 0D FF 00 8E 00 09 0E 2C 01 8F 20 2A |UL.........,.. *|
00000600: 2A 20 4D 45 4E 55 20 2A 2A 00 0F 0E 2D 01 3A 00 |* MENU **...-.:.|
00000610: 3E 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 |>....".":.UT,UU%|
00000620: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000630: 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 44 |281,9:.53280,8.D|
00000640: 0E 2F 01 3A 00 61 0E 31 01 99 22 13 20 20 20 20 |./.:.a.1..". |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 | MENU|
00000660: 22 00 90 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D |"...6.." -------|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00000690: 00 B4 0E 3B 01 99 22 11 11 20 20 20 20 20 20 20 |...;..".. |
000006A0: 31 2E 20 20 20 42 45 47 49 4E 20 48 41 4E 47 4D |1. BEGIN HANGM|
000006B0: 41 4E 20 32 00 DE 0E 40 01 99 22 11 11 20 20 20 |AN 2...@..".. |
000006C0: 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E 54 | 2. STUDENT|
000006D0: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 08 | INSTRUCTIONS"..|
000006E0: 0F 45 01 99 22 11 11 20 20 20 20 20 20 20 33 2E |.E..".. 3.|
000006F0: 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 | TEACHER INSTR|
00000700: 55 43 54 49 4F 4E 53 22 00 35 0F 4A 01 99 22 11 |UCTIONS".5.J..".|
00000710: 11 20 20 20 20 20 20 20 34 2E 20 20 20 4D 4F 44 |. 4. MOD|
00000720: 49 46 49 43 41 54 49 4F 4E 20 4F 46 20 50 52 4F |IFICATION OF PRO|
00000730: 47 52 41 4D 22 00 51 0F 4F 01 99 22 11 11 20 20 |GRAM".Q.O..".. |
00000740: 20 20 20 20 20 35 2E 20 20 20 51 55 49 54 11 11 | 5. QUIT..|
00000750: 22 00 80 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D |"...T.." -------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00000780: 00 AB 0F 59 01 99 22 11 11 20 20 20 20 20 20 20 |...Y..".. |
00000790: 50 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B |PRESS A NUMBER K|
000007A0: 45 59 20 28 31 2D 35 29 20 22 3B 00 D4 0F 5E 01 |EY (1-5) ";...^.|
000007B0: 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 35 22 |UL.1:US$."12345"|
000007C0: 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 |:.35:. INPUT ROU|
000007D0: 54 49 4E 45 00 DF 0F 60 01 55 53 24 B2 22 22 00 |TINE...`.US$."".|
000007E0: 00 10 63 01 91 C5 28 55 52 24 29 8D 31 30 30 30 |..c...(UR$).1000|
000007F0: 2C 34 30 30 2C 35 30 30 2C 36 30 30 2C 33 39 36 |,400,500,600,396|
00000800: 00 09 10 68 01 89 33 30 30 00 30 10 8B 01 8F 20 |...h..300.0.... |
00000810: 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F |** RE-ENABLE STO|
00000820: 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A 2A |P KEY AND END **|
00000830: 00 5F 10 8C 01 8B C2 28 35 30 30 30 33 29 B3 B1 |._.....(50003)..|
00000840: 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 AF |1..(50003)..160.|
00000850: C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 |.(50003)..0.399.|
00000860: 89 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 30 |.....UU.71:..(50|
00000870: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A |003).0..53281,6:|
00000880: 97 35 33 32 38 30 2C 31 34 00 95 10 8E 01 99 22 |.53280,14......"|
00000890: 9A 93 22 3A 80 00 A0 10 8F 01 8D 38 37 35 3A 8E |..":.......875:.|
000008A0: 00 C1 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E |...... ** STUDEN|
000008B0: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A |T INSTRUCTIONS *|
000008C0: 2A 00 F0 10 95 01 99 22 93 22 3A 97 55 54 2C 55 |*......".":.UT,U|
000008D0: 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |L%:..(50003).0..|
000008E0: 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 |53281,0:.53280,0|
000008F0: 00 11 11 9A 01 55 50 B2 30 3A 55 47 24 B2 22 D3 |.....UP.0:UG$.".|
00000900: 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 |TUDENT .NST":.85|
00000910: 30 00 40 11 9C 01 99 22 11 1D D9 4F 55 52 20 42 |0.@...."...OUR B|
00000920: 45 53 54 20 46 52 49 45 4E 44 20 48 41 53 20 42 |EST FRIEND HAS B|
00000930: 45 45 4E 20 41 52 52 45 53 54 45 44 20 41 4E 44 |EEN ARRESTED AND|
00000940: 00 6C 11 9E 01 99 22 11 1D 43 48 41 52 47 45 44 |.l...."..CHARGED|
00000950: 20 57 49 54 48 20 41 52 53 4F 4E 2C 20 54 52 45 | WITH ARSON, TRE|
00000960: 41 53 4F 4E 2C 20 41 52 4D 45 44 22 00 99 11 A0 |ASON, ARMED"....|
00000970: 01 99 22 11 1D 52 4F 42 42 45 52 59 20 41 4E 44 |.."..ROBBERY AND|
00000980: 20 50 55 42 4C 49 43 20 44 52 55 4E 4B 45 4E 45 | PUBLIC DRUNKENE|
00000990: 53 53 20 12 D0 CC D5 D3 92 00 BF 11 A2 01 99 22 |SS ............"|
000009A0: 11 1D 4D 55 52 44 45 52 2C 20 4D 41 59 48 45 4D |..MURDER, MAYHEM|
000009B0: 2C 20 49 47 4E 4F 52 41 4E 43 45 20 41 4E 44 00 |, IGNORANCE AND.|
000009C0: D1 11 A3 01 99 22 11 1D 55 47 4C 49 4E 45 53 53 |....."..UGLINESS|
000009D0: 2E 00 00 12 A4 01 99 22 11 1D C8 4F 57 45 56 45 |......."...OWEVE|
000009E0: 52 2C 20 54 48 45 20 4A 55 44 47 45 2C 20 42 45 |R, THE JUDGE, BE|
000009F0: 49 4E 47 20 41 20 42 45 4E 45 56 4F 4C 45 4E 54 |ING A BENEVOLENT|
00000A00: 00 30 12 A5 01 99 22 11 1D 53 4F 52 54 2C 20 57 |.0...."..SORT, W|
00000A10: 49 4C 4C 20 4C 45 54 20 59 4F 55 52 20 46 52 49 |ILL LET YOUR FRI|
00000A20: 45 4E 44 20 50 4C 45 41 2D 42 41 52 47 41 49 4E |END PLEA-BARGAIN|
00000A30: 00 5E 12 A6 01 99 22 1D 54 48 45 20 43 48 41 52 |.^....".THE CHAR|
00000A40: 47 45 53 20 44 4F 57 4E 20 54 4F 20 55 47 4C 49 |GES DOWN TO UGLI|
00000A50: 4E 45 53 53 2C 20 50 52 4F 56 49 44 45 44 00 95 |NESS, PROVIDED..|
00000A60: 12 A8 01 99 22 11 1D 48 45 2F 53 48 45 20 48 41 |...."..HE/SHE HA|
00000A70: 53 20 4F 4E 45 20 46 52 49 45 4E 44 2E 20 20 C7 |S ONE FRIEND. .|
00000A80: D5 C5 D3 D3 A0 D7 C8 CF 3F 3F 22 3A 8D 38 33 35 |........??":.835|
00000A90: 3A 8D 38 35 30 00 C2 12 AA 01 99 22 11 1D D4 4F |:.850......"...O|
00000AA0: 20 53 41 56 45 20 59 4F 55 52 20 46 52 49 45 4E | SAVE YOUR FRIEN|
00000AB0: 44 27 53 20 4C 49 46 45 2C 20 59 4F 55 20 4D 55 |D'S LIFE, YOU MU|
00000AC0: 53 54 00 EE 12 AB 01 99 22 11 1D 47 55 45 53 53 |ST......"..GUESS|
00000AD0: 20 54 48 45 20 53 45 43 52 45 54 20 57 4F 52 44 | THE SECRET WORD|
00000AE0: 2F 57 4F 52 44 53 2E 20 20 C5 41 43 48 22 00 1B |/WORDS. .ACH"..|
00000AF0: 13 AC 01 99 22 11 1D 54 49 4D 45 20 59 4F 55 20 |...."..TIME YOU |
00000B00: 47 55 45 53 53 20 41 20 C3 CF D2 D2 C5 C3 D4 20 |GUESS A ....... |
00000B10: 4C 45 54 54 45 52 2C 20 59 4F 55 00 4A 13 AD 01 |LETTER, YOU.J...|
00000B20: 99 22 11 1D 48 41 56 45 20 41 20 43 48 41 4E 43 |."..HAVE A CHANC|
00000B30: 45 20 54 4F 20 47 55 45 53 53 20 54 48 45 20 57 |E TO GUESS THE W|
00000B40: 4F 52 44 2F 57 4F 52 44 53 2C 00 76 13 AE 01 99 |ORD/WORDS,.v....|
00000B50: 22 11 1D 57 49 54 48 20 4E 4F 20 50 45 4E 41 4C |"..WITH NO PENAL|
00000B60: 54 59 20 46 4F 52 20 41 20 57 52 4F 4E 47 20 47 |TY FOR A WRONG G|
00000B70: 55 45 53 53 2E 22 00 A5 13 B2 01 99 22 11 1D C2 |UESS."......"...|
00000B80: 55 54 20 C2 C5 D7 C1 D2 C5 21 21 21 21 20 20 C5 |UT ......!!!! .|
00000B90: 41 43 48 20 54 49 4D 45 20 59 4F 55 20 47 55 45 |ACH TIME YOU GUE|
00000BA0: 53 53 20 41 4E 00 D4 13 B4 01 99 22 11 1D C9 CE |SS AN......"....|
00000BB0: C3 CF D2 D2 C5 C3 D4 20 4C 45 54 54 45 52 2C 20 |....... LETTER, |
00000BC0: 59 4F 55 52 20 46 52 49 45 4E 44 20 41 44 56 41 |YOUR FRIEND ADVA|
00000BD0: 4E 43 45 53 00 F0 13 B5 01 99 22 11 1D 4F 4E 45 |NCES......"..ONE|
00000BE0: 20 53 54 45 50 20 43 4C 4F 53 45 52 20 54 4F 22 | STEP CLOSER TO"|
00000BF0: 00 0E 14 B6 01 99 20 A3 31 30 29 3B 22 11 21 21 |...... .10);".!!|
00000C00: 21 21 20 20 C4 CF CF CD 20 20 21 21 21 21 00 1C |!! .... !!!!..|
00000C10: 14 B8 01 8D 38 33 35 3A 8D 38 35 30 00 4B 14 E0 |....835:.850.K..|
00000C20: 01 99 22 11 11 1D CE 4F 54 45 3A 11 11 11 D4 4F |.."....OTE:....O|
00000C30: 20 41 44 56 41 4E 43 45 20 46 52 4F 4D 20 4F 4E | ADVANCE FROM ON|
00000C40: 45 20 51 55 45 53 54 49 4F 4E 22 00 74 14 E2 01 |E QUESTION".t...|
00000C50: 99 22 11 1D 54 4F 20 54 48 45 20 4E 45 58 54 20 |."..TO THE NEXT |
00000C60: 50 52 45 53 53 20 54 48 45 20 D3 D0 C1 C3 C5 20 |PRESS THE ..... |
00000C70: 42 41 52 22 00 A0 14 E4 01 99 22 11 11 1D C9 46 |BAR"......"....F|
00000C80: 20 41 54 20 41 4E 59 20 54 49 4D 45 20 59 4F 55 | AT ANY TIME YOU|
00000C90: 20 57 49 53 48 20 54 4F 20 52 45 54 55 52 4E 22 | WISH TO RETURN"|
00000CA0: 00 C4 14 E6 01 99 22 11 1D 54 4F 20 54 48 45 20 |......"..TO THE |
00000CB0: CD C5 CE D5 20 50 52 45 53 53 20 48 20 D2 C5 D4 |.... PRESS H ...|
00000CC0: D5 D2 CE 22 00 CD 14 E8 01 8D 38 33 35 00 E1 14 |..."......835...|
00000CD0: EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 |...UZ.1..UP%:.21|
00000CE0: 37 00 E7 14 F3 01 8E 00 08 15 F4 01 8F 20 2A 2A |7............ **|
00000CF0: 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 | TEACHER INSTRUC|
00000D00: 54 49 4F 4E 53 20 2A 2A 00 38 15 F5 01 99 22 93 |TIONS **.8....".|
00000D10: 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 |":.UT,UL%:..(500|
00000D20: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 |03).0..53281,2:.|
00000D30: 35 33 32 38 30 2C 31 30 00 59 15 F6 01 55 50 B2 |53280,10.Y...UP.|
00000D40: 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 |0:UG$.".EACHER .|
00000D50: 4E 53 54 22 3A 8D 38 35 30 00 87 15 F7 01 99 22 |NST":.850......"|
00000D60: 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 |.. .O THE B|
00000D70: 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C |EST OF OUR KNOWL|
00000D80: 45 44 47 45 2C 11 22 00 B0 15 F8 01 99 22 20 20 |EDGE,."......" |
00000D90: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 | THIS PROGRAM IS|
00000DA0: 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 | IN THE PUBLIC."|
00000DB0: 00 DC 15 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E |......" DOMAIN|
00000DC0: 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F |. .F THIS IS NO|
00000DD0: 54 20 54 48 45 20 43 41 53 45 11 22 00 F9 15 FA |T THE CASE."....|
00000DE0: 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E |.." PLEASE CON|
00000DF0: 54 41 43 54 3A 11 11 11 22 00 23 16 FB 01 99 22 |TACT:...".#...."|
00000E00: 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 | .OMMODORE |
00000E10: C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 |.USINESS .ACHINE|
00000E20: 53 11 22 00 46 16 FC 01 99 22 20 20 20 20 20 20 |S.".F...." |
00000E30: 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 | 3370 .HARMAC|
00000E40: 59 20 C1 56 45 2E 00 6A 16 FD 01 99 22 20 20 20 |Y .VE..j...." |
00000E50: 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 | .GINCOURT|
00000E60: 2C 20 CF 4E 54 41 52 49 4F 22 00 8C 16 FE 01 99 |, .NTARIO"......|
00000E70: 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 |" .ANAD|
00000E80: 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 AC 16 FF |A .1. 2.4"....|
00000E90: 01 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 |.." (41|
00000EA0: 36 29 20 34 39 39 2D 34 32 39 32 22 00 C2 16 00 |6) 499-4292"....|
00000EB0: 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 |.UP.1:. 835:. 85|
00000EC0: 30 3A 00 E8 16 01 02 99 22 20 20 20 20 20 11 11 |0:......" ..|
00000ED0: D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 C8 41 |.ROGRAM .AME: .A|
00000EE0: 4E 47 4D 41 4E 20 32 11 00 0A 17 02 02 99 22 20 |NGMAN 2......." |
00000EF0: 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 | .RITTEN .Y |
00000F00: 3A 20 D5 4E 4B 4E 4F 57 4E 11 00 2F 17 03 02 99 |: .NKNOWN../....|
00000F10: 22 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 C2 |" .PGRADED .|
00000F20: 59 20 3A 20 CA 2E C3 2E 20 D2 4F 53 53 45 52 00 |Y : .... .OSSER.|
00000F30: 5A 17 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 |Z...." ..HIS|
00000F40: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 | PROGRAM WILL RU|
00000F50: 4E 20 4F 4E 20 41 4E 59 11 11 00 81 17 05 02 99 |N ON ANY........|
00000F60: 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 A0 |" ......|
00000F70: 32 2E 30 20 D0 C5 D4 20 C3 CF CD D0 D5 D4 C5 D2 |2.0 ... ........|
00000F80: 11 00 A8 17 06 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000F90: 20 C2 C1 D3 C9 C3 20 34 2E 30 20 D0 C5 D4 A0 C3 | ..... 4.0 .....|
00000FA0: CF CD D0 D5 D4 C5 D2 11 00 CA 17 07 02 99 22 20 |.............." |
00000FB0: 20 20 20 20 20 20 20 20 38 30 33 32 20 C3 C2 CD | 8032 ...|
00000FC0: 20 C3 CF CD D0 D5 D4 C5 D2 11 00 EF 17 08 02 99 | ...............|
00000FD0: 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 |" ......|
00000FE0: CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 |... 64 .........|
00000FF0: F8 17 44 02 8D 38 33 35 00 0C 18 4E 02 8B 55 5A |..D..835...N..UZ|
00001000: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 12 18 57 |.1..UP%:.217...W|
00001010: 02 8E 00 38 18 58 02 8F 20 2A 2A 20 50 52 4F 47 |...8.X.. ** PROG|
00001020: 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E |RAM MODIFICATION|
00001030: 20 49 4E 53 54 20 2A 2A 00 49 18 59 02 99 22 93 | INST **.I.Y..".|
00001040: 22 3A 97 55 54 2C 55 4C 25 00 69 18 5D 02 55 50 |":.UT,UL%.i.].UP|
00001050: B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 |.0:UG$.".ROGRAM |
00001060: CD 4F 44 22 3A 8D 38 35 30 00 96 18 62 02 99 22 |.OD":.850...b.."|
00001070: 11 1D C9 4E 20 4F 52 44 45 52 20 54 4F 20 43 48 |...N ORDER TO CH|
00001080: 41 4E 47 45 20 54 48 45 20 57 4F 52 44 53 20 49 |ANGE THE WORDS I|
00001090: 4E 20 54 48 45 22 00 BE 18 67 02 99 22 11 1D 43 |N THE"...g.."..C|
000010A0: 41 54 41 47 4F 52 49 45 53 20 41 4C 52 45 41 44 |ATAGORIES ALREAD|
000010B0: 59 20 55 53 45 44 20 49 4E 20 54 48 49 53 00 E9 |Y USED IN THIS..|
000010C0: 18 6C 02 99 22 11 1D 50 52 4F 47 52 41 4D 20 53 |.l.."..PROGRAM S|
000010D0: 49 4D 50 4C 59 20 43 48 41 4E 47 45 20 54 48 45 |IMPLY CHANGE THE|
000010E0: 20 44 41 54 41 20 49 4E 22 00 04 19 71 02 99 22 | DATA IN"...q.."|
000010F0: 11 1D 4C 49 4E 45 53 20 32 33 30 35 2D 32 34 30 |..LINES 2305-240|
00001100: 30 2E 20 22 00 32 19 76 02 99 22 11 1D D4 4F 20 |0. ".2.v.."...O |
00001110: 43 48 41 4E 47 45 20 54 48 45 20 43 41 54 41 47 |CHANGE THE CATAG|
00001120: 4F 52 49 45 53 20 55 53 45 44 20 43 48 41 4E 47 |ORIES USED CHANG|
00001130: 45 22 00 49 19 7B 02 99 22 11 1D 4C 49 4E 45 20 |E".I.{.."..LINE |
00001140: 31 34 30 35 20 54 4F 3A 22 00 72 19 80 02 99 22 |1405 TO:".r...."|
00001150: 11 1D 31 34 30 35 20 C3 D4 24 28 31 29 3D 27 C6 |..1405 ..$(1)='.|
00001160: C9 D2 D3 D4 A0 C3 C1 D4 C1 C7 CF D2 D9 27 2E 2E |.............'..|
00001170: 2E 22 00 A2 19 85 02 99 22 11 1D 41 4E 44 20 53 |."......"..AND S|
00001180: 4F 20 4F 4E 20 55 50 20 54 4F 20 C3 D4 24 28 35 |O ON UP TO ..$(5|
00001190: 29 3D 27 C6 C9 C6 D4 C8 A0 C3 C1 D4 C1 C7 CF D2 |)='.............|
000011A0: D9 27 00 CC 19 8A 02 99 22 1D D4 48 45 4E 20 43 |.'......"..HEN C|
000011B0: 48 41 4E 47 45 20 54 48 45 20 44 41 54 41 20 4C |HANGE THE DATA L|
000011C0: 49 4E 45 53 20 54 4F 20 54 48 45 22 00 F5 19 8F |INES TO THE"....|
000011D0: 02 99 22 11 1D 44 41 54 41 20 59 4F 55 20 57 41 |.."..DATA YOU WA|
000011E0: 4E 54 20 49 4E 20 45 41 43 48 20 43 41 54 41 47 |NT IN EACH CATAG|
000011F0: 4F 52 59 2E 22 00 FE 19 94 02 8D 38 33 35 00 12 |ORY."......835..|
00001200: 1A B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |....UZ.1..UP%:.2|
00001210: 31 37 00 18 1A BB 02 8E 00 3D 1A BC 02 8F 20 2A |17.......=.... *|
00001220: 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F |* TO USE 8032 LO|
00001230: 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 73 1A |AD CBM4032 **.s.|
00001240: C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 |...".....BEFORE |
00001250: 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F |RUNNING THIS PRO|
00001260: 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 |GRAM ON AN 8032 |
00001270: 20 11 11 00 A9 1A D0 02 99 22 20 20 20 20 20 20 | ........" |
00001280: 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 |LOAD THE 'CBM 40|
00001290: 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 |32' PROGRAM.....|
000012A0: 11 11 11 11 11 11 11 11 22 00 B4 1A DA 02 9E 55 |........"......U|
000012B0: 55 AA 37 31 00 BA 1A E4 02 80 00 DF 1A 1D 03 8F |U.71............|
000012C0: 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 | ** TO USE 8032 |
000012D0: 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 |LOAD CBM4032 **.|
000012E0: 2A 1B 1E 03 99 22 93 11 11 11 42 45 46 4F 52 45 |*...."....BEFORE|
000012F0: 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 | RUNNING THIS PR|
00001300: 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 |OGRAM ON AN 8032|
00001310: 20 20 11 11 4C 4F 41 44 20 43 42 4D 20 34 30 33 | ..LOAD CBM 403|
00001320: 32 20 50 52 4F 47 52 41 4D 22 00 36 1B 1F 03 9E |2 PROGRAM".6....|
00001330: 31 30 39 33 3A 80 00 56 1B 20 03 8F 20 2A 2A 20 |1093:..V. .. ** |
00001340: 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 |T I T L E P A |
00001350: 47 20 45 20 2A 2A 00 8A 1B 22 03 99 22 93 11 1D |G E **...".."...|
00001360: 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 |.";:.UT,UU%:..(5|
00001370: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 |0003).0..53280,1|
00001380: 34 3A 97 35 33 32 38 31 2C 36 00 A0 1B 24 03 81 |4:.53281,6...$..|
00001390: 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 |I.1.38:."...";:.|
000013A0: 00 B8 1B 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 |...&..I.1.22:.".|
000013B0: 9D 12 A6 92 22 3B 3A 82 00 D0 1B 28 03 81 49 B2 |....";:....(..I.|
000013C0: 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 |1.37:.".....";:.|
000013D0: 00 E8 1B 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 |...*..I.1.22:.".|
000013E0: 9D 12 A6 92 22 3B 3A 82 00 0D 1C 2C 03 99 22 13 |....";:....,..".|
000013F0: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001400: 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 2F 1C |.......... ../.|
00001410: 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
00001420: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 |....... . . ...|
00001430: 50 1C 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |P.0.."..........|
00001440: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF |......... . ...|
00001450: 00 6E 1C 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |.n.2..".........|
00001460: 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 96 |........... ...|
00001470: 1C 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |.4.."...........|
00001480: 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F |...C O M M O D O|
00001490: 20 52 20 45 11 11 00 B9 1C 36 03 99 22 1D 1D 1D | R E.....6.."...|
000014A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 |............EDUC|
000014B0: 41 54 49 4F 4E 41 4C 11 11 00 D8 1C 38 03 99 22 |ATIONAL.....8.."|
000014C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000014D0: 53 4F 46 54 57 41 52 45 00 F3 1C 3A 03 8F 20 2A |SOFTWARE...:.. *|
000014E0: 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F |* COMMODORE LOGO|
000014F0: 20 2A 2A 00 2B 1D 3B 03 99 C8 28 55 44 24 2C 32 | **.+.;...(UD$,2|
00001500: 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 |4);"..........PR|
00001510: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 |ESS SPACE BAR OR|
00001520: 20 57 41 49 54 92 22 3A 49 B2 30 00 4D 1D 3C 03 | WAIT.":I.0.M.<.|
00001530: A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 |.A$:.A$.." ".I.I|
00001540: AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 71 1D |.1:.I.250.828.q.|
00001550: 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A |>.T1$."":T2$."":|
00001560: 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 |T3$."":T4$."":I.|
00001570: 30 00 7A 1D 40 03 89 33 30 30 00 96 1D 43 03 8F |0.z.@..300...C..|
00001580: 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 | ** SPACE BAR PR|
00001590: 45 53 53 20 2A 2A 00 D1 1D 48 03 99 C8 28 55 44 |ESS **...H...(UD|
000015A0: 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 |$,24);".......PR|
000015B0: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F |ESS SPACE BAR TO|
000015C0: 20 43 4F 4E 54 49 4E 55 45 92 22 3A 97 55 4F 2C | CONTINUE.":.UO,|
000015D0: 30 00 E8 1D 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 |0...L..UI$:.UI$.|
000015E0: B1 22 20 22 A7 38 34 34 00 EE 1D 4E 03 8E 00 0E |." ".844...N....|
000015F0: 1E 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 |.R.. ** PAGE DES|
00001600: 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 1A |IGN ROUTINE **..|
00001610: 1E 54 03 55 50 B2 55 50 AA 31 00 44 1E 57 03 99 |.T.UP.UP.1.D.W..|
00001620: 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 |".".(UT$.UP$,21)|
00001630: 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 |;.(UP$.UG$..(UP)|
00001640: 2C 31 38 29 00 73 1E 5C 03 99 22 20 2D 2D 2D 2D |,18).s.\.." ----|
00001650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001670: 2D 2D 22 00 82 1E 60 03 8B 55 48 B3 B1 30 A7 38 |--"...`..UH..0.8|
00001680: 37 30 00 B6 1E 61 03 99 C8 28 55 44 24 2C 32 34 |70...a...(UD$,24|
00001690: 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 |);.(UP$,7);"HELP|
000016A0: 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 | - PRESS H <RE|
000016B0: 54 55 52 4E 3E 22 00 C7 1E 66 03 55 48 B2 30 3A |TURN>"...f.UH.0:|
000016C0: 99 22 13 11 22 3A 8E 00 E6 1E 6B 03 8F 20 2A 2A |."..":....k.. **|
000016D0: 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D | PLEASE WAIT REM|
000016E0: 41 52 4B 20 2A 2A 00 1C 1F 70 03 99 C8 28 55 44 |ARK **...p...(UD|
000016F0: 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 |$,24);" |
00001700: 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 | ONE MOMENT PLE|
00001710: 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 22 1F 75 |ASE... ".".u|
00001720: 03 8E 00 3F 1F 84 03 8F 20 2A 2A 20 53 45 54 20 |...?.... ** SET |
00001730: 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |UP VARIABLES **.|
00001740: 8A 1F 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 |....UX$."H":.UQ%|
00001750: 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A |(1000):UB.32768:|
00001760: 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 |U1.196:U2.197:U3|
00001770: B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 |.198:U4.216:UC.1|
00001780: 36 37 3A 55 55 B2 31 30 32 34 00 C8 1F 86 03 55 |67:UU.1024.....U|
00001790: 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 |T.59468:UU%.12:U|
000017A0: 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 |L%.14:UP%.1146:U|
000017B0: 4D B2 33 32 37 36 38 3A 97 20 35 30 30 30 33 2C |M.32768:. 50003,|
000017C0: 30 3A 55 4F B2 31 35 38 00 0B 20 87 03 8B C2 28 |0:UO.158.. ....(|
000017D0: 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 |50003).0.UB.1024|
000017E0: 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 |:U1.209:U2.210:U|
000017F0: 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 |3.211:U4.214:UC.|
00001800: 32 30 34 3A 55 55 B2 32 30 34 38 00 4A 20 88 03 |204:UU.2048.J ..|
00001810: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 |..(50003).0.UT.5|
00001820: 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 |3272:UU%.21:UL%.|
00001830: 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 |23:UP%.2139:UM.1|
00001840: 30 32 34 3A 55 4F B2 31 39 38 00 6E 20 89 03 55 |024:UO.198.n ..U|
00001850: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
00001860: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 A0 |............."..|
00001870: 20 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 | ..UP$." |
00001880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000018A0: 00 EE 20 8B 03 55 54 24 B2 22 20 C8 C1 CE C7 CD |.. ..UT$." .....|
000018B0: C1 CE 20 32 20 20 20 20 20 A0 A0 A0 A0 22 3A 8F |.. 2 ....":.|
000018C0: 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 | PLACE PROGRAM T|
000018D0: 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 |ITLE HERE !!!!!!|
000018E0: 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 13 |!!!!!!!!!!!***..|
000018F0: 21 8C 03 86 20 48 4D 24 28 38 29 2C 54 44 24 28 |!... HM$(8),TD$(|
00001900: 36 2C 34 29 2C 50 52 24 28 31 37 29 2C 43 24 28 |6,4),PR$(17),C$(|
00001910: 32 35 29 00 19 21 8D 03 8E 00 33 21 8E 03 8F 20 |25)..!....3!... |
00001920: 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 |** SET VARIABLES|
00001930: 20 2A 2A 00 3C 21 93 03 8D 39 30 30 00 42 21 95 | **.<!...900.B!.|
00001940: 03 3A 00 5D 21 98 03 8F 20 2A 2A 20 43 48 45 43 |.:.]!... ** CHEC|
00001950: 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 7B 21 |K FOR 8032 **.{!|
00001960: 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 |...".":.".":. SH|
00001970: 49 46 54 45 44 20 53 50 41 43 45 00 92 21 A2 03 |IFTED SPACE..!..|
00001980: 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 |..(UB.40)..96..7|
00001990: 30 30 00 AB 21 A3 03 8F 20 2A 2A 20 4D 45 4D 4F |00..!... ** MEMO|
000019A0: 52 59 20 43 48 45 43 4B 20 2A 2A 00 BF 21 A4 03 |RY CHECK **..!..|
000019B0: 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 |. .(0).2000.937.|
000019C0: ED 21 A5 03 99 22 93 11 11 05 54 48 49 53 20 4D |.!..."....THIS M|
000019D0: 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 |ACHINE DOES NOT |
000019E0: 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 11 22 |HAVE ENOUGH.".."|
000019F0: A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 |..."MEMORY TO RU|
00001A00: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 |N THIS PROGRAM !|
00001A10: 22 00 1C 22 A7 03 9E 55 55 AA 37 31 00 22 22 A8 |".."...UU.71."".|
00001A20: 03 80 00 3C 22 A9 03 99 22 93 05 22 3A 8B C2 28 |...<"..."..":..(|
00001A30: 35 30 30 30 33 29 B2 30 A7 39 36 32 00 6B 22 AC |50003).0.962.k".|
00001A40: 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 |.. ** BASIC 2.0 |
00001A50: 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D | OR 4.0 OR C-|
00001A60: 36 34 20 53 45 54 55 50 20 2A 2A 00 A9 22 AD 03 |64 SETUP **.."..|
00001A70: 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C |.1075,133:.1076,|
00001A80: 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 |144:.1077,234:.1|
00001A90: 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A |079,4:.1080,133:|
00001AA0: 97 31 30 38 31 2C 31 34 35 00 DF 22 AE 03 97 31 |.1081,145.."...1|
00001AB0: 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 |091,155:.1098,13|
00001AC0: 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 |3:.1099,144:.110|
00001AD0: 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 |0,234:.1103,133.|
00001AE0: 01 23 AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 |.#...1104,145:.1|
00001AF0: 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 |105,234:.1082,23|
00001B00: 34 00 18 23 B1 03 8B C2 28 35 30 30 30 33 29 B3 |4..#....(50003).|
00001B10: B1 31 36 30 A7 39 35 35 00 47 23 B6 03 97 31 30 |.160.955.G#...10|
00001B20: 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A |93,88:.1094,228:|
00001B30: 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 |.1097,85:.1102,2|
00001B40: 32 38 3A 89 39 36 35 00 5C 23 BB 03 8B C2 28 35 |28:.965.\#....(5|
00001B50: 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 8B 23 C0 |0003)..1.990..#.|
00001B60: 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C |..1093,49:.1094,|
00001B70: 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 |230:.1097,46:.11|
00001B80: 30 32 2C 32 33 30 3A 89 39 36 35 00 C5 23 C2 03 |02,230:.965..#..|
00001B90: 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C |.2099,141:.2100,|
00001BA0: 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 |20:.2101,3:.2103|
00001BB0: 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 |,8:.2104,141:.21|
00001BC0: 30 35 2C 32 31 00 01 24 C3 03 97 32 31 30 36 2C |05,21..$...2106,|
00001BD0: 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 |3:.2115,145:.211|
00001BE0: 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 |7,52:.2118,234:.|
00001BF0: 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 |2121,49:.2122,14|
00001C00: 31 00 3B 24 C4 03 97 32 31 32 33 2C 32 30 3A 97 |1.;$...2123,20:.|
00001C10: 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 |2124,3:.2126,234|
00001C20: 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 |:.2127,141:.2128|
00001C30: 2C 32 31 3A 97 32 31 32 39 2C 33 00 59 24 C5 03 |,21:.2129,3.Y$..|
00001C40: 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 |.UU.48:. DISABLE|
00001C50: 20 53 54 4F 50 20 4B 45 59 00 6A 24 CA 03 8D 38 | STOP KEY.j$...8|
00001C60: 30 30 3A 8F 20 54 49 54 4C 45 00 7A 24 D4 03 89 |00:. TITLE.z$...|
00001C70: 33 30 30 3A 8F 20 4D 45 4E 55 00 AB 24 DE 03 99 |300:. MENU..$...|
00001C80: 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E |".THE PGM WILL N|
00001C90: 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 |OT WORK ON THIS |
00001CA0: 4D 41 43 48 49 4E 45 21 22 3A 80 00 E0 24 E8 03 |MACHINE!":...$..|
00001CB0: 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A |.UZ.1..UP%:.UP%:|
00001CC0: 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 |UZ.0:. ** PROGRA|
00001CD0: 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A |M STARTS HERE **|
00001CE0: 00 0B 25 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 |..%..."..";:.:..|
00001CF0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00001D00: 2C 36 3A 97 35 33 32 38 30 2C 36 00 2E 25 F2 03 |,6:.53280,6..%..|
00001D10: 97 55 54 2C 55 4C 25 3A 55 47 24 B2 22 D0 41 47 |.UT,UL%:UG$.".AG|
00001D20: 45 20 23 22 3A 55 50 B2 30 3A 55 48 B2 31 00 52 |E #":UP.0:UH.1.R|
00001D30: 25 C4 04 8D 38 35 30 3A 99 22 11 11 11 11 22 A3 |%...850:."....".|
00001D40: 31 33 29 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |13)"............|
00001D50: AE 22 00 66 25 C9 04 99 A3 31 33 29 22 DD 22 A3 |.".f%....13)".".|
00001D60: 32 35 29 22 DD 22 00 7F 25 CE 04 99 A3 31 33 29 |25)"."..%....13)|
00001D70: 22 DD 20 20 C8 C1 CE C7 CD C1 CE 20 20 DD 22 00 |". ....... .".|
00001D80: 93 25 D3 04 99 A3 31 33 29 22 DD 22 A3 32 35 29 |.%....13)".".25)|
00001D90: 22 DD 22 00 AC 25 D8 04 99 A3 31 33 29 22 AD C0 |"."..%....13)"..|
00001DA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 EB 25 37 |..........."..%7|
00001DB0: 05 99 22 11 11 11 1D D7 48 41 54 20 49 53 20 59 |..".....HAT IS Y|
00001DC0: 4F 55 52 20 46 49 52 53 54 20 4E 41 4D 45 3F 20 |OUR FIRST NAME? |
00001DD0: 22 3B 3A 55 4C B2 31 32 3A 55 53 24 B2 22 22 3A |";:UL.12:US$."":|
00001DE0: 8D 33 35 3A 4E 4D 24 B2 55 52 24 00 09 26 3C 05 |.35:NM$.UR$..&<.|
00001DF0: 55 48 B2 31 3A 8D 38 35 30 3A 99 22 11 11 1D CF |UH.1:.850:."....|
00001E00: 4B 41 59 2C 20 22 4E 4D 24 00 38 26 41 05 99 22 |KAY, "NM$.8&A.."|
00001E10: 11 11 1D D7 48 45 4E 20 59 4F 55 20 47 55 45 53 |....HEN YOU GUES|
00001E20: 53 20 41 20 43 4F 52 52 45 43 54 20 4C 45 54 54 |S A CORRECT LETT|
00001E30: 45 52 2C 20 59 4F 55 22 00 68 26 46 05 99 22 11 |ER, YOU".h&F..".|
00001E40: 1D 57 49 4C 4C 20 42 45 20 41 53 4B 45 44 20 49 |.WILL BE ASKED I|
00001E50: 46 20 59 4F 55 20 57 4F 55 4C 44 20 4C 49 4B 45 |F YOU WOULD LIKE|
00001E60: 20 54 4F 20 54 52 59 22 00 97 26 4B 05 99 22 11 | TO TRY"..&K..".|
00001E70: 1D 54 4F 20 47 55 45 53 53 20 54 48 45 20 45 4E |.TO GUESS THE EN|
00001E80: 54 49 52 45 20 57 4F 52 44 2E 1D 1D D4 59 50 45 |TIRE WORD....YPE|
00001E90: 20 45 49 54 48 45 52 00 C3 26 50 05 99 22 11 1D | EITHER..&P.."..|
00001EA0: 59 45 53 20 4F 52 20 4E 4F 20 41 43 43 4F 52 44 |YES OR NO ACCORD|
00001EB0: 49 4E 47 20 54 4F 20 59 4F 55 52 20 57 49 53 48 |ING TO YOUR WISH|
00001EC0: 45 53 22 00 E7 26 55 05 99 22 11 1D 41 4E 44 20 |ES"..&U.."..AND |
00001ED0: 46 4F 4C 4C 4F 57 20 54 48 45 20 49 4E 53 54 52 |FOLLOW THE INSTR|
00001EE0: 55 43 54 49 4F 4E 53 00 FD 26 56 05 99 22 11 1D |UCTIONS..&V.."..|
00001EF0: 41 43 43 4F 52 44 49 4E 47 4C 59 2E 22 00 06 27 |ACCORDINGLY."..'|
00001F00: 5A 05 8D 38 33 35 00 1F 27 64 05 81 20 49 B2 31 |Z..835..'d.. I.1|
00001F10: 20 A4 20 38 3A 87 20 48 4D 24 28 49 29 3A 82 00 | . 8:. HM$(I):..|
00001F20: 38 27 69 05 81 20 49 B2 31 20 A4 20 36 3A 20 81 |8'i.. I.1 . 6: .|
00001F30: 20 4A B2 31 20 A4 20 34 00 4B 27 6E 05 87 20 54 | J.1 . 4.K'n.. T|
00001F40: 44 24 28 49 2C 4A 29 3A 82 3A 82 00 6D 27 73 05 |D$(I,J):.:..m's.|
00001F50: 41 24 B2 22 11 9D 9D 9D 9D 22 3A 42 24 B2 22 11 |A$.".....":B$.".|
00001F60: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 00 B1 27 |............"..'|
00001F70: 78 05 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8D |x..".":.UT,UL%:.|
00001F80: 38 35 30 3A 99 22 11 1D C3 48 4F 4F 53 45 20 4F |850:."...HOOSE O|
00001F90: 4E 45 20 4F 46 20 54 48 45 20 46 4F 4C 4C 4F 57 |NE OF THE FOLLOW|
00001FA0: 49 4E 47 20 43 41 54 45 47 4F 52 49 45 53 3A 11 |ING CATEGORIES:.|
00001FB0: 11 00 C8 27 7C 05 8F 20 2A 2A 2A 43 41 54 41 47 |...'|.. ***CATAG|
00001FC0: 4F 52 49 45 53 2A 2A 2A 00 15 28 7D 05 43 54 24 |ORIES***..(}.CT$|
00001FD0: 28 31 29 B2 22 43 41 4E 42 45 52 52 41 20 53 55 |(1)."CANBERRA SU|
00001FE0: 42 55 52 42 53 22 3A 43 54 24 28 32 29 B2 22 53 |BURBS":CT$(2)."S|
00001FF0: 50 4F 52 54 53 22 3A 43 54 24 28 33 29 B2 22 43 |PORTS":CT$(3)."C|
00002000: 41 52 53 22 3A 43 54 24 28 34 29 B2 22 4E 41 54 |ARS":CT$(4)."NAT|
00002010: 49 4F 4E 53 22 00 2A 28 7E 05 43 54 24 28 35 29 |IONS".*(~.CT$(5)|
00002020: B2 22 41 4E 49 4D 41 4C 53 22 00 41 28 82 05 8F |."ANIMALS".A(...|
00002030: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00002040: 2A 00 65 28 87 05 81 20 41 B2 31 20 A4 20 35 3A |*.e(... A.1 . 5:|
00002050: 99 41 3B 22 9D 2E 20 22 3B 43 54 24 28 41 29 3B |.A;".. ";CT$(A);|
00002060: 22 11 22 3A 82 00 A8 28 8C 05 99 22 11 11 20 20 |".":...(...".. |
00002070: 20 20 D9 4F 55 52 20 43 48 4F 49 43 45 2C 20 22 | .OUR CHOICE, "|
00002080: AA 4E 4D 24 AA 22 20 22 3B 3A 55 53 24 B2 22 31 |.NM$." ";:US$."1|
00002090: 32 33 34 35 48 22 3A 55 4C B2 31 3A 8D 33 35 3A |2345H":UL.1:.35:|
000020A0: 43 B2 C5 28 55 52 24 29 00 D5 28 9B 05 99 20 22 |C..(UR$)..(... "|
000020B0: 11 20 20 20 20 CC 45 54 20 4D 45 20 54 48 49 4E |. .ET ME THIN|
000020C0: 4B 20 4F 46 20 41 20 57 4F 52 44 2E 2E 2E 22 3A |K OF A WORD...":|
000020D0: 54 54 B2 54 49 00 F5 28 A0 05 81 20 49 B2 30 20 |TT.TI..(... I.0 |
000020E0: A4 20 28 43 AB 31 29 AC 32 30 AA B5 28 BB 28 31 |. (C.1).20..(.(1|
000020F0: 29 AC 32 30 29 00 01 29 A5 05 87 20 57 44 24 3A |).20)..)... WD$:|
00002100: 82 00 18 29 AA 05 8B 20 54 49 AB 54 54 B3 31 32 |...)... TI.TT.12|
00002110: 30 20 A7 20 31 34 35 30 00 31 29 AF 05 4C 4D 24 |0 . 1450.1)..LM$|
00002120: B2 22 22 3A 50 52 24 B2 22 22 3A 4C 47 24 B2 22 |."":PR$."":LG$."|
00002130: 22 00 43 29 B4 05 81 49 B2 31 20 A4 20 C3 28 57 |".C)...I.1 . .(W|
00002140: 44 24 29 00 78 29 B9 05 8B 20 CA 28 57 44 24 2C |D$).x)... .(WD$,|
00002150: 49 2C 31 29 B2 22 20 22 20 A7 20 50 52 24 28 49 |I,1)." " . PR$(I|
00002160: 29 B2 22 20 22 3A 50 52 24 B2 50 52 24 AA 22 20 |)." ":PR$.PR$." |
00002170: 22 3A 89 20 31 34 37 35 00 93 29 BE 05 50 52 24 |":. 1475..)..PR$|
00002180: 28 49 29 B2 22 2D 22 3A 50 52 24 B2 50 52 24 AA |(I)."-":PR$.PR$.|
00002190: 22 2D 22 00 A6 29 C3 05 82 3A 99 22 93 22 3A 97 |"-"..)...:.".":.|
000021A0: 55 54 2C 55 55 25 00 B7 29 C8 05 4D 4E 24 B2 C8 |UT,UU%..)..MN$..|
000021B0: 28 4E 4D 24 2C 31 29 00 E3 29 CD 05 8B 20 C6 28 |(NM$,1)..)... .(|
000021C0: 4D 4E 24 29 B1 39 35 20 A7 4E 4D 24 B2 C7 28 C6 |MN$).95 .NM$..(.|
000021D0: 28 4D 4E 24 29 AB 31 32 38 29 AA CA 28 4E 4D 24 |(MN$).128)..(NM$|
000021E0: 2C 32 29 00 03 2A D2 05 56 50 B2 31 37 3A 48 50 |,2)..*..VP.17:HP|
000021F0: B2 30 3A 4D B2 30 3A 99 22 93 22 3B 3A 55 58 24 |.0:M.0:.".";:UX$|
00002200: B2 22 22 00 1A 2A D7 05 81 20 49 B2 31 20 A4 20 |.""..*... I.1 . |
00002210: 31 36 3A 99 22 11 22 3B 3A 82 00 33 2A DC 05 81 |16:.".";:..3*...|
00002220: 20 49 B2 31 A4 38 3A 99 3A 99 48 4D 24 28 49 29 | I.1.8:.:.HM$(I)|
00002230: 3B 3A 82 00 41 2A E1 05 81 20 49 B2 31 20 A4 20 |;:..A*... I.1 . |
00002240: 37 00 5D 2A E6 05 99 22 12 20 91 9D A3 A3 A3 A3 |7.]*...". ......|
00002250: 20 91 9D 22 3B 3A 82 3A 99 22 92 22 3B 00 73 2A | ..";:.:.".";.s*|
00002260: EB 05 99 22 12 20 91 9D 20 20 92 C5 C5 C5 C5 12 |...". .. ......|
00002270: 20 92 22 00 A0 2A F0 05 99 22 13 22 3B A3 33 34 | ."..*...".";.34|
00002280: 29 3B 22 12 A2 20 20 92 11 9D 9D A7 A5 11 9D 9D |);".. .........|
00002290: D5 C9 11 9D 9D CA CB 91 91 91 12 A2 A2 20 22 3B |............. ";|
000022A0: 00 BB 2A F5 05 81 20 49 B2 31 20 A4 20 32 33 3A |..*... I.1 . 23:|
000022B0: 99 22 9D 12 20 92 11 22 3B 3A 82 00 D5 2A FA 05 |.".. ..";:...*..|
000022C0: 99 22 9D 12 20 92 22 3B 3A 97 20 55 4D AA 39 39 |.".. .";:. UM.99|
000022D0: 39 2C 31 36 30 00 F5 2A FF 05 99 22 13 53 45 43 |9,160..*...".SEC|
000022E0: 52 45 54 20 57 4F 52 44 3A 20 22 3B 43 54 24 28 |RET WORD: ";CT$(|
000022F0: 43 29 3B 22 91 00 0C 2B 04 06 81 20 49 B2 31 20 |C);"...+... I.1 |
00002300: A4 20 38 20 3A 99 22 11 22 20 3A 82 00 28 2B 09 |. 8 :."." :..(+.|
00002310: 06 99 A3 31 38 29 3B 22 11 4C 45 54 54 45 52 53 |...18);".LETTERS|
00002320: 20 4D 49 53 53 45 44 22 00 43 2B 0E 06 99 A3 31 | MISSED".C+....1|
00002330: 38 29 3B 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |8);"............|
00002340: A3 A3 22 00 54 2B 13 06 99 22 13 11 11 11 11 22 |..".T+..."....."|
00002350: 3B 50 52 24 00 6B 2B 18 06 81 20 49 B2 31 20 A4 |;PR$.k+... I.1 .|
00002360: 20 31 37 3A 99 22 11 22 3B 3A 82 00 79 2B 1D 06 | 17:.".";:..y+..|
00002370: 99 A3 31 36 29 3B 4C 4D 24 00 BC 2B 22 06 99 22 |..16);LM$..+".."|
00002380: 13 11 11 11 11 11 11 47 55 45 53 53 20 41 20 4C |.......GUESS A L|
00002390: 45 54 54 45 52 20 20 20 20 20 20 20 20 20 20 20 |ETTER |
000023A0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 32 31 |..........";:.21|
000023B0: 38 35 3A 47 24 B2 43 24 AA 22 20 22 00 D7 2B 27 |85:G$.C$." "..+'|
000023C0: 06 8B 20 CA 28 47 24 2C 32 2C 31 29 B2 22 20 22 |.. .(G$,2,1)." "|
000023D0: 20 89 20 31 36 31 30 00 E3 2B 2C 06 99 22 91 91 | . 1610..+,.."..|
000023E0: 91 91 22 00 F2 2B 31 06 81 20 49 B2 31 20 A4 20 |.."..+1.. I.1 . |
000023F0: 32 30 00 0A 2C 36 06 8B 20 49 AD 32 B2 B5 28 49 |20..,6.. I.2..(I|
00002400: AD 32 29 A7 20 99 22 12 22 3B 00 2B 2C 3B 06 99 |.2). .".";.+,;..|
00002410: 22 4F 4E 4C 59 20 4F 4E 45 20 4C 45 54 54 45 52 |"ONLY ONE LETTER|
00002420: 2C 20 22 3B 4E 4D 24 3B 22 91 22 00 3C 2C 40 06 |, ";NM$;".".<,@.|
00002430: 81 20 4A B2 31 20 A4 20 35 30 3A 82 00 4B 2C 45 |. J.1 . 50:..K,E|
00002440: 06 82 20 49 3A 89 20 31 35 37 30 00 5A 2C 4A 06 |.. I:. 1570.Z,J.|
00002450: 47 24 B2 C8 28 47 24 2C 31 29 00 79 2C 4F 06 8B |G$..(G$,1).y,O..|
00002460: 20 47 24 B1 B2 22 41 22 20 AF 20 47 24 B3 B2 22 | G$.."A" . G$.."|
00002470: 5A 22 20 89 20 31 36 34 35 00 90 2C 54 06 99 22 |Z" . 1645..,T.."|
00002480: 91 91 91 91 22 3A 81 20 49 B2 31 20 A4 20 32 30 |....":. I.1 . 20|
00002490: 00 A8 2C 59 06 8B 20 49 AD 32 B2 B5 28 49 AD 32 |..,Y.. I.2..(I.2|
000024A0: 29 A7 20 99 22 12 22 3B 00 C6 2C 5E 06 99 22 54 |). .".";..,^.."T|
000024B0: 48 41 54 27 53 20 4E 4F 54 20 41 20 4C 45 54 54 |HAT'S NOT A LETT|
000024C0: 45 52 21 21 91 22 00 D7 2C 63 06 81 20 4A B2 31 |ER!!."..,c.. J.1|
000024D0: 20 A4 20 35 30 3A 82 00 E6 2C 68 06 82 20 49 3A | . 50:...,h.. I:|
000024E0: 89 20 31 35 37 30 00 F9 2C 6D 06 81 20 49 B2 31 |. 1570..,m.. I.1|
000024F0: 20 A4 20 C3 28 4C 47 24 29 00 14 2D 72 06 8B 20 | . .(LG$)..-r.. |
00002500: 47 24 B2 CA 28 4C 47 24 2C 49 2C 31 29 20 89 20 |G$..(LG$,I,1) . |
00002510: 31 36 36 30 00 23 2D 77 06 82 20 49 3A 89 20 31 |1660.#-w.. I:. 1|
00002520: 36 39 30 00 2F 2D 7C 06 99 22 91 91 91 91 22 00 |690./-|.."....".|
00002530: 3E 2D 81 06 81 20 49 B2 31 20 A4 20 32 30 00 57 |>-... I.1 . 20.W|
00002540: 2D 86 06 8B 20 49 AD 32 B2 B5 28 49 AD 32 29 20 |-... I.2..(I.2) |
00002550: A7 20 99 22 12 22 3B 00 77 2D 8B 06 99 22 54 48 |. .".";.w-..."TH|
00002560: 41 54 20 4C 45 54 54 45 52 20 57 41 53 20 54 52 |AT LETTER WAS TR|
00002570: 49 45 44 21 21 91 22 00 88 2D 90 06 81 20 4A B2 |IED!!."..-... J.|
00002580: 31 20 A4 20 35 30 3A 82 00 97 2D 95 06 82 20 49 |1 . 50:...-... I|
00002590: 3A 89 20 31 35 37 30 00 B4 2D 9A 06 99 22 91 91 |:. 1570..-..."..|
000025A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000025B0: 20 20 20 22 00 CB 2D 9F 06 46 B2 30 3A 81 20 49 | "..-..F.0:. I|
000025C0: B2 31 20 A4 20 C3 28 57 44 24 29 00 EF 2D A4 06 |.1 . .(WD$)..-..|
000025D0: 8B 20 47 24 B2 CA 28 57 44 24 2C 49 2C 31 29 20 |. G$..(WD$,I,1) |
000025E0: A7 20 50 52 24 28 49 29 B2 47 24 3A 46 B2 31 00 |. PR$(I).G$:F.1.|
000025F0: F5 2D A9 06 82 00 06 2E AE 06 8B 20 46 B2 30 20 |.-......... F.0 |
00002600: 89 20 31 39 31 30 00 1C 2E B3 06 4C 47 24 B2 4C |. 1910.....LG$.L|
00002610: 47 24 AA 47 24 3A 50 52 24 B2 22 22 00 2F 2E B8 |G$.G$:PR$.""./..|
00002620: 06 81 20 49 B2 31 20 A4 20 C3 28 57 44 24 29 00 |.. I.1 . .(WD$).|
00002630: 44 2E BD 06 50 52 24 B2 50 52 24 AA 50 52 24 28 |D...PR$.PR$.PR$(|
00002640: 49 29 3A 82 00 55 2E C2 06 99 22 13 11 11 11 11 |I):..U....".....|
00002650: 22 3B 50 52 24 00 72 2E C7 06 99 22 20 20 20 20 |";PR$.r...." |
00002660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002670: 91 22 00 81 2E CC 06 81 20 49 B2 31 20 A4 20 32 |."...... I.1 . 2|
00002680: 30 00 9A 2E D1 06 8B 20 49 AD 32 B2 B5 28 49 AD |0...... I.2..(I.|
00002690: 32 29 20 A7 20 99 22 12 22 3B 00 B5 2E D6 06 99 |2) . .".";......|
000026A0: 22 56 45 52 59 20 47 4F 4F 44 2C 22 AA 4E 4D 24 |"VERY GOOD,".NM$|
000026B0: AA 22 21 91 22 00 C8 2E DB 06 81 20 4A B2 31 20 |."!."...... J.1 |
000026C0: A4 20 35 30 3A 82 3A 82 00 DD 2E E0 06 8B 20 50 |. 50:.:....... P|
000026D0: 52 24 B2 57 44 24 20 89 20 31 38 33 30 00 0D 2F |R$.WD$ . 1830../|
000026E0: E5 06 99 22 13 11 11 11 11 11 11 54 52 59 20 46 |...".......TRY F|
000026F0: 4F 52 20 54 48 45 20 57 4F 52 44 3F 20 20 20 20 |OR THE WORD? |
00002700: 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 22 3B 00 17 2F | .......";../|
00002710: EA 06 8D 32 31 38 35 00 31 2F EF 06 8B 20 C8 28 |...2185.1/... .(|
00002720: 43 24 2C 31 29 B3 B1 22 59 22 20 A7 20 31 35 37 |C$,1).."Y" . 157|
00002730: 30 00 54 2F F4 06 99 22 13 11 11 11 11 11 11 47 |0.T/...".......G|
00002740: 55 45 53 53 20 54 48 45 20 57 4F 52 44 28 53 29 |UESS THE WORD(S)|
00002750: 20 20 20 22 00 6F 2F F9 06 8D 20 32 31 38 35 3A | ".o/... 2185:|
00002760: 47 24 B2 C8 28 43 24 2C C3 28 57 44 24 29 29 00 |G$..(C$,.(WD$)).|
00002770: 83 2F FE 06 8B 20 47 24 B2 57 44 24 20 89 20 31 |./... G$.WD$ . 1|
00002780: 38 33 30 00 A6 2F 03 07 99 22 13 11 11 11 11 11 |830../..."......|
00002790: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000027A0: 20 20 20 20 91 22 00 B5 2F 08 07 81 20 49 B2 31 | ."../... I.1|
000027B0: 20 A4 20 32 30 00 CE 2F 0D 07 8B 20 49 AD 32 B2 | . 20../... I.2.|
000027C0: B5 28 49 AD 32 29 20 A7 20 99 22 12 22 3B 00 E4 |.(I.2) . .".";..|
000027D0: 2F 12 07 99 22 53 4F 52 52 59 2C 22 AA 4E 4D 24 |/..."SORRY,".NM$|
000027E0: AA 22 91 22 00 F7 2F 17 07 81 20 4A B2 31 20 A4 |."."../... J.1 .|
000027F0: 20 35 30 3A 82 3A 82 00 18 30 1C 07 99 22 13 11 | 50:.:...0..."..|
00002800: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 |....... |
00002810: 20 20 20 20 20 20 20 22 00 23 30 21 07 89 20 31 | ".#0!.. 1|
00002820: 35 37 30 00 54 30 26 07 55 58 24 B2 22 48 22 3A |570.T0&.UX$."H":|
00002830: 97 55 54 2C 55 55 25 3A 99 22 93 11 11 11 11 11 |.UT,UU%:."......|
00002840: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002850: 1D 1D 22 3B 00 63 30 2B 07 81 20 49 B2 31 20 A4 |..";.c0+.. I.1 .|
00002860: 20 31 30 00 7B 30 30 07 99 22 DA 20 DA 20 DA 20 | 10.{00..". . . |
00002870: DA 20 DA 20 DA 20 22 AA 42 24 3B 00 93 30 35 07 |. . . ".B$;..05.|
00002880: 99 22 20 20 20 20 20 20 20 20 20 20 20 DA 22 AA |." .".|
00002890: 42 24 3B 00 AB 30 3A 07 99 22 DA 20 59 4F 55 20 |B$;..0:..". YOU |
000028A0: 57 4F 4E 21 20 20 22 AA 42 24 3B 00 C3 30 3F 07 |WON! ".B$;..0?.|
000028B0: 99 22 20 20 20 20 20 20 20 20 20 20 20 DA 22 AA |." .".|
000028C0: 42 24 3B 00 DB 30 44 07 99 22 DA 20 DA 20 DA 20 |B$;..0D..". . . |
000028D0: DA 20 DA 20 DA 20 22 AA 42 24 3B 00 E9 30 49 07 |. . . ".B$;..0I.|
000028E0: 99 22 91 91 91 91 91 22 3B 00 01 31 4E 07 99 22 |.".....";..1N.."|
000028F0: 20 DA 20 DA 20 DA 20 DA 20 DA 20 DA 22 AA 42 24 | . . . . . .".B$|
00002900: 3B 00 19 31 53 07 99 22 DA 20 20 20 20 20 20 20 |;..1S..". |
00002910: 20 20 20 20 22 AA 42 24 3B 00 33 31 58 07 99 22 | ".B$;.31X.."|
00002920: 20 20 12 59 4F 55 20 57 4F 4E 21 92 20 DA 22 AA | .YOU WON!. .".|
00002930: 42 24 3B 00 4B 31 5D 07 99 22 DA 20 20 20 20 20 |B$;.K1]..". |
00002940: 20 20 20 20 20 20 22 AA 42 24 3B 00 63 31 62 07 | ".B$;.c1b.|
00002950: 99 22 20 DA 20 DA 20 DA 20 DA 20 DA 20 DA 22 AA |." . . . . . .".|
00002960: 42 24 3B 00 73 31 67 07 99 22 91 91 91 91 91 22 |B$;.s1g.."....."|
00002970: 3B 3A 82 00 A4 31 6C 07 99 3A 99 22 11 11 11 11 |;:...1l..:."....|
00002980: 11 11 1D 43 41 52 45 20 46 4F 52 20 41 4E 4F 54 |...CARE FOR ANOT|
00002990: 48 45 52 20 43 48 41 4E 43 45 20 54 4F 20 53 41 |HER CHANCE TO SA|
000029A0: 56 45 20 41 00 BF 31 70 07 99 22 11 1D 46 52 49 |VE A..1p.."..FRI|
000029B0: 45 4E 44 20 22 3B 4E 4D 24 3B 22 3F 20 22 3B 00 |END ";NM$;"? ";.|
000029C0: D2 31 71 07 55 58 24 B2 22 48 22 3A 89 20 32 31 |.1q.UX$."H":. 21|
000029D0: 36 30 00 F6 31 76 07 99 22 13 11 11 11 11 11 11 |60..1v..".......|
000029E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000029F0: 20 20 20 20 91 22 00 05 32 7B 07 81 20 49 B2 31 | ."..2{.. I.1|
00002A00: 20 A4 20 32 30 00 1D 32 80 07 8B 20 49 AD 32 B2 | . 20..2... I.2.|
00002A10: B5 28 49 AD 32 29 A7 20 99 22 12 22 3B 00 3A 32 |.(I.2). .".";.:2|
00002A20: 85 07 99 22 59 4F 55 20 42 4C 45 57 20 49 54 20 |..."YOU BLEW IT |
00002A30: 22 AA 4E 4D 24 AA 22 21 91 22 00 4D 32 8A 07 81 |".NM$."!.".M2...|
00002A40: 20 4A B2 31 20 A4 20 35 30 3A 82 3A 82 00 67 32 | J.1 . 50:.:..g2|
00002A50: 8F 07 4C 47 24 B2 4C 47 24 AA 47 24 3A 4C 4D 24 |..LG$.LG$.G$:LM$|
00002A60: B2 4C 4D 24 AA 47 24 00 82 32 94 07 99 22 13 22 |.LM$.G$..2..."."|
00002A70: 3A 81 20 49 B2 31 20 A4 20 31 30 3A 99 22 11 22 |:. I.1 . 10:."."|
00002A80: 3A 82 00 96 32 99 07 99 A3 31 38 29 AA 4C 4D 24 |:...2....18).LM$|
00002A90: 3A 4D B2 4D AA 31 00 A7 32 9E 07 8B 20 4D B2 39 |:M.M.1..2... M.9|
00002AA0: 20 89 20 32 30 34 35 00 C3 32 A3 07 81 20 49 B2 | . 2045..2... I.|
00002AB0: 31 20 A4 20 32 3A 56 50 B2 56 50 AB 31 3A 99 22 |1 . 2:VP.VP.1:."|
00002AC0: 13 22 3B 00 DA 32 A8 07 81 20 4A B2 32 20 A4 20 |.";..2... J.2 . |
00002AD0: 56 50 3A 99 22 11 22 3B 3A 82 00 ED 32 AD 07 8B |VP:.".";:...2...|
00002AE0: 20 56 50 B2 31 20 A7 20 99 22 91 22 3B 00 FE 32 | VP.1 . .".";..2|
00002AF0: B2 07 99 A6 48 50 AA 31 29 AA 22 9D 22 3B 00 0C |....HP.1).".";..|
00002B00: 33 B7 07 81 20 4A B2 31 20 A4 20 38 00 24 33 BC |3... J.1 . 8.$3.|
00002B10: 07 99 22 11 22 AA 48 4D 24 28 4A 29 AA 22 9D 9D |..".".HM$(J)."..|
00002B20: 9D 9D 22 3B 00 3A 33 C1 07 82 20 4A 3A 99 22 11 |..";.:3... J:.".|
00002B30: 20 20 20 20 22 3B 3A 82 20 49 00 56 33 C6 07 81 | ";:. I.V3...|
00002B40: 20 49 B2 31 20 A4 20 34 3A 48 50 B2 48 50 AA 31 | I.1 . 4:HP.HP.1|
00002B50: 3A 99 22 13 22 3B 00 6D 33 CB 07 81 20 4A B2 32 |:.".";.m3... J.2|
00002B60: 20 A4 20 56 50 3A 99 22 11 22 3B 3A 82 00 7F 33 | . VP:.".";:...3|
00002B70: D0 07 8B 20 56 50 B2 31 20 A7 99 22 91 22 3B 00 |... VP.1 ..".";.|
00002B80: 8E 33 D5 07 99 A6 48 50 29 AA 22 9D 22 3B 00 9C |.3....HP).".";..|
00002B90: 33 DA 07 81 20 4A B2 31 20 A4 20 38 00 BA 33 DF |3... J.1 . 8..3.|
00002BA0: 07 99 22 11 20 22 AA 48 4D 24 28 4A 29 AA 22 9D |..". ".HM$(J).".|
00002BB0: 9D 9D 9D 9D 22 3B 3A 82 3A 82 00 CB 33 E4 07 8B |....";:.:...3...|
00002BC0: 20 4D B3 38 20 89 20 31 35 37 30 00 DA 33 E9 07 | M.8 . 1570..3..|
00002BD0: 99 22 13 22 3B A6 48 50 29 3B 00 E8 33 EE 07 81 |.".";.HP);..3...|
00002BE0: 20 49 B2 31 20 A4 20 38 00 06 34 F3 07 99 22 11 | I.1 . 8..4...".|
00002BF0: 20 20 22 AA 48 4D 24 28 49 29 AA 22 9D 9D 9D 9D | ".HM$(I)."....|
00002C00: 9D 9D 22 3B 3A 82 00 11 34 F8 07 89 20 31 35 37 |..";:...4... 157|
00002C10: 30 00 29 34 FD 07 99 22 13 11 11 11 11 11 11 11 |0.)4..."........|
00002C20: 11 11 22 3B A6 33 34 29 3B 00 41 34 02 08 81 20 |..";.34);.A4... |
00002C30: 49 B2 31 20 A4 20 36 3A 81 20 4A B2 31 20 A4 20 |I.1 . 6:. J.1 . |
00002C40: 34 00 55 34 07 08 99 54 44 24 28 49 2C 4A 29 AA |4.U4...TD$(I,J).|
00002C50: 41 24 3B 3A 82 00 64 34 0C 08 99 22 91 91 91 91 |A$;:..d4..."....|
00002C60: 22 3B 3A 82 00 75 34 11 08 99 22 13 11 11 22 3B |";:..u4..."...";|
00002C70: A6 33 34 29 3B 00 8E 34 16 08 81 20 49 B2 31 20 |.34);..4... I.1 |
00002C80: A4 20 31 36 3A 99 22 11 20 AA B4 20 22 3B 00 9C |. 16:.". .. ";..|
00002C90: 34 1B 08 81 20 4A B2 33 20 A4 20 38 00 AF 34 20 |4... J.3 . 8..4 |
00002CA0: 08 99 20 41 24 AA 48 4D 24 28 4A 29 3B 3A 82 00 |.. A$.HM$(J);:..|
00002CB0: C4 34 25 08 99 22 91 91 91 91 91 91 9D 9D 9D 9D |.4%.."..........|
00002CC0: 22 3B 3A 82 00 D7 34 2A 08 81 20 49 B2 31 20 A4 |";:...4*.. I.1 .|
00002CD0: 20 31 30 30 30 3A 82 00 E9 34 2F 08 99 22 91 12 | 1000:...4/.."..|
00002CE0: A9 20 20 DF 22 AA 41 24 3B 00 FA 34 34 08 99 22 |. .".A$;..44.."|
00002CF0: 12 A5 52 20 A7 22 AA 41 24 3B 00 0B 35 39 08 99 |..R .".A$;..59..|
00002D00: 22 12 B4 49 DB AA 22 AA 41 24 3B 00 1C 35 3E 08 |"..I..".A$;..5>.|
00002D10: 99 22 12 B5 50 DD B6 22 AA 41 24 3B 00 2E 35 43 |."..P..".A$;..5C|
00002D20: 08 99 22 12 A1 20 DD 92 A1 22 AA 41 24 3B 00 40 |..".. ...".A$;.@|
00002D30: 35 48 08 99 22 AA 12 20 20 92 B4 22 AA 41 24 3B |5H..".. ..".A$;|
00002D40: 00 52 35 4D 08 99 22 A7 12 20 20 92 A5 22 AA 41 |.R5M..".. ..".A|
00002D50: 24 3B 00 61 35 52 08 99 22 A7 12 20 20 92 A5 22 |$;.a5R..".. .."|
00002D60: 3B 00 74 35 57 08 81 20 49 B2 31 20 A4 20 33 30 |;.t5W.. I.1 . 30|
00002D70: 30 30 3A 82 00 AD 35 5C 08 99 22 93 22 3A 55 48 |00:...5\..".":UH|
00002D80: B2 31 3A 97 55 54 2C 55 4C 25 3A 8D 38 35 30 3A |.1:.UT,UL%:.850:|
00002D90: 99 22 11 11 11 11 11 1D D4 48 45 20 53 45 43 52 |.".......HE SECR|
00002DA0: 45 54 20 57 4F 52 44 20 57 41 53 3A 22 00 C7 35 |ET WORD WAS:"..5|
00002DB0: 61 08 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |a.."............|
00002DC0: 1D 12 22 AA 57 44 24 00 F5 35 66 08 99 22 11 11 |..".WD$..5f.."..|
00002DD0: 11 11 1D C2 45 54 54 45 52 20 4C 55 43 4B 20 4E |....ETTER LUCK N|
00002DE0: 45 58 54 20 54 49 4D 45 2C 20 22 3B 4E 4D 24 3B |EXT TIME, ";NM$;|
00002DF0: 22 21 21 21 22 00 21 36 6B 08 99 22 11 11 11 11 |"!!!".!6k.."....|
00002E00: 1D C3 41 52 45 20 54 4F 20 57 41 53 54 45 20 41 |..ARE TO WASTE A|
00002E10: 4E 4F 54 48 45 52 20 46 52 49 45 4E 44 3F 20 22 |NOTHER FRIEND? "|
00002E20: 3B 00 27 36 70 08 8C 00 3E 36 75 08 81 20 49 B2 |;.'6p...>6u.. I.|
00002E30: 31 20 A4 20 33 32 3A 87 20 57 44 24 3A 82 00 5B |1 . 32:. WD$:..[|
00002E40: 36 7A 08 55 53 24 B2 22 59 4E 22 3A 55 4C B2 31 |6z.US$."YN":UL.1|
00002E50: 3A 8D 33 35 3A 43 24 B2 55 52 24 00 75 36 7F 08 |:.35:C$.UR$.u6..|
00002E60: 8B 43 24 B2 22 59 22 A7 55 58 24 B2 22 48 22 3A |.C$."Y".UX$."H":|
00002E70: 89 31 34 30 30 00 85 36 84 08 9C 3A 8D 39 30 30 |.1400..6...:.900|
00002E80: 3A 89 33 30 30 00 A3 36 89 08 43 24 B2 22 22 3A |:.300..6..C$."":|
00002E90: 8F 20 20 49 4E 50 55 54 20 53 55 42 52 4F 55 54 |. INPUT SUBROUT|
00002EA0: 49 4E 45 00 AE 36 8E 08 55 53 24 B2 22 22 00 C3 |INE..6..US$.""..|
00002EB0: 36 93 08 55 4C B2 31 35 3A 8D 33 35 3A 43 24 B2 |6..UL.15:.35:C$.|
00002EC0: 55 52 24 00 C9 36 98 08 8E 00 DC 36 C5 08 83 22 |UR$..6.....6..."|
00002ED0: 20 D5 C9 20 22 2C 22 20 CA CB 20 22 00 EA 36 CA | .. "," .. "..6.|
00002EE0: 08 83 22 12 A9 20 20 DF 92 22 00 F8 36 CF 08 83 |..".. .."..6...|
00002EF0: 22 12 AA 20 20 B4 92 22 00 06 37 D4 08 83 22 12 |".. .."..7...".|
00002F00: AA 20 20 B4 92 22 00 14 37 D9 08 83 22 20 12 A7 |. .."..7..." ..|
00002F10: A5 92 20 22 00 22 37 DE 08 83 22 20 12 A7 A5 92 |.. "."7..." ....|
00002F20: 20 22 00 30 37 E3 08 83 22 AC 12 A7 A5 92 BB 22 | ".07..."......"|
00002F30: 00 3C 37 E8 08 83 22 C5 C3 C6 A4 22 00 56 37 ED |.<7..."....".V7.|
00002F40: 08 83 22 20 20 20 20 22 2C 22 20 20 20 20 22 2C |.." "," ",|
00002F50: 22 20 20 20 20 22 00 9A 37 F2 08 83 22 C5 20 20 |" "..7...". |
00002F60: 20 22 2C 22 20 C5 20 20 22 2C 22 20 20 C5 20 22 | "," . "," . "|
00002F70: 2C 22 20 20 20 C5 22 2C 22 CD 20 20 20 22 2C 22 |," .",". ","|
00002F80: 20 CD 20 20 22 2C 22 20 20 CD 20 22 2C 22 A5 20 | . "," . ",". |
00002F90: 20 20 22 2C 22 20 A5 20 20 22 00 E5 37 F7 08 83 | "," . "..7...|
00002FA0: 22 20 20 A5 20 22 2C 22 20 20 20 A5 22 2C 22 A5 |" . "," .",".|
00002FB0: 20 20 20 22 2C 22 C7 20 20 20 22 2C 22 DD 20 20 | ",". ",". |
00002FC0: 20 22 2C 22 D9 20 20 20 22 2C 22 A5 20 20 20 22 | ",". ",". "|
00002FD0: 2C 22 A5 20 20 20 22 2C 22 A5 20 20 20 22 2C 22 |,". ",". ","|
00002FE0: A5 20 20 20 22 00 F1 37 FC 08 83 22 A5 20 20 20 |. "..7...". |
00002FF0: 22 00 3E 38 01 09 8F 22 20 20 20 20 20 20 20 20 |".>8..." |
00003000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003020: 20 A6 A6 A6 57 4F 52 44 20 44 41 54 41 20 46 4F | ...WORD DATA FO|
00003030: 52 20 43 41 54 45 47 4F 52 59 20 31 A6 A6 00 84 |R CATEGORY 1....|
00003040: 38 06 09 83 20 44 55 46 46 59 2C 57 45 53 54 4F |8... DUFFY,WESTO|
00003050: 4E 2C 52 49 56 45 54 54 2C 50 45 41 52 43 45 2C |N,RIVETT,PEARCE,|
00003060: 57 4F 44 45 4E 2C 42 41 52 54 4F 4E 2C 52 45 49 |WODEN,BARTON,REI|
00003070: 44 2C 48 4F 4C 44 45 52 2C 53 50 45 4E 43 45 2C |D,HOLDER,SPENCE,|
00003080: 43 4F 4F 4B 00 BF 38 0B 09 83 20 4D 41 43 47 52 |COOK..8... MACGR|
00003090: 45 47 4F 52 2C 48 41 57 4B 45 52 2C 41 52 41 4E |EGOR,HAWKER,ARAN|
000030A0: 44 41 2C 48 41 4C 4C 2C 4B 41 4D 42 41 48 2C 57 |DA,HALL,KAMBAH,W|
000030B0: 41 4E 4E 49 41 53 41 2C 41 49 4E 53 4C 49 45 00 |ANNIASA,AINSLIE.|
000030C0: DC 38 10 09 83 20 44 4F 57 4E 45 52 2C 44 45 41 |.8... DOWNER,DEA|
000030D0: 4B 49 4E 2C 4B 49 4E 47 53 54 4F 4E 00 29 39 15 |KIN,KINGSTON.)9.|
000030E0: 09 8F 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
000030F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003100: 20 20 20 20 20 20 20 20 20 20 20 20 A6 A6 A6 57 | ...W|
00003110: 4F 52 44 20 44 41 54 41 20 46 4F 52 20 43 41 54 |ORD DATA FOR CAT|
00003120: 45 47 4F 52 59 20 32 A6 A6 00 6B 39 1A 09 83 20 |EGORY 2...k9... |
00003130: 22 54 20 42 41 4C 4C 22 2C 53 4F 43 43 45 52 2C |"T BALL",SOCCER,|
00003140: 42 41 53 4B 45 54 42 41 4C 4C 2C 54 45 4E 4E 49 |BASKETBALL,TENNI|
00003150: 53 2C 53 51 55 41 53 48 2C 22 4E 45 54 20 42 41 |S,SQUASH,"NET BA|
00003160: 4C 4C 22 2C 52 55 4E 4E 49 4E 47 00 B4 39 1F 09 |LL",RUNNING..9..|
00003170: 83 20 4A 4F 47 47 49 4E 47 2C 43 59 43 4C 49 4E |. JOGGING,CYCLIN|
00003180: 47 2C 22 48 4F 52 53 45 20 52 49 44 49 4E 47 22 |G,"HORSE RIDING"|
00003190: 2C 44 49 56 49 4E 47 2C 48 4F 43 4B 45 59 2C 22 |,DIVING,HOCKEY,"|
000031A0: 57 41 54 45 52 20 50 4F 4C 4F 22 2C 53 57 49 4D |WATER POLO",SWIM|
000031B0: 4D 49 4E 47 00 01 3A 24 09 8F 22 20 20 20 20 20 |MING..:$.." |
000031C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000031D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000031E0: 20 20 20 20 A6 A6 A6 57 4F 52 44 20 44 41 54 41 | ...WORD DATA|
000031F0: 20 46 4F 52 20 43 41 54 45 47 4F 52 59 20 33 A6 | FOR CATEGORY 3.|
00003200: A6 00 47 3A 29 09 83 20 52 4F 57 49 4E 47 2C 53 |..G:).. ROWING,S|
00003210: 50 52 49 4E 54 49 4E 47 2C 41 52 43 48 45 52 59 |PRINTING,ARCHERY|
00003220: 2C 22 48 49 47 48 20 4A 55 4D 50 22 2C 22 57 41 |,"HIGH JUMP","WA|
00003230: 54 45 52 20 53 4B 49 49 4E 47 22 2C 22 42 41 53 |TER SKIING","BAS|
00003240: 45 20 42 41 4C 4C 22 00 92 3A 2E 09 83 20 41 55 |E BALL"..:... AU|
00003250: 44 49 2C 48 4F 4C 44 45 4E 2C 43 4F 4D 4D 4F 44 |DI,HOLDEN,COMMOD|
00003260: 4F 52 45 2C 4D 49 4E 49 2C 46 41 4C 43 4F 4E 2C |ORE,MINI,FALCON,|
00003270: 4D 45 52 43 45 44 45 53 2C 4D 49 54 53 55 42 49 |MERCEDES,MITSUBI|
00003280: 53 48 49 2C 44 41 54 53 55 4E 2C 43 4F 52 54 49 |SHI,DATSUN,CORTI|
00003290: 4E 41 00 CE 3A 33 09 83 20 43 41 4D 49 52 41 2C |NA..:3.. CAMIRA,|
000032A0: 43 4F 52 4F 4C 4C 41 2C 47 45 4D 49 4E 49 2C 53 |COROLLA,GEMINI,S|
000032B0: 49 47 4D 41 2C 43 49 54 52 4F 45 4E 2C 22 41 4C |IGMA,CITROEN,"AL|
000032C0: 46 41 20 52 4F 4D 45 4F 22 2C 46 49 41 54 00 ED |FA ROMEO",FIAT..|
000032D0: 3A 38 09 83 20 4A 41 47 55 41 52 2C 52 49 4C 45 |:8.. JAGUAR,RILE|
000032E0: 59 2C 46 41 4C 43 4F 4E 2C 53 41 41 42 00 3A 3B |Y,FALCON,SAAB.:;|
000032F0: 3D 09 8F 22 20 20 20 20 20 20 20 20 20 20 20 20 |=.." |
00003300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003310: 20 20 20 20 20 20 20 20 20 20 20 20 20 A6 A6 A6 | ...|
00003320: 57 4F 52 44 20 44 41 54 41 20 46 4F 52 20 43 41 |WORD DATA FOR CA|
00003330: 54 45 47 4F 52 59 20 34 A6 A6 00 86 3B 42 09 83 |TEGORY 4....;B..|
00003340: 20 54 48 41 49 4C 41 4E 44 2C 41 55 53 54 52 41 | THAILAND,AUSTRA|
00003350: 4C 49 41 2C 49 4E 44 4F 4E 45 53 49 41 2C 45 4E |LIA,INDONESIA,EN|
00003360: 47 4C 41 4E 44 2C 47 45 52 4D 41 4E 59 2C 52 55 |GLAND,GERMANY,RU|
00003370: 53 53 49 41 2C 49 54 41 4C 59 2C 47 52 45 45 43 |SSIA,ITALY,GREEC|
00003380: 45 2C 50 45 52 55 00 CD 3B 47 09 83 20 4D 41 4C |E,PERU..;G.. MAL|
00003390: 41 59 53 49 41 2C 50 48 49 4C 4C 49 50 49 4E 45 |AYSIA,PHILLIPINE|
000033A0: 53 2C 43 48 49 4C 45 2C 43 48 49 4E 41 2C 4A 41 |S,CHILE,CHINA,JA|
000033B0: 50 41 4E 2C 49 52 41 4E 2C 43 41 4E 41 44 41 2C |PAN,IRAN,CANADA,|
000033C0: 22 4E 45 57 20 5A 45 41 4C 41 4E 44 22 00 EF 3B |"NEW ZEALAND"..;|
000033D0: 4C 09 83 20 48 55 4E 47 41 52 59 2C 53 57 49 54 |L.. HUNGARY,SWIT|
000033E0: 5A 45 52 4C 41 4E 44 2C 49 52 45 4C 41 4E 44 00 |ZERLAND,IRELAND.|
000033F0: 3C 3C 51 09 8F 22 20 20 20 20 20 20 20 20 20 20 |<<Q.." |
00003400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A6 | .|
00003420: A6 A6 57 4F 52 44 20 44 41 54 41 20 46 4F 52 20 |..WORD DATA FOR |
00003430: 43 41 54 45 47 4F 52 59 20 35 A6 A6 00 87 3C 56 |CATEGORY 5....<V|
00003440: 09 83 20 43 4F 57 2C 43 41 54 2C 48 4F 52 53 45 |.. COW,CAT,HORSE|
00003450: 2C 47 4F 41 54 2C 50 41 52 52 4F 54 2C 44 4F 4E |,GOAT,PARROT,DON|
00003460: 4B 45 59 2C 53 48 45 45 50 2C 4D 4F 4E 4B 45 59 |KEY,SHEEP,MONKEY|
00003470: 2C 54 49 47 45 52 2C 4C 49 4F 4E 2C 4D 4F 55 53 |,TIGER,LION,MOUS|
00003480: 45 2C 4B 4F 41 4C 41 00 C2 3C 5B 09 83 20 57 4F |E,KOALA..<[.. WO|
00003490: 4D 42 41 54 2C 44 45 45 52 2C 4C 45 4F 50 41 52 |MBAT,DEER,LEOPAR|
000034A0: 44 2C 47 49 52 41 46 46 45 2C 5A 45 42 52 41 2C |D,GIRAFFE,ZEBRA,|
000034B0: 45 4D 55 2C 4B 41 4E 47 41 52 4F 4F 2C 53 4E 41 |EMU,KANGAROO,SNA|
000034C0: 4B 45 00 E3 3C 60 09 83 20 4C 49 5A 5A 41 52 44 |KE..<`.. LIZZARD|
000034D0: 2C 50 49 47 2C 50 55 50 50 59 2C 53 51 55 49 52 |,PIG,PUPPY,SQUIR|
000034E0: 52 45 4C 00 00 00 |REL... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(.UR$."":UI$."":.UO,0...*..UL.0.UL.80
.".-..UC,0.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...U.. +++ CHECK F
OR HELP REQUEST +++...Z..UR$.UX$.195:. E
XIT TO HELP ROUTINE.*._..UF.1..240.7.D.U
F.0:.:..P.F.. ++ CHECK DELETE ++.A.I..C(
UR$).1.50.Y.N.UR$.H(UR$,C(UR$).1)...S.."
. ..";:.50...X.. ++ CHECK FOR VALID CHA
RACTERS ++.D.}..C(US$).0.150.U....US.1.C
(US$)......UI$.J(US$,US,1).............U
I$."":....... ** STANDARD INPUT **.+....
F(UI$).46...<....UI$.G(32)...Y. ..F(UI$)
.48.F(UI$).57.170._.....|....F(UI$).65.F
(UI$).90.180............F(UI$).193.F(UI$
).218.UI$."":..I....B(UT).UU%.UI$.G(F(UI
$).128):..O.........UI$."":....C.UF.1:.
+++ HELP ROUTINE EXIT +++...E..250...H..
245.2.M..UQ.UB.(U2%.256.U1%.U3%.2).N.R.U
Q%(UQ.UB).B(UQ):.:.".".A.W.UZ.1:UV%.B(UT
).J.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.U
J:UL.UK:.B(50003).0..53281,6:.53280,6...
..UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2%.256.
U1%.U3%.3)......UQ,UQ%(UQ.UB):.......U1,
U1%......U2,U2%......U4,U4%.)....U3,U3%.
1.1....35.C...UD%.((U2%.256.U1%.U3%).UB)
.40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . ":..J
...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U
4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.
UL.........,.. ** MENU **...-.:.>...."."
:.UT,UU%:.B(50003).0..53281,9:.53280,8.D
./.:.A.1..". MENU"...6.."
--------------------------------------"
...;..".. 1. BEGIN HANGMAN 2...@
..".. 2. STUDENT INSTRUCTIONS"..
.E..".. 3. TEACHER INSTRUCTIONS"
.5.J..".. 4. MODIFICATION OF PRO
GRAM".Q.O..".. 5. QUIT.."...T.."
--------------------------------------"
...Y..".. PRESS A NUMBER KEY (1-5)
";.T.^.UL.1:US$."12345":.35:. INPUT ROU
TINE...`.US$.""...C..E(UR$).1000,400,500
,600,396...H..300.0.... ** RE-ENABLE STO
P KEY AND END **._....B(50003)..1.B(5000
3)..160.B(50003)..0.399......UU.71:.B(50
003).0..53281,6:.53280,14......"..":.. .
...875:..A.... ** STUDENT INSTRUCTIONS *
*......".":.UT,UL%:.B(50003).0..53281,0:
.53280,0.....UP.0:UG$."STUDENT INST":.85
0.@...."..YOUR BEST FRIEND HAS BEEN ARRE
STED AND.L...."..CHARGED WITH ARSON, TRE
ASON, ARMED"... .."..ROBBERY AND PUBLIC
DRUNKENESS .PLUS......."..MURDER, MAYHEM
, IGNORANCE AND.Q...."..UGLINESS......."
..HOWEVER, THE JUDGE, BEING A BENEVOLENT
.0...."..SORT, WILL LET YOUR FRIEND PLEA
-BARGAIN.^....".THE CHARGES DOWN TO UGLI
NESS, PROVIDED......"..HE/SHE HAS ONE FR
IEND. GUESS WHO??":.835:.850.B...."..TO
SAVE YOUR FRIEND'S LIFE, YOU MUST......
"..GUESS THE SECRET WORD/WORDS. EACH"..
...."..TIME YOU GUESS A CORRECT LETTER,
YOU.J...."..HAVE A CHANCE TO GUESS THE W
ORD/WORDS,.V...."..WITH NO PENALTY FOR A
WRONG GUESS."......"..BUT BEWARE!!!! E
ACH TIME YOU GUESS AN.T...."..INCORRECT
LETTER, YOUR FRIEND ADVANCES......"..ONE
STEP CLOSER TO"...... .10);".!!!! DOOM
!!!!......835:.850.K...."...NOTE:...TO
ADVANCE FROM ONE QUESTION".T...."..TO T
HE NEXT PRESS THE SPACE BAR". ...."...IF
AT ANY TIME YOU WISH TO RETURN".D....".
.TO THE MENU PRESS H RETURN".M....835...
...UZ.1..UP%:.217............ ** TEACHER
INSTRUCTIONS **.8....".":.UT,UL%:.B(500
03).0..53281,2:.53280,10.Y...UP.0:UG$."T
EACHER INST":.850......".. TO THE B
EST OF OUR KNOWLEDGE,."......" THIS PR
OGRAM IS IN THE PUBLIC."......" DOMAIN
. IF THIS IS NOT THE CASE."......" PL
EASE CONTACT:...".#...." COMMODORE
BUSINESS MACHINES.".F...." 3370
PHARMACY AVE..J...." AGINCOURT
, ONTARIO"......" CANADA M1W
2K4"......" (416) 499-4292".B..
.UP.1:. 835:. 850:......" ..PROGRAM
NAME: HANGMAN 2......." WRITTEN BY
: UNKNOWN../...." UPGRADED BY : J.C.
ROSSER.Z...." .THIS PROGRAM WILL RU
N ON ANY........" BASIC 2.0 PET
COMPUTER......." BASIC 4.0 PET C
OMPUTER..J...." 8032 CBM COMPUTE
R......." COMMODORE 64 COMPUTER.
..D..835...N..UZ.1..UP%:.217...W...8.X..
** PROGRAM MODIFICATION INST **.I.Y..".
":.UT,UL%.I.].UP.0:UG$."PROGRAM MOD":.85
0...B.."..IN ORDER TO CHANGE THE WORDS I
N THE"...G.."..CATAGORIES ALREADY USED I
N THIS...L.."..PROGRAM SIMPLY CHANGE THE
DATA IN"...Q.."..LINES 2305-2400. ".2.V
.."..TO CHANGE THE CATAGORIES USED CHANG
E".I.{.."..LINE 1405 TO:".R...."..1405 C
T$(1)='FIRST CATAGORY'..."......"..AND S
O ON UP TO CT$(5)='FIFTH CATAGORY'.L....
".THEN CHANGE THE DATA LINES TO THE"....
.."..DATA YOU WANT IN EACH CATAGORY."...
...835......UZ.1..UP%:.217.......=.... *
* TO USE 8032 LOAD CBM4032 **.S.F.."....
.BEFORE RUNNING THIS PROGRAM ON AN 8032
.....P.." LOAD THE 'CBM 4032' PROG
RAM............."...Z..UU.71............
** TO USE 8032 LOAD CBM4032 **.*...."..
..BEFORE RUNNING THIS PROGRAM ON AN 8032
..LOAD CBM 4032 PROGRAM".6....1093:..V
. .. ** T I T L E P A G E **...".."...
.";:.UT,UU%:.B(50003).0..53280,14:.53281
,6. .$..I.1.38:."...";:....&..I.1.22:.".
....";:..P.(..I.1.37:.".....";:....*..I.
1.22:.".....";:....,..".................
.......... ../...."...................
. . ...P.0.."................... . ...
.N.2..".................... ....4.."...
...........C O M M O D O R E.....6.."...
............EDUCATIONAL...X.8.."........
........SOFTWARE...:.. ** COMMODORE LOGO
**.+.;..H(UD$,24);"..........PRESS SPAC
E BAR OR WAIT.":I.0.M.<..A$:.A$.." ".I.I
.1:.I.250.828.Q.>.T1$."":T2$."":T3$."":T
4$."":I.0.Z.@..300...C.. ** SPACE BAR PR
ESS **.Q.H..H(UD$,24);".......PRESS SPAC
E BAR TO CONTINUE.":.UO,0...L..UI$:.UI$.
." ".844...N.....R.. ** PAGE DESIGN ROUT
INE **...T.UP.UP.1.D.W.."."H(UT$.UP$,21)
;I(UP$.UG$.D(UP),18).S.\.." ------------
--------------------------"...`..UH..0.8
70...A..H(UD$,24);H(UP$,7);"HELP - PRESS
H <RETURN>".G.F.UH.0:."..":....K.. **
PLEASE WAIT REMARK **...P..H(UD$,24);"
ONE MOMENT PLEASE... ".".U
...?.... ** SET UP VARIABLES **.....UX$.
"H":.UQ%(1000):UB.32768:U1.196:U2.197:U3
.198:U4.216:UC.167:UU.1024.H...UT.59468:
UU%.12:UL%.14:UP%.1146:UM.32768:. 50003,
0:UO.158.. ...B(50003).0.UB.1024:U1.209:
U2.210:U3.211:U4.214:UC.204:UU.2048.J ..
.B(50003).0.UT.53272:UU%.21:UL%.23:UP%.2
139:UM.1024:UO.198.N ..UD$."............
.............". ..UP$."
".. ..UT$." HANGM
AN 2 ":. PLACE PROGRAM TITLE HER
E !!!!!!!!!!!!!!!!!***..!... HM$(8),TD$(
6,4),PR$(17),C$(25)..!....3!... ** SET V
ARIABLES **.<!...900.B!..:.]!... ** CHEC
K FOR 8032 **.{!...".":." ":. SHIFTED SP
ACE..!...B(UB.40)..96..700..!... ** MEMO
RY CHECK **..!... .(0).2000.937..!..."..
..THIS MACHINE DOES NOT HAVE ENOUGH.".."
..."MEMORY TO RUN THIS PROGRAM !".."...U
U.71.""....<"..."..":.B(50003).0.962.K".
.. ** BASIC 2.0 OR 4.0 OR C-64 SETUP
**.."...1075,133:.1076,144:.1077,234:.1
079,4:.1080,133:.1081,145.."...1091,155:
.1098,133:.1099,144:.1100,234:.1103,133.
.#...1104,145:.1105,234:.1082,234..#...B
(50003)..160.955.G#...1093,88:.1094,228:
.1097,85:.1102,228:.965.\#...B(50003)..1
.990..#...1093,49:.1094,230:.1097,46:.11
02,230:.965.E#B..2099,141:.2100,20:.2101
,3:.2103,8:.2104,141:.2105,21..$C..2106,
3:.2115,145:.2117,52:.2118,234:.2121,49:
.2122,141.;$D..2123,20:.2124,3:.2126,234
:.2127,141:.2128,21:.2129,3.Y$E..UU.48:.
DISABLE STOP KEY.J$J..800:. TITLE.Z$T..
300:. MENU..$...".THE PGM WILL NOT WORK
ON THIS MACHINE!":...$...UZ.1..UP%:.UP%:
UZ.0:. ** PROGRAM STARTS HERE **..%...".
.";:.:.B(50003).0..53281,6:.53280,6..%..
.UT,UL%:UG$."PAGE #":UP.0:UH.1.R%D..850:
."....".13)".............".F%I...13)".".
25)".".%N...13)". HANGMAN ."..%S...13
)".".25)"."..%X...13)"............."..%7
.."....WHAT IS YOUR FIRST NAME? ";:UL.12
:US$."":.35:NM$.UR$..&<.UH.1:.850:."...O
KAY, "NM$.8&A.."...WHEN YOU GUESS A CORR
ECT LETTER, YOU".H&F.."..WILL BE ASKED I
F YOU WOULD LIKE TO TRY"..&K.."..TO GUES
S THE ENTIRE WORD...TYPE EITHER.C&P.."..
YES OR NO ACCORDING TO YOUR WISHES"..&U.
."..AND FOLLOW THE INSTRUCTIONS..&V.."..
ACCORDINGLY."..'Z..835..'D.. I.1 . 8:. H
M$(I):..8'I.. I.1 . 6: . J.1 . 4.K'N.. T
D$(I,J):.:..M'S.A$.".....":B$.".........
...."..'X..".":.UT,UL%:.850:."..CHOOSE O
NE OF THE FOLLOWING CATEGORIES:...H'|..
***CATAGORIES***..(}.CT$(1)."CANBERRA SU
BURBS":CT$(2)."SPORTS":CT$(3)."CARS":CT$
(4)."NATIONS".*(~.CT$(5)."ANIMALS".A(...
****************.E(... A.1 . 5:.A;".. "
;CT$(A);".":...(...".. YOUR CHOICE, "
.NM$." ";:US$."12345H":UL.1:.35:C.E(UR$)
.U(... ". LET ME THINK OF A WORD...":
TT.TI..( .. I.0 . (C.1).20..(.(1).20)..)
... WD$:...)... TI.TT.120 . 1450.1)..LM$
."":PR$."":LG$."".C)...I.1 . C(WD$).X)..
. J(WD$,I,1)." " . PR$(I)." ":PR$.PR$."
":. 1475..)..PR$(I)."-":PR$.PR$."-"..)C.
.:.".":.UT,UU%..)H.MN$.H(NM$,1)..)M.. F(
MN$).95 .NM$.G(F(MN$).128).J(NM$,2)..*R.
VP.17:HP.0:M.0:.".";:UX$.""..*W.. I.1 .
16:.".";:..3*... I.1.8:.:.HM$(I);:..A*..
. I.1 . 7.]*...". ...... ..";:.:.".";.S*
...". .. .EEEE. .". *...".";.34);".. .
........UI...JK...... ";..*... I.1 . 23:
.".. ..";:..U*...".. .";:. UM.999,160..*
...".SECRET WORD: ";CT$(C);"...+... I.1
. 8 :."." :..(+....18);".LETTERS MISSED"
.C+....18);"..............".T+..."....."
;PR$.K+... I.1 . 17:.".";:..Y+....16);LM
$..+"..".......GUESS A LETTER
..........";:.2185:G$.C$." ".W+'.. J(G$,
2,1)." " . 1610..+,.."...."..+1.. I.1 .
20..,6.. I.2..(I.2). .".";.+,;.."ONLY ON
E LETTER, ";NM$;".".<,@.. J.1 . 50:..K,E
.. I:. 1570.Z,J.G$.H(G$,1).Y,O.. G$.."A"
. G$.."Z" . 1645..,T.."....":. I.1 . 20
..,Y.. I.2..(I.2). .".";.F,^.."THAT'S NO
T A LETTER!!.".W,C.. J.1 . 50:...,H.. I:
. 1570..,M.. I.1 . C(LG$)..-R.. G$.J(LG$
,I,1) . 1660.#-W.. I:. 1690./-|.."....".
>-... I.1 . 20.W-... I.2..(I.2) . .".";.
W-..."THAT LETTER WAS TRIED!!."..-... J.
1 . 50:...-... I:. 1570..-..."..
".K-..F.0:. I.1 . C(WD$)..-..
. G$.J(WD$,I,1) . PR$(I).G$:F.1..-......
... F.0 . 1910.....LG$.LG$.G$:PR$.""./..
.. I.1 . C(WD$).D...PR$.PR$.PR$(I):..U.B
..".....";PR$.R.G.."
."...L.. I.1 . 20...Q.. I.2..(I.2) . .".
";...V.."VERY GOOD,".NM$."!.".H.... J.1
. 50:.:....... PR$.WD$ . 1830../..."....
...TRY FOR THE WORD? .......";../
...2185.1/... H(C$,1).."Y" . 1570.T/..."
.......GUESS THE WORD(S) ".O/... 2185:
G$.H(C$,C(WD$))../... G$.WD$ . 1830../..
."....... ."../... I.1
. 20.N/... I.2..(I.2) . .".";../..."SOR
RY,".NM$."."../... J.1 . 50:.:...0..."..
....... ".#0!.. 1570.T0&.
UX$."H":.UT,UU%:."......................
..";.C0+.. I.1 . 10.{00.."Z Z Z Z Z Z ".
B$;..05.." Z".B$;..0:.."Z YOU
WON! ".B$;.C0?.." Z".B$;..0D.
."Z Z Z Z Z Z ".B$;..0I..".....";..1N.."
Z Z Z Z Z Z".B$;..1S.."Z ".B$
;.31X.." .YOU WON!. Z".B$;.K1].."Z
".B$;.C1B.." Z Z Z Z Z Z".B$;.S1G.
.".....";:...1L..:.".......CARE FOR ANOT
HER CHANCE TO SAVE A..1P.."..FRIEND ";NM
$;"? ";.R1Q.UX$."H":. 2160..1V..".......
."..2{.. I.1 . 20..2
... I.2..(I.2). .".";.:2..."YOU BLEW IT
".NM$."!.".M2... J.1 . 50:.:..G2..LG$.LG
$.G$:LM$.LM$.G$..2...".":. I.1 . 10:."."
:...2....18).LM$:M.M.1..2... M.9 . 2045.
C2... I.1 . 2:VP.VP.1:.".";.Z2... J.2 .
VP:.".";:...2... VP.1 . .".";..2....HP.1
).".";..3... J.1 . 8.$3...".".HM$(J)."..
..";.:3A.. J:.". ";:. I.V3F.. I.1 . 4
:HP.HP.1:.".";.M3K.. J.2 . VP:.".";:..3
P.. VP.1 ..".";..3U...HP).".";..3Z.. J.1
. 8..3...". ".HM$(J).".....";:.:..K3...
M.8 . 1570.Z3...".";.HP);..3... I.1 . 8
..4...". ".HM$(I)."......";:...4... 157
0.)4..."..........";.34);.A4... I.1 . 6:
. J.1 . 4.U4...TD$(I,J).A$;:..D4..."....
";:..U4..."...";.34);..4... I.1 . 16:.".
.. ";..4... J.3 . 8..4 .. A$.HM$(J);:..
D4%.."..........";:..W4*.. I.1 . 1000:..
.4/.."... .".A$;..44.."..R .".A$;..59..
"..I..".A$;..5>.."..P..".A$;..5C..".. ..
.".A$;.@5H..".. ..".A$;.R5M..".. ..".A
$;.A5R..".. ..";.T5W.. I.1 . 3000:...5\
..".":UH.1:.UT,UL%:.850:."......THE SECR
ET WORD WAS:".G5A.."..............".WD$.
.5F..".....BETTER LUCK NEXT TIME, ";NM$;
"!!!".!6K..".....CARE TO WASTE ANOTHER F
RIEND? ";.'6P...>6U.. I.1 . 32:. WD$:..[
6Z.US$."YN":UL.1:.35:C$.UR$.U6..C$."Y".
UX$."H":.1400..6...:.900:.300..6..C$."":
. INPUT SUBROUTINE..6..US$."".C6..UL.15
:.35:C$.UR$.I6.....6E.." UI "," JK "..6J
..".. .."..6O..".. .."..7T..".. .."..
7Y.." .... "."7..." .... ".07..."......"
.<7..."ECF.".V7..." "," "," "..
7..."E "," E "," E "," E","M ","
M "," M ",". "," . "..7..." . ","
.",". ","G ",". ","Y ",". "
,". ",". ",". "..7...". ".>8..."
...WORD DATA FOR CATEGORY 1....8... DUF
FY,WESTON,RIVETT,PEARCE,WODEN,BARTON,REI
D,HOLDER,SPENCE,COOK..8... MACGREGOR,HAW
KER,ARANDA,HALL,KAMBAH,WANNIASA,AINSLIE.
.8... DOWNER,DEAKIN,KINGSTON.)9..."
...W
ORD DATA FOR CATEGORY 2...K9... "T BALL"
,SOCCER,BASKETBALL,TENNIS,SQUASH,"NET BA
LL",RUNNING..9... JOGGING,CYCLING,"HORSE
RIDING",DIVING,HOCKEY,"WATER POLO",SWIM
MING..:$.."
...WORD DATA FOR CATEGORY 3.
..G:).. ROWING,SPRINTING,ARCHERY,"HIGH J
UMP","WATER SKIING","BASE BALL"..:... AU
DI,HOLDEN,COMMODORE,MINI,FALCON,MERCEDES
,MITSUBISHI,DATSUN,CORTINA.N:3.. CAMIRA,
COROLLA,GEMINI,SIGMA,CITROEN,"ALFA ROMEO
",FIAT..:8.. JAGUAR,RILEY,FALCON,SAAB.:;
=.."
...WORD DATA FOR CATEGORY 4....;B..
THAILAND,AUSTRALIA,INDONESIA,ENGLAND,GE
RMANY,RUSSIA,ITALY,GREECE,PERU.M;G.. MAL
AYSIA,PHILLIPINES,CHILE,CHINA,JAPAN,IRAN
,CANADA,"NEW ZEALAND"..;L.. HUNGARY,SWIT
ZERLAND,IRELAND.<<Q.."
...WORD DATA FOR
CATEGORY 5....<V.. COW,CAT,HORSE,GOAT,PA
RROT,DONKEY,SHEEP,MONKEY,TIGER,LION,MOUS
E,KOALA.B<[.. WOMBAT,DEER,LEOPARD,GIRAFF
E,ZEBRA,EMU,KANGAROO,SNAKE..<`.. LIZZARD
,PIG,PUPPY,SQUIRREL...
> CLICK IMAGE PREVIEW FOR FULL MODAL