HANGMAN 3.C2
FILE INFORMATION
FILENAME(S): HANGMAN 3.C2
FILE TYPE(S): PRG
FILE SIZE: 10.5K
FIRST SEEN: 2025-10-19 22:35:46
APPEARS ON: 1 disk(s)
FILE HASH
da5eaa837d263dd3d3cafe4ab5ad27a0a6bb8adec44bc9ae59efa19c4adca357
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| !! | HANGMAN 3.C2 | PRG | Radd Maxx | 5 | 0 | 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 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 29 09 2D 00 99 22 20 20 9D |.UL.80.).-.." .|
00000120: 9D 22 3B 3A 97 55 43 2C 30 00 3D 09 32 00 A1 55 |.";:.UC,0.=.2..U|
00000130: 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 67 09 |I$:.UI$."".50.g.|
00000140: 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 28 55 |7..UI$..(13)..(U|
00000150: 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 22 20 |R$)..1..UC,1:." |
00000160: 9D 22 3B 3A 89 38 35 00 7A 09 3C 00 8B 55 49 24 |.";:.85.z.<..UI$|
00000170: B2 C7 28 32 30 29 A7 31 30 35 00 8E 09 3E 00 8B |..(20).105...>..|
00000180: 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 00 B3 | .(UR$)..UL.50..|
00000190: 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 4B 20 |.A..120:. CHECK |
000001A0: 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 |FOR VALID CHARAC|
000001B0: 54 45 52 00 C3 09 46 00 55 52 24 B2 55 52 24 AA |TER...F.UR$.UR$.|
000001C0: 55 49 24 00 CD 09 4B 00 99 55 49 24 3B 00 D5 09 |UI$...K..UI$;...|
000001D0: 50 00 89 35 30 00 FA 09 55 00 8F 20 2B 2B 2B 20 |P..50...U.. +++ |
000001E0: 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 20 52 |CHECK FOR HELP R|
000001F0: 45 51 55 45 53 54 20 2B 2B 2B 00 22 0A 5A 00 8B |EQUEST +++.".Z..|
00000200: 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 45 58 |UR$.UX$.195:. EX|
00000210: 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 54 49 |IT TO HELP ROUTI|
00000220: 4E 45 00 31 0A 5F 00 8B 55 46 B2 31 A7 8D 32 34 |NE.1._..UF.1..24|
00000230: 30 00 3E 0A 64 00 55 46 B2 30 3A 99 3A 8E 00 57 |0.>.d.UF.0:.:..W|
00000240: 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 44 45 |.f.. ++ CHECK DE|
00000250: 4C 45 54 45 20 2B 2B 00 68 0A 69 00 8B C3 28 55 |LETE ++.h.i...(U|
00000260: 52 24 29 B3 31 A7 35 30 00 80 0A 6E 00 55 52 24 |R$).1.50...n.UR$|
00000270: B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB 31 29 |..(UR$,.(UR$).1)|
00000280: 00 92 0A 73 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 |...s..". ..";:.|
00000290: 35 30 00 B9 0A 78 00 8F 20 2B 2B 20 43 48 45 43 |50...x.. ++ CHEC|
000002A0: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR|
000002B0: 41 43 54 45 52 53 20 2B 2B 00 CB 0A 7D 00 8B C3 |ACTERS ++...}...|
000002C0: 28 55 53 24 29 B2 30 A7 31 35 30 00 DB 0A 7F 00 |(US$).0.150.....|
000002D0: 55 53 24 B2 55 53 24 AA 55 58 24 00 EC 0A 82 00 |US$.US$.UX$.....|
000002E0: 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 03 0B 87 |.US.1..(US$)....|
000002F0: 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 2C 31 |..UI$..(US$,US,1|
00000300: 29 A7 8E 00 09 0B 8C 00 82 00 16 0B 91 00 55 49 |).............UI|
00000310: 24 B2 22 22 3A 8E 00 31 0B 96 00 8F 20 2A 2A 20 |$."":..1.... ** |
00000320: 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 20 2A |STANDARD INPUT *|
00000330: 2A 00 42 0B 98 00 8B C6 28 55 49 24 29 B2 34 36 |*.B.....(UI$).46|
00000340: A7 8E 00 53 0B 9B 00 8B 55 49 24 B2 C7 28 33 32 |...S....UI$..(32|
00000350: 29 A7 8E 00 70 0B A0 00 8B C6 28 55 49 24 29 B3 |)...p.....(UI$).|
00000360: 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 37 30 |48..(UI$).57.170|
00000370: 00 76 0B A5 00 8E 00 93 0B AA 00 8B C6 28 55 49 |.v...........(UI|
00000380: 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 30 A7 |$).65..(UI$).90.|
00000390: 31 38 30 00 99 0B AF 00 8E 00 BD 0B B4 00 8B C6 |180.............|
000003A0: 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 24 29 |(UI$).193..(UI$)|
000003B0: B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 E0 0B |.218.UI$."":....|
000003C0: B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 55 49 24 |....(UT).UU%.UI$|
000003D0: B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 3A 8E |..(.(UI$).128):.|
000003E0: 00 E6 0B BB 00 8E 00 F3 0B BE 00 55 49 24 B2 22 |...........UI$."|
000003F0: 22 3A 8E 00 18 0C C3 00 55 46 B2 31 3A 8F 20 2B |":......UF.1:. +|
00000400: 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 |++ HELP ROUTINE |
00000410: 45 58 49 54 20 2B 2B 2B 00 21 0C C5 00 8D 32 35 |EXIT +++.!....25|
00000420: 30 00 2A 0C C8 00 8D 32 34 35 00 49 0C CD 00 81 |0.*....245.I....|
00000430: 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 |UQ.UB.(U2%.256.U|
00000440: 31 25 AA 55 33 25 AB 32 29 00 65 0C D2 00 55 51 |1%.U3%.2).e...UQ|
00000450: 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 |%(UQ.UB)..(UQ):.|
00000460: 3A 99 22 93 22 00 78 0C D7 00 55 5A B2 31 3A 55 |:.".".x...UZ.1:U|
00000470: 56 25 B2 C2 28 55 54 29 00 81 0C D8 00 89 33 30 |V%..(UT)......30|
00000480: 30 00 A6 0C D9 00 55 5A B2 30 3A 55 53 24 B2 55 |0.....UZ.0:US$.U|
00000490: 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A |J$:UG$.UK$:UP.UJ|
000004A0: 3A 55 4C B2 55 4B 00 DD 0C DA 00 8B C2 28 35 30 |:UL.UK.......(50|
000004B0: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 31 3A |003).0..53281,1:|
000004C0: 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 3A 97 |.".";:.53281,6:.|
000004D0: 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 E7 0C |53280,14:.220...|
000004E0: DB 00 99 22 93 22 3B 00 16 0D DC 00 55 54 24 B2 |...".";.....UT$.|
000004F0: 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 |UL$:.UT,UV%:.UQ.|
00000500: 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA |UB.(U2%.256.U1%.|
00000510: 55 33 25 AB 33 29 00 2B 0D E1 00 97 55 51 2C 55 |U3%.3).+....UQ,U|
00000520: 51 25 28 55 51 AB 55 42 29 3A 82 00 37 0D E6 00 |Q%(UQ.UB):..7...|
00000530: 97 55 31 2C 55 31 25 00 43 0D E8 00 97 55 32 2C |.U1,U1%.C....U2,|
00000540: 55 32 25 00 4F 0D E9 00 97 55 34 2C 55 34 25 00 |U2%.O....U4,U4%.|
00000550: 5D 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 65 0D |]....U3,U3%.1.e.|
00000560: EB 00 89 33 35 00 97 0D F0 00 55 44 25 B2 28 28 |...35.....UD%.((|
00000570: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 29 |U2%.256.U1%.U3%)|
00000580: AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 |.UB).40:..(UD$,U|
00000590: 44 25 AA 31 29 3A 8E 00 D2 0D F5 00 99 C8 28 55 |D%.1):........(U|
000005A0: 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 |D$,24);" |
000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 20 | . |
000005C0: 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 |HELP COMING . "|
000005D0: 3A 8E 00 FE 0D FA 00 55 31 25 B2 C2 28 55 31 29 |:......U1%..(U1)|
000005E0: 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 |:U2%..(U2):U3%..|
000005F0: 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 26 |(U3):U4%..(U4).&|
00000600: 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 |...UJ$.US$:UK$.U|
00000610: 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 |G$:UL$.UT$:UJ.UP|
00000620: 3A 55 4B B2 55 4C 00 2C 0E FF 00 8E 00 3D 0E 2C |:UK.UL.,.....=.,|
00000630: 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 43 0E |.. ** MENU **.C.|
00000640: 2D 01 3A 00 72 0E 2E 01 99 22 93 22 3A 97 55 54 |-.:.r....".":.UT|
00000650: 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UU%:..(50003).0|
00000660: A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 38 30 |..53281,9:.53280|
00000670: 2C 38 00 78 0E 2F 01 3A 00 95 0E 31 01 99 22 13 |,8.x./.:...1..".|
00000680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000690: 4D 45 4E 55 22 00 C4 0E 36 01 99 22 20 2D 2D 2D |MENU"...6.." ---|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006C0: 2D 2D 2D 22 00 E3 0E 3B 01 99 22 11 11 20 20 20 |---"...;..".. |
000006D0: 20 20 20 20 31 2E 20 20 20 48 41 4E 47 4D 41 4E | 1. HANGMAN|
000006E0: 20 33 22 00 0D 0F 40 01 99 22 11 11 20 20 20 20 | 3"...@..".. |
000006F0: 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E 54 20 | 2. STUDENT |
00000700: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 37 0F |INSTRUCTIONS".7.|
00000710: 45 01 99 22 11 11 20 20 20 20 20 20 20 33 2E 20 |E..".. 3. |
00000720: 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 | TEACHER INSTRU|
00000730: 43 54 49 4F 4E 53 22 00 64 0F 4A 01 99 22 11 11 |CTIONS".d.J.."..|
00000740: 20 20 20 20 20 20 20 34 2E 20 20 20 4D 4F 44 49 | 4. MODI|
00000750: 46 49 43 41 54 49 4F 4E 20 4F 46 20 50 52 4F 47 |FICATION OF PROG|
00000760: 52 41 4D 22 00 80 0F 4F 01 99 22 11 11 20 20 20 |RAM"...O..".. |
00000770: 20 20 20 20 35 2E 20 20 20 51 55 49 54 11 11 22 | 5. QUIT.."|
00000780: 00 AF 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |...T.." --------|
00000790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
000007B0: DA 0F 59 01 99 22 11 11 20 20 20 20 20 20 20 50 |..Y..".. P|
000007C0: 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 |RESS A NUMBER KE|
000007D0: 59 20 28 31 2D 35 29 20 22 3B 00 03 10 5E 01 55 |Y (1-5) ";...^.U|
000007E0: 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 35 22 3A |L.1:US$."12345":|
000007F0: 8D 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 |.35:. INPUT ROUT|
00000800: 49 4E 45 00 15 10 5F 01 8B C3 28 55 52 24 29 B1 |INE..._...(UR$).|
00000810: 31 A7 33 30 30 00 20 10 60 01 55 53 24 B2 22 22 |1.300. .`.US$.""|
00000820: 00 41 10 63 01 91 C5 28 55 52 24 29 8D 31 30 30 |.A.c...(UR$).100|
00000830: 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 2C 33 39 |0,400,500,600,39|
00000840: 36 00 4A 10 68 01 89 33 30 30 00 71 10 8B 01 8F |6.J.h..300.q....|
00000850: 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 | ** RE-ENABLE ST|
00000860: 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A |OP KEY AND END *|
00000870: 2A 00 A0 10 8C 01 8B C2 28 35 30 30 30 33 29 B3 |*.......(50003).|
00000880: B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |.1..(50003)..160|
00000890: AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 |..(50003)..0.399|
000008A0: 00 CA 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 |......UU.71:..(5|
000008B0: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 |0003).0..53281,6|
000008C0: 3A 97 35 33 32 38 30 2C 31 34 00 D6 10 8E 01 99 |:.53280,14......|
000008D0: 22 9A 93 22 3A 80 00 E1 10 8F 01 8D 38 37 35 3A |"..":.......875:|
000008E0: 8E 00 02 11 90 01 8F 20 2A 2A 20 53 54 55 44 45 |....... ** STUDE|
000008F0: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |NT INSTRUCTIONS |
00000900: 2A 2A 00 31 11 95 01 99 22 93 22 3A 97 55 54 2C |**.1....".":.UT,|
00000910: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.|
00000920: 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C |.53281,0:.53280,|
00000930: 30 00 63 11 9A 01 55 54 24 B2 22 20 C8 C1 CE C7 |0.c...UT$." ....|
00000940: CD C1 CE 20 33 22 3A 55 50 B2 30 3A 55 47 24 B2 |... 3":UP.0:UG$.|
00000950: 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D |".TUDENT .NST":.|
00000960: 38 35 30 00 6B 11 CA 01 99 3A 99 00 9E 11 CC 01 |850.k....:......|
00000970: 99 20 22 20 D7 48 45 4E 20 54 48 45 20 43 4F 4D |. " .HEN THE COM|
00000980: 50 55 54 45 52 20 50 52 49 4E 54 53 20 12 47 55 |PUTER PRINTS .GU|
00000990: 45 53 53 20 41 20 4C 45 54 54 45 52 92 22 00 CD |ESS A LETTER."..|
000009A0: 11 CE 01 99 20 22 20 54 59 50 45 20 49 4E 20 41 |.... " TYPE IN A|
000009B0: 20 4C 45 54 54 45 52 20 54 48 41 54 20 59 4F 55 | LETTER THAT YOU|
000009C0: 20 54 48 49 4E 4B 20 49 53 20 49 4E 22 00 FF 11 | THINK IS IN"...|
000009D0: D0 01 99 20 22 11 20 54 48 45 20 57 4F 52 44 20 |... ". THE WORD |
000009E0: 52 45 50 52 45 53 45 4E 54 45 44 20 42 59 20 54 |REPRESENTED BY T|
000009F0: 48 45 20 44 41 53 48 45 53 2E 20 D9 4F 55 22 00 |HE DASHES. .OU".|
00000A00: 30 12 D2 01 99 20 22 20 57 49 4E 20 49 46 20 59 |0.... " WIN IF Y|
00000A10: 4F 55 20 46 49 4C 4C 20 49 4E 20 54 48 45 20 57 |OU FILL IN THE W|
00000A20: 4F 52 44 20 42 45 46 4F 52 45 20 59 4F 55 52 22 |ORD BEFORE YOUR"|
00000A30: 00 5F 12 D4 01 99 20 22 20 4D 41 4E 20 49 53 20 |._.... " MAN IS |
00000A40: 48 41 4E 47 45 44 2E 20 D9 4F 55 20 4C 4F 53 45 |HANGED. .OU LOSE|
00000A50: 20 49 46 20 54 48 45 20 4D 41 4E 20 49 53 22 00 | IF THE MAN IS".|
00000A60: 71 12 D6 01 99 20 22 11 20 48 41 4E 47 45 44 2E |q.... ". HANGED.|
00000A70: 22 00 A3 12 D8 01 99 22 11 11 20 20 C9 46 20 59 |"......".. .F Y|
00000A80: 4F 55 20 57 41 4E 54 20 48 45 4C 50 20 54 59 50 |OU WANT HELP TYP|
00000A90: 45 20 27 2A 27 20 54 48 45 4E 20 52 45 54 55 52 |E '*' THEN RETUR|
00000AA0: 4E 2E 22 00 AC 12 E5 01 8D 38 33 35 00 C0 12 EA |N."......835....|
00000AB0: 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 |..UZ.1..UP%:.217|
00000AC0: 00 C6 12 F3 01 8E 00 E7 12 F4 01 8F 20 2A 2A 20 |............ ** |
00000AD0: 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 |TEACHER INSTRUCT|
00000AE0: 49 4F 4E 53 20 2A 2A 00 17 13 F5 01 99 22 93 22 |IONS **......"."|
00000AF0: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000|
00000B00: 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 |3).0..53281,2:.5|
00000B10: 33 32 38 30 2C 31 30 00 49 13 F6 01 55 54 24 B2 |3280,10.I...UT$.|
00000B20: 22 20 C8 C1 CE C7 CD C1 CE 20 33 22 3A 55 50 B2 |" ....... 3":UP.|
00000B30: 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 |0:UG$.".EACHER .|
00000B40: 4E 53 54 22 3A 8D 38 35 30 00 77 13 F7 01 99 22 |NST":.850.w...."|
00000B50: 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 |.. .O THE B|
00000B60: 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C |EST OF OUR KNOWL|
00000B70: 45 44 47 45 2C 11 22 00 A0 13 F8 01 99 22 20 20 |EDGE,."......" |
00000B80: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 | THIS PROGRAM IS|
00000B90: 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 | IN THE PUBLIC."|
00000BA0: 00 CC 13 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E |......" DOMAIN|
00000BB0: 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F |. .F THIS IS NO|
00000BC0: 54 20 54 48 45 20 43 41 53 45 11 22 00 E9 13 FA |T THE CASE."....|
00000BD0: 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E |.." PLEASE CON|
00000BE0: 54 41 43 54 3A 11 11 11 22 00 13 14 FB 01 99 22 |TACT:..."......"|
00000BF0: 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 | .OMMODORE |
00000C00: C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 |.USINESS .ACHINE|
00000C10: 53 11 22 00 36 14 FC 01 99 22 20 20 20 20 20 20 |S.".6...." |
00000C20: 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 | 3370 .HARMAC|
00000C30: 59 20 C1 56 45 2E 00 5A 14 FD 01 99 22 20 20 20 |Y .VE..Z...." |
00000C40: 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 | .GINCOURT|
00000C50: 2C 20 CF 4E 54 41 52 49 4F 22 00 7C 14 FE 01 99 |, .NTARIO".|....|
00000C60: 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 |" .ANAD|
00000C70: 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 9C 14 FF |A .1. 2.4"....|
00000C80: 01 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 |.." (41|
00000C90: 36 29 20 34 39 39 2D 34 32 39 32 22 00 B2 14 00 |6) 499-4292"....|
00000CA0: 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 |.UP.1:. 835:. 85|
00000CB0: 30 3A 00 D8 14 01 02 99 22 20 20 20 20 20 11 11 |0:......" ..|
00000CC0: D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 C8 41 |.ROGRAM .AME: .A|
00000CD0: 4E 47 4D 41 4E 20 33 11 00 FA 14 02 02 99 22 20 |NGMAN 3......." |
00000CE0: 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 | .RITTEN .Y |
00000CF0: 3A 20 D5 4E 4B 4E 4F 57 4E 11 00 1E 15 03 02 99 |: .NKNOWN.......|
00000D00: 22 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 C2 |" .PGRADED .|
00000D10: 59 20 3A 20 20 20 20 20 20 20 20 20 20 11 00 49 |Y : ..I|
00000D20: 15 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 |...." ..HIS |
00000D30: 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E |PROGRAM WILL RUN|
00000D40: 20 4F 4E 20 41 4E 59 11 11 00 69 15 07 02 99 22 | ON ANY...i...."|
00000D50: 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 | ... 64 |
00000D60: C3 CF CD D0 D5 D4 C5 D2 11 00 8E 15 08 02 99 22 |..............."|
00000D70: 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF | .......|
00000D80: D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 97 |.. 64 ..........|
00000D90: 15 09 02 8D 38 33 35 00 AB 15 4E 02 8B 55 5A B2 |....835...N..UZ.|
00000DA0: 31 A7 9E 55 50 25 3A 89 32 31 37 00 B1 15 57 02 |1..UP%:.217...W.|
00000DB0: 8E 00 D7 15 58 02 8F 20 2A 2A 20 50 52 4F 47 52 |....X.. ** PROGR|
00000DC0: 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 |AM MODIFICATION |
00000DD0: 49 4E 53 54 20 2A 2A 00 E8 15 59 02 99 22 93 22 |INST **...Y.."."|
00000DE0: 3A 97 55 54 2C 55 4C 25 00 19 16 5D 02 55 54 24 |:.UT,UL%...].UT$|
00000DF0: B2 22 20 C8 C1 CE C7 CD C1 CE 20 33 22 3A 55 50 |." ....... 3":UP|
00000E00: B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 |.0:UG$.".ROGRAM |
00000E10: CD 4F 44 22 3A 8D 38 35 30 00 25 16 5F 02 99 3A |.OD":.850.%._..:|
00000E20: 99 3A 99 3A 99 00 50 16 62 02 99 22 20 C9 46 20 |.:.:..P.b.." .F |
00000E30: 59 4F 55 20 57 49 53 48 20 54 4F 20 43 48 41 4E |YOU WISH TO CHAN|
00000E40: 47 45 20 54 48 45 20 57 4F 52 44 53 20 49 4E 22 |GE THE WORDS IN"|
00000E50: 00 56 16 64 02 99 00 83 16 67 02 99 22 20 54 48 |.V.d.....g.." TH|
00000E60: 49 53 20 50 52 4F 47 52 41 4D 20 54 48 45 4E 20 |IS PROGRAM THEN |
00000E70: 4C 49 53 54 20 4C 49 4E 45 53 20 31 37 36 35 20 |LIST LINES 1765 |
00000E80: 54 4F 22 00 89 16 68 02 99 00 AB 16 6C 02 99 22 |TO"...h.....l.."|
00000E90: 20 31 38 39 35 20 41 4E 44 20 45 4E 54 45 52 20 | 1895 AND ENTER |
00000EA0: 4E 45 57 20 57 4F 52 44 53 2E 22 00 B4 16 71 02 |NEW WORDS."...q.|
00000EB0: 8D 38 33 35 00 C8 16 B2 02 8B 55 5A B2 31 A7 9E |.835......UZ.1..|
00000EC0: 55 50 25 3A 89 32 31 37 00 CE 16 BB 02 8E 00 F3 |UP%:.217........|
00000ED0: 16 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 |.... ** TO USE 8|
00000EE0: 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 |032 LOAD CBM4032|
00000EF0: 20 2A 2A 00 29 17 C6 02 99 22 93 11 11 11 05 42 | **.)....".....B|
00000F00: 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 |EFORE RUNNING TH|
00000F10: 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E |IS PROGRAM ON AN|
00000F20: 20 38 30 33 32 20 20 11 11 00 5F 17 D0 02 99 22 | 8032 ..._...."|
00000F30: 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 | LOAD THE '|
00000F40: 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 |CBM 4032' PROGRA|
00000F50: 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |M.............".|
00000F60: 6A 17 DA 02 9E 55 55 AA 37 31 00 70 17 E4 02 80 |j....UU.71.p....|
00000F70: 00 95 17 1D 03 8F 20 2A 2A 20 54 4F 20 55 53 45 |...... ** TO USE|
00000F80: 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 | 8032 LOAD CBM40|
00000F90: 33 32 20 2A 2A 00 E0 17 1E 03 99 22 93 11 11 11 |32 **......"....|
00000FA0: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T|
00000FB0: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A|
00000FC0: 4E 20 38 30 33 32 20 20 11 11 4C 4F 41 44 20 43 |N 8032 ..LOAD C|
00000FD0: 42 4D 20 34 30 33 32 20 50 52 4F 47 52 41 4D 22 |BM 4032 PROGRAM"|
00000FE0: 00 EC 17 1F 03 9E 31 30 39 33 3A 80 00 0C 18 20 |......1093:.... |
00000FF0: 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 |.. ** T I T L E |
00001000: 20 20 50 20 41 20 47 20 45 20 2A 2A 00 40 18 22 | P A G E **.@."|
00001010: 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 |.."....";:.UT,UU|
00001020: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00001030: 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 |3280,14:.53281,6|
00001040: 00 56 18 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 |.V.$..I.1.38:.".|
00001050: A6 92 22 3B 3A 82 00 6E 18 26 03 81 49 B2 31 A4 |..";:..n.&..I.1.|
00001060: 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 86 |22:.".....";:...|
00001070: 18 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 |.(..I.1.37:."...|
00001080: A6 92 22 3B 3A 82 00 9E 18 2A 03 81 49 B2 31 A4 |..";:....*..I.1.|
00001090: 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 C3 |22:.".....";:...|
000010A0: 18 2C 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D |.,.."...........|
000010B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 |................|
000010C0: 20 20 92 00 E5 18 2E 03 99 22 1D 1D 1D 1D 1D 1D | ......."......|
000010D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 |............. . |
000010E0: 20 12 20 92 A9 00 06 19 30 03 99 22 1D 1D 1D 1D | . .....0.."....|
000010F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 |............... |
00001100: 92 20 20 12 A3 DF 00 24 19 32 03 99 22 1D 1D 1D |. ....$.2.."...|
00001110: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF |................|
00001120: 12 20 20 92 00 4C 19 34 03 99 22 11 11 1D 1D 1D |. ..L.4..".....|
00001130: 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D |.........C O M M|
00001140: 20 4F 20 44 20 4F 20 52 20 45 11 11 00 6F 19 36 | O D O R E...o.6|
00001150: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001160: 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 |..EDUCATIONAL...|
00001170: 8E 19 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..8.."..........|
00001180: 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 A9 |......SOFTWARE..|
00001190: 19 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 |.:.. ** COMMODOR|
000011A0: 45 20 4C 4F 47 4F 20 2A 2A 00 E1 19 3B 03 99 C8 |E LOGO **...;...|
000011B0: 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D |(UD$,24);"......|
000011C0: 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 |....PRESS SPACE |
000011D0: 42 41 52 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 |BAR OR WAIT.":I.|
000011E0: 30 00 03 1A 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 |0...<..A$:.A$.."|
000011F0: 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 | ".I.I.1:.I.250.|
00001200: 38 32 38 00 27 1A 3E 03 54 31 24 B2 22 22 3A 54 |828.'.>.T1$."":T|
00001210: 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 |2$."":T3$."":T4$|
00001220: B2 22 22 3A 49 B2 30 00 30 1A 40 03 89 33 30 30 |."":I.0.0.@..300|
00001230: 00 4C 1A 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 |.L.C.. ** SPACE |
00001240: 42 41 52 20 50 52 45 53 53 20 2A 2A 00 87 1A 48 |BAR PRESS **...H|
00001250: 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 |..UO,0:..(UD$,24|
00001260: 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |);".......PRESS |
00001270: 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E |SPACE BAR TO CON|
00001280: 54 49 4E 55 45 92 22 00 9E 1A 4C 03 A1 55 49 24 |TINUE."...L..UI$|
00001290: 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 A4 |:.UI$.." ".844..|
000012A0: 1A 4E 03 8E 00 C4 1A 52 03 8F 20 2A 2A 20 50 41 |.N.....R.. ** PA|
000012B0: 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 49 4E |GE DESIGN ROUTIN|
000012C0: 45 20 2A 2A 00 D0 1A 54 03 55 50 B2 55 50 AA 31 |E **...T.UP.UP.1|
000012D0: 00 FA 1A 57 03 99 22 93 22 C8 28 55 54 24 AA 55 |...W..".".(UT$.U|
000012E0: 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 |P$,21);.(UP$.UG$|
000012F0: AA C4 28 55 50 29 2C 31 38 29 00 29 1B 5C 03 99 |..(UP),18).).\..|
00001300: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
00001310: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001320: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 38 1B 60 03 8B 55 |--------".8.`..U|
00001330: 48 B3 B1 30 A7 38 37 30 00 6C 1B 61 03 99 C8 28 |H..0.870.l.a...(|
00001340: 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 |UD$,24);.(UP$,7)|
00001350: 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 |;"HELP - PRESS |
00001360: 20 2A 20 3C 52 45 54 55 52 4E 3E 22 00 7E 1B 66 | * <RETURN>".~.f|
00001370: 03 97 55 4F 2C 30 3A 99 22 13 11 22 3A 8E 00 9D |..UO,0:."..":...|
00001380: 1B 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 |.k.. ** PLEASE W|
00001390: 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 D3 1B |AIT REMARK **...|
000013A0: 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 |p...(UD$,24);" |
000013B0: 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D | ONE MOM|
000013C0: 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 |ENT PLEASE... |
000013D0: 20 20 22 00 D9 1B 75 03 8E 00 F6 1B 84 03 8F 20 | "...u........ |
000013E0: 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 42 |** SET UP VARIAB|
000013F0: 4C 45 53 20 2A 2A 00 41 1C 85 03 55 58 24 B2 22 |LES **.A...UX$."|
00001400: 2A 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 42 |*":.UQ%(1000):UB|
00001410: B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 |.32768:U1.196:U2|
00001420: B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 |.197:U3.198:U4.2|
00001430: 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 |16:UC.167:UU.102|
00001440: 34 00 7F 1C 86 03 55 54 B2 35 39 34 36 38 3A 55 |4.....UT.59468:U|
00001450: 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 |U%.12:UL%.14:UP%|
00001460: B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 |.1146:UM.32768:U|
00001470: 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C 30 00 |O.158:. 50003,0.|
00001480: C2 1C 87 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 |......(50003).0.|
00001490: 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 |UB.1024:U1.209:U|
000014A0: 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 |2.210:U3.211:U4.|
000014B0: 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 |214:UC.204:UU.20|
000014C0: 34 38 00 01 1D 88 03 8B C2 28 35 30 30 30 33 29 |48.......(50003)|
000014D0: B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 |.0.UT.53272:UU%.|
000014E0: 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 |21:UL%.23:UP%.21|
000014F0: 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 |39:UM.1024:UO.19|
00001500: 38 00 25 1D 89 03 55 44 24 B2 22 13 11 11 11 11 |8.%...UD$.".....|
00001510: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001520: 11 11 11 11 22 00 57 1D 8A 03 55 50 24 B2 22 20 |....".W...UP$." |
00001530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001550: 20 20 20 20 20 20 22 00 7C 1D 8B 03 55 54 24 B2 | ".|...UT$.|
00001560: 22 20 C8 C1 CE C7 CD C1 CE 20 33 22 3A 8F 20 50 |" ....... 3":. P|
00001570: 52 4F 47 52 41 4D 20 54 49 54 4C 45 00 82 1D 8C |ROGRAM TITLE....|
00001580: 03 8E 00 9C 1D 8E 03 8F 20 2A 2A 20 53 45 54 20 |........ ** SET |
00001590: 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 A5 1D 93 |VARIABLES **....|
000015A0: 03 8D 39 30 30 00 AB 1D 94 03 3A 00 B1 1D 95 03 |..900.....:.....|
000015B0: 3A 00 CC 1D 98 03 8F 20 2A 2A 20 43 48 45 43 4B |:...... ** CHECK|
000015C0: 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 EA 1D 9D | FOR 8032 **....|
000015D0: 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 |..".":.".":. SHI|
000015E0: 46 54 45 44 20 53 50 41 43 45 00 01 1E A2 03 8B |FTED SPACE......|
000015F0: C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 |.(UB.40)..96..70|
00001600: 30 00 1A 1E A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 |0...... ** MEMOR|
00001610: 59 20 43 48 45 43 4B 20 2A 2A 00 2E 1E A4 03 8B |Y CHECK **......|
00001620: 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 5C | .(0).2000.937.\|
00001630: 1E A5 03 99 22 93 11 11 05 54 48 49 53 20 4D 41 |...."....THIS MA|
00001640: 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 |CHINE DOES NOT H|
00001650: 41 56 45 20 45 4E 4F 55 47 48 11 22 00 80 1E A6 |AVE ENOUGH."....|
00001660: 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E |.."MEMORY TO RUN|
00001670: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 | THIS PROGRAM !"|
00001680: 00 8B 1E A7 03 9E 55 55 AA 37 31 00 91 1E A8 03 |......UU.71.....|
00001690: 80 00 AB 1E A9 03 99 22 93 05 22 3A 8B C2 28 35 |......."..":..(5|
000016A0: 30 30 30 33 29 B2 30 A7 39 36 32 00 DA 1E AC 03 |0003).0.962.....|
000016B0: 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 20 |. ** BASIC 2.0 |
000016C0: 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 |OR 4.0 OR C-6|
000016D0: 34 20 53 45 54 55 50 20 2A 2A 00 18 1F AD 03 97 |4 SETUP **......|
000016E0: 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 |1075,133:.1076,1|
000016F0: 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 |44:.1077,234:.10|
00001700: 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 |79,4:.1080,133:.|
00001710: 31 30 38 31 2C 31 34 35 00 4E 1F AE 03 97 31 30 |1081,145.N....10|
00001720: 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 |91,155:.1098,133|
00001730: 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 |:.1099,144:.1100|
00001740: 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 70 |,234:.1103,133.p|
00001750: 1F AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 |....1104,145:.11|
00001760: 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 |05,234:.1082,234|
00001770: 00 87 1F B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 |.......(50003)..|
00001780: 31 36 30 A7 39 35 35 00 B6 1F B6 03 97 31 30 39 |160.955......109|
00001790: 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 |3,88:.1094,228:.|
000017A0: 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 |1097,85:.1102,22|
000017B0: 38 3A 89 39 36 35 00 CB 1F BB 03 8B C2 28 35 30 |8:.965.......(50|
000017C0: 30 30 33 29 B3 B1 31 A7 39 39 30 00 FA 1F C0 03 |003)..1.990.....|
000017D0: 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 |.1093,49:.1094,2|
000017E0: 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 30 |30:.1097,46:.110|
000017F0: 32 2C 32 33 30 3A 89 39 36 35 00 34 20 C2 03 97 |2,230:.965.4 ...|
00001800: 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 |2099,141:.2100,2|
00001810: 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 2C |0:.2101,3:.2103,|
00001820: 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 30 |8:.2104,141:.210|
00001830: 35 2C 32 31 00 70 20 C3 03 97 32 31 30 36 2C 33 |5,21.p ...2106,3|
00001840: 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 37 |:.2115,145:.2117|
00001850: 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 |,52:.2118,234:.2|
00001860: 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 |121,49:.2122,141|
00001870: 00 AA 20 C4 03 97 32 31 32 33 2C 32 30 3A 97 32 |.. ...2123,20:.2|
00001880: 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A |124,3:.2126,234:|
00001890: 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 2C |.2127,141:.2128,|
000018A0: 32 31 3A 97 32 31 32 39 2C 33 00 C8 20 C5 03 9E |21:.2129,3.. ...|
000018B0: 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 |UU.48:. DISABLE |
000018C0: 53 54 4F 50 20 4B 45 59 00 D9 20 CA 03 8D 38 30 |STOP KEY.. ...80|
000018D0: 30 3A 8F 20 54 49 54 4C 45 00 E9 20 D4 03 89 33 |0:. TITLE.. ...3|
000018E0: 30 30 3A 8F 20 4D 45 4E 55 00 1A 21 DE 03 99 22 |00:. MENU..!..."|
000018F0: 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F |.THE PGM WILL NO|
00001900: 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D |T WORK ON THIS M|
00001910: 41 43 48 49 4E 45 21 22 3A 80 00 4F 21 E8 03 8B |ACHINE!":..O!...|
00001920: 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 |UZ.1..UP%:.UP%:U|
00001930: 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D |Z.0:. ** PROGRAM|
00001940: 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 | STARTS HERE **.|
00001950: 7B 21 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 |{!..."..";:.:..(|
00001960: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00001970: 36 3A 97 35 33 32 38 30 2C 31 34 00 B8 21 AB 04 |6:.53280,14..!..|
00001980: 55 50 B2 30 3A 55 47 24 B2 22 22 3A 55 54 24 B2 |UP.0:UG$."":UT$.|
00001990: 22 20 48 41 4E 47 4D 41 4E 20 33 22 3A 99 22 11 |" HANGMAN 3":.".|
000019A0: 22 3A 8D 38 35 30 3A 8B 44 B2 30 A7 20 86 43 24 |":.850:.D.0. .C$|
000019B0: 28 32 30 29 3A 44 B2 31 00 C1 21 14 05 99 22 13 |(20):D.1..!...".|
000019C0: 22 00 F4 21 46 05 99 20 22 11 11 11 11 11 11 11 |"..!F.. ".......|
000019D0: 1D 1D 1D 1D 1D 45 4E 54 45 52 20 57 4F 52 44 20 |.....ENTER WORD |
000019E0: 53 45 54 20 44 45 53 49 52 45 44 20 28 31 2D 35 |SET DESIRED (1-5|
000019F0: 29 20 22 3B 00 17 22 55 05 55 50 B2 31 3A 55 53 |) ";.."U.UP.1:US|
00001A00: 24 B2 22 31 32 33 34 35 2A 22 3A 8D 20 33 35 3A |$."12345*":. 35:|
00001A10: 57 53 24 B2 55 52 24 00 37 22 5A 05 8B 20 57 53 |WS$.UR$.7"Z.. WS|
00001A20: 24 20 B1 22 30 22 20 AF 20 57 53 24 20 B3 22 36 |$ ."0" . WS$ ."6|
00001A30: 22 89 20 31 33 38 30 00 42 22 5F 05 89 20 31 33 |". 1380.B"_.. 13|
00001A40: 36 35 00 5B 22 64 05 88 20 57 53 20 B2 20 28 C5 |65.["d.. WS . (.|
00001A50: 28 57 53 24 29 AB 31 29 AC 32 30 00 6D 22 69 05 |(WS$).1).20.m"i.|
00001A60: 81 20 57 54 20 B2 20 31 20 A4 20 57 53 00 76 22 |. WT . 1 . WS.v"|
00001A70: 6E 05 87 20 56 24 00 8C 22 73 05 82 20 57 54 3A |n.. V$.."s.. WT:|
00001A80: 55 47 24 B2 22 47 55 45 53 53 3A 22 00 BF 22 78 |UG$."GUESS:".."x|
00001A90: 05 99 20 22 11 22 3A 8D 38 35 30 3A 99 22 11 20 |.. ".":.850:.". |
00001AA0: 45 4E 54 45 52 20 44 49 46 46 49 43 55 4C 54 59 |ENTER DIFFICULTY|
00001AB0: 20 46 41 43 54 4F 52 20 28 31 2D 35 29 20 22 00 | FACTOR (1-5) ".|
00001AC0: F3 22 7D 05 99 22 11 11 11 1D 1D 1D B2 20 31 20 |."}.."....... 1 |
00001AD0: 20 45 41 53 49 45 53 54 22 3A 99 22 1D 1D 1D DD | EASIEST":."....|
00001AE0: 22 3A 99 22 1D 1D 1D AB 20 32 22 3A 99 22 20 20 |":.".... 2":." |
00001AF0: 20 DD 22 00 2D 23 82 05 99 22 1D 1D 1D AB 20 33 | .".-#...".... 3|
00001B00: 22 3A 99 22 1D 1D 1D DD 22 3A 99 22 1D 1D 1D AB |":."....":."....|
00001B10: 20 34 22 3A 99 22 20 20 20 DD 22 3A 99 22 20 20 | 4":." .":." |
00001B20: 20 B1 20 35 20 48 41 52 44 45 53 54 22 00 62 23 | . 5 HARDEST".b#|
00001B30: 83 05 99 22 91 91 91 91 91 91 91 91 91 91 91 91 |..."............|
00001B40: 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B60: 22 3B 00 8F 23 87 05 55 50 B2 31 3A 55 53 24 B2 |";..#..UP.1:US$.|
00001B70: 22 2A 31 32 33 34 35 22 3A 8D 20 33 35 3A 49 4F |"*12345":. 35:IO|
00001B80: 24 B2 55 52 24 3A 49 4F B2 C5 28 49 4F 24 29 00 |$.UR$:IO..(IO$).|
00001B90: AB 23 8C 05 81 20 57 53 B2 31 20 A4 20 32 30 3A |.#... WS.1 . 20:|
00001BA0: 87 43 24 28 57 53 29 3A 82 57 53 00 BD 23 91 05 |.C$(WS):.WS..#..|
00001BB0: 81 20 47 50 20 B2 20 31 20 A4 20 32 30 00 D5 23 |. GP . 1 . 20..#|
00001BC0: 96 05 88 20 52 4E 20 B2 20 B5 28 BB 28 31 29 AC |... RN . .(.(1).|
00001BD0: 32 30 29 AA 31 00 EC 23 9B 05 8B 20 43 24 28 52 |20).1..#... C$(R|
00001BE0: 4E 29 B2 22 30 22 89 20 31 34 33 30 00 07 24 A0 |N)."0". 1430..$.|
00001BF0: 05 88 20 41 24 B2 43 24 28 52 4E 29 3A 43 24 28 |.. A$.C$(RN):C$(|
00001C00: 52 4E 29 B2 22 30 22 00 1C 24 A5 05 99 20 22 11 |RN)."0"..$... ".|
00001C10: 22 3A 55 50 B2 30 3A 8D 20 38 35 30 00 29 24 AA |":UP.0:. 850.)$.|
00001C20: 05 88 20 56 49 20 B2 20 30 00 3B 24 AF 05 81 20 |.. VI . 0.;$... |
00001C30: 49 54 20 B2 20 31 20 A4 20 49 4F 00 46 24 B4 05 |IT . 1 . IO.F$..|
00001C40: 8D 20 31 39 33 35 00 4F 24 B9 05 82 20 49 54 00 |. 1935.O$... IT.|
00001C50: 5F 24 BE 05 88 20 41 20 B2 20 C3 28 41 24 29 00 |_$... A . .(A$).|
00001C60: 6A 24 C3 05 88 20 41 4D B2 30 00 7E 24 C8 05 88 |j$... AM.0.~$...|
00001C70: 20 45 B2 30 3A 4D 4D B2 30 3A 46 49 B2 30 00 8B | E.0:MM.0:FI.0..|
00001C80: 24 CD 05 81 20 49 B2 31 A4 20 41 00 A1 24 D2 05 |$... I.1. A..$..|
00001C90: 88 20 42 24 28 49 29 B2 CA 28 41 24 2C 49 2C 31 |. B$(I)..(A$,I,1|
00001CA0: 29 00 A9 24 D7 05 82 20 49 00 B6 24 DC 05 81 20 |)..$... I..$... |
00001CB0: 49 B2 31 A4 20 41 00 D2 24 E1 05 99 22 13 11 11 |I.1. A..$..."...|
00001CC0: 11 11 22 3B A3 28 32 AC 49 29 AA 31 36 29 3B 22 |..";.(2.I).16);"|
00001CD0: A4 22 00 DA 24 E6 05 82 20 49 00 00 25 EB 05 99 |."..$... I..%...|
00001CE0: 22 13 1D 11 11 11 11 11 11 11 11 11 11 11 11 55 |"..............U|
00001CF0: 53 45 44 20 4C 45 54 54 45 52 53 3A 20 20 22 3B |SED LETTERS: ";|
00001D00: 00 17 25 F0 05 81 20 55 4C 20 B2 20 31 20 A4 20 |..%... UL . 1 . |
00001D10: 28 20 39 AB 49 4F 29 00 23 25 F5 05 99 20 22 A4 |( 9.IO).#%... ".|
00001D20: 20 22 3B 00 2C 25 FA 05 82 20 55 4C 00 63 25 FF | ";.,%... UL.c%.|
00001D30: 05 55 47 24 B2 22 47 55 45 53 53 3A 22 3A 99 22 |.UG$."GUESS:":."|
00001D40: 13 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B |.".(UT$.UP$,21);|
00001D50: C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C |.(UP$.UG$..(UP),|
00001D60: 31 38 29 00 9A 25 00 06 99 22 20 2D 2D 2D 2D 2D |18)..%..." -----|
00001D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D90: 2D 22 3A 55 50 B2 55 50 AA 31 00 D8 25 01 06 8D |-":UP.UP.1..%...|
00001DA0: 38 36 35 3A 99 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D |865:."..........|
00001DB0: 1D 1D 1D 1D 1D 1D 11 11 11 11 11 11 11 11 11 11 |................|
00001DC0: 11 11 11 11 11 11 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 |...... .........|
00001DD0: A4 A4 A4 A4 A4 20 20 22 00 00 26 04 06 99 22 1D |..... "..&...".|
00001DE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
00001DF0: 47 55 45 53 53 20 41 20 4C 45 54 54 45 52 92 22 |GUESS A LETTER."|
00001E00: 00 2C 26 05 06 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D |.,&...".........|
00001E10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001E20: 1D 1D 1D 1D 1D 1D 1D 20 20 9D 22 3B 00 36 26 09 |....... .";.6&.|
00001E30: 06 88 20 56 B2 30 00 6C 26 0E 06 55 53 24 B2 22 |.. V.0.l&..US$."|
00001E40: 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 |ABCDEFGHIJKLMNOP|
00001E50: 51 52 53 54 55 56 57 58 59 5A 2A 22 3A 55 4C B2 |QRSTUVWXYZ*":UL.|
00001E60: 31 3A 8D 33 35 3A 5A 24 B2 55 52 24 00 7F 26 13 |1:.35:Z$.UR$..&.|
00001E70: 06 8B 20 5A 24 B2 22 22 20 89 20 31 35 33 35 00 |.. Z$."" . 1535.|
00001E80: 8C 26 18 06 81 20 49 B2 31 A4 20 41 00 A2 26 1D |.&... I.1. A..&.|
00001E90: 06 8B 20 5A 24 B3 B1 42 24 28 49 29 89 20 31 36 |.. Z$..B$(I). 16|
00001EA0: 31 35 00 B6 26 22 06 8B 20 5A 24 B2 22 20 22 20 |15..&".. Z$." " |
00001EB0: 89 20 31 36 31 35 00 EE 26 27 06 8F 50 52 49 4E |. 1615..&'..PRIN|
00001EC0: 54 20 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 |T ".............|
00001ED0: 11 11 11 11 11 11 11 11 11 11 11 43 4F 52 52 45 |...........CORRE|
00001EE0: 43 54 20 47 55 45 53 53 20 20 20 20 20 22 00 0C |CT GUESS "..|
00001EF0: 27 2C 06 99 22 13 11 11 11 11 22 3B A3 28 32 AC |',..".....";.(2.|
00001F00: 49 29 AA 31 36 29 3B 42 24 28 49 29 00 22 27 31 |I).16);B$(I)."'1|
00001F10: 06 8B 20 42 24 28 49 29 B2 22 20 22 89 20 31 36 |.. B$(I)." ". 16|
00001F20: 31 35 00 32 27 36 06 88 20 42 24 28 49 29 B2 22 |15.2'6.. B$(I)."|
00001F30: 20 22 00 40 27 3B 06 88 20 4D 4D B2 4D 4D AA 31 | ".@';.. MM.MM.1|
00001F40: 00 52 27 40 06 8B 20 4D 4D B2 41 20 20 89 31 36 |.R'@.. MM.A .16|
00001F50: 38 35 00 5C 27 45 06 88 20 56 B2 31 00 67 27 4A |85.\'E.. V.1.g'J|
00001F60: 06 89 20 31 36 31 35 00 6F 27 4F 06 82 20 49 00 |.. 1615.o'O.. I.|
00001F70: 7F 27 54 06 8B 20 56 B2 31 20 89 31 36 33 30 00 |.'T.. V.1 .1630.|
00001F80: 8A 27 59 06 89 20 31 36 34 30 00 A2 27 5E 06 8F |.'Y.. 1640..'^..|
00001F90: 46 4F 52 4B 3D 31 54 4F 31 30 30 30 3A 4E 45 58 |FORK=1TO1000:NEX|
00001FA0: 54 4B 00 AC 27 63 06 89 31 35 33 35 00 E3 27 68 |TK..'c..1535..'h|
00001FB0: 06 99 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001FC0: 1D 1D 1D 1D 1D 11 11 11 11 11 11 11 11 11 11 11 |................|
00001FD0: 11 11 11 49 4E 43 4F 52 52 45 43 54 20 47 55 45 |...INCORRECT GUE|
00001FE0: 53 53 22 00 F4 27 6D 06 81 51 51 B2 31 A4 31 30 |SS"..'m..QQ.1.10|
00001FF0: 30 30 3A 82 00 2B 28 72 06 99 22 13 1D 1D 1D 1D |00:..+(r..".....|
00002000: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 |................|
00002010: 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 |........... |
00002020: 20 20 20 20 20 20 20 20 20 20 22 00 36 28 77 06 | ".6(w.|
00002030: 88 45 B2 45 AA 31 00 61 28 7C 06 99 22 13 1D 1D |.E.E.1.a(|.."...|
00002040: 1D 1D 11 11 11 11 11 11 11 11 11 11 11 11 22 3B |..............";|
00002050: A3 28 28 45 AB 31 29 AC 32 29 AA 31 36 29 3B 5A |.((E.1).2).16);Z|
00002060: 24 00 6C 28 81 06 8D 20 31 39 33 35 00 84 28 86 |$.l(... 1935..(.|
00002070: 06 8B 20 45 B2 20 28 20 39 AB 49 4F 29 20 89 20 |.. E. ( 9.IO) . |
00002080: 31 37 32 35 00 9D 28 8B 06 8F 46 4F 52 20 49 3D |1725..(...FOR I=|
00002090: 31 54 4F 31 30 30 30 3A 4E 45 58 54 49 00 A8 28 |1TO1000:NEXTI..(|
000020A0: 90 06 89 20 31 35 33 35 00 C5 28 95 06 99 22 13 |... 1535..(...".|
000020B0: 1D 11 11 11 11 11 11 11 2A 20 59 4F 55 20 57 49 |........* YOU WI|
000020C0: 4E 21 20 2A 22 00 E3 28 96 06 8D 38 33 35 3A 55 |N! *"..(...835:U|
000020D0: 47 24 B2 22 22 3A 8D 38 35 30 3A 8B 47 50 B2 32 |G$."":.850:.GP.2|
000020E0: 30 A7 8E 00 21 29 97 06 99 22 11 11 11 20 57 41 |0...!)..."... WA|
000020F0: 4E 54 20 54 4F 20 50 4C 41 59 20 41 47 41 49 4E |NT TO PLAY AGAIN|
00002100: 3F 20 22 3B 3A 55 50 B2 31 3A 55 53 24 B2 22 59 |? ";:UP.1:US$."Y|
00002110: 4E 22 3A 8D 33 35 3A 8B 55 52 24 B2 22 4E 22 A7 |N":.35:.UR$."N".|
00002120: 8E 00 52 29 9A 06 99 20 22 11 11 11 11 11 1D 1D |..R)... ".......|
00002130: 1D 1D 1D 4E 45 57 20 44 49 46 46 49 43 55 4C 54 |...NEW DIFFICULT|
00002140: 59 20 46 41 43 54 4F 52 20 28 4E 2F 59 29 3F 20 |Y FACTOR (N/Y)? |
00002150: 22 3B 00 6F 29 9F 06 55 53 24 B2 22 59 4E 22 3A |";.o)..US$."YN":|
00002160: 55 4C B2 31 3A 8D 33 35 3A 51 24 B2 55 52 24 00 |UL.1:.35:Q$.UR$.|
00002170: 85 29 A4 06 8B 20 51 24 20 B2 20 22 59 22 20 89 |.)... Q$ . "Y" .|
00002180: 20 31 39 30 35 00 9D 29 A9 06 8B 20 51 24 20 B2 | 1905..)... Q$ .|
00002190: 20 22 4E 22 20 A7 20 89 20 31 37 31 35 00 A8 29 | "N" . . 1715..)|
000021A0: AE 06 89 20 31 36 39 35 00 B1 29 B3 06 82 20 47 |... 1695..)... G|
000021B0: 50 00 B7 29 B8 06 8E 00 D4 29 BD 06 99 22 13 1D |P..).....)..."..|
000021C0: 11 11 11 11 11 11 11 2A 20 59 4F 55 20 48 41 4E |.......* YOU HAN|
000021D0: 47 20 2A 22 00 DA 29 C2 06 99 00 07 2A C7 06 99 |G *"..).....*...|
000021E0: 20 22 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D | "..............|
000021F0: 54 48 45 20 57 4F 52 44 20 57 41 53 20 22 3B 41 |THE WORD WAS ";A|
00002200: 24 3A 89 31 36 38 36 00 38 2A CC 06 99 22 11 11 |$:.1686.8*..."..|
00002210: 11 11 11 11 1D 1D 1D 1D 1D 1D 4E 45 57 20 44 49 |..........NEW DI|
00002220: 46 46 49 43 55 4C 54 59 20 46 41 43 54 4F 52 20 |FFICULTY FACTOR |
00002230: 28 4E 2F 59 29 3F 22 3B 00 6C 2A CD 06 99 22 91 |(N/Y)?";.l*...".|
00002240: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002250: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002260: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 8E 2A D1 |..........";..*.|
00002270: 06 55 50 B2 31 3A 55 53 24 B2 22 59 4E 22 3A 55 |.UP.1:US$."YN":U|
00002280: 4C B2 31 3A 8D 33 35 3A 51 24 B2 55 52 24 00 A4 |L.1:.35:Q$.UR$..|
00002290: 2A D6 06 8B 20 51 24 20 B2 20 22 59 22 20 89 20 |*... Q$ . "Y" . |
000022A0: 31 39 30 35 00 BC 2A DB 06 8B 20 51 24 20 B2 20 |1905..*... Q$ . |
000022B0: 22 4E 22 20 A7 20 89 20 31 37 31 35 00 C7 2A E0 |"N" . . 1715..*.|
000022C0: 06 89 20 31 37 34 35 00 0D 2B E5 06 83 20 4E 45 |.. 1745..+... NE|
000022D0: 58 54 2C 49 4E 54 45 52 45 53 54 2C 4C 59 4E 58 |XT,INTEREST,LYNX|
000022E0: 2C 4C 41 4E 47 55 41 47 45 2C 41 53 59 4C 55 4D |,LANGUAGE,ASYLUM|
000022F0: 2C 46 52 45 45 5A 45 2C 4C 49 4D 49 54 2C 53 43 |,FREEZE,LIMIT,SC|
00002300: 48 4F 4F 4C 2C 52 49 44 49 43 55 4C 45 00 52 2B |HOOL,RIDICULE.R+|
00002310: EA 06 83 20 43 4F 4D 50 55 54 45 52 2C 43 4F 4D |... COMPUTER,COM|
00002320: 4D 45 4E 54 2C 54 4F 50 49 43 2C 57 45 49 52 44 |MENT,TOPIC,WEIRD|
00002330: 2C 42 4F 52 49 4E 47 2C 55 53 45 46 55 4C 2C 50 |,BORING,USEFUL,P|
00002340: 52 45 53 53 2C 46 4F 52 47 45 54 2C 53 49 4D 50 |RESS,FORGET,SIMP|
00002350: 4C 45 00 87 2B EF 06 83 20 52 45 41 44 59 2C 51 |LE..+... READY,Q|
00002360: 55 45 53 54 49 4F 4E 2C 52 45 50 45 41 54 2C 45 |UESTION,REPEAT,E|
00002370: 58 54 45 4E 44 2C 53 4F 43 49 45 54 59 2C 49 4E |XTEND,SOCIETY,IN|
00002380: 56 45 4E 54 49 4F 4E 00 A8 2B F4 06 83 20 57 41 |VENTION..+... WA|
00002390: 54 45 52 2C 42 52 41 4B 45 2C 53 41 46 45 54 59 |TER,BRAKE,SAFETY|
000023A0: 2C 57 4F 52 53 48 49 50 00 C4 2B F9 06 83 20 50 |,WORSHIP..+... P|
000023B0: 4C 41 4E 45 2C 53 43 49 45 4E 43 45 2C 42 41 54 |LANE,SCIENCE,BAT|
000023C0: 54 45 52 59 00 0E 2C FE 06 83 20 4F 42 53 43 55 |TERY..,... OBSCU|
000023D0: 52 45 2C 53 55 46 46 49 43 45 2C 50 52 49 53 4D |RE,SUFFICE,PRISM|
000023E0: 2C 56 49 53 55 41 4C 2C 46 41 43 45 54 49 4F 55 |,VISUAL,FACETIOU|
000023F0: 53 2C 49 4D 50 52 4F 56 45 2C 43 4F 4E 54 52 41 |S,IMPROVE,CONTRA|
00002400: 52 59 2C 53 54 55 44 59 2C 52 45 41 4C 4D 00 55 |RY,STUDY,REALM.U|
00002410: 2C 03 07 83 20 46 52 41 55 44 2C 43 4C 45 52 4B |,... FRAUD,CLERK|
00002420: 2C 4A 55 53 54 49 46 59 2C 43 48 52 49 53 54 45 |,JUSTIFY,CHRISTE|
00002430: 4E 2C 54 48 55 4D 42 2C 54 48 49 4D 42 4C 45 2C |N,THUMB,THIMBLE,|
00002440: 43 4C 41 52 49 54 59 2C 41 4C 47 45 42 52 41 2C |CLARITY,ALGEBRA,|
00002450: 50 48 41 53 45 00 99 2C 08 07 83 20 54 48 49 53 |PHASE..,... THIS|
00002460: 54 4C 45 2C 4C 49 42 52 41 52 59 2C 42 52 41 4E |TLE,LIBRARY,BRAN|
00002470: 43 48 2C 44 52 41 46 54 2C 47 4E 41 54 2C 53 50 |CH,DRAFT,GNAT,SP|
00002480: 4F 55 53 45 2C 41 4E 53 57 45 52 2C 57 48 41 4C |OUSE,ANSWER,WHAL|
00002490: 45 2C 45 58 43 4C 41 49 4D 00 E4 2C 0D 07 83 20 |E,EXCLAIM..,... |
000024A0: 53 50 4C 49 54 2C 53 48 41 4C 45 2C 43 52 41 57 |SPLIT,SHALE,CRAW|
000024B0: 4C 2C 54 52 41 4D 50 2C 43 4F 4D 4D 49 54 2C 56 |L,TRAMP,COMMIT,V|
000024C0: 45 52 49 46 59 2C 53 4C 49 47 48 54 2C 41 4E 43 |ERIFY,SLIGHT,ANC|
000024D0: 48 4F 52 2C 50 4E 45 55 4D 41 54 49 43 2C 43 52 |HOR,PNEUMATIC,CR|
000024E0: 55 54 43 48 00 06 2D 12 07 83 20 54 52 41 46 46 |UTCH..-... TRAFF|
000024F0: 49 43 2C 52 49 47 48 54 2C 43 4F 52 4E 45 52 2C |IC,RIGHT,CORNER,|
00002500: 49 4D 50 41 43 54 00 26 2D 17 07 83 20 53 55 52 |IMPACT.&-... SUR|
00002510: 46 41 43 45 2C 57 52 49 54 45 2C 50 4F 57 45 52 |FACE,WRITE,POWER|
00002520: 2C 47 55 49 44 45 00 48 2D 1C 07 83 20 50 45 52 |,GUIDE.H-... PER|
00002530: 4D 49 54 2C 45 58 43 49 54 45 2C 56 41 4C 4C 45 |MIT,EXCITE,VALLE|
00002540: 59 2C 43 48 45 51 55 45 00 67 2D 21 07 83 20 4D |Y,CHEQUE.g-!.. M|
00002550: 45 52 47 45 2C 52 4F 55 54 45 2C 44 41 4D 41 47 |ERGE,ROUTE,DAMAG|
00002560: 45 2C 43 41 4E 4F 45 00 86 2D 26 07 83 20 57 45 |E,CANOE..-&.. WE|
00002570: 41 54 48 45 52 2C 53 41 49 4C 49 4E 47 2C 50 41 |ATHER,SAILING,PA|
00002580: 56 45 4D 45 4E 54 00 A4 2D 2B 07 83 20 54 48 45 |VEMENT..-+.. THE|
00002590: 41 54 52 45 2C 43 4F 4E 53 4F 4C 45 2C 4A 4F 55 |ATRE,CONSOLE,JOU|
000025A0: 52 4E 41 4C 00 C2 2D 30 07 83 20 4E 55 43 4C 45 |RNAL..-0.. NUCLE|
000025B0: 55 53 2C 48 4F 52 49 5A 4F 4E 2C 54 52 49 47 47 |US,HORIZON,TRIGG|
000025C0: 45 52 00 DF 2D 35 07 83 20 53 54 4F 43 4B 2C 53 |ER..-5.. STOCK,S|
000025D0: 54 52 55 43 54 55 52 45 2C 42 49 4E 41 52 59 00 |TRUCTURE,BINARY.|
000025E0: FE 2D 3A 07 83 20 42 4F 55 51 55 45 54 2C 45 4C |.-:.. BOUQUET,EL|
000025F0: 45 43 54 52 49 43 2C 4E 4F 56 45 4C 54 59 00 20 |ECTRIC,NOVELTY. |
00002600: 2E 3F 07 83 20 45 4E 47 49 4E 45 2C 53 45 4C 45 |.?.. ENGINE,SELE|
00002610: 43 54 2C 50 45 4E 43 49 4C 2C 54 48 52 45 41 54 |CT,PENCIL,THREAT|
00002620: 00 41 2E 44 07 83 20 4F 56 45 52 54 48 52 4F 57 |.A.D.. OVERTHROW|
00002630: 2C 42 45 4C 49 45 56 45 2C 53 59 4D 50 48 4F 4E |,BELIEVE,SYMPHON|
00002640: 59 00 62 2E 49 07 83 20 51 55 41 4C 49 54 59 2C |Y.b.I.. QUALITY,|
00002650: 53 48 55 46 46 4C 45 2C 43 45 4C 4C 4F 50 48 41 |SHUFFLE,CELLOPHA|
00002660: 4E 45 00 86 2E 4E 07 83 20 4D 45 4D 4F 52 59 2C |NE...N.. MEMORY,|
00002670: 42 45 43 4F 4D 45 2C 53 57 49 54 43 48 2C 4B 45 |BECOME,SWITCH,KE|
00002680: 59 42 4F 41 52 44 00 D1 2E 53 07 83 20 46 45 41 |YBOARD...S.. FEA|
00002690: 54 55 52 45 2C 50 41 53 53 49 56 45 2C 44 49 53 |TURE,PASSIVE,DIS|
000026A0: 50 4C 41 59 2C 53 4F 43 4B 45 54 2C 42 52 49 44 |PLAY,SOCKET,BRID|
000026B0: 47 45 2C 50 4C 41 54 49 4E 55 4D 2C 54 48 45 52 |GE,PLATINUM,THER|
000026C0: 4D 41 4C 2C 48 4F 42 42 59 2C 53 50 45 43 49 41 |MAL,HOBBY,SPECIA|
000026D0: 4C 00 FB 2E 58 07 83 20 4D 41 4E 55 41 4C 2C 43 |L...X.. MANUAL,C|
000026E0: 4C 4F 53 45 2C 44 45 53 54 52 4F 59 2C 50 52 49 |LOSE,DESTROY,PRI|
000026F0: 4F 52 49 54 59 2C 53 43 4F 50 45 00 44 2F 5D 07 |ORITY,SCOPE.D/].|
00002700: 83 20 53 48 49 4E 45 2C 53 4F 4C 49 44 2C 45 4E |. SHINE,SOLID,EN|
00002710: 54 45 52 54 41 49 4E 2C 4D 4F 42 49 4C 45 2C 41 |TERTAIN,MOBILE,A|
00002720: 53 53 45 4D 42 4C 45 2C 53 4B 49 4C 4C 2C 44 45 |SSEMBLE,SKILL,DE|
00002730: 4C 49 56 45 52 2C 52 41 43 51 55 45 54 2C 4F 42 |LIVER,RACQUET,OB|
00002740: 4A 45 43 54 00 5A 2F 62 07 83 20 48 41 4E 44 4C |JECT.Z/b.. HANDL|
00002750: 45 2C 43 4F 4D 50 4C 45 54 45 00 74 2F 67 07 83 |E,COMPLETE.t/g..|
00002760: 20 42 49 4F 52 48 59 54 48 4D 2C 44 45 46 41 55 | BIORHYTHM,DEFAU|
00002770: 4C 54 45 52 00 8C 2F 6C 07 8F 20 2A 2A 2A 20 46 |LTER../l.. *** F|
00002780: 49 4E 49 53 48 45 44 21 20 2A 2A 2A 00 92 2F 71 |INISHED! ***../q|
00002790: 07 8F 00 9C 2F 76 07 89 31 34 30 30 00 C4 2F 7B |..../v..1400../{|
000027A0: 07 55 50 B2 31 3A 55 53 B2 22 31 32 33 34 35 2A |.UP.1:US."12345*|
000027B0: 22 3A 55 4C B2 31 3A 8D 33 35 3A 49 4F B2 C5 28 |":UL.1:.35:IO..(|
000027C0: 55 52 24 29 00 E1 2F 80 07 8B 20 49 4F 20 B3 20 |UR$)../... IO . |
000027D0: 31 20 B0 20 49 4F 20 B1 20 35 20 89 20 31 39 31 |1 . IO . 5 . 191|
000027E0: 35 00 EA 2F 85 07 82 20 47 50 00 F5 2F 8A 07 89 |5../... GP../...|
000027F0: 20 31 34 31 35 00 0F 30 8F 07 8F 20 2A 2A 2A 20 | 1415..0... *** |
00002800: 44 52 41 57 20 56 49 43 54 49 4D 20 2A 2A 2A 00 |DRAW VICTIM ***.|
00002810: 21 30 94 07 88 20 56 49 20 B2 20 56 49 20 AA 20 |!0... VI . VI . |
00002820: 31 00 59 30 99 07 91 20 56 49 20 89 20 31 39 35 |1.Y0... VI . 195|
00002830: 30 2C 32 30 30 30 2C 32 30 31 30 2C 32 30 32 30 |0,2000,2010,2020|
00002840: 2C 32 30 33 30 2C 32 30 34 30 2C 32 30 35 30 2C |,2030,2040,2050,|
00002850: 32 30 36 30 2C 32 30 37 30 00 62 30 9A 07 99 3A |2060,2070.b0...:|
00002860: 99 3A 00 77 30 9E 07 99 20 22 13 11 11 1D 1D 1D |.:.w0... "......|
00002870: B0 C0 C0 C0 C0 C0 AE 00 84 30 A3 07 99 20 22 1D |.........0... ".|
00002880: 1D 1D DD 22 00 91 30 A8 07 99 20 22 1D 1D 1D DD |..."..0... "....|
00002890: 22 00 9E 30 AD 07 99 20 22 1D 1D 1D DD 22 00 AB |"..0... "...."..|
000028A0: 30 B2 07 99 20 22 1D 1D 1D DD 22 00 B8 30 B7 07 |0... "...."..0..|
000028B0: 99 20 22 1D 1D 1D DD 22 00 CE 30 BC 07 99 20 22 |. "...."..0... "|
000028C0: B0 C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 00 E4 |................|
000028D0: 30 C1 07 99 20 22 DD 20 20 20 20 20 20 20 20 20 |0... ". |
000028E0: 20 20 20 DD 00 FA 30 C6 07 99 20 22 AD C0 C0 C0 | ...0... "....|
000028F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 00 05 31 CB 07 89 |............1...|
00002900: 20 32 30 37 35 00 1B 31 D0 07 99 20 22 13 1D 1D | 2075..1... "...|
00002910: 1D 1D 1D 1D 1D 1D 1D 11 11 D7 22 00 26 31 D5 07 |..........".&1..|
00002920: 89 20 32 30 37 35 00 3D 31 DA 07 99 20 22 13 1D |. 2075.=1... "..|
00002930: 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 DB 22 00 48 31 |............".H1|
00002940: DF 07 89 20 32 30 37 35 00 5E 31 E4 07 99 20 22 |... 2075.^1... "|
00002950: 13 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 C0 22 00 69 |.............".i|
00002960: 31 E9 07 89 20 32 30 37 35 00 81 31 EE 07 99 20 |1... 2075..1... |
00002970: 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 C0 |"...............|
00002980: 22 00 8C 31 F3 07 89 20 32 30 37 35 00 A4 31 F8 |"..1... 2075..1.|
00002990: 07 99 20 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 |.. "............|
000029A0: 11 11 DD 22 00 AF 31 FD 07 89 20 32 30 37 35 00 |..."..1... 2075.|
000029B0: C8 31 02 08 99 20 22 13 1D 1D 1D 1D 1D 1D 1D 1D |.1... ".........|
000029C0: 1D 11 11 11 11 11 B1 22 00 D3 31 07 08 89 20 32 |......."..1... 2|
000029D0: 30 37 35 00 EE 31 0C 08 99 20 22 13 1D 1D 1D 1D |075..1... ".....|
000029E0: 1D 1D 1D 1D 11 11 11 11 11 B0 11 9D BD 22 00 F9 |............."..|
000029F0: 31 11 08 89 20 32 30 37 35 00 16 32 16 08 99 20 |1... 2075..2... |
00002A00: 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 11 |"...............|
00002A10: 11 AE 11 9D AD 22 00 1C 32 1B 08 8E 00 00 00 |....."..2...... |
.......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 **......2.65.R.... **GENERAL INPUT
ROUTINE **...#.. +++ INPUT SECTION +++..
.(..UO,0:UR$."":UI$.""...*..UL.0.UL.80.)
.-.." ..";:.UC,0.=.2..UI$:.UI$."".50.G.
7..UI$.G(13).C(UR$)..1..UC,1:." .";:.85.
Z.<..UI$.G(20).105...>.. C(UR$)..UL.50..
.A..120:. CHECK FOR VALID CHARACTER.C.F.
UR$.UR$.UI$.M.K..UI$;.U.P..50...U.. +++
CHECK FOR HELP REQUEST +++.".Z..UR$.UX$.
195:. EXIT TO HELP ROUTINE.1._..UF.1..24
0.>.D.UF.0:.:..W.F.. ++ CHECK DELETE ++.
H.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).1)
...S..". ..";:.50...X.. ++ CHECK FOR VA
LID CHARACTERS ++.K.}..C(US$).0.150....
US$.US$.UX$......US.1.C(US$)......UI$.J(
US$,US,1).............UI$."":..1.... **
STANDARD INPUT **.B....F(UI$).46...S....
UI$.G(32)...P. ..F(UI$).48.F(UI$).57.170
.V..........F(UI$).65.F(UI$).90.180.....
.......F(UI$).193.F(UI$).218.UI$."":....
...B(UT).UU%.UI$.G(F(UI$).128):.........
...UI$."":....C.UF.1:. +++ HELP ROUTINE
EXIT +++.!.E..250.*.H..245.I.M..UQ.UB.(U
2%.256.U1%.U3%.2).E.R.UQ%(UQ.UB).B(UQ):.
:.".".X.W.UZ.1:UV%.B(UT)...X..300...Y.UZ
.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK...Z..B(50
003).0..53281,1:.".";:.53281,6:.53280,14
:.220......".";.....UT$.UL$:.UT,UV%:.UQ.
UB.(U2%.256.U1%.U3%.3).+....UQ,UQ%(UQ.UB
):..7....U1,U1%.C....U2,U2%.O....U4,U4%.
]....U3,U3%.1.E....35.....UD%.((U2%.256.
U1%.U3%).UB).40:.H(UD$,UD%.1):..R....H(U
D$,24);" . HELP COM
ING . ":......U1%.B(U1):U2%.B(U2):U3%.B
(U3):U4%.B(U4).&...UJ$.US$:UK$.UG$:UL$.U
T$:UJ.UP:UK.UL.,.....=.,.. ** MENU **.C.
-.:.R....".":.UT,UU%:.B(50003).0..53281,
9:.53280,8.X./.:...1..".
MENU".D.6.." ---------------------------
-----------"...;..".. 1. HANGMAN
3"...@..".. 2. STUDENT INSTRUCT
IONS".7.E..".. 3. TEACHER INSTRU
CTIONS".D.J..".. 4. MODIFICATION
OF PROGRAM"...O..".. 5. QUIT.."
...T.." --------------------------------
------".Z.Y..".. PRESS A NUMBER KE
Y (1-5) ";...^.UL.1:US$."12345":.35:. IN
PUT ROUTINE..._..C(UR$).1.300. .`.US$.""
.A.C..E(UR$).1000,400,500,600,396.J.H..3
00.Q.... ** RE-ENABLE STOP KEY AND END *
*. ....B(50003)..1.B(50003)..160.B(50003
)..0.399.J....UU.71:.B(50003).0..53281,6
:.53280,14.V...."..":.......875:.......
** STUDENT INSTRUCTIONS **.1....".":.UT,
UL%:.B(50003).0..53281,0:.53280,0.C...UT
$." HANGMAN 3":UP.0:UG$."STUDENT INST":.
850.K.J..:....L.. " WHEN THE COMPUTER PR
INTS .GUESS A LETTER.".M.N.. " TYPE IN A
LETTER THAT YOU THINK IS IN"...P.. ". T
HE WORD REPRESENTED BY THE DASHES. YOU".
0.R.. " WIN IF YOU FILL IN THE WORD BEFO
RE YOUR"._.T.. " MAN IS HANGED. YOU LOSE
IF THE MAN IS".Q.V.. ". HANGED."...X.."
.. IF YOU WANT HELP TYPE '*' THEN RETUR
N."......835......UZ.1..UP%:.217.F......
.... ** TEACHER INSTRUCTIONS **......"."
:.UT,UL%:.B(50003).0..53281,2:.53280,10.
I...UT$." HANGMAN 3":UP.0:UG$."TEACHER I
NST":.850.W....".. TO THE BEST OF O
UR KNOWLEDGE,.". ...." THIS PROGRAM IS
IN THE PUBLIC.".L...." DOMAIN. IF TH
IS IS NOT THE CASE."......" PLEASE CON
TACT:..."......" COMMODORE BUSINESS
MACHINES.".6...." 3370 PHARMAC
Y AVE..Z...." AGINCOURT, ONTARI
O".|...." CANADA M1W 2K4"....
.." (416) 499-4292".....UP.1:.
835:. 850:.X...." ..PROGRAM NAME: HA
NGMAN 3......." WRITTEN BY : UNKNOW
N......." UPGRADED BY : ..I
...." .THIS PROGRAM WILL RUN ON ANY.
..I...." PET 64 COMPUTER......."
COMMODORE 64 COMPUTER......835.
..N..UZ.1..UP%:.217...W...W.X.. ** PROGR
AM MODIFICATION INST **...Y..".":.UT,UL%
...].UT$." HANGMAN 3":UP.0:UG$."PROGRAM
MOD":.850.%._..:.:.:..P.B.." IF YOU WISH
TO CHANGE THE WORDS IN".V.D.....G.." TH
IS PROGRAM THEN LIST LINES 1765 TO"...H.
....L.." 1895 AND ENTER NEW WORDS."...Q.
.835.H....UZ.1..UP%:.217.N.......... **
TO USE 8032 LOAD CBM4032 **.).F..".....B
EFORE RUNNING THIS PROGRAM ON AN 8032 .
.._.P.." LOAD THE 'CBM 4032' PROGRA
M.............".J.Z..UU.71.P.......... *
* TO USE 8032 LOAD CBM4032 **......"....
BEFORE RUNNING THIS PROGRAM ON AN 8032
..LOAD CBM 4032 PROGRAM"......1093:....
.. ** T I T L E P A G E **.@.".."...."
;:.UT,UU%:.B(50003).0..53280,14:.53281,6
.V.$..I.1.38:."...";:..N.&..I.1.22:."...
..";:....(..I.1.37:.".....";:....*..I.1.
22:.".....";:..C.,.."...................
........ ......."................... .
. .....0.."................... . ....$
.2..".................... ..L.4..".....
.........C O M M O D O R E...O.6..".....
..........EDUCATIONAL.....8.."..........
......SOFTWARE...:.. ** COMMODORE LOGO *
*...;..H(UD$,24);"..........PRESS SPACE
BAR OR WAIT.":I.0...<..A$:.A$.." ".I.I.1
:.I.250.828.'.>.T1$."":T2$."":T3$."":T4$
."":I.0.0.@..300.L.C.. ** SPACE BAR PRES
S **...H..UO,0:.H(UD$,24);".......PRESS
SPACE BAR TO CONTINUE."...L..UI$:.UI$.."
".844...N...D.R.. ** PAGE DESIGN ROUTIN
E **.P.T.UP.UP.1...W.."."H(UT$.UP$,21);I
(UP$.UG$.D(UP),18).).\.." --------------
------------------------".8.`..UH..0.870
.L.A..H(UD$,24);H(UP$,7);"HELP - PRESS
* <RETURN>".~.F..UO,0:."..":....K.. **
PLEASE WAIT REMARK **.S.P..H(UD$,24);"
ONE MOMENT PLEASE... ".Y.U.
....... ** SET UP VARIABLES **.A...UX$."
*":.UQ%(1000):UB.32768:U1.196:U2.197:U3.
198:U4.216:UC.167:UU.1024....UT.59468:U
U%.12:UL%.14:UP%.1146:UM.32768:UO.158:.
50003,0.B....B(50003).0.UB.1024:U1.209:U
2.210:U3.211:U4.214:UC.204:UU.2048......
B(50003).0.UT.53272:UU%.21:UL%.23:UP%.21
39:UM.1024:UO.198.%...UD$.".............
............".W...UP$."
".|...UT$." HANGMA
N 3":. PROGRAM TITLE............ ** SET
VARIABLES **......900.....:.....:.L....
** CHECK FOR 8032 **......".":." ":. SHI
FTED SPACE......B(UB.40)..96..700......
** MEMORY CHECK **...... .(0).2000.937.\
...."....THIS MACHINE DOES NOT HAVE ENOU
GH."......"MEMORY TO RUN THIS PROGRAM !"
......UU.71............"..":.B(50003).0.
962.Z.... ** BASIC 2.0 OR 4.0 OR C-6
4 SETUP **......1075,133:.1076,144:.1077
,234:.1079,4:.1080,133:.1081,145.N....10
91,155:.1098,133:.1099,144:.1100,234:.11
03,133.P....1104,145:.1105,234:.1082,234
......B(50003)..160.955......1093,88:.10
94,228:.1097,85:.1102,228:.965.K....B(50
003)..1.990......1093,49:.1094,230:.1097
,46:.1102,230:.965.4 B..2099,141:.2100,2
0:.2101,3:.2103,8:.2104,141:.2105,21.P C
..2106,3:.2115,145:.2117,52:.2118,234:.2
121,49:.2122,141.. D..2123,20:.2124,3:.2
126,234:.2127,141:.2128,21:.2129,3.H E..
UU.48:. DISABLE STOP KEY.Y J..800:. TITL
E.. T..300:. MENU..!...".THE PGM WILL NO
T WORK ON THIS MACHINE!":..O!...UZ.1..UP
%:.UP%:UZ.0:. ** PROGRAM STARTS HERE **.
{!..."..";:.:.B(50003).0..53281,6:.53280
,14..!..UP.0:UG$."":UT$." HANGMAN 3":.".
":.850:.D.0. .C$(20):D.1.A!..."."..!F..
"............ENTER WORD SET DESIRED (1-5
) ";.."U.UP.1:US$."12345*":. 35:WS$.UR$.
7"Z.. WS$ ."0" . WS$ ."6". 1380.B"_.. 13
65.["D.. WS . (E(WS$).1).20.M"I.. WT . 1
. WS.V"N.. V$.."S.. WT:UG$."GUESS:".."X
.. ".":.850:.". ENTER DIFFICULTY FACTOR
(1-5) ".."}.."....... 1 EASIEST":."....
":.".... 2":." .".-#...".... 3":."....
":.".... 4":." .":." . 5 HARDEST".B#
..."....................................
........";..#..UP.1:US$."*12345":. 35:IO
$.UR$:IO.E(IO$)..#... WS.1 . 20:.C$(WS):
.WS..#... GP . 1 . 20.U#... RN . .(.(1).
20).1..#... C$(RN)."0". 1430..$ .. A$.C$
(RN):C$(RN)."0"..$... ".":UP.0:. 850.)$.
.. VI . 0.;$... IT . 1 . IO.F$... 1935.O
$... IT._$... A . C(A$).J$C.. AM.0.~$H..
E.0:MM.0:FI.0..$M.. I.1. A..$R.. B$(I).
J(A$,I,1)..$W.. I..$... I.1. A.R$..."...
..";.(2.I).16);".".Z$... I..%...".......
.......USED LETTERS: ";..%... UL . 1 .
( 9.IO).#%... ". ";.,%... UL.C%..UG$."GU
ESS:":."."H(UT$.UP$,21);I(UP$.UG$.D(UP),
18)..%..." -----------------------------
---------":UP.UP.1.X%...865:."..........
...................... .............. "
..&...".................GUESS A LETTER."
.,&..."................................
.";.6&... V.0.L&..US$."ABCDEFGHIJKLMNOP
QRSTUVWXYZ*":UL.1:.35:Z$.UR$.&... Z$.""
. 1535..&... I.1. A..&... Z$..B$(I). 16
15..&".. Z$." " . 1615..&'..PRINT ".....
...................CORRECT GUESS "..
',..".....";.(2.I).16);B$(I)."'1.. B$(I)
." ". 1615.2'6.. B$(I)." ".@';.. MM.MM.1
.R'@.. MM.A .1685.\'E.. V.1.G'J.. 1615.
O'O.. I.'T.. V.1 .1630..'Y.. 1640..'^..
FORK=1TO1000:NEXTK..'C..1535..'H..".....
...........................INCORRECT GUE
SS"..'M..QQ.1.1000:..+(R..".............
................... ".6(W.
.E.E.1.A(|..".................";.((E.1).
2).16);Z$.L(... 1935..(... E. ( 9.IO) .
1725..(...FOR I=1TO1000:NEXTI..(... 1535
.E(...".........* YOU WIN! *"..(...835:U
G$."":.850:.GP.20...!)..."... WANT TO PL
AY AGAIN? ";:UP.1:US$."YN":.35:.UR$."N".
..R)... "..........NEW DIFFICULTY FACTOR
(N/Y)? ";.O)..US$."YN":UL.1:.35:Q$.UR$.
.)... Q$ . "Y" . 1905..)... Q$ . "N" . .
1715..)... 1695..)... GP..)....T)..."..
.......* YOU HANG *".Z)B....*G.. "......
........THE WORD WAS ";A$:.1686.8*L.."..
..........NEW DIFFICULTY FACTOR (N/Y)?";
.L*M..".................................
..........";..*Q.UP.1:US$."YN":UL.1:.35:
Q$.UR$..*V.. Q$ . "Y" . 1905..*... Q$ .
"N" . . 1715.G*... 1745..+... NEXT,INTER
EST,LYNX,LANGUAGE,ASYLUM,FREEZE,LIMIT,SC
HOOL,RIDICULE.R+... COMPUTER,COMMENT,TOP
IC,WEIRD,BORING,USEFUL,PRESS,FORGET,SIMP
LE..+... READY,QUESTION,REPEAT,EXTEND,SO
CIETY,INVENTION..+... WATER,BRAKE,SAFETY
,WORSHIP.D+... PLANE,SCIENCE,BATTERY..,.
.. OBSCURE,SUFFICE,PRISM,VISUAL,FACETIOU
S,IMPROVE,CONTRARY,STUDY,REALM.U,... FRA
UD,CLERK,JUSTIFY,CHRISTEN,THUMB,THIMBLE,
CLARITY,ALGEBRA,PHASE..,... THISTLE,LIBR
ARY,BRANCH,DRAFT,GNAT,SPOUSE,ANSWER,WHAL
E,EXCLAIM..,... SPLIT,SHALE,CRAWL,TRAMP,
COMMIT,VERIFY,SLIGHT,ANCHOR,PNEUMATIC,CR
UTCH..-... TRAFFIC,RIGHT,CORNER,IMPACT.&
-... SURFACE,WRITE,POWER,GUIDE.H-... PER
MIT,EXCITE,VALLEY,CHEQUE.G-!.. MERGE,ROU
TE,DAMAGE,CANOE..-&.. WEATHER,SAILING,PA
VEMENT..-+.. THEATRE,CONSOLE,JOURNAL.B-0
.. NUCLEUS,HORIZON,TRIGGER..-5.. STOCK,S
TRUCTURE,BINARY..-:.. BOUQUET,ELECTRIC,N
OVELTY. .?.. ENGINE,SELECT,PENCIL,THREAT
.A.D.. OVERTHROW,BELIEVE,SYMPHONY.B.I..
QUALITY,SHUFFLE,CELLOPHANE...N.. MEMORY,
BECOME,SWITCH,KEYBOARD.Q.S.. FEATURE,PAS
SIVE,DISPLAY,SOCKET,BRIDGE,PLATINUM,THER
MAL,HOBBY,SPECIAL...X.. MANUAL,CLOSE,DES
TROY,PRIORITY,SCOPE.D/].. SHINE,SOLID,EN
TERTAIN,MOBILE,ASSEMBLE,SKILL,DELIVER,RA
CQUET,OBJECT.Z/B.. HANDLE,COMPLETE.T/G..
BIORHYTHM,DEFAULTER../L.. *** FINISHED!
***../Q..../V..1400.D/{.UP.1:US."12345*
":UL.1:.35:IO.E(UR$)../... IO . 1 . IO .
5 . 1915../... GP../... 1415..0... ***
DRAW VICTIM ***.!0... VI . VI . 1.Y0...
VI . 1950,2000,2010,2020,2030,2040,2050,
2060,2070.B0...:.:.W0... "..............
.0... "...."..0... "...."..0... "...."..
0... "...."..0... "....".N0... "........
........0A.. ". ...0F.. "....
............1K.. 2075..1P.. "...........
.W".&1U.. 2075.=1Z.. "..............".H1
... 2075.^1... ".............".I1... 207
5..1... "..............."..1... 2075..1.
.. "..............."..1... 2075.H1... ".
...............".S1... 2075..1... ".....
............."..1... 2075..2... ".......
............."..2......
> CLICK IMAGE PREVIEW FOR FULL MODAL