HANGMAN
FILE INFORMATION
FILENAME(S): HANGMAN
FILE TYPE(S): PRG
FILE SIZE: 10.6K
FIRST SEEN: 2025-11-30 21:24:29
APPEARS ON: 1 disk(s)
FILE HASH
4d28d28daa2cd7f3a8c29472ec4ec22a1006e0bb53c9f34149381983ad1f2ab5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 49 2 | HANGMAN | PRG | DuncanTwain | 17 | 20 | 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 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....|
00000050: 85 91 EA 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 B1 08 08 00 AC 32 2E 36 |TINE **......2.6|
000000B0: 35 00 D2 08 0A 00 8F 20 2A 2A 47 45 4E 45 52 41 |5...... **GENERA|
000000C0: 4C 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 20 |L INPUT ROUTINE |
000000D0: 2A 2A 00 EE 08 23 00 8F 20 2B 2B 2B 20 49 4E 50 |**...#.. +++ INP|
000000E0: 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B 00 06 |UT SECTION +++..|
000000F0: 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 22 3A |.(..UO,0:UR$."":|
00000100: 55 49 24 B2 22 22 00 16 09 2A 00 8B 55 4C B2 30 |UI$.""...*..UL.0|
00000110: A7 55 4C B2 38 30 00 20 09 2D 00 97 55 43 2C 30 |.UL.80. .-..UC,0|
00000120: 00 34 09 32 00 A1 55 49 24 3A 8B 55 49 24 B2 22 |.4.2..UI$:.UI$."|
00000130: 22 A7 35 30 00 5E 09 37 00 8B 55 49 24 B2 C7 28 |".50.^.7..UI$..(|
00000140: 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 |13)..(UR$)..1..U|
00000150: 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 71 |C,1:." .";:.85.q|
00000160: 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 |.<..UI$..(20).10|
00000170: 35 00 85 09 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 |5...>.. .(UR$)..|
00000180: 55 4C A7 35 30 00 AA 09 41 00 8D 31 32 30 3A 8F |UL.50...A..120:.|
00000190: 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 | CHECK FOR VALID|
000001A0: 20 43 48 41 52 41 43 54 45 52 00 BA 09 46 00 55 | CHARACTER...F.U|
000001B0: 52 24 B2 55 52 24 AA 55 49 24 00 C4 09 4B 00 99 |R$.UR$.UI$...K..|
000001C0: 55 49 24 3B 00 CC 09 50 00 89 35 30 00 F1 09 55 |UI$;...P..50...U|
000001D0: 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F 52 |.. +++ CHECK FOR|
000001E0: 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B 2B | HELP REQUEST ++|
000001F0: 2B 00 19 0A 5A 00 8B 55 52 24 B2 55 58 24 A7 31 |+...Z..UR$.UX$.1|
00000200: 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 4C |95:. EXIT TO HEL|
00000210: 50 20 52 4F 55 54 49 4E 45 00 28 0A 5F 00 8B 55 |P ROUTINE.(._..U|
00000220: 46 B2 31 A7 8D 32 34 30 00 35 0A 64 00 55 46 B2 |F.1..240.5.d.UF.|
00000230: 30 3A 99 3A 8E 00 4E 0A 66 00 8F 20 2B 2B 20 43 |0:.:..N.f.. ++ C|
00000240: 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 5F |HECK DELETE ++._|
00000250: 0A 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 |.i...(UR$).1.50.|
00000260: 77 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 |w.n.UR$..(UR$,.(|
00000270: 55 52 24 29 AB 31 29 00 89 0A 73 00 99 22 9D 20 |UR$).1)...s..". |
00000280: 20 9D 9D 22 3B 3A 89 35 30 00 B0 0A 78 00 8F 20 | ..";:.50...x.. |
00000290: 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |++ CHECK FOR VAL|
000002A0: 49 44 20 43 48 41 52 41 43 54 45 52 53 20 2B 2B |ID CHARACTERS ++|
000002B0: 00 C2 0A 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 |...}...(US$).0.1|
000002C0: 35 30 00 D2 0A 7F 00 55 53 24 B2 55 53 24 AA 55 |50.....US$.US$.U|
000002D0: 58 24 00 E3 0A 82 00 81 55 53 B2 31 A4 C3 28 55 |X$......US.1..(U|
000002E0: 53 24 29 00 FA 0A 87 00 8B 55 49 24 B2 CA 28 55 |S$)......UI$..(U|
000002F0: 53 24 2C 55 53 2C 31 29 A7 8E 00 00 0B 8C 00 82 |S$,US,1)........|
00000300: 00 0D 0B 91 00 55 49 24 B2 22 22 3A 8E 00 28 0B |.....UI$."":..(.|
00000310: 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 |... ** STANDARD |
00000320: 49 4E 50 55 54 20 2A 2A 00 39 0B 98 00 8B C6 28 |INPUT **.9.....(|
00000330: 55 49 24 29 B2 34 36 A7 8E 00 4A 0B 9B 00 8B 55 |UI$).46...J....U|
00000340: 49 24 B2 C7 28 33 32 29 A7 8E 00 67 0B A0 00 8B |I$..(32)...g....|
00000350: C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 |.(UI$).48..(UI$)|
00000360: B1 35 37 A7 31 37 30 00 6D 0B A5 00 8E 00 8A 0B |.57.170.m.......|
00000370: AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 |....(UI$).65..(U|
00000380: 49 24 29 B1 39 30 A7 31 38 30 00 90 0B AF 00 8E |I$).90.180......|
00000390: 00 B4 0B B4 00 8B C6 28 55 49 24 29 B3 31 39 33 |.......(UI$).193|
000003A0: B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 |..(UI$).218.UI$.|
000003B0: 22 22 3A 8E 00 D7 0B B9 00 8B C2 28 55 54 29 B2 |"":........(UT).|
000003C0: 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 |UU%.UI$..(.(UI$)|
000003D0: AB 31 32 38 29 3A 8E 00 DD 0B BB 00 8E 00 EA 0B |.128):..........|
000003E0: BE 00 55 49 24 B2 22 22 3A 8E 00 0F 0C C3 00 55 |..UI$."":......U|
000003F0: 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 |F.1:. +++ HELP R|
00000400: 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B 00 |OUTINE EXIT +++.|
00000410: 18 0C C5 00 8D 32 35 30 00 21 0C C8 00 8D 32 34 |.....250.!....24|
00000420: 35 00 40 0C CD 00 81 55 51 B2 55 42 A4 28 55 32 |5.@....UQ.UB.(U2|
00000430: 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 29 |%.256.U1%.U3%.2)|
00000440: 00 5C 0C D2 00 55 51 25 28 55 51 AB 55 42 29 B2 |.\...UQ%(UQ.UB).|
00000450: C2 28 55 51 29 3A 82 3A 99 22 93 22 00 6F 0C D7 |.(UQ):.:.".".o..|
00000460: 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 |.UZ.1:UV%..(UT).|
00000470: 78 0C D8 00 89 33 30 30 00 BC 0C D9 00 55 5A B2 |x....300.....UZ.|
00000480: 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B |0:US$.UJ$:UG$.UK|
00000490: 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 3A 8B C2 |$:UP.UJ:UL.UK:..|
000004A0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
000004B0: 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 F1 0C DC |,6:.53280,14....|
000004C0: 00 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B 3A 97 |.UT$.UL$:.".";:.|
000004D0: 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 55 |UT,UV%:.UQ.UB.(U|
000004E0: 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 33 |2%.256.U1%.U3%.3|
000004F0: 29 00 06 0D E1 00 97 55 51 2C 55 51 25 28 55 51 |)......UQ,UQ%(UQ|
00000500: AB 55 42 29 3A 82 00 12 0D E6 00 97 55 31 2C 55 |.UB):.......U1,U|
00000510: 31 25 00 1E 0D E8 00 97 55 32 2C 55 32 25 00 2A |1%......U2,U2%.*|
00000520: 0D E9 00 97 55 34 2C 55 34 25 00 38 0D EA 00 97 |....U4,U4%.8....|
00000530: 55 33 2C 55 33 25 AB 31 00 40 0D EB 00 89 33 35 |U3,U3%.1.@....35|
00000540: 00 72 0D F0 00 55 44 25 B2 28 28 55 32 25 AC 32 |.r...UD%.((U2%.2|
00000550: 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 AD |56.U1%.U3%).UB).|
00000560: 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 |40:..(UD$,UD%.1)|
00000570: 3A 8E 00 AD 0D F5 00 99 C8 28 55 44 24 2C 32 34 |:........(UD$,24|
00000580: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |);" |
00000590: 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 20 | . HELP |
000005A0: 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 D9 0D |COMING . ":....|
000005B0: FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 |..U1%..(U1):U2%.|
000005C0: C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A |.(U2):U3%..(U3):|
000005D0: 55 34 25 B2 C2 28 55 34 29 00 01 0E FB 00 55 4A |U4%..(U4).....UJ|
000005E0: 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C |$.US$:UK$.UG$:UL|
000005F0: 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 |$.UT$:UJ.UP:UK.U|
00000600: 4C 00 07 0E FF 00 8E 00 18 0E 2C 01 8F 20 2A 2A |L.........,.. **|
00000610: 20 4D 45 4E 55 20 2A 2A 00 1E 0E 2D 01 3A 00 4D | MENU **...-.:.M|
00000620: 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 3A |....".":.UT,UU%:|
00000630: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00000640: 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 53 0E |81,9:.53280,8.S.|
00000650: 2F 01 3A 00 70 0E 31 01 99 22 13 20 20 20 20 20 |/.:.p.1..". |
00000660: 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 22 | MENU"|
00000670: 00 9F 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |...6.." --------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
000006A0: BE 0E 3B 01 99 22 11 11 20 20 20 20 20 20 20 31 |..;..".. 1|
000006B0: 2E 20 20 20 48 41 4E 47 4D 41 4E 20 33 22 00 E8 |. HANGMAN 3"..|
000006C0: 0E 40 01 99 22 11 11 20 20 20 20 20 20 20 32 2E |.@..".. 2.|
000006D0: 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 | STUDENT INSTR|
000006E0: 55 43 54 49 4F 4E 53 22 00 12 0F 45 01 99 22 11 |UCTIONS"...E..".|
000006F0: 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 |. 3. TEA|
00000700: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000710: 53 22 00 3F 0F 4A 01 99 22 11 11 20 20 20 20 20 |S".?.J..".. |
00000720: 20 20 34 2E 20 20 20 4D 4F 44 49 46 49 43 41 54 | 4. MODIFICAT|
00000730: 49 4F 4E 20 4F 46 20 50 52 4F 47 52 41 4D 22 00 |ION OF PROGRAM".|
00000740: 5B 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 35 |[.O..".. 5|
00000750: 2E 20 20 20 51 55 49 54 11 11 22 00 8A 0F 54 01 |. QUIT.."...T.|
00000760: 99 22 20 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 2D |----------------|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 B5 0F 59 01 99 |---------"...Y..|
00000790: 22 11 11 20 20 20 20 20 20 20 50 52 45 53 53 20 |".. PRESS |
000007A0: 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D |A NUMBER KEY (1-|
000007B0: 35 29 20 22 3B 00 DE 0F 5E 01 55 4C B2 31 3A 55 |5) ";...^.UL.1:U|
000007C0: 53 24 B2 22 31 32 33 34 35 22 3A 8D 33 35 3A 8F |S$."12345":.35:.|
000007D0: 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 F0 | INPUT ROUTINE..|
000007E0: 0F 5F 01 8B C3 28 55 52 24 29 B1 31 A7 33 30 30 |._...(UR$).1.300|
000007F0: 00 FB 0F 60 01 55 53 24 B2 22 22 00 1C 10 63 01 |...`.US$.""...c.|
00000800: 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 |..(UR$).1000,400|
00000810: 2C 35 30 30 2C 36 30 30 2C 33 39 36 00 25 10 68 |,500,600,396.%.h|
00000820: 01 89 33 30 30 00 4C 10 8B 01 8F 20 2A 2A 20 52 |..300.L.... ** R|
00000830: 45 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 |E-ENABLE STOP KE|
00000840: 59 20 41 4E 44 20 45 4E 44 20 2A 2A 00 7B 10 8C |Y AND END **.{..|
00000850: 01 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 |...(50003)..1..(|
00000860: 35 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 |50003)..160..(50|
00000870: 30 30 33 29 B3 B1 30 A7 33 39 39 00 A5 10 8D 01 |003)..0.399.....|
00000880: 9E 55 55 AA 37 31 3A 8B C2 28 35 30 30 30 33 29 |.UU.71:..(50003)|
00000890: B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 |.0..53281,6:.532|
000008A0: 38 30 2C 31 34 00 B1 10 8E 01 99 22 9A 93 22 3A |80,14......"..":|
000008B0: 80 00 BC 10 8F 01 8D 38 37 35 3A 8E 00 DD 10 90 |.......875:.....|
000008C0: 01 8F 20 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E |.. ** STUDENT IN|
000008D0: 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 0C 11 |STRUCTIONS **...|
000008E0: 95 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B |...".":.UT,UL%:.|
000008F0: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000900: 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 3E 11 9A |1,0:.53280,0.>..|
00000910: 01 55 54 24 B2 22 20 C8 C1 CE C7 CD C1 CE 20 33 |.UT$." ....... 3|
00000920: 22 3A 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 |":UP.0:UG$.".TUD|
00000930: 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 46 |ENT .NST":.850.F|
00000940: 11 CA 01 99 3A 99 00 79 11 CC 01 99 20 22 20 D7 |....:..y.... " .|
00000950: 48 45 4E 20 54 48 45 20 43 4F 4D 50 55 54 45 52 |HEN THE COMPUTER|
00000960: 20 50 52 49 4E 54 53 20 12 47 55 45 53 53 20 41 | PRINTS .GUESS A|
00000970: 20 4C 45 54 54 45 52 92 22 00 A8 11 CE 01 99 20 | LETTER."...... |
00000980: 22 20 54 59 50 45 20 49 4E 20 41 20 4C 45 54 54 |" TYPE IN A LETT|
00000990: 45 52 20 54 48 41 54 20 59 4F 55 20 54 48 49 4E |ER THAT YOU THIN|
000009A0: 4B 20 49 53 20 49 4E 22 00 DA 11 D0 01 99 20 22 |K IS IN"...... "|
000009B0: 11 20 54 48 45 20 57 4F 52 44 20 52 45 50 52 45 |. THE WORD REPRE|
000009C0: 53 45 4E 54 45 44 20 42 59 20 54 48 45 20 44 41 |SENTED BY THE DA|
000009D0: 53 48 45 53 2E 20 D9 4F 55 22 00 0B 12 D2 01 99 |SHES. .OU"......|
000009E0: 20 22 20 57 49 4E 20 49 46 20 59 4F 55 20 46 49 | " WIN IF YOU FI|
000009F0: 4C 4C 20 49 4E 20 54 48 45 20 57 4F 52 44 20 42 |LL IN THE WORD B|
00000A00: 45 46 4F 52 45 20 59 4F 55 52 22 00 3A 12 D4 01 |EFORE YOUR".:...|
00000A10: 99 20 22 20 4D 41 4E 20 49 53 20 48 41 4E 47 45 |. " MAN IS HANGE|
00000A20: 44 2E 20 D9 4F 55 20 4C 4F 53 45 20 49 46 20 54 |D. .OU LOSE IF T|
00000A30: 48 45 20 4D 41 4E 20 49 53 22 00 4C 12 D6 01 99 |HE MAN IS".L....|
00000A40: 20 22 11 20 48 41 4E 47 45 44 2E 22 00 7E 12 D8 | ". HANGED.".~..|
00000A50: 01 99 22 11 11 20 20 C9 46 20 59 4F 55 20 57 41 |..".. .F YOU WA|
00000A60: 4E 54 20 48 45 4C 50 20 54 59 50 45 20 27 2A 27 |NT HELP TYPE '*'|
00000A70: 20 54 48 45 4E 20 52 45 54 55 52 4E 2E 22 00 87 | THEN RETURN."..|
00000A80: 12 E5 01 8D 38 33 35 00 9B 12 EA 01 8B 55 5A B2 |....835......UZ.|
00000A90: 31 A7 9E 55 50 25 3A 89 32 31 37 00 A1 12 F3 01 |1..UP%:.217.....|
00000AA0: 8E 00 C2 12 F4 01 8F 20 2A 2A 20 54 45 41 43 48 |....... ** TEACH|
00000AB0: 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |ER INSTRUCTIONS |
00000AC0: 2A 2A 00 F2 12 F5 01 99 22 93 22 3A 97 55 54 2C |**......".":.UT,|
00000AD0: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.|
00000AE0: 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C |.53281,2:.53280,|
00000AF0: 31 30 00 24 13 F6 01 55 54 24 B2 22 20 C8 C1 CE |10.$...UT$." ...|
00000B00: C7 CD C1 CE 20 33 22 3A 55 50 B2 30 3A 55 47 24 |.... 3":UP.0:UG$|
00000B10: B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 3A |.".EACHER .NST":|
00000B20: 8D 38 35 30 00 52 13 F7 01 99 22 11 11 20 20 20 |.850.R....".. |
00000B30: 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 4F | .O THE BEST O|
00000B40: 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C |F OUR KNOWLEDGE,|
00000B50: 11 22 00 7B 13 F8 01 99 22 20 20 20 54 48 49 53 |.".{...." THIS|
00000B60: 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 | PROGRAM IS IN T|
00000B70: 48 45 20 50 55 42 4C 49 43 11 22 00 A7 13 F9 01 |HE PUBLIC.".....|
00000B80: 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 |." DOMAIN. .F|
00000B90: 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 45 | THIS IS NOT THE|
00000BA0: 20 43 41 53 45 11 22 00 C4 13 FA 01 99 22 20 20 | CASE."......" |
00000BB0: 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 3A | PLEASE CONTACT:|
00000BC0: 11 11 11 22 00 EE 13 FB 01 99 22 20 20 20 20 20 |..."......" |
00000BD0: 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E | .OMMODORE .USIN|
00000BE0: 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 11 |ESS .ACHINES."..|
00000BF0: 14 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 33 |...." 3|
00000C00: 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 |370 .HARMACY .VE|
00000C10: 2E 00 35 14 FD 01 99 22 20 20 20 20 20 20 20 20 |..5...." |
00000C20: 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 | .GINCOURT, .NT|
00000C30: 41 52 49 4F 22 00 57 14 FE 01 99 22 20 20 20 20 |ARIO".W...." |
00000C40: 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 CD | .ANADA .|
00000C50: 31 D7 20 32 CB 34 22 00 77 14 FF 01 99 22 20 20 |1. 2.4".w...." |
00000C60: 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 39 | (416) 49|
00000C70: 39 2D 34 32 39 32 22 00 8D 14 00 02 55 50 B2 31 |9-4292".....UP.1|
00000C80: 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 B3 14 |:. 835:. 850:...|
00000C90: 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 |..." ...ROGR|
00000CA0: 41 4D 20 CE 41 4D 45 3A 20 C8 41 4E 47 4D 41 4E |AM .AME: .ANGMAN|
00000CB0: 20 33 11 00 D5 14 02 02 99 22 20 20 20 20 20 D7 | 3......." .|
00000CC0: 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 D5 4E 4B |RITTEN .Y : .NK|
00000CD0: 4E 4F 57 4E 11 00 F9 14 03 02 99 22 20 20 20 20 |NOWN......." |
00000CE0: 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 20 | .PGRADED .Y : |
00000CF0: 20 20 20 20 20 20 20 20 11 00 24 15 04 02 99 22 | ..$...."|
00000D00: 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 | ..HIS PROGR|
00000D10: 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 |AM WILL RUN ON A|
00000D20: 4E 59 11 11 00 4B 15 05 02 99 22 20 20 20 20 20 |NY...K...." |
00000D30: 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 | ......2.0 ..|
00000D40: D4 20 C3 CF CD D0 D5 D4 C5 D2 11 00 72 15 06 02 |. ..........r...|
00000D50: 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 |." .....|
00000D60: 20 34 2E 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 | 4.0 ...........|
00000D70: D2 11 00 94 15 07 02 99 22 20 20 20 20 20 20 20 |........" |
00000D80: 20 20 38 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 | 8032 ... .....|
00000D90: D4 C5 D2 11 00 B9 15 08 02 99 22 20 20 20 20 20 |.........." |
00000DA0: 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 | ......... 64|
00000DB0: 20 C3 CF CD D0 D5 D4 C5 D2 00 C2 15 09 02 8D 38 | ..............8|
00000DC0: 33 35 00 D6 15 4E 02 8B 55 5A B2 31 A7 9E 55 50 |35...N..UZ.1..UP|
00000DD0: 25 3A 89 32 31 37 00 DC 15 57 02 8E 00 02 16 58 |%:.217...W.....X|
00000DE0: 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F |.. ** PROGRAM MO|
00000DF0: 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 |DIFICATION INST |
00000E00: 2A 2A 00 13 16 59 02 99 22 93 22 3A 97 55 54 2C |**...Y..".":.UT,|
00000E10: 55 4C 25 00 44 16 5D 02 55 54 24 B2 22 20 C8 C1 |UL%.D.].UT$." ..|
00000E20: CE C7 CD C1 CE 20 33 22 3A 55 50 B2 30 3A 55 47 |..... 3":UP.0:UG|
00000E30: 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A |$.".ROGRAM .OD":|
00000E40: 8D 38 35 30 00 50 16 5F 02 99 3A 99 3A 99 3A 99 |.850.P._..:.:.:.|
00000E50: 00 7B 16 62 02 99 22 20 C9 46 20 59 4F 55 20 57 |.{.b.." .F YOU W|
00000E60: 49 53 48 20 54 4F 20 43 48 41 4E 47 45 20 54 48 |ISH TO CHANGE TH|
00000E70: 45 20 57 4F 52 44 53 20 49 4E 22 00 81 16 64 02 |E WORDS IN"...d.|
00000E80: 99 00 AE 16 67 02 99 22 20 54 48 49 53 20 50 52 |....g.." THIS PR|
00000E90: 4F 47 52 41 4D 20 54 48 45 4E 20 4C 49 53 54 20 |OGRAM THEN LIST |
00000EA0: 4C 49 4E 45 53 20 31 37 36 35 20 54 4F 22 00 B4 |LINES 1765 TO"..|
00000EB0: 16 68 02 99 00 D6 16 6C 02 99 22 20 31 38 39 35 |.h.....l.." 1895|
00000EC0: 20 41 4E 44 20 45 4E 54 45 52 20 4E 45 57 20 57 | AND ENTER NEW W|
00000ED0: 4F 52 44 53 2E 22 00 DF 16 71 02 8D 38 33 35 00 |ORDS."...q..835.|
00000EE0: F3 16 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |.....UZ.1..UP%:.|
00000EF0: 32 31 37 00 F9 16 BB 02 8E 00 1E 17 BC 02 8F 20 |217............ |
00000F00: 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C |** TO USE 8032 L|
00000F10: 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 54 |OAD CBM4032 **.T|
00000F20: 17 C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 |....".....BEFORE|
00000F30: 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 | RUNNING THIS PR|
00000F40: 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 |OGRAM ON AN 8032|
00000F50: 20 20 11 11 00 8A 17 D0 02 99 22 20 20 20 20 20 | ........" |
00000F60: 20 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 | LOAD THE 'CBM 4|
00000F70: 30 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 11 |032' PROGRAM....|
00000F80: 11 11 11 11 11 11 11 11 11 22 00 95 17 DA 02 9E |........."......|
00000F90: 55 55 AA 37 31 00 9B 17 E4 02 80 00 C0 17 1D 03 |UU.71...........|
00000FA0: 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 |. ** TO USE 8032|
00000FB0: 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A | LOAD CBM4032 **|
00000FC0: 00 0B 18 1E 03 99 22 93 11 11 11 42 45 46 4F 52 |......"....BEFOR|
00000FD0: 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 |E RUNNING THIS P|
00000FE0: 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 |ROGRAM ON AN 803|
00000FF0: 32 20 20 11 11 4C 4F 41 44 20 43 42 4D 20 34 30 |2 ..LOAD CBM 40|
00001000: 33 32 20 50 52 4F 47 52 41 4D 22 00 17 18 1F 03 |32 PROGRAM".....|
00001010: 9E 31 30 39 33 3A 80 00 37 18 20 03 8F 20 2A 2A |.1093:..7. .. **|
00001020: 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 | T I T L E P A|
00001030: 20 47 20 45 20 2A 2A 00 6B 18 22 03 99 22 93 11 | G E **.k.".."..|
00001040: 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 |..";:.UT,UU%:..(|
00001050: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C |50003).0..53280,|
00001060: 31 34 3A 97 35 33 32 38 31 2C 36 00 81 18 24 03 |14:.53281,6...$.|
00001070: 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A |.I.1.38:."...";:|
00001080: 82 00 99 18 26 03 81 49 B2 31 A4 32 32 3A 99 22 |....&..I.1.22:."|
00001090: 11 9D 12 A6 92 22 3B 3A 82 00 B1 18 28 03 81 49 |.....";:....(..I|
000010A0: B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A |.1.37:.".....";:|
000010B0: 82 00 C9 18 2A 03 81 49 B2 31 A4 32 32 3A 99 22 |....*..I.1.22:."|
000010C0: 91 9D 12 A6 92 22 3B 3A 82 00 EE 18 2C 03 99 22 |.....";:....,.."|
000010D0: 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000010E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 10 |........... ...|
000010F0: 19 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
00001100: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 |........ . . ..|
00001110: 00 31 19 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |.1.0..".........|
00001120: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 |.......... . ..|
00001130: DF 00 4F 19 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..O.2.."........|
00001140: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 |............ ..|
00001150: 77 19 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D |w.4.."..........|
00001160: 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 |....C O M M O D |
00001170: 4F 20 52 20 45 11 11 00 9A 19 36 03 99 22 1D 1D |O R E.....6.."..|
00001180: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 |.............EDU|
00001190: 43 41 54 49 4F 4E 41 4C 11 11 00 B9 19 38 03 99 |CATIONAL.....8..|
000011A0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000011B0: 1D 53 4F 46 54 57 41 52 45 00 D4 19 3A 03 8F 20 |.SOFTWARE...:.. |
000011C0: 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 |** COMMODORE LOG|
000011D0: 4F 20 2A 2A 00 0C 1A 3B 03 99 C8 28 55 44 24 2C |O **...;...(UD$,|
000011E0: 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 |24);"..........P|
000011F0: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 4F |RESS SPACE BAR O|
00001200: 52 20 57 41 49 54 92 22 3A 49 B2 30 00 2E 1A 3C |R WAIT.":I.0...<|
00001210: 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 |..A$:.A$.." ".I.|
00001220: 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 52 |I.1:.I.250.828.R|
00001230: 1A 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 |.>.T1$."":T2$.""|
00001240: 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 |:T3$."":T4$."":I|
00001250: B2 30 00 5B 1A 40 03 89 33 30 30 00 77 1A 43 03 |.0.[.@..300.w.C.|
00001260: 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 |. ** SPACE BAR P|
00001270: 52 45 53 53 20 2A 2A 00 B2 1A 48 03 97 55 4F 2C |RESS **...H..UO,|
00001280: 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D |0:..(UD$,24);"..|
00001290: 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 |.....PRESS SPACE|
000012A0: 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | BAR TO CONTINUE|
000012B0: 92 22 00 C9 1A 4C 03 A1 55 49 24 3A 8B 55 49 24 |."...L..UI$:.UI$|
000012C0: B3 B1 22 20 22 A7 38 34 34 00 CF 1A 4E 03 8E 00 |.." ".844...N...|
000012D0: EF 1A 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 |..R.. ** PAGE DE|
000012E0: 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 |SIGN ROUTINE **.|
000012F0: FB 1A 54 03 55 50 B2 55 50 AA 31 00 25 1B 57 03 |..T.UP.UP.1.%.W.|
00001300: 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 |.".".(UT$.UP$,21|
00001310: 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 |);.(UP$.UG$..(UP|
00001320: 29 2C 31 38 29 00 54 1B 5C 03 99 22 20 2D 2D 2D |),18).T.\.." ---|
00001330: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001350: 2D 2D 2D 22 00 63 1B 60 03 8B 55 48 B3 B1 30 A7 |---".c.`..UH..0.|
00001360: 38 37 30 00 97 1B 61 03 99 C8 28 55 44 24 2C 32 |870...a...(UD$,2|
00001370: 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C |4);.(UP$,7);"HEL|
00001380: 50 20 2D 20 50 52 45 53 53 20 20 20 2A 20 3C 52 |P - PRESS * <R|
00001390: 45 54 55 52 4E 3E 22 00 A9 1B 66 03 97 55 4F 2C |ETURN>"...f..UO,|
000013A0: 30 3A 99 22 13 11 22 3A 8E 00 C8 1B 6B 03 8F 20 |0:."..":....k.. |
000013B0: 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 |** PLEASE WAIT R|
000013C0: 45 4D 41 52 4B 20 2A 2A 00 FE 1B 70 03 99 C8 28 |EMARK **...p...(|
000013D0: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" |
000013E0: 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 | ONE MOMENT P|
000013F0: 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 04 |LEASE... "..|
00001400: 1C 75 03 8E 00 21 1C 84 03 8F 20 2A 2A 20 53 45 |.u...!.... ** SE|
00001410: 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A |T UP VARIABLES *|
00001420: 2A 00 6C 1C 85 03 55 58 24 B2 22 2A 22 3A 86 55 |*.l...UX$."*":.U|
00001430: 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 |Q%(1000):UB.3276|
00001440: 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A |8:U1.196:U2.197:|
00001450: 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 |U3.198:U4.216:UC|
00001460: B2 31 36 37 3A 55 55 B2 31 30 32 34 00 AA 1C 86 |.167:UU.1024....|
00001470: 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 |.UT.59468:UU%.12|
00001480: 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 |:UL%.14:UP%.1146|
00001490: 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 |:UM.32768:UO.158|
000014A0: 3A 97 20 35 30 30 30 33 2C 30 00 ED 1C 87 03 8B |:. 50003,0......|
000014B0: C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 |.(50003).0.UB.10|
000014C0: 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 |24:U1.209:U2.210|
000014D0: 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 |:U3.211:U4.214:U|
000014E0: 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 2C 1D |C.204:UU.2048.,.|
000014F0: 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 |....(50003).0.UT|
00001500: B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C |.53272:UU%.21:UL|
00001510: 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D |%.23:UP%.2139:UM|
00001520: B2 31 30 32 34 3A 55 4F B2 31 39 38 00 50 1D 89 |.1024:UO.198.P..|
00001530: 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.UD$."..........|
00001540: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00001550: 00 82 1D 8A 03 55 50 24 B2 22 20 20 20 20 20 20 |.....UP$." |
00001560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001580: 20 22 00 A7 1D 8B 03 55 54 24 B2 22 20 C8 C1 CE | ".....UT$." ...|
00001590: C7 CD C1 CE 20 33 22 3A 8F 20 50 52 4F 47 52 41 |.... 3":. PROGRA|
000015A0: 4D 20 54 49 54 4C 45 00 AD 1D 8C 03 8E 00 C7 1D |M TITLE.........|
000015B0: 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 |... ** SET VARIA|
000015C0: 42 4C 45 53 20 2A 2A 00 D0 1D 93 03 8D 39 30 30 |BLES **......900|
000015D0: 00 D6 1D 94 03 3A 00 DC 1D 95 03 3A 00 F7 1D 98 |.....:.....:....|
000015E0: 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 |.. ** CHECK FOR |
000015F0: 38 30 33 32 20 2A 2A 00 15 1E 9D 03 99 22 93 22 |8032 **......"."|
00001600: 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 |:.".":. SHIFTED |
00001610: 53 50 41 43 45 00 2C 1E A2 03 8B C2 28 55 42 AA |SPACE.,.....(UB.|
00001620: 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 45 1E A3 |40)..96..700.E..|
00001630: 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 |.. ** MEMORY CHE|
00001640: 43 4B 20 2A 2A 00 59 1E A4 03 8B 20 B8 28 30 29 |CK **.Y.... .(0)|
00001650: B1 32 30 30 30 A7 39 33 37 00 87 1E A5 03 99 22 |.2000.937......"|
00001660: 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 |....THIS MACHINE|
00001670: 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 | DOES NOT HAVE E|
00001680: 4E 4F 55 47 48 11 22 00 AB 1E A6 03 99 22 4D 45 |NOUGH."......"ME|
00001690: 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 |MORY TO RUN THIS|
000016A0: 20 50 52 4F 47 52 41 4D 20 21 22 00 B6 1E A7 03 | PROGRAM !".....|
000016B0: 9E 55 55 AA 37 31 00 BC 1E A8 03 80 00 D6 1E A9 |.UU.71..........|
000016C0: 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 |.."..":..(50003)|
000016D0: B2 30 A7 39 36 32 00 05 1F AC 03 8F 20 2A 2A 20 |.0.962...... ** |
000016E0: 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 |BASIC 2.0 OR 4|
000016F0: 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 |.0 OR C-64 SET|
00001700: 55 50 20 2A 2A 00 43 1F AD 03 97 31 30 37 35 2C |UP **.C....1075,|
00001710: 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 |133:.1076,144:.1|
00001720: 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A |077,234:.1079,4:|
00001730: 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C |.1080,133:.1081,|
00001740: 31 34 35 00 79 1F AE 03 97 31 30 39 31 2C 31 35 |145.y....1091,15|
00001750: 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 |5:.1098,133:.109|
00001760: 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A |9,144:.1100,234:|
00001770: 97 31 31 30 33 2C 31 33 33 00 9B 1F AF 03 97 31 |.1103,133......1|
00001780: 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 |104,145:.1105,23|
00001790: 34 3A 97 31 30 38 32 2C 32 33 34 00 B2 1F B1 03 |4:.1082,234.....|
000017A0: 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 |..(50003)..160.9|
000017B0: 35 35 00 E1 1F B6 03 97 31 30 39 33 2C 38 38 3A |55......1093,88:|
000017C0: 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C |.1094,228:.1097,|
000017D0: 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 |85:.1102,228:.96|
000017E0: 35 00 F6 1F BB 03 8B C2 28 35 30 30 30 33 29 B3 |5.......(50003).|
000017F0: B1 31 A7 39 39 30 00 25 20 C0 03 97 31 30 39 33 |.1.990.% ...1093|
00001800: 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 |,49:.1094,230:.1|
00001810: 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 |097,46:.1102,230|
00001820: 3A 89 39 36 35 00 5F 20 C2 03 97 32 30 39 39 2C |:.965._ ...2099,|
00001830: 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 |141:.2100,20:.21|
00001840: 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 |01,3:.2103,8:.21|
00001850: 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 |04,141:.2105,21.|
00001860: 9B 20 C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 |. ...2106,3:.211|
00001870: 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 |5,145:.2117,52:.|
00001880: 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 |2118,234:.2121,4|
00001890: 39 3A 97 32 31 32 32 2C 31 34 31 00 D5 20 C4 03 |9:.2122,141.. ..|
000018A0: 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 |.2123,20:.2124,3|
000018B0: 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 |:.2126,234:.2127|
000018C0: 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 |,141:.2128,21:.2|
000018D0: 31 32 39 2C 33 00 F3 20 C5 03 9E 55 55 AA 34 38 |129,3.. ...UU.48|
000018E0: 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 |:. DISABLE STOP |
000018F0: 4B 45 59 00 04 21 CA 03 8D 38 30 30 3A 8F 20 54 |KEY..!...800:. T|
00001900: 49 54 4C 45 00 14 21 D4 03 89 33 30 30 3A 8F 20 |ITLE..!...300:. |
00001910: 4D 45 4E 55 00 45 21 DE 03 99 22 93 54 48 45 20 |MENU.E!...".THE |
00001920: 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 |PGM WILL NOT WOR|
00001930: 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E |K ON THIS MACHIN|
00001940: 45 21 22 3A 80 00 7A 21 E8 03 8B 55 5A B2 31 A7 |E!":..z!...UZ.1.|
00001950: 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F |.UP%:.UP%:UZ.0:.|
00001960: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 | ** PROGRAM STAR|
00001970: 54 53 20 48 45 52 45 20 2A 2A 00 A6 21 E9 03 99 |TS HERE **..!...|
00001980: 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 |"..";:.:..(50003|
00001990: 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 |).0..53281,6:.53|
000019A0: 32 38 30 2C 31 34 00 E3 21 AB 04 55 50 B2 30 3A |280,14..!..UP.0:|
000019B0: 55 47 24 B2 22 22 3A 55 54 24 B2 22 20 48 41 4E |UG$."":UT$." HAN|
000019C0: 47 4D 41 4E 20 33 22 3A 99 22 11 22 3A 8D 38 35 |GMAN 3":.".":.85|
000019D0: 30 3A 8B 44 B2 30 A7 20 86 43 24 28 32 30 29 3A |0:.D.0. .C$(20):|
000019E0: 44 B2 31 00 EC 21 14 05 99 22 13 22 00 1F 22 46 |D.1..!...".".."F|
000019F0: 05 99 20 22 11 11 11 11 11 11 11 1D 1D 1D 1D 1D |.. "............|
00001A00: 45 4E 54 45 52 20 57 4F 52 44 20 53 45 54 20 44 |ENTER WORD SET D|
00001A10: 45 53 49 52 45 44 20 28 31 2D 35 29 20 22 3B 00 |ESIRED (1-5) ";.|
00001A20: 42 22 55 05 55 50 B2 31 3A 55 53 24 B2 22 31 32 |B"U.UP.1:US$."12|
00001A30: 33 34 35 2A 22 3A 8D 20 33 35 3A 57 53 24 B2 55 |345*":. 35:WS$.U|
00001A40: 52 24 00 62 22 5A 05 8B 20 57 53 24 20 B1 22 30 |R$.b"Z.. WS$ ."0|
00001A50: 22 20 AF 20 57 53 24 20 B3 22 36 22 89 20 31 33 |" . WS$ ."6". 13|
00001A60: 38 30 00 6D 22 5F 05 89 20 31 33 36 35 00 86 22 |80.m"_.. 1365.."|
00001A70: 64 05 88 20 57 53 20 B2 20 28 C5 28 57 53 24 29 |d.. WS . (.(WS$)|
00001A80: AB 31 29 AC 32 30 00 98 22 69 05 81 20 57 54 20 |.1).20.."i.. WT |
00001A90: B2 20 31 20 A4 20 57 53 00 A1 22 6E 05 87 20 56 |. 1 . WS.."n.. V|
00001AA0: 24 00 B7 22 73 05 82 20 57 54 3A 55 47 24 B2 22 |$.."s.. WT:UG$."|
00001AB0: 47 55 45 53 53 3A 22 00 EA 22 78 05 99 20 22 11 |GUESS:".."x.. ".|
00001AC0: 22 3A 8D 38 35 30 3A 99 22 11 20 45 4E 54 45 52 |":.850:.". ENTER|
00001AD0: 20 44 49 46 46 49 43 55 4C 54 59 20 46 41 43 54 | DIFFICULTY FACT|
00001AE0: 4F 52 20 28 31 2D 35 29 20 22 00 1E 23 7D 05 99 |OR (1-5) "..#}..|
00001AF0: 22 11 11 11 1D 1D 1D B2 20 31 20 20 45 41 53 49 |"....... 1 EASI|
00001B00: 45 53 54 22 3A 99 22 1D 1D 1D DD 22 3A 99 22 1D |EST":."....":.".|
00001B10: 1D 1D AB 20 32 22 3A 99 22 20 20 20 DD 22 00 58 |... 2":." .".X|
00001B20: 23 82 05 99 22 1D 1D 1D AB 20 33 22 3A 99 22 1D |#...".... 3":.".|
00001B30: 1D 1D DD 22 3A 99 22 1D 1D 1D AB 20 34 22 3A 99 |...":.".... 4":.|
00001B40: 22 20 20 20 DD 22 3A 99 22 20 20 20 B1 20 35 20 |" .":." . 5 |
00001B50: 48 41 52 44 45 53 54 22 00 8D 23 83 05 99 22 91 |HARDEST"..#...".|
00001B60: 91 91 91 91 91 91 91 91 91 91 91 91 1D 1D 1D 1D |................|
00001B70: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 BA 23 |...........";..#|
00001B90: 87 05 55 50 B2 31 3A 55 53 24 B2 22 2A 31 32 33 |..UP.1:US$."*123|
00001BA0: 34 35 22 3A 8D 20 33 35 3A 49 4F 24 B2 55 52 24 |45":. 35:IO$.UR$|
00001BB0: 3A 49 4F B2 C5 28 49 4F 24 29 00 D6 23 8C 05 81 |:IO..(IO$)..#...|
00001BC0: 20 57 53 B2 31 20 A4 20 32 30 3A 87 43 24 28 57 | WS.1 . 20:.C$(W|
00001BD0: 53 29 3A 82 57 53 00 E8 23 91 05 81 20 47 50 20 |S):.WS..#... GP |
00001BE0: B2 20 31 20 A4 20 32 30 00 00 24 96 05 88 20 52 |. 1 . 20..$... R|
00001BF0: 4E 20 B2 20 B5 28 BB 28 31 29 AC 32 30 29 AA 31 |N . .(.(1).20).1|
00001C00: 00 17 24 9B 05 8B 20 43 24 28 52 4E 29 B2 22 30 |..$... C$(RN)."0|
00001C10: 22 89 20 31 34 33 30 00 32 24 A0 05 88 20 41 24 |". 1430.2$... A$|
00001C20: B2 43 24 28 52 4E 29 3A 43 24 28 52 4E 29 B2 22 |.C$(RN):C$(RN)."|
00001C30: 30 22 00 47 24 A5 05 99 20 22 11 22 3A 55 50 B2 |0".G$... ".":UP.|
00001C40: 30 3A 8D 20 38 35 30 00 54 24 AA 05 88 20 56 49 |0:. 850.T$... VI|
00001C50: 20 B2 20 30 00 66 24 AF 05 81 20 49 54 20 B2 20 | . 0.f$... IT . |
00001C60: 31 20 A4 20 49 4F 00 71 24 B4 05 8D 20 31 39 33 |1 . IO.q$... 193|
00001C70: 35 00 7A 24 B9 05 82 20 49 54 00 8A 24 BE 05 88 |5.z$... IT..$...|
00001C80: 20 41 20 B2 20 C3 28 41 24 29 00 95 24 C3 05 88 | A . .(A$)..$...|
00001C90: 20 41 4D B2 30 00 A9 24 C8 05 88 20 45 B2 30 3A | AM.0..$... E.0:|
00001CA0: 4D 4D B2 30 3A 46 49 B2 30 00 B6 24 CD 05 81 20 |MM.0:FI.0..$... |
00001CB0: 49 B2 31 A4 20 41 00 CC 24 D2 05 88 20 42 24 28 |I.1. A..$... B$(|
00001CC0: 49 29 B2 CA 28 41 24 2C 49 2C 31 29 00 D4 24 D7 |I)..(A$,I,1)..$.|
00001CD0: 05 82 20 49 00 E1 24 DC 05 81 20 49 B2 31 A4 20 |.. I..$... I.1. |
00001CE0: 41 00 FD 24 E1 05 99 22 13 11 11 11 11 22 3B A3 |A..$...".....";.|
00001CF0: 28 32 AC 49 29 AA 31 36 29 3B 22 A4 22 00 05 25 |(2.I).16);"."..%|
00001D00: E6 05 82 20 49 00 2B 25 EB 05 99 22 13 1D 11 11 |... I.+%..."....|
00001D10: 11 11 11 11 11 11 11 11 11 11 55 53 45 44 20 4C |..........USED L|
00001D20: 45 54 54 45 52 53 3A 20 20 22 3B 00 42 25 F0 05 |ETTERS: ";.B%..|
00001D30: 81 20 55 4C 20 B2 20 31 20 A4 20 28 20 39 AB 49 |. UL . 1 . ( 9.I|
00001D40: 4F 29 00 4E 25 F5 05 99 20 22 A4 20 22 3B 00 57 |O).N%... ". ";.W|
00001D50: 25 FA 05 82 20 55 4C 00 8E 25 FF 05 55 47 24 B2 |%... UL..%..UG$.|
00001D60: 22 47 55 45 53 53 3A 22 3A 99 22 13 22 C8 28 55 |"GUESS:":.".".(U|
00001D70: 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 |T$.UP$,21);.(UP$|
00001D80: AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 C5 |.UG$..(UP),18)..|
00001D90: 25 00 06 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |%..." ----------|
00001DA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001DB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 55 50 |------------":UP|
00001DC0: B2 55 50 AA 31 00 03 26 01 06 8D 38 36 35 3A 99 |.UP.1..&...865:.|
00001DD0: 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001DE0: 1D 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001DF0: 11 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |. ..............|
00001E00: 20 20 22 00 2B 26 04 06 99 22 1D 1D 1D 1D 1D 1D | ".+&..."......|
00001E10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 47 55 45 53 53 |...........GUESS|
00001E20: 20 41 20 4C 45 54 54 45 52 92 22 00 57 26 05 06 | A LETTER.".W&..|
00001E30: 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001E40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001E50: 1D 1D 20 20 9D 22 3B 00 61 26 09 06 88 20 56 B2 |.. .";.a&... V.|
00001E60: 30 00 97 26 0E 06 55 53 24 B2 22 41 42 43 44 45 |0..&..US$."ABCDE|
00001E70: 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 |FGHIJKLMNOPQRSTU|
00001E80: 56 57 58 59 5A 2A 22 3A 55 4C B2 31 3A 8D 33 35 |VWXYZ*":UL.1:.35|
00001E90: 3A 5A 24 B2 55 52 24 00 AA 26 13 06 8B 20 5A 24 |:Z$.UR$..&... Z$|
00001EA0: B2 22 22 20 89 20 31 35 33 35 00 B7 26 18 06 81 |."" . 1535..&...|
00001EB0: 20 49 B2 31 A4 20 41 00 CD 26 1D 06 8B 20 5A 24 | I.1. A..&... Z$|
00001EC0: B3 B1 42 24 28 49 29 89 20 31 36 31 35 00 E1 26 |..B$(I). 1615..&|
00001ED0: 22 06 8B 20 5A 24 B2 22 20 22 20 89 20 31 36 31 |".. Z$." " . 161|
00001EE0: 35 00 19 27 27 06 8F 50 52 49 4E 54 20 22 13 1D |5..''..PRINT "..|
00001EF0: 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 11 11 11 11 11 |................|
00001F00: 11 11 11 11 11 11 43 4F 52 52 45 43 54 20 47 55 |......CORRECT GU|
00001F10: 45 53 53 20 20 20 20 20 22 00 37 27 2C 06 99 22 |ESS ".7',.."|
00001F20: 13 11 11 11 11 22 3B A3 28 32 AC 49 29 AA 31 36 |.....";.(2.I).16|
00001F30: 29 3B 42 24 28 49 29 00 4D 27 31 06 8B 20 42 24 |);B$(I).M'1.. B$|
00001F40: 28 49 29 B2 22 20 22 89 20 31 36 31 35 00 5D 27 |(I)." ". 1615.]'|
00001F50: 36 06 88 20 42 24 28 49 29 B2 22 20 22 00 6B 27 |6.. B$(I)." ".k'|
00001F60: 3B 06 88 20 4D 4D B2 4D 4D AA 31 00 7D 27 40 06 |;.. MM.MM.1.}'@.|
00001F70: 8B 20 4D 4D B2 41 20 20 89 31 36 38 35 00 87 27 |. MM.A .1685..'|
00001F80: 45 06 88 20 56 B2 31 00 92 27 4A 06 89 20 31 36 |E.. V.1..'J.. 16|
00001F90: 31 35 00 9A 27 4F 06 82 20 49 00 AA 27 54 06 8B |15..'O.. I..'T..|
00001FA0: 20 56 B2 31 20 89 31 36 33 30 00 B5 27 59 06 89 | V.1 .1630..'Y..|
00001FB0: 20 31 36 34 30 00 CD 27 5E 06 8F 46 4F 52 4B 3D | 1640..'^..FORK=|
00001FC0: 31 54 4F 31 30 30 30 3A 4E 45 58 54 4B 00 D7 27 |1TO1000:NEXTK..'|
00001FD0: 63 06 89 31 35 33 35 00 0E 28 68 06 99 22 13 1D |c..1535..(h.."..|
00001FE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001FF0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 49 4E |..............IN|
00002000: 43 4F 52 52 45 43 54 20 47 55 45 53 53 22 00 1F |CORRECT GUESS"..|
00002010: 28 6D 06 81 51 51 B2 31 A4 31 30 30 30 3A 82 00 |(m..QQ.1.1000:..|
00002020: 56 28 72 06 99 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D |V(r.."..........|
00002030: 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 11 11 11 11 11 |................|
00002040: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 |...... |
00002050: 20 20 20 20 20 22 00 61 28 77 06 88 45 B2 45 AA | ".a(w..E.E.|
00002060: 31 00 8C 28 7C 06 99 22 13 1D 1D 1D 1D 11 11 11 |1..(|.."........|
00002070: 11 11 11 11 11 11 11 11 11 22 3B A3 28 28 45 AB |.........";.((E.|
00002080: 31 29 AC 32 29 AA 31 36 29 3B 5A 24 00 97 28 81 |1).2).16);Z$..(.|
00002090: 06 8D 20 31 39 33 35 00 AF 28 86 06 8B 20 45 B2 |.. 1935..(... E.|
000020A0: 20 28 20 39 AB 49 4F 29 20 89 20 31 37 32 35 00 | ( 9.IO) . 1725.|
000020B0: C8 28 8B 06 8F 46 4F 52 20 49 3D 31 54 4F 31 30 |.(...FOR I=1TO10|
000020C0: 30 30 3A 4E 45 58 54 49 00 D3 28 90 06 89 20 31 |00:NEXTI..(... 1|
000020D0: 35 33 35 00 F0 28 95 06 99 22 13 1D 11 11 11 11 |535..(..."......|
000020E0: 11 11 11 2A 20 59 4F 55 20 57 49 4E 21 20 2A 22 |...* YOU WIN! *"|
000020F0: 00 05 29 96 06 8D 38 33 35 3A 55 47 24 B2 22 22 |..)...835:UG$.""|
00002100: 3A 8D 38 35 30 00 43 29 97 06 99 22 11 11 11 20 |:.850.C)..."... |
00002110: 57 41 4E 54 20 54 4F 20 50 4C 41 59 20 41 47 41 |WANT TO PLAY AGA|
00002120: 49 4E 3F 20 22 3B 3A 55 50 B2 31 3A 55 53 24 B2 |IN? ";:UP.1:US$.|
00002130: 22 59 4E 22 3A 8D 33 35 3A 8B 55 52 24 B2 22 4E |"YN":.35:.UR$."N|
00002140: 22 A7 8E 00 74 29 9A 06 99 20 22 11 11 11 11 11 |"...t)... ".....|
00002150: 1D 1D 1D 1D 1D 4E 45 57 20 44 49 46 46 49 43 55 |.....NEW DIFFICU|
00002160: 4C 54 59 20 46 41 43 54 4F 52 20 28 4E 2F 59 29 |LTY FACTOR (N/Y)|
00002170: 3F 20 22 3B 00 91 29 9F 06 55 53 24 B2 22 59 4E |? ";..)..US$."YN|
00002180: 22 3A 55 4C B2 31 3A 8D 33 35 3A 51 24 B2 55 52 |":UL.1:.35:Q$.UR|
00002190: 24 00 A7 29 A4 06 8B 20 51 24 20 B2 20 22 59 22 |$..)... Q$ . "Y"|
000021A0: 20 89 20 31 39 30 35 00 BF 29 A9 06 8B 20 51 24 | . 1905..)... Q$|
000021B0: 20 B2 20 22 4E 22 20 A7 20 89 20 31 37 31 35 00 | . "N" . . 1715.|
000021C0: CA 29 AE 06 89 20 31 36 39 35 00 D3 29 B3 06 82 |.)... 1695..)...|
000021D0: 20 47 50 00 DE 29 B8 06 89 20 31 34 31 35 00 FB | GP..)... 1415..|
000021E0: 29 BD 06 99 22 13 1D 11 11 11 11 11 11 11 2A 20 |)...".........* |
000021F0: 59 4F 55 20 48 41 4E 47 20 2A 22 00 01 2A C2 06 |YOU HANG *"..*..|
00002200: 99 00 2E 2A C7 06 99 20 22 11 11 11 11 11 1D 1D |...*... ".......|
00002210: 1D 1D 1D 1D 1D 1D 1D 54 48 45 20 57 4F 52 44 20 |.......THE WORD |
00002220: 57 41 53 20 22 3B 41 24 3A 89 31 36 38 36 00 5F |WAS ";A$:.1686._|
00002230: 2A CC 06 99 22 11 11 11 11 11 11 1D 1D 1D 1D 1D |*..."...........|
00002240: 1D 4E 45 57 20 44 49 46 46 49 43 55 4C 54 59 20 |.NEW DIFFICULTY |
00002250: 46 41 43 54 4F 52 20 28 4E 2F 59 29 3F 22 3B 00 |FACTOR (N/Y)?";.|
00002260: 93 2A CD 06 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D |.*..."..........|
00002270: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002280: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002290: 1D 22 3B 00 B5 2A D1 06 55 50 B2 31 3A 55 53 24 |.";..*..UP.1:US$|
000022A0: B2 22 59 4E 22 3A 55 4C B2 31 3A 8D 33 35 3A 51 |."YN":UL.1:.35:Q|
000022B0: 24 B2 55 52 24 00 CB 2A D6 06 8B 20 51 24 20 B2 |$.UR$..*... Q$ .|
000022C0: 20 22 59 22 20 89 20 31 39 30 35 00 E3 2A DB 06 | "Y" . 1905..*..|
000022D0: 8B 20 51 24 20 B2 20 22 4E 22 20 A7 20 89 20 31 |. Q$ . "N" . . 1|
000022E0: 37 31 35 00 EE 2A E0 06 89 20 31 37 34 35 00 34 |715..*... 1745.4|
000022F0: 2B E5 06 83 20 4E 45 58 54 2C 49 4E 54 45 52 45 |+... NEXT,INTERE|
00002300: 53 54 2C 4C 59 4E 58 2C 4C 41 4E 47 55 41 47 45 |ST,LYNX,LANGUAGE|
00002310: 2C 41 53 59 4C 55 4D 2C 46 52 45 45 5A 45 2C 4C |,ASYLUM,FREEZE,L|
00002320: 49 4D 49 54 2C 53 43 48 4F 4F 4C 2C 52 49 44 49 |IMIT,SCHOOL,RIDI|
00002330: 43 55 4C 45 00 79 2B EA 06 83 20 43 4F 4D 50 55 |CULE.y+... COMPU|
00002340: 54 45 52 2C 43 4F 4D 4D 45 4E 54 2C 54 4F 50 49 |TER,COMMENT,TOPI|
00002350: 43 2C 57 45 49 52 44 2C 42 4F 52 49 4E 47 2C 55 |C,WEIRD,BORING,U|
00002360: 53 45 46 55 4C 2C 50 52 45 53 53 2C 46 4F 52 47 |SEFUL,PRESS,FORG|
00002370: 45 54 2C 53 49 4D 50 4C 45 00 AE 2B EF 06 83 20 |ET,SIMPLE..+... |
00002380: 52 45 41 44 59 2C 51 55 45 53 54 49 4F 4E 2C 52 |READY,QUESTION,R|
00002390: 45 50 45 41 54 2C 45 58 54 45 4E 44 2C 53 4F 43 |EPEAT,EXTEND,SOC|
000023A0: 49 45 54 59 2C 49 4E 56 45 4E 54 49 4F 4E 00 CF |IETY,INVENTION..|
000023B0: 2B F4 06 83 20 57 41 54 45 52 2C 42 52 41 4B 45 |+... WATER,BRAKE|
000023C0: 2C 53 41 46 45 54 59 2C 57 4F 52 53 48 49 50 00 |,SAFETY,WORSHIP.|
000023D0: EB 2B F9 06 83 20 50 4C 41 4E 45 2C 53 43 49 45 |.+... PLANE,SCIE|
000023E0: 4E 43 45 2C 42 41 54 54 45 52 59 00 35 2C FE 06 |NCE,BATTERY.5,..|
000023F0: 83 20 4F 42 53 43 55 52 45 2C 53 55 46 46 49 43 |. OBSCURE,SUFFIC|
00002400: 45 2C 50 52 49 53 4D 2C 56 49 53 55 41 4C 2C 46 |E,PRISM,VISUAL,F|
00002410: 41 43 45 54 49 4F 55 53 2C 49 4D 50 52 4F 56 45 |ACETIOUS,IMPROVE|
00002420: 2C 43 4F 4E 54 52 41 52 59 2C 53 54 55 44 59 2C |,CONTRARY,STUDY,|
00002430: 52 45 41 4C 4D 00 7C 2C 03 07 83 20 46 52 41 55 |REALM.|,... FRAU|
00002440: 44 2C 43 4C 45 52 4B 2C 4A 55 53 54 49 46 59 2C |D,CLERK,JUSTIFY,|
00002450: 43 48 52 49 53 54 45 4E 2C 54 48 55 4D 42 2C 54 |CHRISTEN,THUMB,T|
00002460: 48 49 4D 42 4C 45 2C 43 4C 41 52 49 54 59 2C 41 |HIMBLE,CLARITY,A|
00002470: 4C 47 45 42 52 41 2C 50 48 41 53 45 00 C0 2C 08 |LGEBRA,PHASE..,.|
00002480: 07 83 20 54 48 49 53 54 4C 45 2C 4C 49 42 52 41 |.. THISTLE,LIBRA|
00002490: 52 59 2C 42 52 41 4E 43 48 2C 44 52 41 46 54 2C |RY,BRANCH,DRAFT,|
000024A0: 47 4E 41 54 2C 53 50 4F 55 53 45 2C 41 4E 53 57 |GNAT,SPOUSE,ANSW|
000024B0: 45 52 2C 57 48 41 4C 45 2C 45 58 43 4C 41 49 4D |ER,WHALE,EXCLAIM|
000024C0: 00 0B 2D 0D 07 83 20 53 50 4C 49 54 2C 53 48 41 |..-... SPLIT,SHA|
000024D0: 4C 45 2C 43 52 41 57 4C 2C 54 52 41 4D 50 2C 43 |LE,CRAWL,TRAMP,C|
000024E0: 4F 4D 4D 49 54 2C 56 45 52 49 46 59 2C 53 4C 49 |OMMIT,VERIFY,SLI|
000024F0: 47 48 54 2C 41 4E 43 48 4F 52 2C 50 4E 45 55 4D |GHT,ANCHOR,PNEUM|
00002500: 41 54 49 43 2C 43 52 55 54 43 48 00 2D 2D 12 07 |ATIC,CRUTCH.--..|
00002510: 83 20 54 52 41 46 46 49 43 2C 52 49 47 48 54 2C |. TRAFFIC,RIGHT,|
00002520: 43 4F 52 4E 45 52 2C 49 4D 50 41 43 54 00 4D 2D |CORNER,IMPACT.M-|
00002530: 17 07 83 20 53 55 52 46 41 43 45 2C 57 52 49 54 |... SURFACE,WRIT|
00002540: 45 2C 50 4F 57 45 52 2C 47 55 49 44 45 00 6F 2D |E,POWER,GUIDE.o-|
00002550: 1C 07 83 20 50 45 52 4D 49 54 2C 45 58 43 49 54 |... PERMIT,EXCIT|
00002560: 45 2C 56 41 4C 4C 45 59 2C 43 48 45 51 55 45 00 |E,VALLEY,CHEQUE.|
00002570: 8E 2D 21 07 83 20 4D 45 52 47 45 2C 52 4F 55 54 |.-!.. MERGE,ROUT|
00002580: 45 2C 44 41 4D 41 47 45 2C 43 41 4E 4F 45 00 AD |E,DAMAGE,CANOE..|
00002590: 2D 26 07 83 20 57 45 41 54 48 45 52 2C 53 41 49 |-&.. WEATHER,SAI|
000025A0: 4C 49 4E 47 2C 50 41 56 45 4D 45 4E 54 00 CB 2D |LING,PAVEMENT..-|
000025B0: 2B 07 83 20 54 48 45 41 54 52 45 2C 43 4F 4E 53 |+.. THEATRE,CONS|
000025C0: 4F 4C 45 2C 4A 4F 55 52 4E 41 4C 00 E9 2D 30 07 |OLE,JOURNAL..-0.|
000025D0: 83 20 4E 55 43 4C 45 55 53 2C 48 4F 52 49 5A 4F |. NUCLEUS,HORIZO|
000025E0: 4E 2C 54 52 49 47 47 45 52 00 06 2E 35 07 83 20 |N,TRIGGER...5.. |
000025F0: 53 54 4F 43 4B 2C 53 54 52 55 43 54 55 52 45 2C |STOCK,STRUCTURE,|
00002600: 42 49 4E 41 52 59 00 25 2E 3A 07 83 20 42 4F 55 |BINARY.%.:.. BOU|
00002610: 51 55 45 54 2C 45 4C 45 43 54 52 49 43 2C 4E 4F |QUET,ELECTRIC,NO|
00002620: 56 45 4C 54 59 00 47 2E 3F 07 83 20 45 4E 47 49 |VELTY.G.?.. ENGI|
00002630: 4E 45 2C 53 45 4C 45 43 54 2C 50 45 4E 43 49 4C |NE,SELECT,PENCIL|
00002640: 2C 54 48 52 45 41 54 00 68 2E 44 07 83 20 4F 56 |,THREAT.h.D.. OV|
00002650: 45 52 54 48 52 4F 57 2C 42 45 4C 49 45 56 45 2C |ERTHROW,BELIEVE,|
00002660: 53 59 4D 50 48 4F 4E 59 00 89 2E 49 07 83 20 51 |SYMPHONY...I.. Q|
00002670: 55 41 4C 49 54 59 2C 53 48 55 46 46 4C 45 2C 43 |UALITY,SHUFFLE,C|
00002680: 45 4C 4C 4F 50 48 41 4E 45 00 AD 2E 4E 07 83 20 |ELLOPHANE...N.. |
00002690: 4D 45 4D 4F 52 59 2C 42 45 43 4F 4D 45 2C 53 57 |MEMORY,BECOME,SW|
000026A0: 49 54 43 48 2C 4B 45 59 42 4F 41 52 44 00 F8 2E |ITCH,KEYBOARD...|
000026B0: 53 07 83 20 46 45 41 54 55 52 45 2C 50 41 53 53 |S.. FEATURE,PASS|
000026C0: 49 56 45 2C 44 49 53 50 4C 41 59 2C 53 4F 43 4B |IVE,DISPLAY,SOCK|
000026D0: 45 54 2C 42 52 49 44 47 45 2C 50 4C 41 54 49 4E |ET,BRIDGE,PLATIN|
000026E0: 55 4D 2C 54 48 45 52 4D 41 4C 2C 48 4F 42 42 59 |UM,THERMAL,HOBBY|
000026F0: 2C 53 50 45 43 49 41 4C 00 22 2F 58 07 83 20 4D |,SPECIAL."/X.. M|
00002700: 41 4E 55 41 4C 2C 43 4C 4F 53 45 2C 44 45 53 54 |ANUAL,CLOSE,DEST|
00002710: 52 4F 59 2C 50 52 49 4F 52 49 54 59 2C 53 43 4F |ROY,PRIORITY,SCO|
00002720: 50 45 00 6B 2F 5D 07 83 20 53 48 49 4E 45 2C 53 |PE.k/].. SHINE,S|
00002730: 4F 4C 49 44 2C 45 4E 54 45 52 54 41 49 4E 2C 4D |OLID,ENTERTAIN,M|
00002740: 4F 42 49 4C 45 2C 41 53 53 45 4D 42 4C 45 2C 53 |OBILE,ASSEMBLE,S|
00002750: 4B 49 4C 4C 2C 44 45 4C 49 56 45 52 2C 52 41 43 |KILL,DELIVER,RAC|
00002760: 51 55 45 54 2C 4F 42 4A 45 43 54 00 81 2F 62 07 |QUET,OBJECT../b.|
00002770: 83 20 48 41 4E 44 4C 45 2C 43 4F 4D 50 4C 45 54 |. HANDLE,COMPLET|
00002780: 45 00 9B 2F 67 07 83 20 42 49 4F 52 48 59 54 48 |E../g.. BIORHYTH|
00002790: 4D 2C 44 45 46 41 55 4C 54 45 52 00 B3 2F 6C 07 |M,DEFAULTER../l.|
000027A0: 8F 20 2A 2A 2A 20 46 49 4E 49 53 48 45 44 21 20 |. *** FINISHED! |
000027B0: 2A 2A 2A 00 B9 2F 71 07 8F 00 C3 2F 76 07 89 31 |***../q..../v..1|
000027C0: 34 30 30 00 EB 2F 7B 07 55 50 B2 31 3A 55 53 B2 |400../{.UP.1:US.|
000027D0: 22 31 32 33 34 35 2A 22 3A 55 4C B2 31 3A 8D 33 |"12345*":UL.1:.3|
000027E0: 35 3A 49 4F B2 C5 28 55 52 24 29 00 08 30 80 07 |5:IO..(UR$)..0..|
000027F0: 8B 20 49 4F 20 B3 20 31 20 B0 20 49 4F 20 B1 20 |. IO . 1 . IO . |
00002800: 35 20 89 20 31 39 31 35 00 11 30 85 07 82 20 47 |5 . 1915..0... G|
00002810: 50 00 1C 30 8A 07 89 20 31 34 31 35 00 36 30 8F |P..0... 1415.60.|
00002820: 07 8F 20 2A 2A 2A 20 44 52 41 57 20 56 49 43 54 |.. *** DRAW VICT|
00002830: 49 4D 20 2A 2A 2A 00 48 30 94 07 88 20 56 49 20 |IM ***.H0... VI |
00002840: B2 20 56 49 20 AA 20 31 00 80 30 99 07 91 20 56 |. VI . 1..0... V|
00002850: 49 20 89 20 31 39 35 30 2C 32 30 30 30 2C 32 30 |I . 1950,2000,20|
00002860: 31 30 2C 32 30 32 30 2C 32 30 33 30 2C 32 30 34 |10,2020,2030,204|
00002870: 30 2C 32 30 35 30 2C 32 30 36 30 2C 32 30 37 30 |0,2050,2060,2070|
00002880: 00 89 30 9A 07 99 3A 99 3A 00 9E 30 9E 07 99 20 |..0...:.:..0... |
00002890: 22 13 11 11 1D 1D 1D B0 C0 C0 C0 C0 C0 AE 00 AB |"...............|
000028A0: 30 A3 07 99 20 22 1D 1D 1D DD 22 00 B8 30 A8 07 |0... "...."..0..|
000028B0: 99 20 22 1D 1D 1D DD 22 00 C5 30 AD 07 99 20 22 |. "...."..0... "|
000028C0: 1D 1D 1D DD 22 00 D2 30 B2 07 99 20 22 1D 1D 1D |...."..0... "...|
000028D0: DD 22 00 DF 30 B7 07 99 20 22 1D 1D 1D DD 22 00 |."..0... "....".|
000028E0: F5 30 BC 07 99 20 22 B0 C0 C0 B1 C0 C0 C0 C0 C0 |.0... ".........|
000028F0: C0 C0 C0 C0 AE 00 0B 31 C1 07 99 20 22 DD 20 20 |.......1... ". |
00002900: 20 20 20 20 20 20 20 20 20 20 DD 00 21 31 C6 07 | ..!1..|
00002910: 99 20 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |. ".............|
00002920: BD 00 2C 31 CB 07 89 20 32 30 37 35 00 42 31 D0 |..,1... 2075.B1.|
00002930: 07 99 20 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 |.. "............|
00002940: D7 22 00 4D 31 D5 07 89 20 32 30 37 35 00 64 31 |.".M1... 2075.d1|
00002950: DA 07 99 20 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 |... "...........|
00002960: 11 11 DB 22 00 6F 31 DF 07 89 20 32 30 37 35 00 |...".o1... 2075.|
00002970: 85 31 E4 07 99 20 22 13 1D 1D 1D 1D 1D 1D 1D 1D |.1... ".........|
00002980: 11 11 11 C0 22 00 90 31 E9 07 89 20 32 30 37 35 |...."..1... 2075|
00002990: 00 A8 31 EE 07 99 20 22 13 1D 1D 1D 1D 1D 1D 1D |..1... "........|
000029A0: 1D 1D 1D 11 11 11 C0 22 00 B3 31 F3 07 89 20 32 |......."..1... 2|
000029B0: 30 37 35 00 CB 31 F8 07 99 20 22 13 1D 1D 1D 1D |075..1... ".....|
000029C0: 1D 1D 1D 1D 1D 11 11 11 11 DD 22 00 D6 31 FD 07 |.........."..1..|
000029D0: 89 20 32 30 37 35 00 EF 31 02 08 99 20 22 13 1D |. 2075..1... "..|
000029E0: 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 11 11 B1 22 00 |..............".|
000029F0: FA 31 07 08 89 20 32 30 37 35 00 15 32 0C 08 99 |.1... 2075..2...|
00002A00: 20 22 13 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 11 11 | "..............|
00002A10: B0 11 9D BD 22 00 20 32 11 08 89 20 32 30 37 35 |....". 2... 2075|
00002A20: 00 3D 32 16 08 99 20 22 13 1D 1D 1D 1D 1D 1D 1D |.=2... "........|
00002A30: 1D 1D 1D 11 11 11 11 11 AE 11 9D AD 22 00 43 32 |............".C2|
00002A40: 1B 08 8E 00 00 00 |...... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **......2.65.R.... **GENERAL INPUT
ROUTINE **...#.. +++ INPUT SECTION +++..
.(..UO,0:UR$."":UI$.""...*..UL.0.UL.80.
.-..UC,0.4.2..UI$:.UI$."".50.^.7..UI$.G(
13).C(UR$)..1..UC,1:." .";:.85.Q.<..UI$.
G(20).105...>.. C(UR$)..UL.50...A..120:.
CHECK FOR VALID CHARACTER...F.UR$.UR$.U
I$.D.K..UI$;.L.P..50...U.. +++ CHECK FOR
HELP REQUEST +++...Z..UR$.UX$.195:. EXI
T TO HELP ROUTINE.(._..UF.1..240.5.D.UF.
0:.:..N.F.. ++ CHECK DELETE ++._.I..C(UR
$).1.50.W.N.UR$.H(UR$,C(UR$).1)...S..".
..";:.50...X.. ++ CHECK FOR VALID CHARA
CTERS ++.B.}..C(US$).0.150.R..US$.US$.U
X$......US.1.C(US$)......UI$.J(US$,US,1)
.............UI$."":..(.... ** STANDARD
INPUT **.9....F(UI$).46...J....UI$.G(32)
...G. ..F(UI$).48.F(UI$).57.170.M.......
...F(UI$).65.F(UI$).90.180............F(
UI$).193.F(UI$).218.UI$."":..W....B(UT).
UU%.UI$.G(F(UI$).128):............UI$.""
:....C.UF.1:. +++ HELP ROUTINE EXIT +++.
..E..250.!.H..245.@.M..UQ.UB.(U2%.256.U1
%.U3%.2).\.R.UQ%(UQ.UB).B(UQ):.:.".".O.W
.UZ.1:UV%.B(UT).X.X..300...Y.UZ.0:US$.UJ
$:UG$.UK$:UP.UJ:UL.UK:.B(50003).0..53281
,6:.53280,14.....UT$.UL$:.".";:.UT,UV%:.
UQ.UB.(U2%.256.U1%.U3%.3)......UQ,UQ%(UQ
.UB):.......U1,U1%......U2,U2%.*....U4,U
4%.8....U3,U3%.1.@....35.R...UD%.((U2%.2
56.U1%.U3%).UB).40:.H(UD$,UD%.1):.......
H(UD$,24);" . HELP
COMING . ":..Y...U1%.B(U1):U2%.B(U2):U3
%.B(U3):U4%.B(U4).....UJ$.US$:UK$.UG$:UL
$.UT$:UJ.UP:UK.UL.........,.. ** MENU **
...-.:.M....".":.UT,UU%:.B(50003).0..532
81,9:.53280,8.S./.:.P.1..".
MENU"...6.." ------------------------
--------------"...;..".. 1. HANG
MAN 3"...@..".. 2. STUDENT INSTR
UCTIONS"...E..".. 3. TEACHER INS
TRUCTIONS".?.J..".. 4. MODIFICAT
ION OF PROGRAM".[.O..".. 5. QUIT
.."...T.." -----------------------------
---------"...Y..".. PRESS A NUMBER
KEY (1-5) ";...^.UL.1:US$."12345":.35:.
INPUT ROUTINE..._..C(UR$).1.300...`.US$
.""...C..E(UR$).1000,400,500,600,396.%.H
..300.L.... ** RE-ENABLE STOP KEY AND EN
D **.{....B(50003)..1.B(50003)..160.B(50
003)..0.399......UU.71:.B(50003).0..5328
1,6:.53280,14......"..":.......875:.....
.. ** STUDENT INSTRUCTIONS **......".":.
UT,UL%:.B(50003).0..53281,0:.53280,0.>..
.UT$." HANGMAN 3":UP.0:UG$."STUDENT INST
":.850.F.J..:..Y.L.. " WHEN THE COMPUTER
PRINTS .GUESS A LETTER."...N.. " TYPE I
N A LETTER THAT YOU THINK IS IN".Z.P.. "
. THE WORD REPRESENTED BY THE DASHES. YO
U"...R.. " WIN IF YOU FILL IN THE WORD B
EFORE YOUR".:.T.. " MAN IS HANGED. YOU L
OSE IF THE MAN IS".L.V.. ". HANGED.".~.X
..".. IF YOU WANT HELP TYPE '*' THEN RE
TURN."......835......UZ.1..UP%:.217.....
..B.... ** TEACHER INSTRUCTIONS **......
".":.UT,UL%:.B(50003).0..53281,2:.53280,
10.$...UT$." HANGMAN 3":UP.0:UG$."TEACHE
R INST":.850.R....".. TO THE BEST O
F OUR KNOWLEDGE,.".{...." THIS PROGRAM
IS IN THE PUBLIC."......" DOMAIN. IF
THIS IS NOT THE CASE.".D...." PLEASE
CONTACT:..."......" COMMODORE BUSIN
ESS MACHINES."......" 3370 PHAR
MACY AVE..5...." AGINCOURT, ONT
ARIO".W...." CANADA M1W 2K4".
W...." (416) 499-4292".....UP.1
:. 835:. 850:......" ..PROGRAM NAME:
HANGMAN 3..U...." WRITTEN BY : UNK
NOWN......." UPGRADED BY :
..$...." .THIS PROGRAM WILL RUN ON A
NY...K...." BASIC 2.0 PET COMPUT
ER..R...." BASIC 4.0 PET COMPUTE
R......." 8032 CBM COMPUTER.....
.." COMMODORE 64 COMPUTER.B....8
35.V.N..UZ.1..UP%:.217...W.....X.. ** PR
OGRAM MODIFICATION INST **...Y..".":.UT,
UL%.D.].UT$." HANGMAN 3":UP.0:UG$."PROGR
AM MOD":.850.P._..:.:.:..{.B.." IF YOU W
ISH TO CHANGE THE WORDS IN"...D.....G.."
THIS PROGRAM THEN LIST LINES 1765 TO"..
.H...V.L.." 1895 AND ENTER NEW WORDS."..
.Q..835......UZ.1..UP%:.217............
** TO USE 8032 LOAD CBM4032 **.T.F.."...
..BEFORE RUNNING THIS PROGRAM ON AN 8032
.....P.." LOAD THE 'CBM 4032' PRO
GRAM............."...Z..UU.71...........
. ** TO USE 8032 LOAD CBM4032 **......".
...BEFORE RUNNING THIS PROGRAM ON AN 803
2 ..LOAD CBM 4032 PROGRAM"......1093:..
7. .. ** T I T L E P A G E **.K.".."..
..";:.UT,UU%:.B(50003).0..53280,14:.5328
1,6...$..I.1.38:."...";:....&..I.1.22:."
.....";:....(..I.1.37:.".....";:..I.*..I
.1.22:.".....";:....,.."................
........... ......."...................
. . ...1.0.."................... . ..
..O.2..".................... ..W.4.."..
............C O M M O D O R E.....6.."..
.............EDUCATIONAL.....8..".......
.........SOFTWARE.T.:.. ** COMMODORE LOG
O **...;..H(UD$,24);"..........PRESS SPA
CE BAR OR WAIT.":I.0...<..A$:.A$.." ".I.
I.1:.I.250.828.R.>.T1$."":T2$."":T3$."":
T4$."":I.0.[.@..300.W.C.. ** SPACE BAR P
RESS **...H..UO,0:.H(UD$,24);".......PRE
SS SPACE BAR TO CONTINUE.".I.L..UI$:.UI$
.." ".844.O.N.....R.. ** PAGE DESIGN ROU
TINE **...T.UP.UP.1.%.W.."."H(UT$.UP$,21
);I(UP$.UG$.D(UP),18).T.\.." -----------
---------------------------".C.`..UH..0.
870...A..H(UD$,24);H(UP$,7);"HELP - PRES
S * <RETURN>"...F..UO,0:."..":..H.K..
** PLEASE WAIT REMARK **...P..H(UD$,24);
" ONE MOMENT PLEASE... "..
.U...!.... ** SET UP VARIABLES **.L...UX
$."*":.UQ%(1000):UB.32768:U1.196:U2.197:
U3.198:U4.216:UC.167:UU.1024.....UT.5946
8:UU%.12:UL%.14:UP%.1146:UM.32768:UO.158
:. 50003,0......B(50003).0.UB.1024:U1.20
9:U2.210:U3.211:U4.214:UC.204:UU.2048.,.
...B(50003).0.UT.53272:UU%.21:UL%.23:UP%
.2139:UM.1024:UO.198.P...UD$."..........
...............".....UP$."
".....UT$." HAN
GMAN 3":. PROGRAM TITLE.......G.... ** S
ET VARIABLES **.P....900.V...:.....:....
.. ** CHECK FOR 8032 **......".":." ":.
SHIFTED SPACE.,....B(UB.40)..96..700.E..
.. ** MEMORY CHECK **.Y.... .(0).2000.93
7......"....THIS MACHINE DOES NOT HAVE E
NOUGH."......"MEMORY TO RUN THIS PROGRAM
!"......UU.71.......V...."..":.B(50003)
.0.962...... ** BASIC 2.0 OR 4.0 OR
C-64 SETUP **.C....1075,133:.1076,144:.1
077,234:.1079,4:.1080,133:.1081,145.Y...
.1091,155:.1098,133:.1099,144:.1100,234:
.1103,133......1104,145:.1105,234:.1082,
234......B(50003)..160.955......1093,88:
.1094,228:.1097,85:.1102,228:.965......B
(50003)..1.990.% ...1093,49:.1094,230:.1
097,46:.1102,230:.965._ B..2099,141:.210
0,20:.2101,3:.2103,8:.2104,141:.2105,21.
. C..2106,3:.2115,145:.2117,52:.2118,234
:.2121,49:.2122,141.U D..2123,20:.2124,3
:.2126,234:.2127,141:.2128,21:.2129,3..
E..UU.48:. DISABLE STOP KEY..!J..800:. T
ITLE..!T..300:. MENU.E!...".THE PGM WILL
NOT WORK ON THIS MACHINE!":..Z!...UZ.1.
.UP%:.UP%:UZ.0:. ** PROGRAM STARTS HERE
**..!..."..";:.:.B(50003).0..53281,6:.53
280,14..!..UP.0:UG$."":UT$." HANGMAN 3":
.".":.850:.D.0. .C$(20):D.1..!...".".."F
.. "............ENTER WORD SET DESIRED (
1-5) ";.B"U.UP.1:US$."12345*":. 35:WS$.U
R$.B"Z.. WS$ ."0" . WS$ ."6". 1380.M"_..
1365.."D.. WS . (E(WS$).1).20.."I.. WT
. 1 . WS.."N.. V$.."S.. WT:UG$."GUESS:".
."X.. ".":.850:.". ENTER DIFFICULTY FACT
OR (1-5) "..#}.."....... 1 EASIEST":.".
...":.".... 2":." .".X#...".... 3":.".
...":.".... 4":." .":." . 5 HARDEST"
..#...".................................
...........";..#..UP.1:US$."*12345":. 35
:IO$.UR$:IO.E(IO$).V#... WS.1 . 20:.C$(W
S):.WS..#... GP . 1 . 20..$... RN . .(.(
1).20).1..$... C$(RN)."0". 1430.2$ .. A$
.C$(RN):C$(RN)."0".G$... ".":UP.0:. 850.
T$... VI . 0.F$... IT . 1 . IO.Q$... 193
5.Z$... IT..$... A . C(A$)..$C.. AM.0..$
H.. E.0:MM.0:FI.0..$M.. I.1. A.L$R.. B$(
I).J(A$,I,1).T$W.. I..$... I.1. A..$..."
.....";.(2.I).16);"."..%... I.+%..."....
..........USED LETTERS: ";.B%... UL . 1
. ( 9.IO).N%... ". ";.W%... UL..%..UG$.
"GUESS:":."."H(UT$.UP$,21);I(UP$.UG$.D(U
P),18).E%..." --------------------------
------------":UP.UP.1..&...865:.".......
......................... ..............
".+&...".................GUESS A LETTE
R.".W&..."..............................
.. .";.A&... V.0..&..US$."ABCDEFGHIJKLM
NOPQRSTUVWXYZ*":UL.1:.35:Z$.UR$..&... Z$
."" . 1535..&... I.1. A.M&... Z$..B$(I).
1615..&".. Z$." " . 1615..''..PRINT "..
......................CORRECT GUESS
".7',..".....";.(2.I).16);B$(I).M'1.. B$
(I)." ". 1615.]'6.. B$(I)." ".K';.. MM.M
M.1.}'@.. MM.A .1685..'E.. V.1..'J.. 16
15..'O.. I..'T.. V.1 .1630..'Y.. 1640.M'
^..FORK=1TO1000:NEXTK.W'C..1535..(H.."..
..............................INCORRECT
GUESS"..(M..QQ.1.1000:..V(R.."..........
...................... ".A
(W..E.E.1..(|..".................";.((E.
1).2).16);Z$..(... 1935..(... E. ( 9.IO)
. 1725.H(...FOR I=1TO1000:NEXTI.S(... 1
535..(...".........* YOU WIN! *"..)...83
5:UG$."":.850.C)..."... WANT TO PLAY AGA
IN? ";:UP.1:US$."YN":.35:.UR$."N"...T)..
. "..........NEW DIFFICULTY FACTOR (N/Y)
? ";..)..US$."YN":UL.1:.35:Q$.UR$..)...
Q$ . "Y" . 1905..)... Q$ . "N" . . 1715.
J)... 1695.S)... GP..)... 1415..)..."...
......* YOU HANG *"..*B....*G.. ".......
.......THE WORD WAS ";A$:.1686._*L.."...
.........NEW DIFFICULTY FACTOR (N/Y)?";.
.*M.."..................................
.........";..*Q.UP.1:US$."YN":UL.1:.35:Q
$.UR$.K*V.. Q$ . "Y" . 1905..*... Q$ . "
N" . . 1715..*... 1745.4+... NEXT,INTERE
ST,LYNX,LANGUAGE,ASYLUM,FREEZE,LIMIT,SCH
OOL,RIDICULE.Y+... COMPUTER,COMMENT,TOPI
C,WEIRD,BORING,USEFUL,PRESS,FORGET,SIMPL
E..+... READY,QUESTION,REPEAT,EXTEND,SOC
IETY,INVENTION.O+... WATER,BRAKE,SAFETY,
WORSHIP..+... PLANE,SCIENCE,BATTERY.5,..
. OBSCURE,SUFFICE,PRISM,VISUAL,FACETIOUS
,IMPROVE,CONTRARY,STUDY,REALM.|,... FRAU
D,CLERK,JUSTIFY,CHRISTEN,THUMB,THIMBLE,C
LARITY,ALGEBRA,PHASE..,... THISTLE,LIBRA
RY,BRANCH,DRAFT,GNAT,SPOUSE,ANSWER,WHALE
,EXCLAIM..-... SPLIT,SHALE,CRAWL,TRAMP,C
OMMIT,VERIFY,SLIGHT,ANCHOR,PNEUMATIC,CRU
TCH.--... TRAFFIC,RIGHT,CORNER,IMPACT.M-
... SURFACE,WRITE,POWER,GUIDE.O-... PERM
IT,EXCITE,VALLEY,CHEQUE..-!.. MERGE,ROUT
E,DAMAGE,CANOE..-&.. WEATHER,SAILING,PAV
EMENT.K-+.. THEATRE,CONSOLE,JOURNAL..-0.
. NUCLEUS,HORIZON,TRIGGER...5.. STOCK,ST
RUCTURE,BINARY.%.:.. BOUQUET,ELECTRIC,NO
VELTY.G.?.. ENGINE,SELECT,PENCIL,THREAT.
H.D.. OVERTHROW,BELIEVE,SYMPHONY...I.. Q
UALITY,SHUFFLE,CELLOPHANE...N.. MEMORY,B
ECOME,SWITCH,KEYBOARD...S.. FEATURE,PASS
IVE,DISPLAY,SOCKET,BRIDGE,PLATINUM,THERM
AL,HOBBY,SPECIAL."/X.. MANUAL,CLOSE,DEST
ROY,PRIORITY,SCOPE.K/].. SHINE,SOLID,ENT
ERTAIN,MOBILE,ASSEMBLE,SKILL,DELIVER,RAC
QUET,OBJECT../B.. HANDLE,COMPLETE../G..
BIORHYTHM,DEFAULTER../L.. *** FINISHED!
***../Q...C/V..1400../{.UP.1:US."12345*"
:UL.1:.35:IO.E(UR$)..0... IO . 1 . IO .
5 . 1915..0... GP..0... 1415.60... *** D
RAW VICTIM ***.H0... VI . VI . 1..0... V
I . 1950,2000,2010,2020,2030,2040,2050,2
060,2070..0...:.:..0... "...............
0... "...."..0... "....".E0... "....".R0
... "...."..0... "...."..0... ".........
.......1A.. ". ..!1F.. ".....
..........,1K.. 2075.B1P.. "............
W".M1U.. 2075.D1Z.. "..............".O1.
.. 2075..1... "............."..1... 2075
..1... "..............."..1... 2075.K1..
. "...............".V1... 2075..1... "..
.............."..1... 2075..2... "......
............". 2... 2075.=2... "........
............".C2......
> CLICK IMAGE PREVIEW FOR FULL MODAL