GALGJE
FILE INFORMATION
FILENAME(S): GALGJE
FILE TYPE(S): PRG
FILE SIZE: 13.3K
FIRST SEEN: 2025-11-30 21:28:36
APPEARS ON: 1 disk(s)
FILE HASH
df3cbe209ff3286d4da7022de81ba2567d05987b35b8bb3fb61881e8d6ef6538
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HENNIE | GALGJE | PRG | DuncanTwain | 15 | 7 | 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 31 00 DE 0E 40 01 99 22 11 11 20 20 20 |AN 1...@..".. |
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 31 11 00 0A 17 02 02 99 22 20 |NGMAN 1......." |
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 25 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 11 00 50 17 04 02 99 22 20 20 20 20 |Y : ..P...." |
00000F30: 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 | ..HIS PROGRAM W|
00000F40: 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 |ILL RUN ON ANY..|
00000F50: 00 77 17 05 02 99 22 20 20 20 20 20 20 20 20 20 |.w...." |
00000F60: C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 CF |......2.0 ... ..|
00000F70: CD D0 D5 D4 C5 D2 11 00 9E 17 06 02 99 22 20 20 |............." |
00000F80: 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 | ..... 4.0|
00000F90: 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 C0 | ...............|
00000FA0: 17 07 02 99 22 20 20 20 20 20 20 20 20 20 38 30 |...." 80|
00000FB0: 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 11 |32 ... .........|
00000FC0: 00 E5 17 08 02 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000FD0: C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD |......... 64 ...|
00000FE0: D0 D5 D4 C5 D2 00 EE 17 44 02 8D 38 33 35 00 02 |........D..835..|
00000FF0: 18 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |.N..UZ.1..UP%:.2|
00001000: 31 37 00 08 18 57 02 8E 00 2E 18 58 02 8F 20 2A |17...W.....X.. *|
00001010: 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 |* PROGRAM MODIFI|
00001020: 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 3F |CATION INST **.?|
00001030: 18 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 |.Y..".":.UT,UL%.|
00001040: 5F 18 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 |_.].UP.0:UG$.".R|
00001050: 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 |OGRAM .OD":.850.|
00001060: 8C 18 62 02 99 22 11 1D C9 4E 20 4F 52 44 45 52 |..b.."...N ORDER|
00001070: 20 54 4F 20 43 48 41 4E 47 45 20 54 48 45 20 57 | TO CHANGE THE W|
00001080: 4F 52 44 53 20 49 4E 20 54 48 45 22 00 B4 18 67 |ORDS IN THE"...g|
00001090: 02 99 22 11 1D 43 41 54 41 47 4F 52 49 45 53 20 |.."..CATAGORIES |
000010A0: 41 4C 52 45 41 44 59 20 55 53 45 44 20 49 4E 20 |ALREADY USED IN |
000010B0: 54 48 49 53 00 DF 18 6C 02 99 22 11 1D 50 52 4F |THIS...l.."..PRO|
000010C0: 47 52 41 4D 20 53 49 4D 50 4C 59 20 43 48 41 4E |GRAM SIMPLY CHAN|
000010D0: 47 45 20 54 48 45 20 44 41 54 41 20 49 4E 22 00 |GE THE DATA IN".|
000010E0: FA 18 71 02 99 22 11 1D 4C 49 4E 45 53 20 32 33 |..q.."..LINES 23|
000010F0: 30 35 2D 32 34 30 30 2E 20 22 00 28 19 76 02 99 |05-2400. ".(.v..|
00001100: 22 11 1D D4 4F 20 43 48 41 4E 47 45 20 54 48 45 |"...O CHANGE THE|
00001110: 20 43 41 54 41 47 4F 52 49 45 53 20 55 53 45 44 | CATAGORIES USED|
00001120: 20 43 48 41 4E 47 45 22 00 3F 19 7B 02 99 22 11 | CHANGE".?.{..".|
00001130: 1D 4C 49 4E 45 20 31 34 30 35 20 54 4F 3A 22 00 |.LINE 1405 TO:".|
00001140: 68 19 80 02 99 22 11 1D 31 34 30 35 20 C3 D4 24 |h...."..1405 ..$|
00001150: 28 31 29 3D 27 C6 C9 D2 D3 D4 A0 C3 C1 D4 C1 C7 |(1)='...........|
00001160: CF D2 D9 27 2E 2E 2E 22 00 98 19 85 02 99 22 11 |...'..."......".|
00001170: 1D 41 4E 44 20 53 4F 20 4F 4E 20 55 50 20 54 4F |.AND SO ON UP TO|
00001180: 20 C3 D4 24 28 35 29 3D 27 C6 C9 C6 D4 C8 A0 C3 | ..$(5)='.......|
00001190: C1 D4 C1 C7 CF D2 D9 27 00 C2 19 8A 02 99 22 1D |.......'......".|
000011A0: D4 48 45 4E 20 43 48 41 4E 47 45 20 54 48 45 20 |.HEN CHANGE THE |
000011B0: 44 41 54 41 20 4C 49 4E 45 53 20 54 4F 20 54 48 |DATA LINES TO TH|
000011C0: 45 22 00 EB 19 8F 02 99 22 11 1D 44 41 54 41 20 |E"......"..DATA |
000011D0: 59 4F 55 20 57 41 4E 54 20 49 4E 20 45 41 43 48 |YOU WANT IN EACH|
000011E0: 20 43 41 54 41 47 4F 52 59 2E 22 00 F4 19 94 02 | CATAGORY.".....|
000011F0: 8D 38 33 35 00 08 1A B2 02 8B 55 5A B2 31 A7 9E |.835......UZ.1..|
00001200: 55 50 25 3A 89 32 31 37 00 0E 1A BB 02 8E 00 33 |UP%:.217.......3|
00001210: 1A BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 |.... ** TO USE 8|
00001220: 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 |032 LOAD CBM4032|
00001230: 20 2A 2A 00 69 1A C6 02 99 22 93 11 11 11 05 42 | **.i....".....B|
00001240: 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 |EFORE RUNNING TH|
00001250: 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E |IS PROGRAM ON AN|
00001260: 20 38 30 33 32 20 20 11 11 00 9F 1A D0 02 99 22 | 8032 ........"|
00001270: 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 | LOAD THE '|
00001280: 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 |CBM 4032' PROGRA|
00001290: 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |M.............".|
000012A0: AA 1A DA 02 9E 55 55 AA 37 31 00 B0 1A E4 02 80 |.....UU.71......|
000012B0: 00 D5 1A 1D 03 8F 20 2A 2A 20 54 4F 20 55 53 45 |...... ** TO USE|
000012C0: 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 | 8032 LOAD CBM40|
000012D0: 33 32 20 2A 2A 00 20 1B 1E 03 99 22 93 11 11 11 |32 **. ...."....|
000012E0: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T|
000012F0: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A|
00001300: 4E 20 38 30 33 32 20 20 11 11 4C 4F 41 44 20 43 |N 8032 ..LOAD C|
00001310: 42 4D 20 34 30 33 32 20 50 52 4F 47 52 41 4D 22 |BM 4032 PROGRAM"|
00001320: 00 2C 1B 1F 03 9E 31 30 39 33 3A 80 00 4C 1B 20 |.,....1093:..L. |
00001330: 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 |.. ** T I T L E |
00001340: 20 20 50 20 41 20 47 20 45 20 2A 2A 00 80 1B 22 | P A G E **..."|
00001350: 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 |.."....";:.UT,UU|
00001360: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00001370: 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 |3280,14:.53281,6|
00001380: 00 96 1B 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 |...$..I.1.38:.".|
00001390: A6 92 22 3B 3A 82 00 AE 1B 26 03 81 49 B2 31 A4 |..";:....&..I.1.|
000013A0: 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 C6 |22:.".....";:...|
000013B0: 1B 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 |.(..I.1.37:."...|
000013C0: A6 92 22 3B 3A 82 00 DE 1B 2A 03 81 49 B2 31 A4 |..";:....*..I.1.|
000013D0: 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 03 |22:.".....";:...|
000013E0: 1C 2C 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D |.,.."...........|
000013F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 |................|
00001400: 20 20 92 00 25 1C 2E 03 99 22 1D 1D 1D 1D 1D 1D | ..%...."......|
00001410: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 |............. . |
00001420: 20 12 20 92 A9 00 46 1C 30 03 99 22 1D 1D 1D 1D | . ...F.0.."....|
00001430: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 |............... |
00001440: 92 20 20 12 A3 DF 00 64 1C 32 03 99 22 1D 1D 1D |. ....d.2.."...|
00001450: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF |................|
00001460: 12 20 20 92 00 8C 1C 34 03 99 22 11 11 1D 1D 1D |. ....4..".....|
00001470: 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D |.........C O M M|
00001480: 20 4F 20 44 20 4F 20 52 20 45 11 11 00 AF 1C 36 | O D O R E.....6|
00001490: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000014A0: 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 |..EDUCATIONAL...|
000014B0: CE 1C 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..8.."..........|
000014C0: 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 E9 |......SOFTWARE..|
000014D0: 1C 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 |.:.. ** COMMODOR|
000014E0: 45 20 4C 4F 47 4F 20 2A 2A 00 21 1D 3B 03 99 C8 |E LOGO **.!.;...|
000014F0: 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D |(UD$,24);"......|
00001500: 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 |....PRESS SPACE |
00001510: 42 41 52 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 |BAR OR WAIT.":I.|
00001520: 30 00 43 1D 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 |0.C.<..A$:.A$.."|
00001530: 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 | ".I.I.1:.I.250.|
00001540: 38 32 38 00 67 1D 3E 03 54 31 24 B2 22 22 3A 54 |828.g.>.T1$."":T|
00001550: 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 |2$."":T3$."":T4$|
00001560: B2 22 22 3A 49 B2 30 00 70 1D 40 03 89 33 30 30 |."":I.0.p.@..300|
00001570: 00 8C 1D 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 |...C.. ** SPACE |
00001580: 42 41 52 20 50 52 45 53 53 20 2A 2A 00 C7 1D 48 |BAR PRESS **...H|
00001590: 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |...(UD$,24);"...|
000015A0: 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 |....PRESS SPACE |
000015B0: 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 |BAR TO CONTINUE.|
000015C0: 22 3A 97 55 4F 2C 30 00 DE 1D 4C 03 A1 55 49 24 |":.UO,0...L..UI$|
000015D0: 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 E4 |:.UI$.." ".844..|
000015E0: 1D 4E 03 8E 00 04 1E 52 03 8F 20 2A 2A 20 50 41 |.N.....R.. ** PA|
000015F0: 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 49 4E |GE DESIGN ROUTIN|
00001600: 45 20 2A 2A 00 10 1E 54 03 55 50 B2 55 50 AA 31 |E **...T.UP.UP.1|
00001610: 00 3A 1E 57 03 99 22 93 22 C8 28 55 54 24 AA 55 |.:.W..".".(UT$.U|
00001620: 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 |P$,21);.(UP$.UG$|
00001630: AA C4 28 55 50 29 2C 31 38 29 00 69 1E 5C 03 99 |..(UP),18).i.\..|
00001640: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
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 22 00 78 1E 60 03 8B 55 |--------".x.`..U|
00001670: 48 B3 B1 30 A7 38 37 30 00 AC 1E 61 03 99 C8 28 |H..0.870...a...(|
00001680: 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 |UD$,24);.(UP$,7)|
00001690: 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 |;"HELP - PRESS |
000016A0: 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 BD 1E 66 | H <RETURN>"...f|
000016B0: 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 DC 1E |.UH.0:."..":....|
000016C0: 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 |k.. ** PLEASE WA|
000016D0: 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 12 1F 70 |IT REMARK **...p|
000016E0: 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 |...(UD$,24);" |
000016F0: 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 | ONE MOME|
00001700: 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 |NT PLEASE... |
00001710: 20 22 00 18 1F 75 03 8E 00 35 1F 84 03 8F 20 2A | "...u...5.... *|
00001720: 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 42 4C |* SET UP VARIABL|
00001730: 45 53 20 2A 2A 00 80 1F 85 03 55 58 24 B2 22 48 |ES **.....UX$."H|
00001740: 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 42 B2 |":.UQ%(1000):UB.|
00001750: 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 |32768:U1.196:U2.|
00001760: 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 |197:U3.198:U4.21|
00001770: 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 |6:UC.167:UU.1024|
00001780: 00 BE 1F 86 03 55 54 B2 35 39 34 36 38 3A 55 55 |.....UT.59468:UU|
00001790: 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 |%.12:UL%.14:UP%.|
000017A0: 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A 97 20 |1146:UM.32768:. |
000017B0: 35 30 30 30 33 2C 30 3A 55 4F B2 31 35 38 00 01 |50003,0:UO.158..|
000017C0: 20 87 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 | ....(50003).0.U|
000017D0: 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 |B.1024:U1.209:U2|
000017E0: B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 |.210:U3.211:U4.2|
000017F0: 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 |14:UC.204:UU.204|
00001800: 38 00 40 20 88 03 8B C2 28 35 30 30 30 33 29 B2 |8.@ ....(50003).|
00001810: 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 |0.UT.53272:UU%.2|
00001820: 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 |1:UL%.23:UP%.213|
00001830: 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 |9:UM.1024:UO.198|
00001840: 00 64 20 89 03 55 44 24 B2 22 13 11 11 11 11 11 |.d ..UD$."......|
00001850: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001860: 11 11 11 22 00 96 20 8A 03 55 50 24 B2 22 20 20 |...".. ..UP$." |
00001870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001890: 20 20 20 20 20 22 00 E4 20 8B 03 55 54 24 B2 22 | ".. ..UT$."|
000018A0: 20 C8 C1 CE C7 CD C1 CE 20 31 20 20 20 20 20 A0 | ....... 1 .|
000018B0: A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F |...":. PLACE PRO|
000018C0: 47 52 41 4D 20 54 49 54 4C 45 20 48 45 52 45 20 |GRAM TITLE HERE |
000018D0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 |!!!!!!!!!!!!!!!!|
000018E0: 21 2A 2A 2A 00 09 21 8C 03 86 20 48 4D 24 28 38 |!***..!... HM$(8|
000018F0: 29 2C 54 44 24 28 36 2C 34 29 2C 50 52 24 28 31 |),TD$(6,4),PR$(1|
00001900: 37 29 2C 43 24 28 32 35 29 00 0F 21 8D 03 8E 00 |7),C$(25)..!....|
00001910: 29 21 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 |)!... ** SET VAR|
00001920: 49 41 42 4C 45 53 20 2A 2A 00 32 21 93 03 8D 39 |IABLES **.2!...9|
00001930: 30 30 00 38 21 95 03 3A 00 53 21 98 03 8F 20 2A |00.8!..:.S!... *|
00001940: 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 |* CHECK FOR 8032|
00001950: 20 2A 2A 00 71 21 9D 03 99 22 93 22 3A 99 22 A0 | **.q!...".":.".|
00001960: 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 |":. SHIFTED SPAC|
00001970: 45 00 88 21 A2 03 8B C2 28 55 42 AA 34 30 29 B3 |E..!....(UB.40).|
00001980: B1 39 36 A7 8D 37 30 30 00 A1 21 A3 03 8F 20 2A |.96..700..!... *|
00001990: 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A |* MEMORY CHECK *|
000019A0: 2A 00 B5 21 A4 03 8B 20 B8 28 30 29 B1 32 30 30 |*..!... .(0).200|
000019B0: 30 A7 39 33 37 00 E3 21 A5 03 99 22 93 11 11 05 |0.937..!..."....|
000019C0: 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 |THIS MACHINE DOE|
000019D0: 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 |S NOT HAVE ENOUG|
000019E0: 48 11 22 00 07 22 A6 03 99 22 4D 45 4D 4F 52 59 |H.".."..."MEMORY|
000019F0: 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F | TO RUN THIS PRO|
00001A00: 47 52 41 4D 20 21 22 00 12 22 A7 03 9E 55 55 AA |GRAM !".."...UU.|
00001A10: 37 31 00 18 22 A8 03 80 00 32 22 A9 03 99 22 93 |71.."....2"...".|
00001A20: 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 |.":..(50003).0.9|
00001A30: 36 32 00 61 22 AC 03 8F 20 2A 2A 20 42 41 53 49 |62.a"... ** BASI|
00001A40: 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 |C 2.0 OR 4.0 |
00001A50: 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A |OR C-64 SETUP *|
00001A60: 2A 00 9F 22 AD 03 97 31 30 37 35 2C 31 33 33 3A |*.."...1075,133:|
00001A70: 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C |.1076,144:.1077,|
00001A80: 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 |234:.1079,4:.108|
00001A90: 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 |0,133:.1081,145.|
00001AA0: D5 22 AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 |."...1091,155:.1|
00001AB0: 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 |098,133:.1099,14|
00001AC0: 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 |4:.1100,234:.110|
00001AD0: 33 2C 31 33 33 00 F7 22 AF 03 97 31 31 30 34 2C |3,133.."...1104,|
00001AE0: 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 |145:.1105,234:.1|
00001AF0: 30 38 32 2C 32 33 34 00 0E 23 B1 03 8B C2 28 35 |082,234..#....(5|
00001B00: 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 3D |0003)..160.955.=|
00001B10: 23 B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 |#...1093,88:.109|
00001B20: 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 |4,228:.1097,85:.|
00001B30: 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 52 23 |1102,228:.965.R#|
00001B40: BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 |....(50003)..1.9|
00001B50: 39 30 00 81 23 C0 03 97 31 30 39 33 2C 34 39 3A |90..#...1093,49:|
00001B60: 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C |.1094,230:.1097,|
00001B70: 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 |46:.1102,230:.96|
00001B80: 35 00 BB 23 C2 03 97 32 30 39 39 2C 31 34 31 3A |5..#...2099,141:|
00001B90: 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 |.2100,20:.2101,3|
00001BA0: 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 |:.2103,8:.2104,1|
00001BB0: 34 31 3A 97 32 31 30 35 2C 32 31 00 F7 23 C3 03 |41:.2105,21..#..|
00001BC0: 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 |.2106,3:.2115,14|
00001BD0: 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 |5:.2117,52:.2118|
00001BE0: 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 |,234:.2121,49:.2|
00001BF0: 31 32 32 2C 31 34 31 00 31 24 C4 03 97 32 31 32 |122,141.1$...212|
00001C00: 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 |3,20:.2124,3:.21|
00001C10: 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 |26,234:.2127,141|
00001C20: 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C |:.2128,21:.2129,|
00001C30: 33 00 4F 24 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 |3.O$...UU.48:. D|
00001C40: 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 |ISABLE STOP KEY.|
00001C50: 60 24 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 |`$...800:. TITLE|
00001C60: 00 70 24 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 |.p$...300:. MENU|
00001C70: 00 A1 24 DE 03 99 22 93 54 48 45 20 50 47 4D 20 |..$...".THE PGM |
00001C80: 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E |WILL NOT WORK ON|
00001C90: 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A | THIS MACHINE!":|
00001CA0: 80 00 D6 24 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 |...$...UZ.1..UP%|
00001CB0: 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 |:.UP%:UZ.0:. ** |
00001CC0: 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 |PROGRAM STARTS H|
00001CD0: 45 52 45 20 2A 2A 00 01 25 E9 03 99 22 93 05 22 |ERE **..%...".."|
00001CE0: 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |;:.:..(50003).0.|
00001CF0: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00001D00: 36 00 24 25 F2 03 97 55 54 2C 55 4C 25 3A 55 47 |6.$%...UT,UL%:UG|
00001D10: 24 B2 22 D0 41 47 45 20 23 22 3A 55 50 B2 30 3A |$.".AGE #":UP.0:|
00001D20: 55 48 B2 31 00 48 25 C4 04 8D 38 35 30 3A 99 22 |UH.1.H%...850:."|
00001D30: 11 11 11 11 22 A3 31 33 29 22 B0 C0 C0 C0 C0 C0 |....".13)"......|
00001D40: C0 C0 C0 C0 C0 C0 AE 22 00 5C 25 C9 04 99 A3 31 |.......".\%....1|
00001D50: 33 29 22 DD 22 A3 32 35 29 22 DD 22 00 75 25 CE |3)".".25)".".u%.|
00001D60: 04 99 A3 31 33 29 22 DD 20 20 C8 C1 CE C7 CD C1 |...13)". ......|
00001D70: CE 20 20 DD 22 00 89 25 D3 04 99 A3 31 33 29 22 |. ."..%....13)"|
00001D80: DD 22 A3 32 35 29 22 DD 22 00 A2 25 D8 04 99 A3 |.".25)"."..%....|
00001D90: 31 33 29 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |13)"............|
00001DA0: BD 22 00 E1 25 37 05 99 22 11 11 11 1D D7 48 41 |."..%7..".....HA|
00001DB0: 54 20 49 53 20 59 4F 55 52 20 46 49 52 53 54 20 |T IS YOUR FIRST |
00001DC0: 4E 41 4D 45 3F 20 22 3B 3A 55 4C B2 31 32 3A 55 |NAME? ";:UL.12:U|
00001DD0: 53 24 B2 22 22 3A 8D 33 35 3A 4E 4D 24 B2 55 52 |S$."":.35:NM$.UR|
00001DE0: 24 00 FF 25 3C 05 55 48 B2 31 3A 8D 38 35 30 3A |$..%<.UH.1:.850:|
00001DF0: 99 22 11 11 1D CF 4B 41 59 2C 20 22 4E 4D 24 00 |."....KAY, "NM$.|
00001E00: 2E 26 41 05 99 22 11 11 1D D7 48 45 4E 20 59 4F |.&A.."....HEN YO|
00001E10: 55 20 47 55 45 53 53 20 41 20 43 4F 52 52 45 43 |U GUESS A CORREC|
00001E20: 54 20 4C 45 54 54 45 52 2C 20 59 4F 55 22 00 5E |T LETTER, YOU".^|
00001E30: 26 46 05 99 22 11 1D 57 49 4C 4C 20 42 45 20 41 |&F.."..WILL BE A|
00001E40: 53 4B 45 44 20 49 46 20 59 4F 55 20 57 4F 55 4C |SKED IF YOU WOUL|
00001E50: 44 20 4C 49 4B 45 20 54 4F 20 54 52 59 22 00 8D |D LIKE TO TRY"..|
00001E60: 26 4B 05 99 22 11 1D 54 4F 20 47 55 45 53 53 20 |&K.."..TO GUESS |
00001E70: 54 48 45 20 45 4E 54 49 52 45 20 57 4F 52 44 2E |THE ENTIRE WORD.|
00001E80: 1D 1D D4 59 50 45 20 45 49 54 48 45 52 00 B9 26 |...YPE EITHER..&|
00001E90: 50 05 99 22 11 1D 59 45 53 20 4F 52 20 4E 4F 20 |P.."..YES OR NO |
00001EA0: 41 43 43 4F 52 44 49 4E 47 20 54 4F 20 59 4F 55 |ACCORDING TO YOU|
00001EB0: 52 20 57 49 53 48 45 53 22 00 DD 26 55 05 99 22 |R WISHES"..&U.."|
00001EC0: 11 1D 41 4E 44 20 46 4F 4C 4C 4F 57 20 54 48 45 |..AND FOLLOW THE|
00001ED0: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 00 F3 26 | INSTRUCTIONS..&|
00001EE0: 56 05 99 22 11 1D 41 43 43 4F 52 44 49 4E 47 4C |V.."..ACCORDINGL|
00001EF0: 59 2E 22 00 FC 26 5A 05 8D 38 33 35 00 15 27 64 |Y."..&Z..835..'d|
00001F00: 05 81 20 49 B2 31 20 A4 20 38 3A 87 20 48 4D 24 |.. I.1 . 8:. HM$|
00001F10: 28 49 29 3A 82 00 2E 27 69 05 81 20 49 B2 31 20 |(I):...'i.. I.1 |
00001F20: A4 20 36 3A 20 81 20 4A B2 31 20 A4 20 34 00 41 |. 6: . J.1 . 4.A|
00001F30: 27 6E 05 87 20 54 44 24 28 49 2C 4A 29 3A 82 3A |'n.. TD$(I,J):.:|
00001F40: 82 00 63 27 73 05 41 24 B2 22 11 9D 9D 9D 9D 22 |..c's.A$."....."|
00001F50: 3A 42 24 B2 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |:B$."...........|
00001F60: 9D 9D 22 00 A7 27 78 05 99 22 93 22 3A 97 55 54 |.."..'x..".":.UT|
00001F70: 2C 55 4C 25 3A 8D 38 35 30 3A 99 22 11 1D C3 48 |,UL%:.850:."...H|
00001F80: 4F 4F 53 45 20 4F 4E 45 20 4F 46 20 54 48 45 20 |OOSE ONE OF THE |
00001F90: 46 4F 4C 4C 4F 57 49 4E 47 20 43 41 54 45 47 4F |FOLLOWING CATEGO|
00001FA0: 52 49 45 53 3A 11 11 00 BE 27 7C 05 8F 20 2A 2A |RIES:....'|.. **|
00001FB0: 2A 43 41 54 41 47 4F 52 49 45 53 2A 2A 2A 00 0D |*CATAGORIES***..|
00001FC0: 28 7D 05 43 54 24 28 31 29 B2 22 41 52 54 49 45 |(}.CT$(1)."ARTIE|
00001FD0: 53 54 45 4E 22 3A 43 54 24 28 32 29 B2 22 53 50 |STEN":CT$(2)."SP|
00001FE0: 4F 52 54 20 22 3A 43 54 24 28 33 29 B2 22 41 55 |ORT ":CT$(3)."AU|
00001FF0: 54 4F 4D 45 52 4B 45 4E 22 3A 43 54 24 28 34 29 |TOMERKEN":CT$(4)|
00002000: B2 22 4E 41 54 49 4F 4E 41 4C 49 2E 22 00 25 28 |."NATIONALI.".%(|
00002010: 7E 05 43 54 24 28 35 29 B2 22 56 4F 47 45 4C 4E |~.CT$(5)."VOGELN|
00002020: 41 4D 45 4E 22 00 3C 28 82 05 8F 20 2A 2A 2A 2A |AMEN".<(... ****|
00002030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 60 28 87 |************.`(.|
00002040: 05 81 20 41 B2 31 20 A4 20 35 3A 99 41 3B 22 9D |.. A.1 . 5:.A;".|
00002050: 2E 20 22 3B 43 54 24 28 41 29 3B 22 11 22 3A 82 |. ";CT$(A);".":.|
00002060: 00 A3 28 8C 05 99 22 11 11 20 20 20 20 D9 4F 55 |..(...".. .OU|
00002070: 52 20 43 48 4F 49 43 45 2C 20 22 AA 4E 4D 24 AA |R CHOICE, ".NM$.|
00002080: 22 20 22 3B 3A 55 53 24 B2 22 31 32 33 34 35 48 |" ";:US$."12345H|
00002090: 22 3A 55 4C B2 31 3A 8D 33 35 3A 43 B2 C5 28 55 |":UL.1:.35:C..(U|
000020A0: 52 24 29 00 D0 28 9B 05 99 20 22 11 20 20 20 20 |R$)..(... ". |
000020B0: CC 45 54 20 4D 45 20 54 48 49 4E 4B 20 4F 46 20 |.ET ME THINK OF |
000020C0: 41 20 57 4F 52 44 2E 2E 2E 22 3A 54 54 B2 54 49 |A WORD...":TT.TI|
000020D0: 00 F0 28 A0 05 81 20 49 B2 30 20 A4 20 28 43 AB |..(... I.0 . (C.|
000020E0: 31 29 AC 32 30 AA B5 28 BB 28 31 29 AC 32 30 29 |1).20..(.(1).20)|
000020F0: 00 FC 28 A5 05 87 20 57 44 24 3A 82 00 13 29 AA |..(... WD$:...).|
00002100: 05 8B 20 54 49 AB 54 54 B3 31 32 30 20 A7 20 31 |.. TI.TT.120 . 1|
00002110: 34 35 30 00 2C 29 AF 05 4C 4D 24 B2 22 22 3A 50 |450.,)..LM$."":P|
00002120: 52 24 B2 22 22 3A 4C 47 24 B2 22 22 00 3E 29 B4 |R$."":LG$."".>).|
00002130: 05 81 49 B2 31 20 A4 20 C3 28 57 44 24 29 00 73 |..I.1 . .(WD$).s|
00002140: 29 B9 05 8B 20 CA 28 57 44 24 2C 49 2C 31 29 B2 |)... .(WD$,I,1).|
00002150: 22 20 22 20 A7 20 50 52 24 28 49 29 B2 22 20 22 |" " . PR$(I)." "|
00002160: 3A 50 52 24 B2 50 52 24 AA 22 20 22 3A 89 20 31 |:PR$.PR$." ":. 1|
00002170: 34 37 35 00 8E 29 BE 05 50 52 24 28 49 29 B2 22 |475..)..PR$(I)."|
00002180: 2D 22 3A 50 52 24 B2 50 52 24 AA 22 2D 22 00 A1 |-":PR$.PR$."-"..|
00002190: 29 C3 05 82 3A 99 22 93 22 3A 97 55 54 2C 55 55 |)...:.".":.UT,UU|
000021A0: 25 00 B2 29 C8 05 4D 4E 24 B2 C8 28 4E 4D 24 2C |%..)..MN$..(NM$,|
000021B0: 31 29 00 DE 29 CD 05 8B 20 C6 28 4D 4E 24 29 B1 |1)..)... .(MN$).|
000021C0: 39 35 20 A7 4E 4D 24 B2 C7 28 C6 28 4D 4E 24 29 |95 .NM$..(.(MN$)|
000021D0: AB 31 32 38 29 AA CA 28 4E 4D 24 2C 32 29 00 FE |.128)..(NM$,2)..|
000021E0: 29 D2 05 56 50 B2 31 37 3A 48 50 B2 30 3A 4D B2 |)..VP.17:HP.0:M.|
000021F0: 30 3A 99 22 93 22 3B 3A 55 58 24 B2 22 22 00 15 |0:.".";:UX$.""..|
00002200: 2A D7 05 81 20 49 B2 31 20 A4 20 31 36 3A 99 22 |*... I.1 . 16:."|
00002210: 11 22 3B 3A 82 00 2E 2A DC 05 81 20 49 B2 31 A4 |.";:...*... I.1.|
00002220: 38 3A 99 3A 99 48 4D 24 28 49 29 3B 3A 82 00 3C |8:.:.HM$(I);:..<|
00002230: 2A E1 05 81 20 49 B2 31 20 A4 20 37 00 58 2A E6 |*... I.1 . 7.X*.|
00002240: 05 99 22 12 20 91 9D A3 A3 A3 A3 20 91 9D 22 3B |..". ...... ..";|
00002250: 3A 82 3A 99 22 92 22 3B 00 6E 2A EB 05 99 22 12 |:.:.".";.n*...".|
00002260: 20 91 9D 20 20 92 C5 C5 C5 C5 12 20 92 22 00 9B | .. ...... ."..|
00002270: 2A F0 05 99 22 13 22 3B A3 33 34 29 3B 22 12 A2 |*...".";.34);"..|
00002280: 20 20 92 11 9D 9D A7 A5 11 9D 9D D5 C9 11 9D 9D | ..............|
00002290: CA CB 91 91 91 12 A2 A2 20 22 3B 00 B6 2A F5 05 |........ ";..*..|
000022A0: 81 20 49 B2 31 20 A4 20 32 33 3A 99 22 9D 12 20 |. I.1 . 23:.".. |
000022B0: 92 11 22 3B 3A 82 00 D0 2A FA 05 99 22 9D 12 20 |..";:...*...".. |
000022C0: 92 22 3B 3A 97 20 55 4D AA 39 39 39 2C 31 36 30 |.";:. UM.999,160|
000022D0: 00 F0 2A FF 05 99 22 13 53 45 43 52 45 54 20 57 |..*...".SECRET W|
000022E0: 4F 52 44 3A 20 22 3B 43 54 24 28 43 29 3B 22 91 |ORD: ";CT$(C);".|
000022F0: 00 07 2B 04 06 81 20 49 B2 31 20 A4 20 38 20 3A |..+... I.1 . 8 :|
00002300: 99 22 11 22 20 3A 82 00 23 2B 09 06 99 A3 31 38 |."." :..#+....18|
00002310: 29 3B 22 11 4C 45 54 54 45 52 53 20 4D 49 53 53 |);".LETTERS MISS|
00002320: 45 44 22 00 3E 2B 0E 06 99 A3 31 38 29 3B 22 A3 |ED".>+....18);".|
00002330: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 4F |.............".O|
00002340: 2B 13 06 99 22 13 11 11 11 11 22 3B 50 52 24 00 |+...".....";PR$.|
00002350: 66 2B 18 06 81 20 49 B2 31 20 A4 20 31 37 3A 99 |f+... I.1 . 17:.|
00002360: 22 11 22 3B 3A 82 00 74 2B 1D 06 99 A3 31 36 29 |".";:..t+....16)|
00002370: 3B 4C 4D 24 00 B7 2B 22 06 99 22 13 11 11 11 11 |;LM$..+"..".....|
00002380: 11 11 47 55 45 53 53 20 41 20 4C 45 54 54 45 52 |..GUESS A LETTER|
00002390: 20 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D | .....|
000023A0: 9D 9D 9D 9D 9D 22 3B 3A 8D 32 31 38 35 3A 47 24 |.....";:.2185:G$|
000023B0: B2 43 24 AA 22 20 22 00 D2 2B 27 06 8B 20 CA 28 |.C$." "..+'.. .(|
000023C0: 47 24 2C 32 2C 31 29 B2 22 20 22 20 89 20 31 36 |G$,2,1)." " . 16|
000023D0: 31 30 00 DE 2B 2C 06 99 22 91 91 91 91 22 00 ED |10..+,.."...."..|
000023E0: 2B 31 06 81 20 49 B2 31 20 A4 20 32 30 00 05 2C |+1.. I.1 . 20..,|
000023F0: 36 06 8B 20 49 AD 32 B2 B5 28 49 AD 32 29 A7 20 |6.. I.2..(I.2). |
00002400: 99 22 12 22 3B 00 26 2C 3B 06 99 22 4F 4E 4C 59 |.".";.&,;.."ONLY|
00002410: 20 4F 4E 45 20 4C 45 54 54 45 52 2C 20 22 3B 4E | ONE LETTER, ";N|
00002420: 4D 24 3B 22 91 22 00 37 2C 40 06 81 20 4A B2 31 |M$;".".7,@.. J.1|
00002430: 20 A4 20 35 30 3A 82 00 46 2C 45 06 82 20 49 3A | . 50:..F,E.. I:|
00002440: 89 20 31 35 37 30 00 55 2C 4A 06 47 24 B2 C8 28 |. 1570.U,J.G$..(|
00002450: 47 24 2C 31 29 00 74 2C 4F 06 8B 20 47 24 B1 B2 |G$,1).t,O.. G$..|
00002460: 22 41 22 20 AF 20 47 24 B3 B2 22 5A 22 20 89 20 |"A" . G$.."Z" . |
00002470: 31 36 34 35 00 8B 2C 54 06 99 22 91 91 91 91 22 |1645..,T.."...."|
00002480: 3A 81 20 49 B2 31 20 A4 20 32 30 00 A3 2C 59 06 |:. I.1 . 20..,Y.|
00002490: 8B 20 49 AD 32 B2 B5 28 49 AD 32 29 A7 20 99 22 |. I.2..(I.2). ."|
000024A0: 12 22 3B 00 C1 2C 5E 06 99 22 54 48 41 54 27 53 |.";..,^.."THAT'S|
000024B0: 20 4E 4F 54 20 41 20 4C 45 54 54 45 52 21 21 91 | NOT A LETTER!!.|
000024C0: 22 00 D2 2C 63 06 81 20 4A B2 31 20 A4 20 35 30 |"..,c.. J.1 . 50|
000024D0: 3A 82 00 E1 2C 68 06 82 20 49 3A 89 20 31 35 37 |:...,h.. I:. 157|
000024E0: 30 00 F4 2C 6D 06 81 20 49 B2 31 20 A4 20 C3 28 |0..,m.. I.1 . .(|
000024F0: 4C 47 24 29 00 0F 2D 72 06 8B 20 47 24 B2 CA 28 |LG$)..-r.. G$..(|
00002500: 4C 47 24 2C 49 2C 31 29 20 89 20 31 36 36 30 00 |LG$,I,1) . 1660.|
00002510: 1E 2D 77 06 82 20 49 3A 89 20 31 36 39 30 00 2A |.-w.. I:. 1690.*|
00002520: 2D 7C 06 99 22 91 91 91 91 22 00 39 2D 81 06 81 |-|.."....".9-...|
00002530: 20 49 B2 31 20 A4 20 32 30 00 52 2D 86 06 8B 20 | I.1 . 20.R-... |
00002540: 49 AD 32 B2 B5 28 49 AD 32 29 20 A7 20 99 22 12 |I.2..(I.2) . .".|
00002550: 22 3B 00 72 2D 8B 06 99 22 54 48 41 54 20 4C 45 |";.r-..."THAT LE|
00002560: 54 54 45 52 20 57 41 53 20 54 52 49 45 44 21 21 |TTER WAS TRIED!!|
00002570: 91 22 00 83 2D 90 06 81 20 4A B2 31 20 A4 20 35 |."..-... J.1 . 5|
00002580: 30 3A 82 00 92 2D 95 06 82 20 49 3A 89 20 31 35 |0:...-... I:. 15|
00002590: 37 30 00 AF 2D 9A 06 99 22 91 91 20 20 20 20 20 |70..-...".. |
000025A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000025B0: C6 2D 9F 06 46 B2 30 3A 81 20 49 B2 31 20 A4 20 |.-..F.0:. I.1 . |
000025C0: C3 28 57 44 24 29 00 EA 2D A4 06 8B 20 47 24 B2 |.(WD$)..-... G$.|
000025D0: CA 28 57 44 24 2C 49 2C 31 29 20 A7 20 50 52 24 |.(WD$,I,1) . PR$|
000025E0: 28 49 29 B2 47 24 3A 46 B2 31 00 F0 2D A9 06 82 |(I).G$:F.1..-...|
000025F0: 00 01 2E AE 06 8B 20 46 B2 30 20 89 20 31 39 31 |...... F.0 . 191|
00002600: 30 00 17 2E B3 06 4C 47 24 B2 4C 47 24 AA 47 24 |0.....LG$.LG$.G$|
00002610: 3A 50 52 24 B2 22 22 00 2A 2E B8 06 81 20 49 B2 |:PR$."".*.... I.|
00002620: 31 20 A4 20 C3 28 57 44 24 29 00 3F 2E BD 06 50 |1 . .(WD$).?...P|
00002630: 52 24 B2 50 52 24 AA 50 52 24 28 49 29 3A 82 00 |R$.PR$.PR$(I):..|
00002640: 50 2E C2 06 99 22 13 11 11 11 11 22 3B 50 52 24 |P....".....";PR$|
00002650: 00 6D 2E C7 06 99 22 20 20 20 20 20 20 20 20 20 |.m...." |
00002660: 20 20 20 20 20 20 20 20 20 20 20 91 22 00 7C 2E | .".|.|
00002670: CC 06 81 20 49 B2 31 20 A4 20 32 30 00 95 2E D1 |... I.1 . 20....|
00002680: 06 8B 20 49 AD 32 B2 B5 28 49 AD 32 29 20 A7 20 |.. I.2..(I.2) . |
00002690: 99 22 12 22 3B 00 B0 2E D6 06 99 22 56 45 52 59 |.".";......"VERY|
000026A0: 20 47 4F 4F 44 2C 22 AA 4E 4D 24 AA 22 21 91 22 | GOOD,".NM$."!."|
000026B0: 00 C3 2E DB 06 81 20 4A B2 31 20 A4 20 35 30 3A |...... J.1 . 50:|
000026C0: 82 3A 82 00 D8 2E E0 06 8B 20 50 52 24 B2 57 44 |.:....... PR$.WD|
000026D0: 24 20 89 20 31 38 33 30 00 08 2F E5 06 99 22 13 |$ . 1830../...".|
000026E0: 11 11 11 11 11 11 54 52 59 20 46 4F 52 20 54 48 |......TRY FOR TH|
000026F0: 45 20 57 4F 52 44 3F 20 20 20 20 20 20 20 20 9D |E WORD? .|
00002700: 9D 9D 9D 9D 9D 9D 22 3B 00 12 2F EA 06 8D 32 31 |......";../...21|
00002710: 38 35 00 2C 2F EF 06 8B 20 C8 28 43 24 2C 31 29 |85.,/... .(C$,1)|
00002720: B3 B1 22 59 22 20 A7 20 31 35 37 30 00 4F 2F F4 |.."Y" . 1570.O/.|
00002730: 06 99 22 13 11 11 11 11 11 11 47 55 45 53 53 20 |..".......GUESS |
00002740: 54 48 45 20 57 4F 52 44 28 53 29 20 20 20 22 00 |THE WORD(S) ".|
00002750: 6A 2F F9 06 8D 20 32 31 38 35 3A 47 24 B2 C8 28 |j/... 2185:G$..(|
00002760: 43 24 2C C3 28 57 44 24 29 29 00 7E 2F FE 06 8B |C$,.(WD$)).~/...|
00002770: 20 47 24 B2 57 44 24 20 89 20 31 38 33 30 00 A1 | G$.WD$ . 1830..|
00002780: 2F 03 07 99 22 13 11 11 11 11 11 11 20 20 20 20 |/..."....... |
00002790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 | .|
000027A0: 22 00 B0 2F 08 07 81 20 49 B2 31 20 A4 20 32 30 |"../... I.1 . 20|
000027B0: 00 C9 2F 0D 07 8B 20 49 AD 32 B2 B5 28 49 AD 32 |../... I.2..(I.2|
000027C0: 29 20 A7 20 99 22 12 22 3B 00 DF 2F 12 07 99 22 |) . .".";../..."|
000027D0: 53 4F 52 52 59 2C 22 AA 4E 4D 24 AA 22 91 22 00 |SORRY,".NM$.".".|
000027E0: F2 2F 17 07 81 20 4A B2 31 20 A4 20 35 30 3A 82 |./... J.1 . 50:.|
000027F0: 3A 82 00 13 30 1C 07 99 22 13 11 11 11 11 11 11 |:...0...".......|
00002800: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00002810: 20 20 22 00 1E 30 21 07 89 20 31 35 37 30 00 4F | "..0!.. 1570.O|
00002820: 30 26 07 55 58 24 B2 22 48 22 3A 97 55 54 2C 55 |0&.UX$."H":.UT,U|
00002830: 55 25 3A 99 22 93 11 11 11 11 11 11 11 11 11 1D |U%:."...........|
00002840: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 |.............";.|
00002850: 5E 30 2B 07 81 20 49 B2 31 20 A4 20 31 30 00 76 |^0+.. I.1 . 10.v|
00002860: 30 30 07 99 22 DA 20 DA 20 DA 20 DA 20 DA 20 DA |00..". . . . . .|
00002870: 20 22 AA 42 24 3B 00 8E 30 35 07 99 22 20 20 20 | ".B$;..05.." |
00002880: 20 20 20 20 20 20 20 20 DA 22 AA 42 24 3B 00 A6 | .".B$;..|
00002890: 30 3A 07 99 22 DA 20 59 4F 55 20 57 4F 4E 21 20 |0:..". YOU WON! |
000028A0: 20 22 AA 42 24 3B 00 BE 30 3F 07 99 22 20 20 20 | ".B$;..0?.." |
000028B0: 20 20 20 20 20 20 20 20 DA 22 AA 42 24 3B 00 D6 | .".B$;..|
000028C0: 30 44 07 99 22 DA 20 DA 20 DA 20 DA 20 DA 20 DA |0D..". . . . . .|
000028D0: 20 22 AA 42 24 3B 00 E4 30 49 07 99 22 91 91 91 | ".B$;..0I.."...|
000028E0: 91 91 22 3B 00 FC 30 4E 07 99 22 20 DA 20 DA 20 |..";..0N.." . . |
000028F0: DA 20 DA 20 DA 20 DA 22 AA 42 24 3B 00 14 31 53 |. . . .".B$;..1S|
00002900: 07 99 22 DA 20 20 20 20 20 20 20 20 20 20 20 22 |..". "|
00002910: AA 42 24 3B 00 2E 31 58 07 99 22 20 20 12 59 4F |.B$;..1X.." .YO|
00002920: 55 20 57 4F 4E 21 92 20 DA 22 AA 42 24 3B 00 46 |U WON!. .".B$;.F|
00002930: 31 5D 07 99 22 DA 20 20 20 20 20 20 20 20 20 20 |1]..". |
00002940: 20 22 AA 42 24 3B 00 5E 31 62 07 99 22 20 DA 20 | ".B$;.^1b.." . |
00002950: DA 20 DA 20 DA 20 DA 20 DA 22 AA 42 24 3B 00 6E |. . . . .".B$;.n|
00002960: 31 67 07 99 22 91 91 91 91 91 22 3B 3A 82 00 9F |1g..".....";:...|
00002970: 31 6C 07 99 3A 99 22 11 11 11 11 11 11 1D 43 41 |1l..:.".......CA|
00002980: 52 45 20 46 4F 52 20 41 4E 4F 54 48 45 52 20 43 |RE FOR ANOTHER C|
00002990: 48 41 4E 43 45 20 54 4F 20 53 41 56 45 20 41 00 |HANCE TO SAVE A.|
000029A0: BA 31 70 07 99 22 11 1D 46 52 49 45 4E 44 20 22 |.1p.."..FRIEND "|
000029B0: 3B 4E 4D 24 3B 22 3F 20 22 3B 00 CD 31 71 07 55 |;NM$;"? ";..1q.U|
000029C0: 58 24 B2 22 48 22 3A 89 20 32 31 36 30 00 F1 31 |X$."H":. 2160..1|
000029D0: 76 07 99 22 13 11 11 11 11 11 11 20 20 20 20 20 |v.."....... |
000029E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 | .|
000029F0: 22 00 00 32 7B 07 81 20 49 B2 31 20 A4 20 32 30 |"..2{.. I.1 . 20|
00002A00: 00 18 32 80 07 8B 20 49 AD 32 B2 B5 28 49 AD 32 |..2... I.2..(I.2|
00002A10: 29 A7 20 99 22 12 22 3B 00 35 32 85 07 99 22 59 |). .".";.52..."Y|
00002A20: 4F 55 20 42 4C 45 57 20 49 54 20 22 AA 4E 4D 24 |OU BLEW IT ".NM$|
00002A30: AA 22 21 91 22 00 48 32 8A 07 81 20 4A B2 31 20 |."!.".H2... J.1 |
00002A40: A4 20 35 30 3A 82 3A 82 00 62 32 8F 07 4C 47 24 |. 50:.:..b2..LG$|
00002A50: B2 4C 47 24 AA 47 24 3A 4C 4D 24 B2 4C 4D 24 AA |.LG$.G$:LM$.LM$.|
00002A60: 47 24 00 7D 32 94 07 99 22 13 22 3A 81 20 49 B2 |G$.}2...".":. I.|
00002A70: 31 20 A4 20 31 30 3A 99 22 11 22 3A 82 00 91 32 |1 . 10:.".":...2|
00002A80: 99 07 99 A3 31 38 29 AA 4C 4D 24 3A 4D B2 4D AA |....18).LM$:M.M.|
00002A90: 31 00 A2 32 9E 07 8B 20 4D B2 39 20 89 20 32 30 |1..2... M.9 . 20|
00002AA0: 34 35 00 BE 32 A3 07 81 20 49 B2 31 20 A4 20 32 |45..2... I.1 . 2|
00002AB0: 3A 56 50 B2 56 50 AB 31 3A 99 22 13 22 3B 00 D5 |:VP.VP.1:.".";..|
00002AC0: 32 A8 07 81 20 4A B2 32 20 A4 20 56 50 3A 99 22 |2... J.2 . VP:."|
00002AD0: 11 22 3B 3A 82 00 E8 32 AD 07 8B 20 56 50 B2 31 |.";:...2... VP.1|
00002AE0: 20 A7 20 99 22 91 22 3B 00 F9 32 B2 07 99 A6 48 | . .".";..2....H|
00002AF0: 50 AA 31 29 AA 22 9D 22 3B 00 07 33 B7 07 81 20 |P.1).".";..3... |
00002B00: 4A B2 31 20 A4 20 38 00 1F 33 BC 07 99 22 11 22 |J.1 . 8..3..."."|
00002B10: AA 48 4D 24 28 4A 29 AA 22 9D 9D 9D 9D 22 3B 00 |.HM$(J)."....";.|
00002B20: 35 33 C1 07 82 20 4A 3A 99 22 11 20 20 20 20 22 |53... J:.". "|
00002B30: 3B 3A 82 20 49 00 51 33 C6 07 81 20 49 B2 31 20 |;:. I.Q3... I.1 |
00002B40: A4 20 34 3A 48 50 B2 48 50 AA 31 3A 99 22 13 22 |. 4:HP.HP.1:."."|
00002B50: 3B 00 68 33 CB 07 81 20 4A B2 32 20 A4 20 56 50 |;.h3... J.2 . VP|
00002B60: 3A 99 22 11 22 3B 3A 82 00 7A 33 D0 07 8B 20 56 |:.".";:..z3... V|
00002B70: 50 B2 31 20 A7 99 22 91 22 3B 00 89 33 D5 07 99 |P.1 ..".";..3...|
00002B80: A6 48 50 29 AA 22 9D 22 3B 00 97 33 DA 07 81 20 |.HP).".";..3... |
00002B90: 4A B2 31 20 A4 20 38 00 B5 33 DF 07 99 22 11 20 |J.1 . 8..3...". |
00002BA0: 22 AA 48 4D 24 28 4A 29 AA 22 9D 9D 9D 9D 9D 22 |".HM$(J)."....."|
00002BB0: 3B 3A 82 3A 82 00 C6 33 E4 07 8B 20 4D B3 38 20 |;:.:...3... M.8 |
00002BC0: 89 20 31 35 37 30 00 D5 33 E9 07 99 22 13 22 3B |. 1570..3...".";|
00002BD0: A6 48 50 29 3B 00 E3 33 EE 07 81 20 49 B2 31 20 |.HP);..3... I.1 |
00002BE0: A4 20 38 00 01 34 F3 07 99 22 11 20 20 22 AA 48 |. 8..4...". ".H|
00002BF0: 4D 24 28 49 29 AA 22 9D 9D 9D 9D 9D 9D 22 3B 3A |M$(I)."......";:|
00002C00: 82 00 0C 34 F8 07 89 20 31 35 37 30 00 24 34 FD |...4... 1570.$4.|
00002C10: 07 99 22 13 11 11 11 11 11 11 11 11 11 22 3B A6 |.."..........";.|
00002C20: 33 34 29 3B 00 3C 34 02 08 81 20 49 B2 31 20 A4 |34);.<4... I.1 .|
00002C30: 20 36 3A 81 20 4A B2 31 20 A4 20 34 00 50 34 07 | 6:. J.1 . 4.P4.|
00002C40: 08 99 54 44 24 28 49 2C 4A 29 AA 41 24 3B 3A 82 |..TD$(I,J).A$;:.|
00002C50: 00 5F 34 0C 08 99 22 91 91 91 91 22 3B 3A 82 00 |._4..."....";:..|
00002C60: 70 34 11 08 99 22 13 11 11 22 3B A6 33 34 29 3B |p4..."...";.34);|
00002C70: 00 89 34 16 08 81 20 49 B2 31 20 A4 20 31 36 3A |..4... I.1 . 16:|
00002C80: 99 22 11 20 AA B4 20 22 3B 00 97 34 1B 08 81 20 |.". .. ";..4... |
00002C90: 4A B2 33 20 A4 20 38 00 AA 34 20 08 99 20 41 24 |J.3 . 8..4 .. A$|
00002CA0: AA 48 4D 24 28 4A 29 3B 3A 82 00 BF 34 25 08 99 |.HM$(J);:...4%..|
00002CB0: 22 91 91 91 91 91 91 9D 9D 9D 9D 22 3B 3A 82 00 |"..........";:..|
00002CC0: D2 34 2A 08 81 20 49 B2 31 20 A4 20 31 30 30 30 |.4*.. I.1 . 1000|
00002CD0: 3A 82 00 E4 34 2F 08 99 22 91 12 A9 20 20 DF 22 |:...4/.."... ."|
00002CE0: AA 41 24 3B 00 F5 34 34 08 99 22 12 A5 52 20 A7 |.A$;..44.."..R .|
00002CF0: 22 AA 41 24 3B 00 06 35 39 08 99 22 12 B4 49 DB |".A$;..59.."..I.|
00002D00: AA 22 AA 41 24 3B 00 17 35 3E 08 99 22 12 B5 50 |.".A$;..5>.."..P|
00002D10: DD B6 22 AA 41 24 3B 00 29 35 43 08 99 22 12 A1 |..".A$;.)5C.."..|
00002D20: 20 DD 92 A1 22 AA 41 24 3B 00 3B 35 48 08 99 22 | ...".A$;.;5H.."|
00002D30: AA 12 20 20 92 B4 22 AA 41 24 3B 00 4D 35 4D 08 |.. ..".A$;.M5M.|
00002D40: 99 22 A7 12 20 20 92 A5 22 AA 41 24 3B 00 5C 35 |.".. ..".A$;.\5|
00002D50: 52 08 99 22 A7 12 20 20 92 A5 22 3B 00 6F 35 57 |R..".. ..";.o5W|
00002D60: 08 81 20 49 B2 31 20 A4 20 33 30 30 30 3A 82 00 |.. I.1 . 3000:..|
00002D70: A8 35 5C 08 99 22 93 22 3A 55 48 B2 31 3A 97 55 |.5\..".":UH.1:.U|
00002D80: 54 2C 55 4C 25 3A 8D 38 35 30 3A 99 22 11 11 11 |T,UL%:.850:."...|
00002D90: 11 11 1D D4 48 45 20 53 45 43 52 45 54 20 57 4F |....HE SECRET WO|
00002DA0: 52 44 20 57 41 53 3A 22 00 C2 35 61 08 99 22 11 |RD WAS:"..5a..".|
00002DB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 22 AA 57 |.............".W|
00002DC0: 44 24 00 F0 35 66 08 99 22 11 11 11 11 1D C2 45 |D$..5f.."......E|
00002DD0: 54 54 45 52 20 4C 55 43 4B 20 4E 45 58 54 20 54 |TTER LUCK NEXT T|
00002DE0: 49 4D 45 2C 20 22 3B 4E 4D 24 3B 22 21 21 21 22 |IME, ";NM$;"!!!"|
00002DF0: 00 1C 36 6B 08 99 22 11 11 11 11 1D C3 41 52 45 |..6k.."......ARE|
00002E00: 20 54 4F 20 57 41 53 54 45 20 41 4E 4F 54 48 45 | TO WASTE ANOTHE|
00002E10: 52 20 46 52 49 45 4E 44 3F 20 22 3B 00 22 36 70 |R FRIEND? ";."6p|
00002E20: 08 8C 00 39 36 75 08 81 20 49 B2 31 20 A4 20 33 |...96u.. I.1 . 3|
00002E30: 32 3A 87 20 57 44 24 3A 82 00 56 36 7A 08 55 53 |2:. WD$:..V6z.US|
00002E40: 24 B2 22 59 4E 22 3A 55 4C B2 31 3A 8D 33 35 3A |$."YN":UL.1:.35:|
00002E50: 43 24 B2 55 52 24 00 70 36 7F 08 8B 43 24 B2 22 |C$.UR$.p6...C$."|
00002E60: 59 22 A7 55 58 24 B2 22 48 22 3A 89 31 34 30 30 |Y".UX$."H":.1400|
00002E70: 00 80 36 84 08 9C 3A 8D 39 30 30 3A 89 33 30 30 |..6...:.900:.300|
00002E80: 00 9E 36 89 08 43 24 B2 22 22 3A 8F 20 20 49 4E |..6..C$."":. IN|
00002E90: 50 55 54 20 53 55 42 52 4F 55 54 49 4E 45 00 A9 |PUT SUBROUTINE..|
00002EA0: 36 8E 08 55 53 24 B2 22 22 00 BE 36 93 08 55 4C |6..US$.""..6..UL|
00002EB0: B2 31 35 3A 8D 33 35 3A 43 24 B2 55 52 24 00 C4 |.15:.35:C$.UR$..|
00002EC0: 36 98 08 8E 00 D7 36 C5 08 83 22 20 D5 C9 20 22 |6.....6..." .. "|
00002ED0: 2C 22 20 CA CB 20 22 00 E5 36 CA 08 83 22 12 A9 |," .. "..6..."..|
00002EE0: 20 20 DF 92 22 00 F3 36 CF 08 83 22 12 AA 20 20 | .."..6...".. |
00002EF0: B4 92 22 00 01 37 D4 08 83 22 12 AA 20 20 B4 92 |.."..7...".. ..|
00002F00: 22 00 0F 37 D9 08 83 22 20 12 A7 A5 92 20 22 00 |"..7..." .... ".|
00002F10: 1D 37 DE 08 83 22 20 12 A7 A5 92 20 22 00 2B 37 |.7..." .... ".+7|
00002F20: E3 08 83 22 AC 12 A7 A5 92 BB 22 00 37 37 E8 08 |..."......".77..|
00002F30: 83 22 C5 C3 C6 A4 22 00 51 37 ED 08 83 22 20 20 |."....".Q7..." |
00002F40: 20 20 22 2C 22 20 20 20 20 22 2C 22 20 20 20 20 | "," "," |
00002F50: 22 00 95 37 F2 08 83 22 C5 20 20 20 22 2C 22 20 |"..7...". "," |
00002F60: C5 20 20 22 2C 22 20 20 C5 20 22 2C 22 20 20 20 |. "," . "," |
00002F70: C5 22 2C 22 CD 20 20 20 22 2C 22 20 CD 20 20 22 |.",". "," . "|
00002F80: 2C 22 20 20 CD 20 22 2C 22 A5 20 20 20 22 2C 22 |," . ",". ","|
00002F90: 20 A5 20 20 22 00 E0 37 F7 08 83 22 20 20 A5 20 | . "..7..." . |
00002FA0: 22 2C 22 20 20 20 A5 22 2C 22 A5 20 20 20 22 2C |"," .",". ",|
00002FB0: 22 C7 20 20 20 22 2C 22 DD 20 20 20 22 2C 22 D9 |". ",". ",".|
00002FC0: 20 20 20 22 2C 22 A5 20 20 20 22 2C 22 A5 20 20 | ",". ",". |
00002FD0: 20 22 2C 22 A5 20 20 20 22 2C 22 A5 20 20 20 22 | ",". ",". "|
00002FE0: 00 EC 37 FC 08 83 22 A5 20 20 20 22 00 39 38 01 |..7...". ".98.|
00002FF0: 09 8F 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
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 A6 A6 A6 57 | ...W|
00003020: 4F 52 44 20 44 41 54 41 20 46 4F 52 20 43 41 54 |ORD DATA FOR CAT|
00003030: 45 47 4F 52 59 20 31 A6 A6 00 83 38 06 09 83 20 |EGORY 1....8... |
00003040: 22 52 4F 42 20 44 45 20 4E 49 4A 53 22 2C 22 42 |"ROB DE NIJS","B|
00003050: 45 4E 4E 59 20 4E 45 59 4D 41 4E 22 2C 20 44 52 |ENNY NEYMAN", DR|
00003060: 55 4B 57 45 52 4B 2C 22 45 41 52 54 48 20 26 20 |UKWERK,"EARTH & |
00003070: 46 49 52 45 22 2C 42 4C 4F 45 4D 2C 56 55 4C 43 |FIRE",BLOEM,VULC|
00003080: 41 4E 4F 00 CE 38 0B 09 83 20 53 50 41 52 47 4F |ANO..8... SPARGO|
00003090: 2C 42 5A 4E 2C 22 41 4E 49 54 41 20 4D 45 49 4A |,BZN,"ANITA MEIJ|
000030A0: 45 52 22 2C 42 45 52 4E 41 44 45 54 54 45 2C 22 |ER",BERNADETTE,"|
000030B0: 42 4F 4E 4E 49 45 20 53 54 20 43 4C 41 49 52 45 |BONNIE ST CLAIRE|
000030C0: 22 2C 22 4C 4F 52 49 20 53 50 45 45 22 2C 00 16 |","LORI SPEE",..|
000030D0: 39 10 09 83 20 50 55 53 53 59 43 41 54 2C 4D 41 |9... PUSSYCAT,MA|
000030E0: 59 57 4F 4F 44 2C 56 49 54 45 53 53 45 2C 22 44 |YWOOD,VITESSE,"D|
000030F0: 4F 45 20 4D 41 41 52 22 2C 4A 4F 53 45 2C 56 41 |OE MAAR",JOSE,VA|
00003100: 4E 45 53 53 41 2C 22 57 49 4C 4C 45 4B 45 20 41 |NESSA,"WILLEKE A|
00003110: 4C 42 45 52 54 49 00 63 39 15 09 8F 22 20 20 20 |LBERTI.c9..." |
00003120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003140: 20 20 20 20 20 20 A6 A6 A6 57 4F 52 44 20 44 41 | ...WORD DA|
00003150: 54 41 20 46 4F 52 20 43 41 54 45 47 4F 52 59 20 |TA FOR CATEGORY |
00003160: 32 A6 A6 00 AA 39 1A 09 83 20 41 54 4C 45 54 49 |2....9... ATLETI|
00003170: 45 4B 2C 56 4F 45 54 42 41 4C 2C 57 49 45 4C 52 |EK,VOETBAL,WIELR|
00003180: 45 4E 4E 45 4E 2C 20 20 44 41 4D 4D 45 4E 2C 53 |ENNEN, DAMMEN,S|
00003190: 43 48 41 4B 45 4E 2C 57 4F 52 53 54 45 4C 45 4E |CHAKEN,WORSTELEN|
000031A0: 2C 53 43 48 41 41 54 53 45 4E 00 F3 39 1F 09 83 |,SCHAATSEN..9...|
000031B0: 20 22 4B 55 4E 53 54 20 53 43 48 41 41 54 53 45 | "KUNST SCHAATSE|
000031C0: 4E 22 2C 42 41 53 4B 45 54 42 41 4C 2C 20 20 56 |N",BASKETBAL, V|
000031D0: 4F 4C 4C 45 59 42 41 4C 2C 54 45 4E 4E 49 53 2C |OLLEYBAL,TENNIS,|
000031E0: 54 41 46 45 4C 54 45 4E 4E 49 53 2C 48 4F 4E 4B |TAFELTENNIS,HONK|
000031F0: 42 41 4C 00 36 3A 24 09 83 20 5A 45 49 4C 45 4E |BAL.6:$.. ZEILEN|
00003200: 2C 52 4F 45 49 45 4E 2C 5A 57 45 4D 4D 45 4E 2C |,ROEIEN,ZWEMMEN,|
00003210: 48 41 4E 44 42 41 4C 2C 41 55 54 4F 52 41 43 45 |HANDBAL,AUTORACE|
00003220: 2C 4D 4F 54 4F 52 43 52 4F 53 2C 49 4A 53 53 50 |,MOTORCROS,IJSSP|
00003230: 45 45 44 57 41 59 00 5D 3A 29 09 8F 20 22 A6 A6 |EEDWAY.]:).. "..|
00003240: A6 A6 57 4F 52 44 20 44 41 54 41 20 46 4F 52 20 |..WORD DATA FOR |
00003250: 43 41 54 45 47 4F 52 59 20 33 A6 A6 22 00 A5 3A |CATEGORY 3.."..:|
00003260: 2E 09 83 20 50 4F 52 53 43 48 45 2C 54 4F 59 4F |... PORSCHE,TOYO|
00003270: 54 41 2C 56 4F 4C 4B 53 57 41 47 45 4E 2C 4C 49 |TA,VOLKSWAGEN,LI|
00003280: 4E 43 4F 4C 4E 2C 50 41 4E 54 45 52 41 2C 4C 4F |NCOLN,PANTERA,LO|
00003290: 54 55 53 2C 54 52 49 55 4D 50 48 2C 43 48 45 56 |TUS,TRIUMPH,CHEV|
000032A0: 52 4F 4C 45 54 00 E3 3A 33 09 83 20 44 4F 44 47 |ROLET..:3.. DODG|
000032B0: 45 2C 42 4D 57 2C 46 49 41 54 2C 44 41 54 53 55 |E,BMW,FIAT,DATSU|
000032C0: 4E 2C 56 4F 4C 56 4F 2C 43 41 44 49 4C 4C 41 43 |N,VOLVO,CADILLAC|
000032D0: 2C 43 41 50 52 49 2C 22 41 4C 46 41 20 52 4F 4D |,CAPRI,"ALFA ROM|
000032E0: 45 4F 22 00 08 3B 38 09 83 20 4D 55 53 54 41 4E |EO"..;8.. MUSTAN|
000032F0: 47 2C 4A 41 4C 4F 50 59 2C 46 45 52 52 41 52 49 |G,JALOPY,FERRARI|
00003300: 2C 52 41 4D 42 4C 45 52 00 55 3B 3D 09 8F 22 20 |,RAMBLER.U;=.." |
00003310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003330: 20 20 20 20 20 20 20 20 A6 A6 A6 57 4F 52 44 20 | ...WORD |
00003340: 44 41 54 41 20 46 4F 52 20 43 41 54 45 47 4F 52 |DATA FOR CATEGOR|
00003350: 59 20 34 A6 A6 00 A0 3B 42 09 83 20 54 48 41 49 |Y 4....;B.. THAI|
00003360: 4C 41 4E 44 2C 41 55 53 54 52 41 4C 49 45 2C 46 |LAND,AUSTRALIE,F|
00003370: 52 41 4E 4B 52 49 4A 4B 2C 53 50 41 4E 4A 45 2C |RANKRIJK,SPANJE,|
00003380: 45 4E 47 4C 41 4E 44 2C 44 55 49 54 53 4C 41 4E |ENGLAND,DUITSLAN|
00003390: 44 2C 52 55 53 4C 41 4E 44 2C 49 54 41 4C 49 45 |D,RUSLAND,ITALIE|
000033A0: 00 E4 3B 47 09 83 20 45 47 59 50 54 45 2C 52 48 |..;G.. EGYPTE,RH|
000033B0: 4F 44 45 53 49 45 2C 43 48 49 4C 45 2C 43 48 49 |ODESIE,CHILE,CHI|
000033C0: 4E 41 2C 4A 41 50 41 4E 2C 49 4E 44 49 41 2C 43 |NA,JAPAN,INDIA,C|
000033D0: 41 4E 41 44 41 2C 4D 45 58 49 43 4F 2C 55 52 55 |ANADA,MEXICO,URU|
000033E0: 47 55 41 59 00 FF 3B 4C 09 83 20 4A 4F 45 47 4F |GUAY..;L.. JOEGO|
000033F0: 53 4C 41 56 49 45 2C 54 52 49 4E 49 44 41 44 00 |SLAVIE,TRINIDAD.|
00003400: 4C 3C 51 09 8F 22 20 20 20 20 20 20 20 20 20 20 |L<Q.." |
00003410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A6 | .|
00003430: A6 A6 57 4F 52 44 20 44 41 54 41 20 46 4F 52 20 |..WORD DATA FOR |
00003440: 43 41 54 45 47 4F 52 59 20 35 A6 A6 00 98 3C 56 |CATEGORY 5....<V|
00003450: 09 83 20 48 4F 55 54 53 4E 49 50 2C 57 55 4C 50 |.. HOUTSNIP,WULP|
00003460: 2C 22 47 52 4F 45 4E 45 20 53 50 45 43 48 54 22 |,"GROENE SPECHT"|
00003470: 2C 42 4F 45 52 45 4E 5A 57 41 4C 55 57 2C 42 4F |,BOERENZWALUW,BO|
00003480: 4F 4D 50 49 45 50 45 52 2C 4B 45 52 4B 55 49 4C |OMPIEPER,KERKUIL|
00003490: 2C 5A 45 45 4B 4F 45 54 00 E0 3C 5B 09 83 20 56 |,ZEEKOET..<[.. V|
000034A0: 49 53 44 49 45 46 2C 46 41 5A 41 4E 54 2C 4B 49 |ISDIEF,FAZANT,KI|
000034B0: 45 56 49 54 2C 4B 4C 55 55 54 2C 49 4A 53 56 4F |EVIT,KLUUT,IJSVO|
000034C0: 47 45 4C 2C 42 45 52 47 45 45 4E 44 2C 46 55 55 |GEL,BERGEEND,FUU|
000034D0: 54 2C 46 4C 41 4D 49 4E 47 4F 2C 5A 57 41 41 4E |T,FLAMINGO,ZWAAN|
000034E0: 00 02 3D 60 09 83 20 45 52 52 4F 4E 45 4F 55 53 |..=`.. ERRONEOUS|
000034F0: 4C 59 2C 45 58 41 4D 50 4C 45 2C 51 55 49 4E 49 |LY,EXAMPLE,QUINI|
00003500: 4E 45 00 00 00 |NE... |
.......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 1...@
..".. 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 1......." WRITTEN BY
: UNKNOWN..%...." UPGRADED BY : ..P.
..." .THIS PROGRAM WILL RUN ON ANY..
.W...." BASIC 2.0 PET COMPUTER..
....." BASIC 4.0 PET COMPUTER...
...." 8032 CBM COMPUTER......."
COMMODORE 64 COMPUTER...D..835..
.N..UZ.1..UP%:.217...W.....X.. ** PROGRA
M MODIFICATION INST **.?.Y..".":.UT,UL%.
_.].UP.0:UG$."PROGRAM MOD":.850...B.."..
IN ORDER TO CHANGE THE WORDS IN THE"...G
.."..CATAGORIES ALREADY USED IN THIS...L
.."..PROGRAM SIMPLY CHANGE THE DATA IN".
..Q.."..LINES 2305-2400. ".(.V.."..TO CH
ANGE THE CATAGORIES USED CHANGE".?.{..".
.LINE 1405 TO:".H...."..1405 CT$(1)='FIR
ST CATAGORY'..."......"..AND SO ON UP TO
CT$(5)='FIFTH CATAGORY'.B....".THEN CHA
NGE THE DATA LINES TO THE"......"..DATA
YOU WANT IN EACH CATAGORY."......835....
..UZ.1..UP%:.217.......3.... ** TO USE 8
032 LOAD CBM4032 **.I.F..".....BEFORE RU
NNING THIS PROGRAM ON AN 8032 .....P.."
LOAD THE 'CBM 4032' PROGRAM.......
......"...Z..UU.71.......U.... ** TO USE
8032 LOAD CBM4032 **. ...."....BEFORE R
UNNING THIS PROGRAM ON AN 8032 ..LOAD C
BM 4032 PROGRAM".,....1093:..L. .. ** T
I T L E P A G E **...".."....";:.UT,UU
%:.B(50003).0..53280,14:.53281,6...$..I.
1.38:."...";:....&..I.1.22:.".....";:..F
.(..I.1.37:.".....";:....*..I.1.22:."...
..";:....,.."...........................
..%...."................... . . ...F.
0.."................... . ....D.2.."...
................. ....4..".............
.C O M M O D O R E.....6..".............
..EDUCATIONAL...N.8.."................SO
FTWARE...:.. ** COMMODORE LOGO **.!.;..H
(UD$,24);"..........PRESS SPACE BAR OR W
AIT.":I.0.C.<..A$:.A$.." ".I.I.1:.I.250.
828.G.>.T1$."":T2$."":T3$."":T4$."":I.0.
P.@..300...C.. ** SPACE BAR PRESS **.G.H
..H(UD$,24);".......PRESS SPACE BAR TO C
ONTINUE.":.UO,0...L..UI$:.UI$.." ".844..
.N.....R.. ** PAGE DESIGN ROUTINE **...T
.UP.UP.1.:.W.."."H(UT$.UP$,21);I(UP$.UG$
.D(UP),18).I.\.." ----------------------
----------------".X.`..UH..0.870...A..H(
UD$,24);H(UP$,7);"HELP - PRESS H <RETU
RN>"...F.UH.0:."..":....K.. ** PLEASE WA
IT REMARK **...P..H(UD$,24);"
ONE MOMENT PLEASE... "...U...5.... *
* SET UP VARIABLES **.....UX$."H":.UQ%(1
000):UB.32768:U1.196:U2.197:U3.198:U4.21
6:UC.167:UU.1024.....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.@ ...B(50003).
0.UT.53272:UU%.21:UL%.23:UP%.2139:UM.102
4:UO.198.D ..UD$."......................
...".. ..UP$."
".. ..UT$." HANGMAN 1
":. PLACE PROGRAM TITLE HERE !!!!!!!!
!!!!!!!!!***..!... HM$(8),TD$(6,4),PR$(1
7),C$(25)..!....)!... ** SET VARIABLES *
*.2!...900.8!..:.S!... ** CHECK FOR 8032
**.Q!...".":." ":. SHIFTED SPACE..!...B
(UB.40)..96..700..!... ** MEMORY CHECK *
*..!... .(0).2000.937..!..."....THIS MAC
HINE DOES NOT HAVE ENOUGH.".."..."MEMORY
TO RUN THIS PROGRAM !".."...UU.71.."...
.2"..."..":.B(50003).0.962.A"... ** BASI
C 2.0 OR 4.0 OR C-64 SETUP **.."...1
075,133:.1076,144:.1077,234:.1079,4:.108
0,133:.1081,145.U"...1091,155:.1098,133:
.1099,144:.1100,234:.1103,133.."...1104,
145:.1105,234:.1082,234..#...B(50003)..1
60.955.=#...1093,88:.1094,228:.1097,85:.
1102,228:.965.R#...B(50003)..1.990..#...
1093,49:.1094,230:.1097,46:.1102,230:.96
5..#B..2099,141:.2100,20:.2101,3:.2103,8
:.2104,141:.2105,21..#C..2106,3:.2115,14
5:.2117,52:.2118,234:.2121,49:.2122,141.
1$D..2123,20:.2124,3:.2126,234:.2127,141
:.2128,21:.2129,3.O$E..UU.48:. DISABLE S
TOP KEY.`$J..800:. TITLE.P$T..300:. MENU
..$...".THE PGM WILL NOT WORK ON THIS MA
CHINE!":..V$...UZ.1..UP%:.UP%:UZ.0:. **
PROGRAM STARTS HERE **..%..."..";:.:.B(5
0003).0..53281,6:.53280,6.$%...UT,UL%:UG
$."PAGE #":UP.0:UH.1.H%D..850:."....".13
)".............".\%I...13)".".25)".".U%N
...13)". HANGMAN ."..%S...13)".".25)".
"..%X...13)"............."..%7.."....WHA
T IS YOUR FIRST NAME? ";:UL.12:US$."":.3
5:NM$.UR$..%<.UH.1:.850:."...OKAY, "NM$.
.&A.."...WHEN YOU GUESS A CORRECT LETTER
, YOU".^&F.."..WILL BE ASKED IF YOU WOUL
D LIKE TO TRY"..&K.."..TO GUESS THE ENTI
RE WORD...TYPE EITHER..&P.."..YES OR NO
ACCORDING TO YOUR WISHES"..&U.."..AND FO
LLOW THE INSTRUCTIONS..&V.."..ACCORDINGL
Y."..&Z..835..'D.. I.1 . 8:. HM$(I):...'
I.. I.1 . 6: . J.1 . 4.A'N.. TD$(I,J):.:
..C'S.A$.".....":B$."............."..'X.
.".":.UT,UL%:.850:."..CHOOSE ONE OF THE
FOLLOWING CATEGORIES:....'|.. ***CATAGOR
IES***..(}.CT$(1)."ARTIESTEN":CT$(2)."SP
ORT ":CT$(3)."AUTOMERKEN":CT$(4)."NATION
ALI.".%(~.CT$(5)."VOGELNAMEN".<(... ****
************.`(... A.1 . 5:.A;".. ";CT$(
A);".":...(...".. YOUR CHOICE, ".NM$.
" ";:US$."12345H":UL.1:.35:C.E(UR$).P(..
. ". LET ME THINK OF A WORD...":TT.TI
..( .. I.0 . (C.1).20..(.(1).20)..(... W
D$:...)... TI.TT.120 . 1450.,)..LM$."":P
R$."":LG$."".>)...I.1 . C(WD$).S)... J(W
D$,I,1)." " . PR$(I)." ":PR$.PR$." ":. 1
475..)..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:."
.";:...*... I.1.8:.:.HM$(I);:..<*... I.1
. 7.X*...". ...... ..";:.:.".";.N*...".
.. .EEEE. ."..*...".";.34);".. ......
...UI...JK...... ";..*... I.1 . 23:."..
..";:..P*...".. .";:. UM.999,160..*...".
SECRET WORD: ";CT$(C);"...+... I.1 . 8 :
."." :..#+....18);".LETTERS MISSED".>+..
..18);"..............".O+...".....";PR$.
F+... I.1 . 17:.".";:..T+....16);LM$..+"
..".......GUESS A LETTER .....
.....";:.2185:G$.C$." ".R+'.. J(G$,2,1).
" " . 1610..+,.."...."..+1.. I.1 . 20..,
6.. I.2..(I.2). .".";.&,;.."ONLY ONE LET
TER, ";NM$;".".7,@.. J.1 . 50:..F,E.. I:
. 1570.U,J.G$.H(G$,1).T,O.. G$.."A" . G$
.."Z" . 1645..,T.."....":. I.1 . 20..,Y.
. I.2..(I.2). .".";.A,^.."THAT'S NOT A L
ETTER!!.".R,C.. J.1 . 50:...,H.. I:. 157
0..,M.. I.1 . C(LG$)..-R.. G$.J(LG$,I,1)
. 1660..-W.. I:. 1690.*-|.."....".9-...
I.1 . 20.R-... I.2..(I.2) . .".";.R-...
"THAT LETTER WAS TRIED!!."..-... J.1 . 5
0:...-... I:. 1570..-..."..
".F-..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$).?...PR$.PR$.PR$(I):..P.B.."..
...";PR$.M.G.." .".|.
L.. I.1 . 20...Q.. I.2..(I.2) . .".";...
V.."VERY GOOD,".NM$."!.".C.... J.1 . 50:
.:..X.... PR$.WD$ . 1830../...".......TR
Y FOR THE WORD? .......";../...21
85.,/... H(C$,1).."Y" . 1570.O/...".....
..GUESS THE WORD(S) ".J/... 2185:G$.H(
C$,C(WD$)).~/... G$.WD$ . 1830../..."...
.... ."../... I.1 . 20
.I/... I.2..(I.2) . .".";../..."SORRY,".
NM$."."../... J.1 . 50:.:...0...".......
.. "..0!.. 1570.O0&.UX$."
H":.UT,UU%:."........................";.
^0+.. I.1 . 10.V00.."Z Z Z Z Z Z ".B$;..
05.." Z".B$;..0:.."Z YOU WON!
".B$;..0?.." Z".B$;.V0D.."Z Z
Z Z Z Z ".B$;..0I..".....";..0N.." Z Z
Z Z Z Z".B$;..1S.."Z ".B$;..1X
.." .YOU WON!. Z".B$;.F1].."Z
".B$;.^1B.." Z Z Z Z Z Z".B$;.N1G.."...
..";:...1L..:.".......CARE FOR ANOTHER C
HANCE TO SAVE A..1P.."..FRIEND ";NM$;"?
";.M1Q.UX$."H":. 2160..1V..".......
."..2{.. I.1 . 20..2... I
.2..(I.2). .".";.52..."YOU BLEW IT ".NM$
."!.".H2... J.1 . 50:.:..B2..LG$.LG$.G$:
LM$.LM$.G$.}2...".":. I.1 . 10:.".":...2
....18).LM$:M.M.1..2... M.9 . 2045..2...
I.1 . 2:VP.VP.1:.".";.U2... J.2 . VP:."
.";:...2... VP.1 . .".";..2....HP.1)."."
;..3... J.1 . 8..3...".".HM$(J)."....";.
53A.. J:.". ";:. I.Q3F.. I.1 . 4:HP.H
P.1:.".";.H3K.. J.2 . VP:.".";:..Z3P.. V
P.1 ..".";..3U...HP).".";..3Z.. J.1 . 8.
.3...". ".HM$(J).".....";:.:..F3... M.8
. 1570.U3...".";.HP);..3... I.1 . 8..4..
.". ".HM$(I)."......";:...4... 1570.$4.
.."..........";.34);.<4... I.1 . 6:. J.1
. 4.P4...TD$(I,J).A$;:.._4..."....";:..
P4..."...";.34);..4... I.1 . 16:.". .. "
;..4... J.3 . 8..4 .. A$.HM$(J);:...4%..
"..........";:..R4*.. I.1 . 1000:...4/..
"... .".A$;..44.."..R .".A$;..59.."..I.
.".A$;..5>.."..P..".A$;.)5C..".. ...".A$
;.;5H..".. ..".A$;.M5M..".. ..".A$;.\5
R..".. ..";.O5W.. I.1 . 3000:...5\.."."
:UH.1:.UT,UL%:.850:."......THE SECRET WO
RD WAS:".B5A.."..............".WD$..5F..
".....BETTER LUCK NEXT TIME, ";NM$;"!!!"
..6K..".....CARE TO WASTE ANOTHER FRIEND
? ";."6P...96U.. I.1 . 32:. WD$:..V6Z.US
$."YN":UL.1:.35:C$.UR$.P6..C$."Y".UX$."
H":.1400..6...:.900:.300..6..C$."":. IN
PUT SUBROUTINE..6..US$.""..6..UL.15:.35:
C$.UR$.D6....W6E.." UI "," JK "..6J.."..
.."..6O..".. .."..7T..".. .."..7Y.."
.... "..7..." .... ".+7..."......".77..
."ECF.".Q7..." "," "," "..7..."
E "," E "," E "," E","M "," M "
," M ",". "," . "..7..." . "," ."
,". ","G ",". ","Y ",". ",".
",". ",". "..7...". ".98..."
...W
ORD DATA FOR CATEGORY 1....8... "ROB DE
NIJS","BENNY NEYMAN", DRUKWERK,"EARTH &
FIRE",BLOEM,VULCANO.N8... SPARGO,BZN,"AN
ITA MEIJER",BERNADETTE,"BONNIE ST CLAIRE
","LORI SPEE",..9... PUSSYCAT,MAYWOOD,VI
TESSE,"DOE MAAR",JOSE,VANESSA,"WILLEKE A
LBERTI.C9..."
...WORD DATA FOR CATEGORY
2....9... ATLETIEK,VOETBAL,WIELRENNEN,
DAMMEN,SCHAKEN,WORSTELEN,SCHAATSEN..9...
"KUNST SCHAATSEN",BASKETBAL, VOLLEYBAL
,TENNIS,TAFELTENNIS,HONKBAL.6:$.. ZEILEN
,ROEIEN,ZWEMMEN,HANDBAL,AUTORACE,MOTORCR
OS,IJSSPEEDWAY.]:).. "....WORD DATA FOR
CATEGORY 3.."..:... PORSCHE,TOYOTA,VOLKS
WAGEN,LINCOLN,PANTERA,LOTUS,TRIUMPH,CHEV
ROLET..:3.. DODGE,BMW,FIAT,DATSUN,VOLVO,
CADILLAC,CAPRI,"ALFA ROMEO"..;8.. MUSTAN
G,JALOPY,FERRARI,RAMBLER.U;=.."
...WORD
DATA FOR CATEGORY 4... ;B.. THAILAND,AUS
TRALIE,FRANKRIJK,SPANJE,ENGLAND,DUITSLAN
D,RUSLAND,ITALIE..;G.. EGYPTE,RHODESIE,C
HILE,CHINA,JAPAN,INDIA,CANADA,MEXICO,URU
GUAY..;L.. JOEGOSLAVIE,TRINIDAD.L<Q.."
.
..WORD DATA FOR CATEGORY 5....<V.. HOUTS
NIP,WULP,"GROENE SPECHT",BOERENZWALUW,BO
OMPIEPER,KERKUIL,ZEEKOET..<[.. VISDIEF,F
AZANT,KIEVIT,KLUUT,IJSVOGEL,BERGEEND,FUU
T,FLAMINGO,ZWAAN..=`.. ERRONEOUSLY,EXAMP
LE,QUININE...
> CLICK IMAGE PREVIEW FOR FULL MODAL