HANGMATH 1.C3
FILE INFORMATION
FILENAME(S): HANGMATH 1.C3
FILE TYPE(S): PRG
FILE SIZE: 10.3K
FIRST SEEN: 2025-10-20 14:31:29
APPEARS ON: 2 disk(s)
FILE HASH
e1e7070a3dede6327e4047248d28a7b22956ac2180ca07d6bb3e66281bd761a6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES | HANGMATH 1.C3 | PRG | Treasure Chest - Klaus Der Suhler | 23 | 0 | DOWNLOAD FILE |
| ICHAELS ISK 2 | HANGMATH 1.C3 | PRG | Treasure Chest - Thunderbird | 23 | 5 | 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 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 55 52 24 B2 22 22 3A 55 49 24 B2 |...(.UR$."":UI$.|
00000100: 22 22 3A 97 55 4F 2C 30 00 18 09 2A 00 8B 55 4C |"":.UO,0...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 2B 09 2D 00 99 22 20 |.0.UL.80.+.-.." |
00000120: 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 3F 09 32 00 | ..";:.UC,0.?.2.|
00000130: A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 |.UI$:.UI$."".50.|
00000140: 69 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 |i.7..UI$..(13)..|
00000150: 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 |(UR$)..1..UC,1:.|
00000160: 22 20 9D 22 3B 3A 89 38 35 00 7C 09 3C 00 8B 55 |" .";:.85.|.<..U|
00000170: 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 90 09 3E |I$..(20).105...>|
00000180: 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 |.. .(UR$)..UL.50|
00000190: 00 B5 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 |...A..120:. CHEC|
000001A0: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR|
000001B0: 41 43 54 45 52 00 C5 09 46 00 55 52 24 B2 55 52 |ACTER...F.UR$.UR|
000001C0: 24 AA 55 49 24 00 CF 09 4B 00 99 55 49 24 3B 00 |$.UI$...K..UI$;.|
000001D0: D7 09 50 00 89 35 30 00 FC 09 55 00 8F 20 2B 2B |..P..50...U.. ++|
000001E0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 |+ CHECK FOR HELP|
000001F0: 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 24 0A 5A | REQUEST +++.$.Z|
00000200: 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 |..UR$.UX$.195:. |
00000210: 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 |EXIT TO HELP ROU|
00000220: 54 49 4E 45 00 33 0A 5F 00 8B 55 46 B2 31 A7 8D |TINE.3._..UF.1..|
00000230: 32 34 30 00 40 0A 64 00 55 46 B2 30 3A 99 3A 8E |240.@.d.UF.0:.:.|
00000240: 00 59 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 |.Y.f.. ++ CHECK |
00000250: 44 45 4C 45 54 45 20 2B 2B 00 6A 0A 69 00 8B C3 |DELETE ++.j.i...|
00000260: 28 55 52 24 29 B3 31 A7 35 30 00 82 0A 6E 00 55 |(UR$).1.50...n.U|
00000270: 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB |R$..(UR$,.(UR$).|
00000280: 31 29 00 94 0A 73 00 99 22 9D 20 20 9D 9D 22 3B |1)...s..". ..";|
00000290: 3A 89 35 30 00 BB 0A 78 00 8F 20 2B 2B 20 43 48 |:.50...x.. ++ CH|
000002A0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH|
000002B0: 41 52 41 43 54 45 52 53 20 2B 2B 00 CD 0A 7D 00 |ARACTERS ++...}.|
000002C0: 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DE 0A |..(US$).0.150...|
000002D0: 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 F5 |...US.1..(US$)..|
000002E0: 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 |....UI$..(US$,US|
000002F0: 2C 31 29 A7 8E 00 FB 0A 8C 00 82 00 08 0B 91 00 |,1).............|
00000300: 55 49 24 B2 22 22 3A 8E 00 23 0B 96 00 8F 20 2A |UI$."":..#.... *|
00000310: 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 |* STANDARD INPUT|
00000320: 20 2A 2A 00 34 0B 98 00 8B C6 28 55 49 24 29 B2 | **.4.....(UI$).|
00000330: 34 36 A7 8E 00 45 0B 9B 00 8B 55 49 24 B2 C7 28 |46...E....UI$..(|
00000340: 33 32 29 A7 8E 00 62 0B A0 00 8B C6 28 55 49 24 |32)...b.....(UI$|
00000350: 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 |).48..(UI$).57.1|
00000360: 37 30 00 68 0B A5 00 8E 00 85 0B AA 00 8B C6 28 |70.h...........(|
00000370: 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 |UI$).65..(UI$).9|
00000380: 30 A7 31 38 30 00 8B 0B AF 00 8E 00 AF 0B B4 00 |0.180...........|
00000390: 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 |..(UI$).193..(UI|
000003A0: 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 |$).218.UI$."":..|
000003B0: D2 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 55 |......(UT).UU%.U|
000003C0: 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 |I$..(.(UI$).128)|
000003D0: 3A 8E 00 D8 0B BB 00 8E 00 E5 0B BE 00 55 49 24 |:............UI$|
000003E0: B2 22 22 3A 8E 00 0A 0C C3 00 55 46 B2 31 3A 8F |."":......UF.1:.|
000003F0: 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E | +++ HELP ROUTIN|
00000400: 45 20 45 58 49 54 20 2B 2B 2B 00 13 0C C5 00 8D |E EXIT +++......|
00000410: 32 35 30 00 1C 0C C8 00 8D 32 34 35 00 3B 0C CD |250......245.;..|
00000420: 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 |..UQ.UB.(U2%.256|
00000430: AA 55 31 25 AA 55 33 25 AB 32 29 00 57 0C D2 00 |.U1%.U3%.2).W...|
00000440: 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 |UQ%(UQ.UB)..(UQ)|
00000450: 3A 82 3A 99 22 93 22 00 6A 0C D7 00 55 5A B2 31 |:.:.".".j...UZ.1|
00000460: 3A 55 56 25 B2 C2 28 55 54 29 00 73 0C D8 00 89 |:UV%..(UT).s....|
00000470: 33 30 30 00 98 0C D9 00 55 5A B2 30 3A 55 53 24 |300.....UZ.0:US$|
00000480: B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 |.UJ$:UG$.UK$:UP.|
00000490: 55 4A 3A 55 4C B2 55 4B 00 CF 0C DA 00 8B C2 28 |UJ:UL.UK.......(|
000004A0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000004B0: 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 |1:.".";:.53281,6|
000004C0: 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 |:.53280,14:.220.|
000004D0: D9 0C DB 00 99 22 93 22 3B 00 08 0D DC 00 55 54 |.....".";.....UT|
000004E0: 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 |$.UL$:.UT,UV%:.U|
000004F0: 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 |Q.UB.(U2%.256.U1|
00000500: 25 AA 55 33 25 AB 33 29 00 1D 0D E1 00 97 55 51 |%.U3%.3)......UQ|
00000510: 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 29 0D |,UQ%(UQ.UB):..).|
00000520: E6 00 97 55 31 2C 55 31 25 00 35 0D E8 00 97 55 |...U1,U1%.5....U|
00000530: 32 2C 55 32 25 00 41 0D E9 00 97 55 34 2C 55 34 |2,U2%.A....U4,U4|
00000540: 25 00 4F 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 |%.O....U3,U3%.1.|
00000550: 57 0D EB 00 89 33 35 00 89 0D F0 00 55 44 25 B2 |W....35.....UD%.|
00000560: 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |((U2%.256.U1%.U3|
00000570: 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 |%).UB).40:..(UD$|
00000580: 2C 55 44 25 AA 31 29 3A 8E 00 C4 0D F5 00 99 C8 |,UD%.1):........|
00000590: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 |. HELP COMING . |
000005C0: 20 22 3A 8E 00 F0 0D FA 00 55 31 25 B2 C2 28 55 | ":......U1%..(U|
000005D0: 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 |1):U2%..(U2):U3%|
000005E0: B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 |..(U3):U4%..(U4)|
000005F0: 00 18 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 |.....UJ$.US$:UK$|
00000600: B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 |.UG$:UL$.UT$:UJ.|
00000610: 55 50 3A 55 4B B2 55 4C 00 1E 0E FF 00 8E 00 2F |UP:UK.UL......./|
00000620: 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 |.,.. ** MENU **.|
00000630: 35 0E 2D 01 3A 00 64 0E 2E 01 99 22 93 22 3A 97 |5.-.:.d....".":.|
00000640: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)|
00000650: B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 |.0..53281,9:.532|
00000660: 38 30 2C 38 00 6A 0E 2F 01 3A 00 87 0E 31 01 99 |80,8.j./.:...1..|
00000670: 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000680: 20 20 4D 45 4E 55 22 00 B6 0E 36 01 99 22 20 2D | MENU"...6.." -|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 22 00 DA 0E 3B 01 99 22 11 11 20 |-----"...;..".. |
000006C0: 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 4E | 1. BEGIN|
000006D0: 20 48 41 4E 47 4D 41 54 48 22 00 04 0F 40 01 99 | HANGMATH"...@..|
000006E0: 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 |".. 2. S|
000006F0: 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 |TUDENT INSTRUCTI|
00000700: 4F 4E 53 22 00 2E 0F 45 01 99 22 11 11 20 20 20 |ONS"...E..".. |
00000710: 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 | 3. TEACHER|
00000720: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 4A | INSTRUCTIONS".J|
00000730: 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 2E |.O..".. 4.|
00000740: 20 20 20 51 55 49 54 11 11 22 00 79 0F 54 01 99 | QUIT..".y.T..|
00000750: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A4 0F 59 01 99 22 |--------"...Y.."|
00000780: 11 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 |.. PRESS A|
00000790: 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 | NUMBER KEY (1-4|
000007A0: 29 20 22 3B 00 CC 0F 5E 01 55 4C B2 31 3A 55 53 |) ";...^.UL.1:US|
000007B0: 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 |$."1234":.35:. I|
000007C0: 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 D7 0F 60 |NPUT ROUTINE...`|
000007D0: 01 55 53 24 B2 22 22 00 F4 0F 63 01 91 C5 28 55 |.US$.""...c...(U|
000007E0: 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 |R$).1000,400,500|
000007F0: 2C 33 39 36 00 FD 0F 68 01 89 33 30 30 00 24 10 |,396...h..300.$.|
00000800: 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 |... ** RE-ENABLE|
00000810: 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E | STOP KEY AND EN|
00000820: 44 20 2A 2A 00 53 10 8C 01 8B C2 28 35 30 30 30 |D **.S.....(5000|
00000830: 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 |3)..1..(50003)..|
00000840: 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 |160..(50003)..0.|
00000850: 33 39 39 00 7D 10 8D 01 9E 55 55 AA 37 31 3A 8B |399.}....UU.71:.|
00000860: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000870: 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 89 10 |1,6:.53280,14...|
00000880: 8E 01 99 22 9A 93 22 3A 80 00 94 10 8F 01 8D 38 |..."..":.......8|
00000890: 37 35 3A 8E 00 B5 10 90 01 8F 20 2A 2A 20 53 54 |75:....... ** ST|
000008A0: 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |UDENT INSTRUCTIO|
000008B0: 4E 53 20 2A 2A 00 E4 10 95 01 99 22 93 22 3A 97 |NS **......".":.|
000008C0: 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UL%:..(50003)|
000008D0: B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 |.0..53281,0:.532|
000008E0: 38 30 2C 30 00 05 11 9A 01 55 50 B2 30 3A 55 47 |80,0.....UP.0:UG|
000008F0: 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 |$.".TUDENT .NST"|
00000900: 3A 8D 38 35 30 00 30 11 9B 01 99 22 20 20 20 C8 |:.850.0...." .|
00000910: 41 4E 47 4D 41 54 48 20 57 49 4C 4C 20 50 52 45 |ANGMATH WILL PRE|
00000920: 53 45 4E 54 20 59 4F 55 20 57 49 54 48 20 41 22 |SENT YOU WITH A"|
00000930: 00 5E 11 9C 01 99 22 11 1D 4D 55 4C 54 49 50 4C |.^...."..MULTIPL|
00000940: 49 43 41 54 49 4F 4E 20 50 52 4F 42 4C 45 4D 20 |ICATION PROBLEM |
00000950: 57 48 49 43 48 20 48 41 53 20 54 48 45 22 00 83 |WHICH HAS THE"..|
00000960: 11 9D 01 99 22 11 1D 44 49 47 49 54 53 20 52 45 |...."..DIGITS RE|
00000970: 50 4C 41 43 45 44 20 42 59 20 4C 45 54 54 45 52 |PLACED BY LETTER|
00000980: 53 2E 22 00 9A 11 9E 01 99 22 11 1D C6 4F 52 20 |S."......"...OR |
00000990: 45 58 41 4D 50 4C 45 3A 11 22 00 BF 11 9F 01 99 |EXAMPLE:."......|
000009A0: 22 20 20 20 20 20 20 20 20 C1 20 C2 A0 C6 20 20 |" . ... |
000009B0: 20 20 20 20 20 20 20 20 20 34 20 35 20 36 22 00 | 4 5 6".|
000009C0: E4 11 A0 01 99 22 20 20 20 20 20 20 20 2A 20 20 |....." * |
000009D0: C5 A0 C4 A0 20 20 20 20 20 20 20 20 20 2A 20 20 |.... * |
000009E0: 33 20 32 22 00 09 12 A1 01 99 22 20 20 20 20 20 |3 2"......" |
000009F0: 20 20 C0 C0 C0 C0 C0 C0 20 20 20 20 20 20 20 20 | ...... |
00000A00: 20 20 C0 C0 C0 C0 C0 C0 22 00 2E 12 A2 01 99 22 | ......"......"|
00000A10: 20 20 20 20 20 20 20 20 C8 20 C3 20 C4 20 20 20 | . . . |
00000A20: 20 20 20 20 20 20 20 20 39 20 31 20 32 22 00 51 | 9 1 2".Q|
00000A30: 12 A3 01 99 22 20 20 20 20 C3 20 C5 20 C6 20 C9 |...." . . . .|
00000A40: 20 20 20 20 20 20 20 20 20 31 20 33 20 36 20 38 | 1 3 6 8|
00000A50: 22 00 76 12 A4 01 99 22 20 20 20 20 C0 C0 C0 C0 |".v...." ....|
00000A60: C0 C0 C0 C0 C0 20 20 20 20 20 20 20 C0 C0 C0 C0 |..... ....|
00000A70: C0 C0 C0 C0 C0 22 00 9B 12 A5 01 99 22 20 20 20 |....."......" |
00000A80: 20 C3 20 C1 20 C2 20 C8 20 C4 A0 20 20 20 20 20 | . . . . .. |
00000A90: 20 31 20 34 20 35 20 39 20 32 22 00 CA 12 A6 01 | 1 4 5 9 2".....|
00000AA0: 99 22 11 20 20 20 20 C8 45 52 45 20 54 48 45 20 |.". .ERE THE |
00000AB0: 4C 45 54 54 45 52 20 27 C1 27 20 49 53 20 54 48 |LETTER '.' IS TH|
00000AC0: 45 20 44 49 47 49 54 20 34 22 00 F4 12 A7 01 99 |E DIGIT 4"......|
00000AD0: 22 11 1D D4 48 45 20 4C 45 54 54 45 52 20 27 C8 |"...HE LETTER '.|
00000AE0: 27 20 49 53 20 54 48 45 20 44 49 47 49 54 20 39 |' IS THE DIGIT 9|
00000AF0: 20 41 4E 44 00 09 13 A8 01 99 22 11 1D 53 4F 20 | AND......"..SO |
00000B00: 4F 4E 2E 22 3A 8D 38 33 35 00 12 13 A9 01 8D 38 |ON.":.835......8|
00000B10: 35 30 00 40 13 AA 01 99 22 11 20 20 20 D4 4F 20 |50.@....". .O |
00000B20: 45 4E 54 45 52 20 41 20 47 55 45 53 53 2C 20 4A |ENTER A GUESS, J|
00000B30: 55 53 54 20 54 59 50 45 20 49 4E 20 54 48 45 22 |UST TYPE IN THE"|
00000B40: 00 67 13 AB 01 99 22 11 1D 4C 45 54 54 45 52 20 |.g...."..LETTER |
00000B50: 41 4E 44 20 4E 55 4D 42 45 52 20 59 4F 55 20 54 |AND NUMBER YOU T|
00000B60: 48 49 4E 4B 20 49 54 00 B0 13 AC 01 99 22 11 1D |HINK IT......"..|
00000B70: 52 45 50 4C 41 43 45 44 2E 20 20 C6 4F 52 20 45 |REPLACED. .OR E|
00000B80: 58 41 4D 50 4C 45 2C 20 27 C1 34 27 20 11 20 20 |XAMPLE, '.4' . |
00000B90: 20 20 20 20 20 20 20 20 20 28 27 34 C1 27 20 57 | ('4.' W|
00000BA0: 49 4C 4C 20 41 4C 53 4F 20 57 4F 52 4B 29 2E 22 |ILL ALSO WORK)."|
00000BB0: 00 E0 13 AE 01 99 22 11 20 20 D9 4F 55 20 57 49 |......". .OU WI|
00000BC0: 4C 4C 20 42 45 20 47 49 56 45 4E 20 31 32 20 43 |LL BE GIVEN 12 C|
00000BD0: 48 41 4E 43 45 53 20 54 4F 20 53 4F 4C 56 45 22 |HANCES TO SOLVE"|
00000BE0: 00 1D 14 AF 01 99 22 11 1D 54 48 45 20 50 55 5A |......"..THE PUZ|
00000BF0: 5A 4C 45 20 42 45 46 4F 52 45 20 54 48 45 20 53 |ZLE BEFORE THE S|
00000C00: 4F 4C 55 54 49 4F 4E 20 49 53 20 20 20 20 20 20 |OLUTION IS |
00000C10: 20 11 44 49 53 50 4C 41 59 45 44 2E 22 00 5B 14 | .DISPLAYED.".[.|
00000C20: B0 01 99 22 11 20 20 20 C9 46 20 59 4F 55 20 50 |...". .F YOU P|
00000C30: 52 45 53 53 20 27 51 27 2C 20 54 48 45 20 53 4F |RESS 'Q', THE SO|
00000C40: 4C 55 54 49 4F 4E 20 57 49 4C 4C 20 20 11 1D 42 |LUTION WILL ..B|
00000C50: 45 20 47 49 56 45 4E 2E 22 3A 99 00 64 14 E5 01 |E GIVEN.":..d...|
00000C60: 8D 38 33 35 00 78 14 EA 01 8B 55 5A B2 31 A7 9E |.835.x....UZ.1..|
00000C70: 55 50 25 3A 89 32 31 37 00 7E 14 F3 01 8E 00 9F |UP%:.217.~......|
00000C80: 14 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 |.... ** TEACHER |
00000C90: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 |INSTRUCTIONS **.|
00000CA0: CF 14 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 |.....".":.UT,UL%|
00000CB0: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000CC0: 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 |281,2:.53280,10.|
00000CD0: F0 14 F6 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 |....UP.0:UG$.".E|
00000CE0: 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 |ACHER .NST":.850|
00000CF0: 00 1E 15 F7 01 99 22 11 11 20 20 20 20 20 20 D4 |......".. .|
00000D00: 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F 55 |O THE BEST OF OU|
00000D10: 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 47 |R KNOWLEDGE,.".G|
00000D20: 15 F8 01 99 22 20 20 20 54 48 49 53 20 50 52 4F |...." THIS PRO|
00000D30: 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 |GRAM IS IN THE P|
00000D40: 55 42 4C 49 43 11 22 00 73 15 F9 01 99 22 20 20 |UBLIC.".s...." |
00000D50: 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 | DOMAIN. .F THI|
00000D60: 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 53 |S IS NOT THE CAS|
00000D70: 45 11 22 00 90 15 FA 01 99 22 20 20 20 50 4C 45 |E."......" PLE|
00000D80: 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 |ASE CONTACT:..."|
00000D90: 00 BA 15 FB 01 99 22 20 20 20 20 20 20 C3 4F 4D |......" .OM|
00000DA0: 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 |MODORE .USINESS |
00000DB0: CD 41 43 48 49 4E 45 53 11 22 00 DD 15 FC 01 99 |.ACHINES."......|
00000DC0: 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 20 |" 3370 |
00000DD0: D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 01 16 |.HARMACY .VE....|
00000DE0: FD 01 99 22 20 20 20 20 20 20 20 20 20 20 C1 47 |..." .G|
00000DF0: 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F |INCOURT, .NTARIO|
00000E00: 22 00 23 16 FE 01 99 22 20 20 20 20 20 20 20 20 |".#...." |
00000E10: 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 | .ANADA .1. 2|
00000E20: CB 34 22 00 43 16 FF 01 99 22 20 20 20 20 20 20 |.4".C...." |
00000E30: 20 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 32 | (416) 499-42|
00000E40: 39 32 22 00 59 16 00 02 55 50 B2 31 3A 8D 20 38 |92".Y...UP.1:. 8|
00000E50: 33 35 3A 8D 20 38 35 30 3A 00 7E 16 01 02 99 22 |35:. 850:.~...."|
00000E60: 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE | ...ROGRAM .|
00000E70: 41 4D 45 3A 20 C8 41 4E 47 4D 41 54 48 11 00 A0 |AME: .ANGMATH...|
00000E80: 16 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 |...." .RITTE|
00000E90: 4E 20 C2 59 20 20 3A 20 D5 4E 4B 4E 4F 57 4E 11 |N .Y : .NKNOWN.|
00000EA0: 00 BB 16 03 02 99 22 20 20 20 20 20 D5 50 47 52 |......" .PGR|
00000EB0: 41 44 45 44 20 C2 59 20 3A 20 11 00 E6 16 04 02 |ADED .Y : ......|
00000EC0: 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F |." ..HIS PRO|
00000ED0: 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E |GRAM WILL RUN ON|
00000EE0: 20 41 4E 59 11 11 00 06 17 07 02 99 22 20 20 20 | ANY........" |
00000EF0: 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF CD | ... 64 ...|
00000F00: D0 D5 D4 C5 D2 11 00 2B 17 08 02 99 22 20 20 20 |.......+...." |
00000F10: 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 | ......... |
00000F20: 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 34 17 09 02 |64 .........4...|
00000F30: 8D 38 33 35 00 48 17 4E 02 8B 55 5A B2 31 A7 9E |.835.H.N..UZ.1..|
00000F40: 55 50 25 3A 89 32 31 37 00 4E 17 57 02 8E 00 74 |UP%:.217.N.W...t|
00000F50: 17 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 |.X.. ** PROGRAM |
00000F60: 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 |MODIFICATION INS|
00000F70: 54 20 2A 2A 00 85 17 59 02 99 22 93 22 3A 97 55 |T **...Y..".":.U|
00000F80: 54 2C 55 4C 25 00 A5 17 5D 02 55 50 B2 30 3A 55 |T,UL%...].UP.0:U|
00000F90: 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 |G$.".ROGRAM .OD"|
00000FA0: 3A 8D 38 35 30 00 AE 17 94 02 8D 38 33 35 00 C2 |:.850......835..|
00000FB0: 17 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |....UZ.1..UP%:.2|
00000FC0: 31 37 00 C8 17 BB 02 8E 00 ED 17 BC 02 8F 20 2A |17............ *|
00000FD0: 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F |* TO USE 8032 LO|
00000FE0: 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 23 18 |AD CBM4032 **.#.|
00000FF0: C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 |...".....BEFORE |
00001000: 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F |RUNNING THIS PRO|
00001010: 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 |GRAM ON AN 8032 |
00001020: 20 11 11 00 59 18 D0 02 99 22 20 20 20 20 20 20 | ...Y...." |
00001030: 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 |LOAD THE 'CBM 40|
00001040: 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 |32' PROGRAM.....|
00001050: 11 11 11 11 11 11 11 11 22 00 64 18 DA 02 9E 55 |........".d....U|
00001060: 55 AA 37 31 00 6A 18 E4 02 80 00 8F 18 1D 03 8F |U.71.j..........|
00001070: 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 | ** TO USE 8032 |
00001080: 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 |LOAD CBM4032 **.|
00001090: DA 18 1E 03 99 22 93 11 11 11 42 45 46 4F 52 45 |....."....BEFORE|
000010A0: 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 | RUNNING THIS PR|
000010B0: 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 |OGRAM ON AN 8032|
000010C0: 20 20 11 11 4C 4F 41 44 20 43 42 4D 20 34 30 33 | ..LOAD CBM 403|
000010D0: 32 20 50 52 4F 47 52 41 4D 22 00 E6 18 1F 03 9E |2 PROGRAM"......|
000010E0: 31 30 39 33 3A 80 00 06 19 20 03 8F 20 2A 2A 20 |1093:.... .. ** |
000010F0: 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 |T I T L E P A |
00001100: 47 20 45 20 2A 2A 00 3A 19 22 03 99 22 93 11 1D |G E **.:.".."...|
00001110: 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 |.";:.UT,UU%:..(5|
00001120: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 |0003).0..53280,1|
00001130: 34 3A 97 35 33 32 38 31 2C 36 00 50 19 24 03 81 |4:.53281,6.P.$..|
00001140: 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 |I.1.38:."...";:.|
00001150: 00 68 19 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 |.h.&..I.1.22:.".|
00001160: 9D 12 A6 92 22 3B 3A 82 00 80 19 28 03 81 49 B2 |....";:....(..I.|
00001170: 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 |1.37:.".....";:.|
00001180: 00 98 19 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 |...*..I.1.22:.".|
00001190: 9D 12 A6 92 22 3B 3A 82 00 BD 19 2C 03 99 22 13 |....";:....,..".|
000011A0: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000011B0: 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 DF 19 |.......... ....|
000011C0: 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
000011D0: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 |....... . . ...|
000011E0: 00 1A 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..0.."..........|
000011F0: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF |......... . ...|
00001200: 00 1E 1A 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |...2..".........|
00001210: 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 46 |........... ..F|
00001220: 1A 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |.4.."...........|
00001230: 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F |...C O M M O D O|
00001240: 20 52 20 45 11 11 00 69 1A 36 03 99 22 1D 1D 1D | R E...i.6.."...|
00001250: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 |............EDUC|
00001260: 41 54 49 4F 4E 41 4C 11 11 00 88 1A 38 03 99 22 |ATIONAL.....8.."|
00001270: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001280: 53 4F 46 54 57 41 52 45 00 A3 1A 3A 03 8F 20 2A |SOFTWARE...:.. *|
00001290: 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F |* COMMODORE LOGO|
000012A0: 20 2A 2A 00 DB 1A 3B 03 99 C8 28 55 44 24 2C 32 | **...;...(UD$,2|
000012B0: 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 |4);"..........PR|
000012C0: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 |ESS SPACE BAR OR|
000012D0: 20 57 41 49 54 92 22 3A 49 B2 30 00 FD 1A 3C 03 | WAIT.":I.0...<.|
000012E0: A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 |.A$:.A$.." ".I.I|
000012F0: AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 21 1B |.1:.I.250.828.!.|
00001300: 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A |>.T1$."":T2$."":|
00001310: 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 |T3$."":T4$."":I.|
00001320: 30 00 2A 1B 40 03 89 33 30 30 00 46 1B 43 03 8F |0.*.@..300.F.C..|
00001330: 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 | ** SPACE BAR PR|
00001340: 45 53 53 20 2A 2A 00 81 1B 48 03 99 C8 28 55 44 |ESS **...H...(UD|
00001350: 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 |$,24);".......PR|
00001360: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F |ESS SPACE BAR TO|
00001370: 20 43 4F 4E 54 49 4E 55 45 92 22 3A 97 55 4F 2C | CONTINUE.":.UO,|
00001380: 30 00 98 1B 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 |0...L..UI$:.UI$.|
00001390: B1 22 20 22 A7 38 34 34 00 9E 1B 4E 03 8E 00 BE |." ".844...N....|
000013A0: 1B 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 |.R.. ** PAGE DES|
000013B0: 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 CA |IGN ROUTINE **..|
000013C0: 1B 54 03 55 50 B2 55 50 AA 31 00 F4 1B 57 03 99 |.T.UP.UP.1...W..|
000013D0: 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 |".".(UT$.UP$,21)|
000013E0: 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 |;.(UP$.UG$..(UP)|
000013F0: 2C 31 38 29 00 23 1C 5C 03 99 22 20 2D 2D 2D 2D |,18).#.\.." ----|
00001400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001420: 2D 2D 22 00 32 1C 60 03 8B 55 48 B3 B1 30 A7 38 |--".2.`..UH..0.8|
00001430: 37 30 00 66 1C 61 03 99 C8 28 55 44 24 2C 32 34 |70.f.a...(UD$,24|
00001440: 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 |);.(UP$,7);"HELP|
00001450: 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 | - PRESS H <RE|
00001460: 54 55 52 4E 3E 22 00 77 1C 66 03 55 48 B2 30 3A |TURN>".w.f.UH.0:|
00001470: 99 22 13 11 22 3A 8E 00 96 1C 6B 03 8F 20 2A 2A |."..":....k.. **|
00001480: 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D | PLEASE WAIT REM|
00001490: 41 52 4B 20 2A 2A 00 CC 1C 70 03 99 C8 28 55 44 |ARK **...p...(UD|
000014A0: 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 |$,24);" |
000014B0: 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 | ONE MOMENT PLE|
000014C0: 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 D2 1C 75 |ASE... "...u|
000014D0: 03 8E 00 EF 1C 84 03 8F 20 2A 2A 20 53 45 54 20 |........ ** SET |
000014E0: 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |UP VARIABLES **.|
000014F0: 3A 1D 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 |:...UX$."H":.UQ%|
00001500: 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A |(1000):UB.32768:|
00001510: 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 |U1.196:U2.197:U3|
00001520: B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 |.198:U4.216:UC.1|
00001530: 36 37 3A 55 55 B2 31 30 32 34 00 78 1D 86 03 55 |67:UU.1024.x...U|
00001540: 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 |T.59468:UU%.12:U|
00001550: 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 |L%.14:UP%.1146:U|
00001560: 4D B2 33 32 37 36 38 3A 97 20 35 30 30 30 33 2C |M.32768:. 50003,|
00001570: 30 3A 55 4F B2 31 35 38 00 BB 1D 87 03 8B C2 28 |0:UO.158.......(|
00001580: 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 |50003).0.UB.1024|
00001590: 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 |:U1.209:U2.210:U|
000015A0: 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 |3.211:U4.214:UC.|
000015B0: 32 30 34 3A 55 55 B2 32 30 34 38 00 FA 1D 88 03 |204:UU.2048.....|
000015C0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 |..(50003).0.UT.5|
000015D0: 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 |3272:UU%.21:UL%.|
000015E0: 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 |23:UP%.2139:UM.1|
000015F0: 30 32 34 3A 55 4F B2 31 39 38 00 1E 1E 89 03 55 |024:UO.198.....U|
00001600: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
00001610: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 50 |.............".P|
00001620: 1E 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 |...UP$." |
00001630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001650: 00 9D 1E 8B 03 55 54 24 B2 22 20 C8 C1 CE C7 CD |.....UT$." .....|
00001660: C1 D4 C8 20 20 20 20 20 20 A0 A0 A0 22 3A 8F 20 |... ...":. |
00001670: 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 |PLACE PROGRAM TI|
00001680: 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 21 |TLE HERE !!!!!!!|
00001690: 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 A3 1E |!!!!!!!!!!***...|
000016A0: 8C 03 8E 00 BD 1E 8E 03 8F 20 2A 2A 20 53 45 54 |......... ** SET|
000016B0: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 C6 1E | VARIABLES **...|
000016C0: 93 03 8D 39 30 30 00 F8 1E 94 03 86 20 41 28 34 |...900...... A(4|
000016D0: 2C 35 29 2C 42 28 34 2C 35 29 2C 43 28 34 2C 35 |,5),B(4,5),C(4,5|
000016E0: 29 2C 45 24 28 34 2C 35 29 2C 48 4D 24 28 31 32 |),E$(4,5),HM$(12|
000016F0: 29 2C 50 24 28 31 33 29 00 0E 1F 95 03 81 4A B2 |),P$(13)......J.|
00001700: 31 A4 31 32 3A 87 48 4D 24 28 4A 29 3A 82 00 29 |1.12:.HM$(J):..)|
00001710: 1F 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F |.... ** CHECK FO|
00001720: 52 20 38 30 33 32 20 2A 2A 00 47 1F 9D 03 99 22 |R 8032 **.G...."|
00001730: 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 |.":.".":. SHIFTE|
00001740: 44 20 53 50 41 43 45 00 5E 1F A2 03 8B C2 28 55 |D SPACE.^.....(U|
00001750: 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 77 |B.40)..96..700.w|
00001760: 1F A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 |.... ** MEMORY C|
00001770: 48 45 43 4B 20 2A 2A 00 8B 1F A4 03 8B 20 B8 28 |HECK **...... .(|
00001780: 30 29 B1 32 30 30 30 A7 39 33 37 00 B9 1F A5 03 |0).2000.937.....|
00001790: 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 |."....THIS MACHI|
000017A0: 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 |NE DOES NOT HAVE|
000017B0: 20 45 4E 4F 55 47 48 11 22 00 DD 1F A6 03 99 22 | ENOUGH."......"|
000017C0: 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 |MEMORY TO RUN TH|
000017D0: 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 E8 1F |IS PROGRAM !"...|
000017E0: A7 03 9E 55 55 AA 37 31 00 EE 1F A8 03 80 00 08 |...UU.71........|
000017F0: 20 A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 | ..."..":..(5000|
00001800: 33 29 B2 30 A7 39 36 32 00 37 20 AC 03 8F 20 2A |3).0.962.7 ... *|
00001810: 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 |* BASIC 2.0 OR |
00001820: 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 | 4.0 OR C-64 S|
00001830: 45 54 55 50 20 2A 2A 00 75 20 AD 03 97 31 30 37 |ETUP **.u ...107|
00001840: 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A |5,133:.1076,144:|
00001850: 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C |.1077,234:.1079,|
00001860: 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 |4:.1080,133:.108|
00001870: 31 2C 31 34 35 00 AB 20 AE 03 97 31 30 39 31 2C |1,145.. ...1091,|
00001880: 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 |155:.1098,133:.1|
00001890: 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 |099,144:.1100,23|
000018A0: 34 3A 97 31 31 30 33 2C 31 33 33 00 CD 20 AF 03 |4:.1103,133.. ..|
000018B0: 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C |.1104,145:.1105,|
000018C0: 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 E4 20 |234:.1082,234.. |
000018D0: B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |....(50003)..160|
000018E0: A7 39 35 35 00 13 21 B6 03 97 31 30 39 33 2C 38 |.955..!...1093,8|
000018F0: 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 |8:.1094,228:.109|
00001900: 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 |7,85:.1102,228:.|
00001910: 39 36 35 00 28 21 BB 03 8B C2 28 35 30 30 30 33 |965.(!....(50003|
00001920: 29 B3 B1 31 A7 39 39 30 00 57 21 C0 03 97 31 30 |)..1.990.W!...10|
00001930: 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A |93,49:.1094,230:|
00001940: 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 |.1097,46:.1102,2|
00001950: 33 30 3A 89 39 36 35 00 91 21 C2 03 97 32 30 39 |30:.965..!...209|
00001960: 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 |9,141:.2100,20:.|
00001970: 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 |2101,3:.2103,8:.|
00001980: 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 |2104,141:.2105,2|
00001990: 31 00 CD 21 C3 03 97 32 31 30 36 2C 33 3A 97 32 |1..!...2106,3:.2|
000019A0: 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 |115,145:.2117,52|
000019B0: 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 |:.2118,234:.2121|
000019C0: 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 07 22 |,49:.2122,141.."|
000019D0: C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 |...2123,20:.2124|
000019E0: 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 |,3:.2126,234:.21|
000019F0: 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A |27,141:.2128,21:|
00001A00: 97 32 31 32 39 2C 33 00 25 22 C5 03 9E 55 55 AA |.2129,3.%"...UU.|
00001A10: 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F |48:. DISABLE STO|
00001A20: 50 20 4B 45 59 00 36 22 CA 03 8D 38 30 30 3A 8F |P KEY.6"...800:.|
00001A30: 20 54 49 54 4C 45 00 46 22 D4 03 89 33 30 30 3A | TITLE.F"...300:|
00001A40: 8F 20 4D 45 4E 55 00 77 22 DE 03 99 22 93 54 48 |. MENU.w"...".TH|
00001A50: 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 |E PGM WILL NOT W|
00001A60: 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 |ORK ON THIS MACH|
00001A70: 49 4E 45 21 22 3A 80 00 AC 22 E8 03 8B 55 5A B2 |INE!":..."...UZ.|
00001A80: 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 |1..UP%:.UP%:UZ.0|
00001A90: 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 |:. ** PROGRAM ST|
00001AA0: 41 52 54 53 20 48 45 52 45 20 2A 2A 00 D7 22 E9 |ARTS HERE **..".|
00001AB0: 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 |.."..";:.:..(500|
00001AC0: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.|
00001AD0: 35 33 32 38 30 2C 36 00 09 23 1A 04 58 58 24 B2 |53280,6..#..XX$.|
00001AE0: 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00001AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B00: 20 20 20 20 20 20 20 20 22 00 1E 23 24 04 53 24 | "..#$.S$|
00001B10: B2 22 13 11 11 11 11 11 11 11 11 11 11 22 00 5B |."...........".[|
00001B20: 23 42 04 83 20 48 45 41 44 2C 55 50 50 45 52 20 |#B.. HEAD,UPPER |
00001B30: 42 4F 44 59 2C 4C 4F 57 45 52 20 42 4F 44 59 2C |BODY,LOWER BODY,|
00001B40: 4C 45 46 54 20 41 52 4D 2C 52 49 47 48 54 20 41 |LEFT ARM,RIGHT A|
00001B50: 52 4D 2C 4C 45 46 54 20 4C 45 47 00 95 23 4C 04 |RM,LEFT LEG..#L.|
00001B60: 83 20 52 49 47 48 54 20 4C 45 47 2C 4C 45 46 54 |. RIGHT LEG,LEFT|
00001B70: 20 48 41 4E 44 2C 52 49 47 48 54 20 48 41 4E 44 | HAND,RIGHT HAND|
00001B80: 2C 4C 45 46 54 20 46 4F 4F 54 2C 52 49 47 48 54 |,LEFT FOOT,RIGHT|
00001B90: 20 46 4F 4F 54 00 BE 23 56 04 83 20 22 20 20 20 | FOOT..#V.. " |
00001BA0: 20 20 20 20 2A 2A 2A 2A 2A 20 59 4F 55 27 52 45 | ***** YOU'RE|
00001BB0: 20 48 55 4E 47 21 21 20 2A 2A 2A 2A 2A 22 00 07 | HUNG!! *****"..|
00001BC0: 24 60 04 50 24 28 30 29 B2 22 9D 9D 9D 9D 9D 9D |$`.P$(0)."......|
00001BD0: 9D 9D 9D 9D 9D 9D 12 C0 C0 C0 B1 C0 C0 C0 C0 C0 |................|
00001BE0: C0 C0 C0 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 11 |................|
00001BF0: 20 20 48 41 4E 47 4D 41 54 48 20 20 9D 9D 9D 9D | HANGMATH ....|
00001C00: 9D 9D 9D 9D 9D 91 22 00 3D 24 6A 04 50 24 28 30 |......".=$j.P$(0|
00001C10: 29 B2 50 24 28 30 29 AA 22 91 DD 91 9D DD 91 9D |).P$(0).".......|
00001C20: DD 91 9D DD 91 9D DD 91 9D DD 91 9D DD 91 9D DD |................|
00001C30: 91 9D B0 C0 C0 C0 C0 2E 92 11 9D DD 22 00 56 24 |............".V$|
00001C40: 74 04 50 24 28 31 29 B2 22 9D 9D 9D 9D 91 91 91 |t.P$(1).".......|
00001C50: 91 91 91 91 D7 22 00 6E 24 7E 04 50 24 28 32 29 |.....".n$~.P$(2)|
00001C60: B2 22 9D 9D 9D 9D 91 91 91 91 91 91 DB 22 00 85 |."..........."..|
00001C70: 24 88 04 50 24 28 33 29 B2 22 9D 9D 9D 9D 91 91 |$..P$(3)."......|
00001C80: 91 91 91 B1 22 00 9E 24 92 04 50 24 28 34 29 B2 |...."..$..P$(4).|
00001C90: 22 9D 9D 9D 9D 9D 91 91 91 91 91 91 AD 22 00 B5 |"............"..|
00001CA0: 24 9C 04 50 24 28 35 29 B2 22 9D 9D 9D 91 91 91 |$..P$(5)."......|
00001CB0: 91 91 91 BD 22 00 CD 24 A6 04 50 24 28 36 29 B2 |...."..$..P$(6).|
00001CC0: 22 9D 9D 9D 9D 9D 91 91 91 91 91 D5 22 00 E3 24 |"..........."..$|
00001CD0: B0 04 50 24 28 37 29 B2 22 9D 9D 9D 91 91 91 91 |..P$(7).".......|
00001CE0: 91 C9 22 00 FD 24 BA 04 50 24 28 38 29 B2 22 9D |.."..$..P$(8).".|
00001CF0: 9D 9D 9D 9D 91 91 91 91 91 91 91 BB 22 00 15 25 |............"..%|
00001D00: C4 04 50 24 28 39 29 B2 22 9D 9D 9D 91 91 91 91 |..P$(9).".......|
00001D10: 91 91 91 AC 22 00 2D 25 CE 04 50 24 28 31 30 29 |....".-%..P$(10)|
00001D20: B2 22 9D 9D 9D 9D 9D 91 91 91 91 BE 22 00 43 25 |."..........".C%|
00001D30: D8 04 50 24 28 31 31 29 B2 22 9D 9D 9D 91 91 91 |..P$(11)."......|
00001D40: 91 BC 22 00 79 25 E2 04 50 24 28 31 32 29 B2 22 |..".y%..P$(12)."|
00001D50: 9D 9D 9D 9D 9D 91 91 91 91 91 91 AC DD BB 11 9D |................|
00001D60: 9D 9D AD DB BD 11 9D 9D 9D D5 B1 C9 11 9D 9D 9D |................|
00001D70: BC 20 BE 11 11 11 1D 1D 22 00 BF 25 EC 04 50 24 |. ......"..%..P$|
00001D80: 28 31 33 29 B2 22 9D 9D 9D 9D 9D 91 91 91 91 91 |(13)."..........|
00001D90: 91 91 20 1D 20 11 9D 9D 9D 20 DD 20 11 9D 9D 9D |.. . .... . ....|
00001DA0: 20 20 20 11 9D 9D 9D 20 20 20 11 9D 9D 9D 20 20 | .... .... |
00001DB0: 20 11 11 11 1D 1D 22 3A 97 55 54 2C 55 55 25 00 | .....":.UT,UU%.|
00001DC0: D8 25 F6 04 99 22 93 20 53 45 54 54 49 4E 47 20 |.%...". SETTING |
00001DD0: 55 50 20 2E 2E 2E 2E 22 00 01 26 00 05 81 42 B2 |UP ...."..&...B.|
00001DE0: 30 A4 31 30 3A 4B 28 42 29 B2 AB 31 3A 51 24 28 |0.10:K(B)..1:Q$(|
00001DF0: 42 29 B2 22 22 3A 43 4B 24 28 42 29 B2 22 22 3A |B)."":CK$(B)."":|
00001E00: 82 00 12 26 0A 05 99 53 24 3B 22 11 11 11 11 11 |...&...S$;".....|
00001E10: 11 22 00 2A 26 14 05 57 B2 30 3A 46 24 B2 22 22 |.".*&..W.0:F$.""|
00001E20: 3A 52 31 B2 BB 28 AB 54 49 29 00 3E 26 1E 05 43 |:R1..(.TI).>&..C|
00001E30: 24 B2 22 41 42 43 44 45 46 47 48 49 4A 22 00 54 |$."ABCDEFGHIJ".T|
00001E40: 26 28 05 52 B2 B5 28 C3 28 43 24 29 AC BB 28 31 |&(.R..(.(C$)..(1|
00001E50: 29 AA 31 29 00 6E 26 32 05 4E 24 B2 CA 28 43 24 |).1).n&2.N$..(C$|
00001E60: 2C 52 2C 31 29 3A 46 24 B2 46 24 AA 4E 24 00 8A |,R,1):F$.F$.N$..|
00001E70: 26 3C 05 8B 52 B1 31 A7 54 24 B2 C8 28 43 24 2C |&<..R.1.T$..(C$,|
00001E80: 52 AB 31 29 3A 89 31 33 36 30 00 94 26 46 05 54 |R.1):.1360..&F.T|
00001E90: 24 B2 22 22 00 A8 26 50 05 43 24 B2 54 24 AA CA |$.""..&P.C$.T$..|
00001EA0: 28 43 24 2C 52 AA 31 29 00 BA 26 5A 05 8B C3 28 |(C$,R.1)..&Z...(|
00001EB0: 43 24 29 B1 30 A7 31 33 32 30 00 CE 26 64 05 8B |C$).0.1320..&d..|
00001EC0: C3 28 46 24 29 B3 B1 31 30 A7 31 33 30 30 00 E7 |.(F$)..10.1300..|
00001ED0: 26 6E 05 4E 28 30 29 B2 31 30 30 AA B5 28 BB 28 |&n.N(0).100..(.(|
00001EE0: 31 29 AC 39 30 30 29 00 FE 26 78 05 4E 28 31 29 |1).900)..&x.N(1)|
00001EF0: B2 31 30 AA B5 28 BB 28 31 29 AC 39 30 29 00 21 |.10..(.(1).90).!|
00001F00: 27 82 05 4E 28 32 29 B2 4E 28 30 29 AC 28 4E 28 |'..N(2).N(0).(N(|
00001F10: 31 29 AB 31 30 AC B5 28 4E 28 31 29 AD 31 30 29 |1).10..(N(1).10)|
00001F20: 29 00 3A 27 8C 05 4E 28 33 29 B2 4E 28 30 29 AC |).:'..N(3).N(0).|
00001F30: B5 28 4E 28 31 29 AD 31 30 29 00 4D 27 96 05 4E |.(N(1).10).M'..N|
00001F40: 28 34 29 B2 4E 28 30 29 AC 4E 28 31 29 00 6A 27 |(4).N(0).N(1).j'|
00001F50: A0 05 8B 31 30 AC B5 28 4E 28 31 29 AD 31 30 29 |...10..(N(1).10)|
00001F60: B2 4E 28 31 29 A7 31 34 30 30 00 80 27 AA 05 81 |.N(1).1400..'...|
00001F70: 58 B2 30 A4 34 3A 43 B2 30 3A 81 59 B2 31 A4 35 |X.0.4:C.0:.Y.1.5|
00001F80: 00 9F 27 B4 05 41 28 58 2C 59 29 B2 B5 28 4E 28 |..'..A(X,Y)..(N(|
00001F90: 58 29 AD B5 28 31 30 AE 28 35 AB 59 29 29 29 00 |X)..(10.(5.Y))).|
00001FA0: B3 27 BE 05 42 28 58 2C 59 29 B2 41 28 58 2C 59 |.'..B(X,Y).A(X,Y|
00001FB0: AB 31 29 00 F3 27 C8 05 43 28 58 2C 59 29 B2 41 |.1)..'..C(X,Y).A|
00001FC0: 28 58 2C 59 29 AB 31 30 AC 42 28 58 2C 59 29 3A |(X,Y).10.B(X,Y):|
00001FD0: 45 24 28 58 2C 59 29 B2 CA 28 46 24 2C 43 28 58 |E$(X,Y)..(F$,C(X|
00001FE0: 2C 59 29 AA 31 2C 31 29 3A 43 B2 43 AA 43 28 58 |,Y).1,1):C.C.C(X|
00001FF0: 2C 59 29 00 07 28 D2 05 8B 43 B2 30 A7 45 24 28 |,Y)..(...C.0.E$(|
00002000: 58 2C 59 29 B2 22 22 00 1F 28 DC 05 82 3A 4C 28 |X,Y).""..(...:L(|
00002010: 58 29 B2 C3 28 C4 28 4E 28 58 29 29 29 3A 82 00 |X)..(.(N(X))):..|
00002020: 3D 28 E6 05 99 22 13 48 41 4E 47 4D 41 54 48 20 |=(...".HANGMATH |
00002030: 20 20 20 20 20 20 20 11 2A 91 9D 22 3B 00 54 28 | .*..";.T(|
00002040: F0 05 81 58 B2 30 A4 34 3A 81 59 B2 31 A4 35 3A |...X.0.4:.Y.1.5:|
00002050: 54 B2 32 30 00 62 28 FA 05 8B 58 B2 33 A7 54 B2 |T.20.b(...X.3.T.|
00002060: 31 38 00 7D 28 04 06 99 A3 54 AB 4C 28 58 29 29 |18.}(....T.L(X))|
00002070: 3B 45 24 28 58 2C 59 29 3B 22 20 22 3B 00 A3 28 |;E$(X,Y);" ";..(|
00002080: 0E 06 82 3A 8B 58 B2 31 B0 58 B2 33 A7 99 3A 99 |...:.X.1.X.3..:.|
00002090: A3 31 33 29 3B 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.13);"..........|
000020A0: C0 91 22 00 C5 28 18 06 99 3A 82 3A 99 3A 99 3A |.."..(...:.:.:.:|
000020B0: 99 3A 99 22 54 59 50 45 20 3C 48 3E 20 46 4F 52 |.:."TYPE <H> FOR|
000020C0: 20 48 45 4C 50 00 D4 28 22 06 8B 57 B2 30 A7 8D | HELP..("..W.0..|
000020D0: 32 36 39 30 00 FF 28 2C 06 54 B2 31 3A 8D 32 34 |2690..(,.T.1:.24|
000020E0: 32 30 3A 8B 46 A7 99 22 12 51 55 49 54 22 3A 57 |20:.F..".QUIT":W|
000020F0: B2 31 32 3A 8D 32 36 39 30 3A 89 31 38 38 30 00 |.12:.2690:.1880.|
00002100: 3B 29 36 06 81 4A B2 30 A4 31 30 3A 8B 5A 24 B2 |;)6..J.0.10:.Z$.|
00002110: 43 4B 24 28 4A 29 A7 4D 24 B2 5A 24 AA 22 20 3D |CK$(J).M$.Z$." =|
00002120: 22 AA C4 28 4A 29 AA 22 2C 20 42 4F 5A 4F 22 3A |"..(J).", BOZO":|
00002130: 8D 32 36 32 30 3A 89 31 35 38 30 00 78 29 40 06 |.2620:.1580.x)@.|
00002140: 82 3A 8B 4E B2 4B 28 4E 29 A7 4D 24 B2 CA 28 46 |.:.N.K(N).M$..(F|
00002150: 24 2C 4E AA 31 2C 31 29 AA 22 20 3D 22 AA C4 28 |$,N.1,1)." ="..(|
00002160: 4E 29 AA 22 2C 20 44 55 4D 42 4F 22 3A 8D 32 36 |N).", DUMBO":.26|
00002170: 32 30 3A 89 31 35 38 30 00 AF 29 4A 06 8B 5A 24 |20:.1580..)J..Z$|
00002180: B2 51 24 28 4E 29 A7 4D 24 B2 22 59 4F 55 20 47 |.Q$(N).M$."YOU G|
00002190: 55 45 53 53 45 44 20 54 48 41 54 20 42 45 46 4F |UESSED THAT BEFO|
000021A0: 52 45 22 3A 8D 32 36 32 30 3A 89 31 35 38 30 00 |RE":.2620:.1580.|
000021B0: C8 29 54 06 8B 5A 24 B2 CA 28 46 24 2C 4E AA 31 |.)T..Z$..(F$,N.1|
000021C0: 2C 31 29 A7 31 36 38 30 00 E1 29 5E 06 57 B2 57 |,1).1680..)^.W.W|
000021D0: AA 31 3A 51 24 28 4E 29 B2 5A 24 3A 8D 32 36 39 |.1:Q$(N).Z$:.269|
000021E0: 30 00 21 2A 68 06 8B 57 B2 31 A7 99 22 91 91 20 |0.!*h..W.1..".. |
000021F0: 20 20 20 20 20 20 20 20 20 20 20 59 4F 55 52 20 | YOUR |
00002200: 47 55 45 53 53 45 53 11 9D 9D 9D 9D 9D 9D 9D 9D |GUESSES.........|
00002210: 9D 9D 9D 9D A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00002220: 22 00 3B 2A 72 06 99 A3 57 AC 31 30 AB 31 30 29 |".;*r...W.10.10)|
00002230: 3B 5A 24 3B 22 20 3D 22 3B 4E 3B 00 4A 2A 7C 06 |;Z$;" =";N;.J*|.|
00002240: 8B 57 B2 31 32 A7 31 38 38 30 00 54 2A 86 06 89 |.W.12.1880.T*...|
00002250: 31 35 38 30 00 6C 2A 90 06 4E 31 B2 35 30 3A 81 |1580.l*..N1.50:.|
00002260: 58 B2 30 A4 34 3A 81 59 B2 31 A4 35 00 9E 2A 9A |X.0.4:.Y.1.5..*.|
00002270: 06 8B 45 24 28 58 2C 59 29 B2 5A 24 A7 45 24 28 |..E$(X,Y).Z$.E$(|
00002280: 58 2C 59 29 B2 22 9D 22 AA C4 28 4E 29 3A 43 4B |X,Y)."."..(N):CK|
00002290: 24 28 4E 29 B2 5A 24 3A 4B 28 4E 29 B2 4E 00 B3 |$(N).Z$:K(N).N..|
000022A0: 2A A4 06 8B 45 24 28 58 2C 59 29 B2 22 22 A7 31 |*...E$(X,Y)."".1|
000022B0: 37 34 30 00 C4 2A AE 06 4D B2 C6 28 45 24 28 58 |740..*..M..(E$(X|
000022C0: 2C 59 29 29 00 D3 2A B8 06 8B 4D B2 31 35 37 A7 |,Y))..*...M.157.|
000022D0: 4D B2 30 00 E2 2A C2 06 8B 4D B1 4E 31 A7 4E 31 |M.0..*...M.N1.N1|
000022E0: B2 4D 00 EC 2A CC 06 82 59 3A 82 58 00 FC 2A D6 |.M..*...Y:.X..*.|
000022F0: 06 8B 4E 31 B3 36 30 A7 31 37 37 30 00 08 2B E0 |..N1.60.1770..+.|
00002300: 06 99 3A 89 31 35 31 30 00 38 2B EA 06 99 22 11 |..:.1510.8+...".|
00002310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **|
00002320: 2A 2A 2A 2A 2A 2A 2A 2A 20 20 20 20 20 20 20 20 |******** |
00002330: 20 20 20 20 20 20 1D 22 00 6C 2B F4 06 99 22 20 | .".l+..." |
00002340: 20 20 20 20 20 20 20 20 20 20 20 20 20 59 4F 55 | YOU|
00002350: 20 47 4F 54 20 49 54 20 20 20 20 20 20 20 20 20 | GOT IT |
00002360: 20 20 20 20 20 22 3A 89 32 30 33 30 00 9B 2B FE | ":.2030..+.|
00002370: 06 99 22 91 20 20 20 20 20 20 20 20 20 20 59 4F |..". YO|
00002380: 55 20 48 41 44 22 57 22 4D 49 53 54 41 4B 45 53 |U HAD"W"MISTAKES|
00002390: 20 20 20 20 20 20 20 20 20 20 22 00 B7 2B 08 07 | "..+..|
000023A0: 54 31 B2 54 31 AA 57 3A 55 B2 55 AA 31 3A 54 32 |T1.T1.W:U.U.1:T2|
000023B0: B2 54 32 AA 57 AC 57 00 F7 2B 12 07 99 22 11 20 |.T2.W.W..+...". |
000023C0: 20 20 20 20 41 56 45 52 41 47 45 20 41 46 54 45 | AVERAGE AFTE|
000023D0: 52 20 22 55 22 47 41 4D 45 28 53 29 20 49 53 22 |R "U"GAME(S) IS"|
000023E0: B5 28 28 54 31 AD 55 29 AA 2E 35 29 22 9D 20 20 |.((T1.U)..5)". |
000023F0: 20 11 22 3B 58 58 24 00 FD 2B 1C 07 8F 00 20 2C | .";XX$..+.... ,|
00002400: 26 07 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |&.." |
00002410: 41 4E 4F 54 48 45 52 20 47 41 4D 45 3F 20 22 3B |ANOTHER GAME? ";|
00002420: 00 3D 2C 30 07 55 4C B2 31 3A 55 53 24 B2 22 59 |.=,0.UL.1:US$."Y|
00002430: 4E 22 3A 8D 33 35 3A 41 24 B2 55 52 24 00 4E 2C |N":.35:A$.UR$.N,|
00002440: 3A 07 8B 41 24 B2 22 59 22 A7 31 32 37 30 00 60 |:..A$."Y".1270.`|
00002450: 2C 44 07 8B 41 24 B3 B1 22 4E 22 A7 31 38 34 30 |,D..A$.."N".1840|
00002460: 00 80 2C 4E 07 99 53 24 3B 22 11 53 4F 20 4C 4F |..,N..S$;".SO LO|
00002470: 4E 47 20 21 21 20 20 20 20 20 20 20 20 22 3A 8E |NG !! ":.|
00002480: 00 97 2C 58 07 8F 20 53 4F 4C 55 54 49 4F 4E 20 |..,X.. SOLUTION |
00002490: 52 4F 55 54 49 4E 45 00 B3 2C 62 07 99 22 13 12 |ROUTINE..,b.."..|
000024A0: 53 4F 4C 55 54 49 4F 4E 92 20 20 20 20 20 20 1D |SOLUTION. .|
000024B0: 1D 22 3B 00 CA 2C 6C 07 81 58 B2 30 A4 34 3A 81 |.";..,l..X.0.4:.|
000024C0: 59 B2 31 A4 35 3A 54 B2 32 30 00 D8 2C 76 07 8B |Y.1.5:T.20..,v..|
000024D0: 58 B2 33 A7 54 B2 31 38 00 F2 2C 80 07 45 24 28 |X.3.T.18..,..E$(|
000024E0: 58 2C 59 29 B2 22 9D 22 AA C4 28 43 28 58 2C 59 |X,Y)."."..(C(X,Y|
000024F0: 29 29 00 13 2D 8A 07 8B 43 28 58 2C 59 29 B2 30 |))..-...C(X,Y).0|
00002500: AF 58 B3 32 AF 59 B3 34 A7 45 24 28 58 2C 59 29 |.X.2.Y.4.E$(X,Y)|
00002510: B2 22 22 00 34 2D 94 07 8B 43 28 58 2C 59 29 B2 |."".4-...C(X,Y).|
00002520: 30 AF 58 B2 32 AF 59 B3 33 A7 45 24 28 58 2C 59 |0.X.2.Y.3.E$(X,Y|
00002530: 29 B2 22 22 00 55 2D 9E 07 8B 43 28 58 2C 59 29 |)."".U-...C(X,Y)|
00002540: B2 30 AF 58 B2 33 AF 59 B3 33 A7 45 24 28 58 2C |.0.X.3.Y.3.E$(X,|
00002550: 59 29 B2 22 22 00 76 2D A8 07 8B 43 28 58 2C 59 |Y)."".v-...C(X,Y|
00002560: 29 B2 30 AF 58 B2 34 AF 59 B2 31 A7 45 24 28 58 |).0.X.4.Y.1.E$(X|
00002570: 2C 59 29 B2 22 22 00 91 2D B2 07 99 A3 54 AB 4C |,Y).""..-....T.L|
00002580: 28 58 29 29 3B 45 24 28 58 2C 59 29 3B 22 20 22 |(X));E$(X,Y);" "|
00002590: 3B 00 B6 2D BC 07 82 3A 8B 58 B2 31 B0 58 B2 33 |;..-...:.X.1.X.3|
000025A0: A7 99 3A 99 A3 31 33 29 22 C0 C0 C0 C0 C0 C0 C0 |..:..13)".......|
000025B0: C0 C0 C0 C0 91 22 00 C0 2D C6 07 99 3A 82 3A 99 |....."..-...:.:.|
000025C0: 00 DC 2D D0 07 99 22 13 11 11 11 11 11 11 11 11 |..-...".........|
000025D0: 11 11 11 11 11 11 20 20 20 20 22 3B 00 25 2E DA |...... ";.%..|
000025E0: 07 99 22 23 23 23 23 23 23 23 23 23 23 23 23 23 |.."#############|
000025F0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00002600: 23 23 23 20 20 20 20 20 20 20 20 20 20 20 20 20 |### |
00002610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002620: 20 20 20 20 22 00 53 2E E4 07 99 22 20 20 20 20 | ".S...." |
00002630: 20 20 20 20 20 20 20 20 20 59 4F 55 20 4D 49 53 | YOU MIS|
00002640: 53 45 44 20 49 54 20 20 20 20 20 20 20 20 20 20 |SED IT |
00002650: 20 20 22 00 71 2E EE 07 81 4A B2 31 A4 34 3A 99 | ".q....J.1.4:.|
00002660: 22 11 22 3B 58 58 24 3B 3A 82 3A 99 22 91 91 91 |".";XX$;:.:."...|
00002670: 22 00 7B 2E F8 07 89 31 37 39 30 00 8D 2E 74 09 |".{....1790...t.|
00002680: 8F 20 47 55 45 53 53 20 45 4E 54 52 59 00 95 2E |. GUESS ENTRY...|
00002690: 7E 09 99 53 24 00 A9 2E 88 09 46 B2 30 3A 5A 24 |~..S$.....F.0:Z$|
000026A0: B2 22 40 22 3A 4E B2 AB 31 00 CA 2E 92 09 99 22 |."@":N..1......"|
000026B0: 59 4F 55 52 20 47 55 45 53 53 3A 20 20 20 20 20 |YOUR GUESS: |
000026C0: 20 20 9D 9D 9D 9D 9D 9D 22 3B 00 F3 2E 9C 09 55 | ......";.....U|
000026D0: 4C B2 32 3A 55 53 24 B2 22 30 31 32 33 34 35 36 |L.2:US$."0123456|
000026E0: 37 38 39 41 42 43 44 45 46 47 48 49 4A 51 22 3A |789ABCDEFGHIJQ":|
000026F0: 8D 33 35 00 0F 2F A6 09 41 24 B2 C8 28 55 52 24 |.35../..A$..(UR$|
00002700: 2C 31 29 3A 42 24 B2 C9 28 55 52 24 2C 31 29 00 |,1):B$..(UR$,1).|
00002710: 3F 2F A8 09 8B C5 28 41 24 29 B2 30 AF 42 24 B3 |?/....(A$).0.B$.|
00002720: B1 22 30 22 AF 41 24 B2 22 30 22 A7 5A 24 B2 42 |."0".A$."0".Z$.B|
00002730: 24 3A 4E B2 C5 28 41 24 29 3A 89 32 34 39 30 00 |$:N..(A$):.2490.|
00002740: 6F 2F A9 09 8B C5 28 42 24 29 B2 30 AF 41 24 B3 |o/....(B$).0.A$.|
00002750: B1 22 30 22 AF 42 24 B2 22 30 22 A7 5A 24 B2 41 |."0".B$."0".Z$.A|
00002760: 24 3A 4E B2 C5 28 42 24 29 3A 89 32 34 39 30 00 |$:N..(B$):.2490.|
00002770: A0 2F AB 09 8B C5 28 41 24 29 B2 30 AF 41 24 B3 |./....(A$).0.A$.|
00002780: B1 22 30 22 AF C5 28 42 24 29 B1 30 A7 5A 24 B2 |."0"..(B$).0.Z$.|
00002790: 41 24 3A 4E B2 C5 28 42 24 29 3A 89 32 34 39 30 |A$:N..(B$):.2490|
000027A0: 00 D1 2F B0 09 8B C5 28 42 24 29 B2 30 AF 42 24 |../....(B$).0.B$|
000027B0: B3 B1 22 30 22 AF C5 28 41 24 29 B1 30 A7 5A 24 |.."0"..(A$).0.Z$|
000027C0: B2 42 24 3A 4E B2 C5 28 41 24 29 3A 89 32 34 39 |.B$:N..(A$):.249|
000027D0: 30 00 E3 2F B4 09 8B 41 24 B2 22 51 22 A7 46 B2 |0../...A$."Q".F.|
000027E0: 31 3A 8E 00 29 30 B5 09 99 22 49 4E 56 41 4C 49 |1:..)0..."INVALI|
000027F0: 44 20 47 55 45 53 53 22 3A 81 5A 5A B2 31 A4 39 |D GUESS":.ZZ.1.9|
00002800: 39 39 3A 82 3A 99 22 91 20 20 20 20 20 20 20 20 |99:.:.". |
00002810: 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 22 91 | ":.".|
00002820: 91 22 3B 3A 89 32 34 35 30 00 2F 30 BA 09 8F 00 |.";:.2450./0....|
00002830: 35 30 C4 09 8E 00 3B 30 3C 0A 8F 00 4C 30 50 0A |50....;0<...L0P.|
00002840: 99 53 24 3B 22 11 11 11 22 3B 4D 24 00 5E 30 5A |.S$;"...";M$.^0Z|
00002850: 0A 81 4A B2 31 A4 54 AC 31 30 30 30 3A 82 00 67 |..J.1.T.1000:..g|
00002860: 30 64 0A 99 58 58 24 00 71 30 6E 0A 99 22 11 11 |0d..XX$.q0n.."..|
00002870: 22 00 77 30 78 0A 8E 00 8D 30 82 0A 8F 20 4D 49 |".w0x....0... MI|
00002880: 53 53 20 53 55 42 52 4F 55 54 49 4E 45 00 9D 30 |SS SUBROUTINE..0|
00002890: 8C 0A 8B 57 B3 B1 31 32 A7 32 37 34 30 00 A6 30 |...W..12.2740..0|
000028A0: 96 0A 99 53 24 3B 00 D2 30 A0 0A 81 4A B2 31 A4 |...S$;..0...J.1.|
000028B0: 33 3A 99 50 24 28 31 33 29 3B 22 11 22 3B 3A 99 |3:.P$(13);".";:.|
000028C0: 50 24 28 31 32 29 3B 3A 81 4B B2 31 A4 32 35 3A |P$(12);:.K.1.25:|
000028D0: 82 4B 00 EC 30 AA 0A 82 3A 54 B2 35 3A 4D 24 B2 |.K..0...:T.5:M$.|
000028E0: 48 4D 24 28 57 29 3A 89 32 37 37 30 00 FE 30 B4 |HM$(W):.2770..0.|
000028F0: 0A 99 53 24 3B 50 24 28 57 29 3A 54 B2 33 00 09 |..S$;P$(W):T.3..|
00002900: 31 BE 0A 8B 57 B2 30 A7 8E 00 30 31 C8 0A 4D 24 |1...W.0...01..M$|
00002910: B2 22 2A 2A 20 57 52 4F 4E 47 20 2A 2A 20 20 44 |."** WRONG ** D|
00002920: 52 41 57 20 54 48 45 20 22 AA 48 4D 24 28 57 29 |RAW THE ".HM$(W)|
00002930: 00 3C 31 D2 0A 8D 32 36 32 30 3A 8E 00 00 00 |.<1...2620:.... |
.......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 **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(.UR$."":UI$."":.UO,0...*..UL.0.UL.80
.+.-.." ..";:.UC,0.?.2..UI$:.UI$."".50.
I.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.8
5.|.<..UI$.G(20).105...>.. C(UR$)..UL.50
...A..120:. CHECK FOR VALID CHARACTER.E.
F.UR$.UR$.UI$.O.K..UI$;.W.P..50...U.. ++
+ CHECK FOR HELP REQUEST +++.$.Z..UR$.UX
$.195:. EXIT TO HELP ROUTINE.3._..UF.1..
240.@.D.UF.0:.:..Y.F.. ++ CHECK DELETE +
+.J.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).
1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.M.}..C(US$).0.150...
...US.1.C(US$)......UI$.J(US$,US,1).....
........UI$."":..#.... ** STANDARD INPUT
**.4....F(UI$).46...E....UI$.G(32)...B.
..F(UI$).48.F(UI$).57.170.H..........F(
UI$).65.F(UI$).90.180............F(UI$).
193.F(UI$).218.UI$."":..R....B(UT).UU%.U
I$.G(F(UI$).128):..X.........UI$."":....
C.UF.1:. +++ HELP ROUTINE EXIT +++...E..
250...H..245.;.M..UQ.UB.(U2%.256.U1%.U3%
.2).W.R.UQ%(UQ.UB).B(UQ):.:.".".J.W.UZ.1
:UV%.B(UT).S.X..300...Y.UZ.0:US$.UJ$:UG$
.UK$:UP.UJ:UL.UK.O.Z..B(50003).0..53281,
1:.".";:.53281,6:.53280,14:.220.Y...."."
;.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1
%.U3%.3)......UQ,UQ%(UQ.UB):..)....U1,U1
%.5....U2,U2%.A....U4,U4%.O....U3,U3%.1.
W....35.....UD%.((U2%.256.U1%.U3%).UB).4
0:.H(UD$,UD%.1):..D....H(UD$,24);"
. HELP COMING . ":.....
.U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4)
.....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL
......./.,.. ** MENU **.5.-.:.D....".":.
UT,UU%:.B(50003).0..53281,9:.53280,8.J./
.:...1..". MENU"...6.." -
-------------------------------------".Z
.;..".. 1. BEGIN HANGMATH"...@..
".. 2. STUDENT INSTRUCTIONS"...E
..".. 3. TEACHER INSTRUCTIONS".J
.O..".. 4. QUIT..".Y.T.." ------
--------------------------------"...Y.."
.. PRESS A NUMBER KEY (1-4) ";.L.^
.UL.1:US$."1234":.35:. INPUT ROUTINE.W.`
.US$.""...C..E(UR$).1000,400,500,396...H
..300.$.... ** RE-ENABLE STOP KEY AND EN
D **.S....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....
.UP.0:UG$."STUDENT INST":.850.0...." H
ANGMATH WILL PRESENT YOU WITH A".^....".
.MULTIPLICATION PROBLEM WHICH HAS THE"..
...."..DIGITS REPLACED BY LETTERS.".....
."..FOR EXAMPLE:."......" A B F
4 5 6"... .." * E D
* 3 2"......" ......
......"......" H C D
9 1 2".Q...." C E F I 1 3 6 8
".V...." ......... ........."..
...." C A B H D 1 4 5 9 2".J...
.". HERE THE LETTER 'A' IS THE DIGIT
4"......"..THE LETTER 'H' IS THE DIGIT 9
AND......"..SO ON.":.835......850.@....
". TO ENTER A GUESS, JUST TYPE IN THE"
.G...."..LETTER AND NUMBER YOU THINK IT.
....."..REPLACED. FOR EXAMPLE, 'A4' .
('4A' WILL ALSO WORK)."......".
YOU WILL BE GIVEN 12 CHANCES TO SOLVE"
......"..THE PUZZLE BEFORE THE SOLUTION
IS .DISPLAYED.".[....". IF YOU P
RESS 'Q', THE SOLUTION WILL ..BE GIVEN.
":..D....835.X....UZ.1..UP%:.217.~......
.... ** TEACHER INSTRUCTIONS **.O...."."
:.UT,UL%:.B(50003).0..53281,2:.53280,10.
....UP.0:UG$."TEACHER INST":.850......".
. TO THE BEST OF OUR KNOWLEDGE,.".G
...." THIS PROGRAM IS IN THE PUBLIC.".
S...." DOMAIN. IF THIS IS NOT THE CAS
E."......" PLEASE CONTACT:..."......"
COMMODORE BUSINESS MACHINES."......
" 3370 PHARMACY AVE......."
AGINCOURT, ONTARIO".#...."
CANADA M1W 2K4".C...." (416
) 499-4292".Y...UP.1:. 835:. 850:.~...."
..PROGRAM NAME: HANGMATH.. ...."
WRITTEN BY : UNKNOWN......." UPGR
ADED BY : ......." .THIS PROGRAM WIL
L RUN ON ANY........" PET 64 COM
PUTER..+...." COMMODORE 64 COMPU
TER.4....835.H.N..UZ.1..UP%:.217.N.W...T
.X.. ** PROGRAM MODIFICATION INST **...Y
..".":.UT,UL%...].UP.0:UG$."PROGRAM MOD"
:.850......835.B....UZ.1..UP%:.217.H....
...... ** TO USE 8032 LOAD CBM4032 **.#.
F..".....BEFORE RUNNING THIS PROGRAM ON
AN 8032 ...Y.P.." LOAD THE 'CBM 40
32' PROGRAM.............".D.Z..UU.71.J..
........ ** TO USE 8032 LOAD CBM4032 **.
Z...."....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,1
4:.53281,6.P.$..I.1.38:."...";:..H.&..I.
1.22:.".....";:....(..I.1.37:.".....";:.
...*..I.1.22:.".....";:....,..".........
.................. ......."............
....... . . .....0.."..................
. . ......2..".................... ..F
.4.."..............C O M M O D O R E...I
.6.."...............EDUCATIONAL.....8.."
................SOFTWARE...:.. ** COMMOD
ORE LOGO **...;..H(UD$,24);"..........PR
ESS SPACE BAR OR WAIT.":I.0...<..A$:.A$.
." ".I.I.1:.I.250.828.!.>.T1$."":T2$."":
T3$."":T4$."":I.0.*.@..300.F.C.. ** SPAC
E BAR PRESS **...H..H(UD$,24);".......PR
ESS SPACE BAR TO CONTINUE.":.UO,0...L..U
I$:.UI$.." ".844...N.....R.. ** PAGE DES
IGN ROUTINE **.J.T.UP.UP.1...W.."."H(UT$
.UP$,21);I(UP$.UG$.D(UP),18).#.\.." ----
----------------------------------".2.`.
.UH..0.870.F.A..H(UD$,24);H(UP$,7);"HELP
- PRESS H <RETURN>".W.F.UH.0:."..":..
..K.. ** PLEASE WAIT REMARK **.L.P..H(UD
$,24);" ONE MOMENT PLEASE...
".R.U........ ** SET UP VARIABLES **.
:...UX$."H":.UQ%(1000):UB.32768:U1.196:U
2.197:U3.198:U4.216:UC.167:UU.1024.X...U
T.59468:UU%.12:UL%.14:UP%.1146:UM.32768:
. 50003,0:UO.158......B(50003).0.UB.1024
:U1.209:U2.210:U3.211:U4.214:UC.204:UU.2
048......B(50003).0.UT.53272:UU%.21:UL%.
23:UP%.2139:UM.1024:UO.198.....UD$."....
.....................".P...UP$."
".....UT$
." HANGMATH ":. PLACE PROGRAM TI
TLE HERE !!!!!!!!!!!!!!!!!***...........
. ** SET VARIABLES **.F....900...... A(4
,5),B(4,5),C(4,5),E$(4,5),HM$(12),P$(13)
......J.1.12:.HM$(J):..).... ** CHECK FO
R 8032 **.G....".":." ":. SHIFTED SPACE.
^....B(UB.40)..96..700.W.... ** MEMORY C
HECK **...... .(0).2000.937......"....TH
IS MACHINE DOES NOT HAVE ENOUGH."......"
MEMORY TO RUN THIS PROGRAM !"......UU.71
........ ..."..":.B(50003).0.962.7 ... *
* BASIC 2.0 OR 4.0 OR C-64 SETUP **.
U ...1075,133:.1076,144:.1077,234:.1079,
4:.1080,133:.1081,145.. ...1091,155:.109
8,133:.1099,144:.1100,234:.1103,133.M ..
.1104,145:.1105,234:.1082,234.. ...B(500
03)..160.955..!...1093,88:.1094,228:.109
7,85:.1102,228:.965.(!...B(50003)..1.990
.W!...1093,49:.1094,230:.1097,46:.1102,2
30:.965..!B..2099,141:.2100,20:.2101,3:.
2103,8:.2104,141:.2105,21.M!C..2106,3:.2
115,145:.2117,52:.2118,234:.2121,49:.212
2,141.."D..2123,20:.2124,3:.2126,234:.21
27,141:.2128,21:.2129,3.%"E..UU.48:. DIS
ABLE STOP KEY.6"J..800:. TITLE.F"T..300:
. MENU.W"...".THE PGM WILL NOT WORK ON T
HIS MACHINE!":..."...UZ.1..UP%:.UP%:UZ.0
:. ** PROGRAM STARTS HERE **.W"..."..";:
.:.B(50003).0..53281,6:.53280,6..#..XX$.
".
"..#$.S$."...........".[#B.. HEAD,UPPER
BODY,LOWER BODY,LEFT ARM,RIGHT ARM,LEFT
LEG..#L.. RIGHT LEG,LEFT HAND,RIGHT HAND
,LEFT FOOT,RIGHT FOOT..#V.. " ****
* YOU'RE HUNG!! *****"..$`.P$(0)."......
................................ HANGMA
TH ..........".=$J.P$(0).P$(0).".......
............................".V$T.P$(1).
"...........W".N$~.P$(2)."..........."..
$..P$(3).".........."..$..P$(4).".......
....."..$..P$(5)."..........".M$..P$(6).
"..........U"..$..P$(7)."........I"..$..
P$(8)."............."..%D.P$(9).".......
....".-%N.P$(10)."..........".C%X.P$(11)
."........".Y%..P$(12)."................
.........U.I..... ......"..%..P$(13)."..
.......... . .... . .... .... ....
.....":.UT,UU%.X%...". SETTING UP ...."
..&...B.0.10:K(B)..1:Q$(B)."":CK$(B)."":
...&...S$;"......".*&..W.0:F$."":R1..(.T
I).>&..C$."ABCDEFGHIJ".T&(.R..(C(C$)..(1
).1).N&2.N$.J(C$,R,1):F$.F$.N$..&<..R.1.
T$.H(C$,R.1):.1360..&F.T$.""..&P.C$.T$.J
(C$,R.1)..&Z..C(C$).0.1320.N&D..C(F$)..1
0.1300..&N.N(0).100..(.(1).900)..&X.N(1)
.10..(.(1).90).!'..N(2).N(0).(N(1).10..(
N(1).10)).:'..N(3).N(0)..(N(1).10).M'..N
(4).N(0).N(1).J' ..10..(N(1).10).N(1).14
00..'...X.0.4:C.0:.Y.1.5..'..A(X,Y)..(N(
X)..(10.(5.Y)))..'..B(X,Y).A(X,Y.1)..'H.
C(X,Y).A(X,Y).10.B(X,Y):E$(X,Y).J(F$,C(X
,Y).1,1):C.C.C(X,Y)..(R..C.0.E$(X,Y)."".
.(...:L(X).C(D(N(X))):..=(...".HANGMATH
.*..";.T(...X.0.4:.Y.1.5:T.20.B(.
..X.3.T.18.}(....T.L(X));E$(X,Y);" ";..(
...:.X.1.X.3..:..13);"............".E(..
.:.:.:.:.:."TYPE <H> FOR HELP.T("..W.0..
2690..(,.T.1:.2420:.F..".QUIT":W.12:.269
0:.1880.;)6..J.0.10:.Z$.CK$(J).M$.Z$." =
".D(J).", BOZO":.2620:.1580.X)@..:.N.K(N
).M$.J(F$,N.1,1)." =".D(N).", DUMBO":.26
20:.1580..)J..Z$.Q$(N).M$."YOU GUESSED T
HAT BEFORE":.2620:.1580.H)T..Z$.J(F$,N.1
,1).1680..)^.W.W.1:Q$(N).Z$:.2690.!*H..W
.1..".. YOUR GUESSES.........
................".;*R...W.10.10);Z$;" ="
;N;.J*|..W.12.1880.T*...1580.L*..N1.50:.
X.0.4:.Y.1.5..*...E$(X,Y).Z$.E$(X,Y)."."
.D(N):CK$(N).Z$:K(N).N..*...E$(X,Y)."".1
740.D*..M.F(E$(X,Y)).S*...M.157.M.0..*B.
.M.N1.N1.M..*L..Y:.X..*V..N1.60.1770..+.
..:.1510.8+...". **********
.".L+..." YOU
GOT IT ":.2030..+...".
YOU HAD"W"MISTAKES "..+..
T1.T1.W:U.U.1:T2.T2.W.W..+...". AVER
AGE AFTER "U"GAME(S) IS".((T1.U)..5)".
.";XX$..+.... ,&.." ANOTHER
GAME? ";.=,0.UL.1:US$."YN":.35:A$.UR$.N,
:..A$."Y".1270.`,D..A$.."N".1840..,N..S$
;".SO LONG !! ":...,X.. SOLUTION
ROUTINE..,B.."..SOLUTION. ..";.J,L.
.X.0.4:.Y.1.5:T.20.X,V..X.3.T.18..,..E$(
X,Y).".".D(C(X,Y))..-...C(X,Y).0.X.2.Y.4
.E$(X,Y)."".4-...C(X,Y).0.X.2.Y.3.E$(X,Y
)."".U-...C(X,Y).0.X.3.Y.3.E$(X,Y)."".V-
...C(X,Y).0.X.4.Y.1.E$(X,Y).""..-....T.L
(X));E$(X,Y);" ";..-...:.X.1.X.3..:..13)
"............"..-F..:.:...-P..".........
...... ";.%.Z.."#####################
###########
".S...." YOU MISSED IT
".Q....J.1.4:.".";XX$;:.:."...
".{....1790...T.. GUESS ENTRY...~..S$...
..F.0:Z$."@":N..1.J...."YOUR GUESS:
......";.....UL.2:US$."0123456789ABCDE
FGHIJQ":.35../..A$.H(UR$,1):B$.I(UR$,1).
?/...E(A$).0.B$.."0".A$."0".Z$.B$:N.E(A$
):.2490.O/...E(B$).0.A$.."0".B$."0".Z$.A
$:N.E(B$):.2490. /...E(A$).0.A$.."0".E(B
$).0.Z$.A$:N.E(B$):.2490.Q/...E(B$).0.B$
.."0".E(A$).0.Z$.B$:N.E(A$):.2490../...A
$."Q".F.1:..)0..."INVALID GUESS":.ZZ.1.9
99:.:.". ":."..";:.245
0./0....50D...;0<...L0P..S$;"...";M$.^0Z
..J.1.T.1000:..G0D..XX$.Q0N.."..".W0X...
.0... MISS SUBROUTINE..0...W..12.2740..0
...S$;.R0 ..J.1.3:.P$(13);".";:.P$(12);:
.K.1.25:.K..0...:T.5:M$.HM$(W):.2770..0.
..S$;P$(W):T.3..1...W.0...01H.M$."** WRO
NG ** DRAW THE ".HM$(W).<1R..2620:....
> CLICK IMAGE PREVIEW FOR FULL MODAL