HAMLET.C3
FILE INFORMATION
FILENAME(S): HAMLET.C3
FILE TYPE(S): PRG
FILE SIZE: 10.8K
FIRST SEEN: 2025-12-02 22:47:27
APPEARS ON: 2 disk(s)
FILE HASH
aa7fe68cd82dcb5fe24eb7a43b9a53e44d5d495c9697b67a66053ee0e14cb056
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 CHRIS FREE | HAMLET.C3 | PRG | swasti, charly | 3 | 0 | DOWNLOAD FILE |
| C64 CHRIS FREE | HAMLET.C3 | PRG | swasti, charly | 3 | 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 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 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..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 D8 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 4D 4C 45 54 22 00 02 0F 40 01 99 22 11 | HAMLET"...@..".|
000006E0: 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 |. 2. STU|
000006F0: 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E |DENT INSTRUCTION|
00000700: 53 22 00 2C 0F 45 01 99 22 11 11 20 20 20 20 20 |S".,.E..".. |
00000710: 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 | 3. TEACHER I|
00000720: 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 48 0F 4F |NSTRUCTIONS".H.O|
00000730: 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 |..".. 4. |
00000740: 20 51 55 49 54 11 11 22 00 77 0F 54 01 99 22 20 | QUIT..".w.T.." |
00000750: 2D 2D 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 22 00 A2 0F 59 01 99 22 11 11 |------"...Y.."..|
00000780: 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E | PRESS A N|
00000790: 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 20 |UMBER KEY (1-4) |
000007A0: 22 3B 00 CA 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 |";...^.UL.1:US$.|
000007B0: 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 |"1234":.35:. INP|
000007C0: 55 54 20 52 4F 55 54 49 4E 45 00 D5 0F 60 01 55 |UT ROUTINE...`.U|
000007D0: 53 24 B2 22 22 00 F2 0F 63 01 91 C5 28 55 52 24 |S$.""...c...(UR$|
000007E0: 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 |).1000,400,500,3|
000007F0: 39 36 00 FB 0F 68 01 89 33 30 30 00 22 10 8B 01 |96...h..300."...|
00000800: 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 |. ** RE-ENABLE S|
00000810: 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 |TOP KEY AND END |
00000820: 2A 2A 00 51 10 8C 01 8B C2 28 35 30 30 30 33 29 |**.Q.....(50003)|
00000830: B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 |..1..(50003)..16|
00000840: 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 |0..(50003)..0.39|
00000850: 39 00 7B 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 |9.{....UU.71:..(|
00000860: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00000870: 36 3A 97 35 33 32 38 30 2C 31 34 00 87 10 8E 01 |6:.53280,14.....|
00000880: 99 22 9A 93 22 3A 80 00 92 10 8F 01 8D 38 37 35 |."..":.......875|
00000890: 3A 8E 00 B3 10 90 01 8F 20 2A 2A 20 53 54 55 44 |:....... ** STUD|
000008A0: 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ENT INSTRUCTIONS|
000008B0: 20 2A 2A 00 DA 10 95 01 99 22 93 22 3A 8B C2 28 | **......".":..(|
000008C0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000008D0: 30 3A 97 35 33 32 38 30 2C 30 00 05 11 9A 01 55 |0:.53280,0.....U|
000008E0: 54 24 B2 22 20 48 41 4D 4C 45 54 22 3A 20 55 50 |T$." HAMLET": UP|
000008F0: B2 30 3A 55 47 24 B2 22 53 54 55 44 45 4E 54 20 |.0:UG$."STUDENT |
00000900: 49 4E 53 54 22 00 0F 11 9F 01 8D 31 32 30 30 00 |INST"......1200.|
00000910: 38 11 A4 01 99 22 11 20 50 52 45 53 53 20 3F 20 |8....". PRESS ? |
00000920: 3C 52 45 54 55 52 4E 3E 20 54 4F 20 4F 42 54 41 |<RETURN> TO OBTA|
00000930: 49 4E 20 48 45 4C 50 22 00 41 11 E5 01 8D 38 33 |IN HELP".A....83|
00000940: 35 00 55 11 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 |5.U....UZ.1..UP%|
00000950: 3A 89 32 31 37 00 5B 11 F3 01 8E 00 7C 11 F4 01 |:.217.[.....|...|
00000960: 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 |. ** TEACHER INS|
00000970: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 AC 11 F5 |TRUCTIONS **....|
00000980: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..|
00000990: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
000009A0: 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 DB 11 F6 |,2:.53280,10....|
000009B0: 01 55 54 24 B2 22 20 C8 41 4D 4C 45 54 22 3A 55 |.UT$." .AMLET":U|
000009C0: 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 |P.0:UG$.".EACHER|
000009D0: 20 C9 4E 53 54 22 3A 8D 38 35 30 00 09 12 F7 01 | .NST":.850.....|
000009E0: 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 |.".. .O THE|
000009F0: 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F | BEST OF OUR KNO|
00000A00: 57 4C 45 44 47 45 2C 11 22 00 32 12 F8 01 99 22 |WLEDGE,.".2...."|
00000A10: 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 | THIS PROGRAM |
00000A20: 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 |IS IN THE PUBLIC|
00000A30: 11 22 00 5E 12 F9 01 99 22 20 20 20 44 4F 4D 41 |.".^...." DOMA|
00000A40: 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 |IN. .F THIS IS |
00000A50: 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 00 7B |NOT THE CASE.".{|
00000A60: 12 FA 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 |...." PLEASE C|
00000A70: 4F 4E 54 41 43 54 3A 11 11 11 22 00 A5 12 FB 01 |ONTACT:...".....|
00000A80: 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 |." .OMMODOR|
00000A90: 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 |E .USINESS .ACHI|
00000AA0: 4E 45 53 11 22 00 C8 12 FC 01 99 22 20 20 20 20 |NES."......" |
00000AB0: 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D | 3370 .HARM|
00000AC0: 41 43 59 20 C1 56 45 2E 00 EC 12 FD 01 99 22 20 |ACY .VE......." |
00000AD0: 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 | .GINCOU|
00000AE0: 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 0E 13 FE |RT, .NTARIO"....|
00000AF0: 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E |.." .AN|
00000B00: 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 2E |ADA .1. 2.4"..|
00000B10: 13 FF 01 99 22 20 20 20 20 20 20 20 20 20 20 28 |...." (|
00000B20: 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 44 |416) 499-4292".D|
00000B30: 13 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 |...UP.1:. 835:. |
00000B40: 38 35 30 3A 00 6E 13 01 02 99 22 20 20 20 20 20 |850:.n...." |
00000B50: 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 |...ROGRAM .AME: |
00000B60: C8 41 4D 4C 45 54 20 20 20 20 20 20 20 11 00 90 |.AMLET ...|
00000B70: 13 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 |...." .RITTE|
00000B80: 4E 20 C2 59 20 20 3A 20 D5 4E 4B 4E 4F 57 4E 11 |N .Y : .NKNOWN.|
00000B90: 00 B6 13 03 02 99 22 20 20 20 20 20 D5 50 47 52 |......" .PGR|
00000BA0: 41 44 45 44 20 C2 59 20 3A 20 CA 41 4D 45 53 20 |ADED .Y : .AMES |
00000BB0: CD 55 4E 52 4F 11 00 E1 13 04 02 99 22 20 20 20 |.UNRO......." |
00000BC0: 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 | ..HIS PROGRAM |
00000BD0: 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 |WILL RUN ON ANY.|
00000BE0: 11 00 00 14 07 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000BF0: 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 | ... 64 ........|
00000C00: 00 25 14 08 02 99 22 20 20 20 20 20 20 20 20 20 |.%...." |
00000C10: C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD |......... 64 ...|
00000C20: D0 D5 D4 C5 D2 00 2E 14 09 02 8D 38 33 35 00 42 |...........835.B|
00000C30: 14 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |.N..UZ.1..UP%:.2|
00000C40: 31 37 00 48 14 57 02 8E 00 6E 14 58 02 8F 20 2A |17.H.W...n.X.. *|
00000C50: 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 |* PROGRAM MODIFI|
00000C60: 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 7F |CATION INST **..|
00000C70: 14 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 |.Y..".":.UT,UL%.|
00000C80: 9F 14 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 |..].UP.0:UG$.".R|
00000C90: 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 |OGRAM .OD":.850.|
00000CA0: A8 14 94 02 8D 38 33 35 00 BC 14 B2 02 8B 55 5A |.....835......UZ|
00000CB0: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 C2 14 BB |.1..UP%:.217....|
00000CC0: 02 8E 00 E7 14 BC 02 8F 20 2A 2A 20 54 4F 20 55 |........ ** TO U|
00000CD0: 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D |SE 8032 LOAD CBM|
00000CE0: 34 30 33 32 20 2A 2A 00 1D 15 C6 02 99 22 93 11 |4032 **......"..|
00000CF0: 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |...BEFORE RUNNIN|
00000D00: 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F |G THIS PROGRAM O|
00000D10: 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 53 15 |N AN 8032 ...S.|
00000D20: D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 |..." LOAD T|
00000D30: 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 |HE 'CBM 4032' PR|
00000D40: 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 |OGRAM...........|
00000D50: 11 11 22 00 5E 15 DA 02 9E 55 55 AA 37 31 00 64 |..".^....UU.71.d|
00000D60: 15 E4 02 80 00 84 15 20 03 8F 20 2A 2A 20 54 20 |....... .. ** T |
00000D70: 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 |I T L E P A G |
00000D80: 45 20 2A 2A 00 B8 15 22 03 99 22 93 11 1D 05 22 |E **...".."...."|
00000D90: 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 |;:.UT,UU%:..(500|
00000DA0: 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A |03).0..53280,14:|
00000DB0: 97 35 33 32 38 31 2C 36 00 CE 15 24 03 81 49 B2 |.53281,6...$..I.|
00000DC0: 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 E6 |1.38:."...";:...|
00000DD0: 15 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 |.&..I.1.22:."...|
00000DE0: A6 92 22 3B 3A 82 00 FE 15 28 03 81 49 B2 31 A4 |..";:....(..I.1.|
00000DF0: 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 16 |37:.".....";:...|
00000E00: 16 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 |.*..I.1.22:."...|
00000E10: A6 92 22 3B 3A 82 00 3B 16 2C 03 99 22 13 11 11 |..";:..;.,.."...|
00000E20: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000E30: 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 5D 16 2E 03 |........ ..]...|
00000E40: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000E50: 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 7E 16 |..... . . ...~.|
00000E60: 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |0.."............|
00000E70: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 9C |....... . .....|
00000E80: 16 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.2.."...........|
00000E90: 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 C4 16 34 |......... ....4|
00000EA0: 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000EB0: 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 |.C O M M O D O R|
00000EC0: 20 45 11 11 00 E7 16 36 03 99 22 1D 1D 1D 1D 1D | E.....6..".....|
00000ED0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 |..........EDUCAT|
00000EE0: 49 4F 4E 41 4C 11 11 00 06 17 38 03 99 22 1D 1D |IONAL.....8.."..|
00000EF0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F |..............SO|
00000F00: 46 54 57 41 52 45 00 21 17 3A 03 8F 20 2A 2A 20 |FTWARE.!.:.. ** |
00000F10: 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A |COMMODORE LOGO *|
00000F20: 2A 00 59 17 3B 03 99 C8 28 55 44 24 2C 32 34 29 |*.Y.;...(UD$,24)|
00000F30: 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |;"..........PRES|
00000F40: 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 |S SPACE BAR OR W|
00000F50: 41 49 54 92 22 3A 49 B2 30 00 7B 17 3C 03 A1 41 |AIT.":I.0.{.<..A|
00000F60: 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 |$:.A$.." ".I.I.1|
00000F70: 3A 8B 49 B3 32 35 30 A7 38 32 38 00 9F 17 3E 03 |:.I.250.828...>.|
00000F80: 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 |T1$."":T2$."":T3|
00000F90: 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 |$."":T4$."":I.0.|
00000FA0: A8 17 40 03 89 33 30 30 00 C4 17 43 03 8F 20 2A |..@..300...C.. *|
00000FB0: 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 |* SPACE BAR PRES|
00000FC0: 53 20 2A 2A 00 FF 17 48 03 97 55 4F 2C 30 3A 99 |S **...H..UO,0:.|
00000FD0: C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D |.(UD$,24);".....|
00000FE0: 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 |..PRESS SPACE BA|
00000FF0: 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 |R TO CONTINUE.".|
00001000: 16 18 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 |..L..UI$:.UI$.."|
00001010: 20 22 A7 38 34 34 00 1C 18 4E 03 8E 00 3C 18 52 | ".844...N...<.R|
00001020: 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 |.. ** PAGE DESIG|
00001030: 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 48 18 54 |N ROUTINE **.H.T|
00001040: 03 55 50 B2 55 50 AA 31 00 72 18 57 03 99 22 93 |.UP.UP.1.r.W..".|
00001050: 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 |".(UT$.UP$,21);.|
00001060: 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 |(UP$.UG$..(UP),1|
00001070: 38 29 00 A1 18 5C 03 99 22 20 2D 2D 2D 2D 2D 2D |8)...\.." ------|
00001080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000010A0: 22 00 B0 18 60 03 8B 55 48 B3 B1 30 A7 38 37 30 |"...`..UH..0.870|
000010B0: 00 E4 18 61 03 99 C8 28 55 44 24 2C 32 34 29 3B |...a...(UD$,24);|
000010C0: C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D |.(UP$,7);"HELP -|
000010D0: 20 50 52 45 53 53 20 20 20 3F 20 3C 52 45 54 55 | PRESS ? <RETU|
000010E0: 52 4E 3E 22 00 F5 18 66 03 55 48 B2 30 3A 99 22 |RN>"...f.UH.0:."|
000010F0: 13 11 22 3A 8E 00 14 19 6B 03 8F 20 2A 2A 20 50 |..":....k.. ** P|
00001100: 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 |LEASE WAIT REMAR|
00001110: 4B 20 2A 2A 00 4A 19 70 03 99 C8 28 55 44 24 2C |K **.J.p...(UD$,|
00001120: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00001130: 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 |ONE MOMENT PLEAS|
00001140: 45 2E 2E 2E 20 20 20 20 20 22 00 50 19 75 03 8E |E... ".P.u..|
00001150: 00 6D 19 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 |.m.... ** SET UP|
00001160: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 B8 19 | VARIABLES **...|
00001170: 85 03 55 58 24 B2 22 3F 22 3A 86 55 51 25 28 31 |..UX$."?":.UQ%(1|
00001180: 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 |000):UB.32768:U1|
00001190: B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 |.196:U2.197:U3.1|
000011A0: 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 |98:U4.216:UC.167|
000011B0: 3A 55 55 B2 31 30 32 34 00 F6 19 86 03 55 54 B2 |:UU.1024.....UT.|
000011C0: 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 |59468:UU%.12:UL%|
000011D0: B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 |.14:UP%.1146:UM.|
000011E0: 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 |32768:UO.158:. 5|
000011F0: 30 30 30 33 2C 30 00 39 1A 87 03 8B C2 28 35 30 |0003,0.9.....(50|
00001200: 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 |003).0.UB.1024:U|
00001210: 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 |1.209:U2.210:U3.|
00001220: 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 |211:U4.214:UC.20|
00001230: 34 3A 55 55 B2 32 30 34 38 00 78 1A 88 03 8B C2 |4:UU.2048.x.....|
00001240: 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 |(50003).0.UT.532|
00001250: 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 |72:UU%.21:UL%.23|
00001260: 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 |:UP%.2139:UM.102|
00001270: 34 3A 55 4F B2 31 39 38 00 9C 1A 89 03 55 44 24 |4:UO.198.....UD$|
00001280: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001290: 11 11 11 11 11 11 11 11 11 11 11 22 00 CE 1A 8A |..........."....|
000012A0: 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.UP$." |
000012B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 1C | "..|
000012D0: 1B 8B 03 55 54 24 B2 22 20 48 41 4D 4C 45 54 20 |...UT$." HAMLET |
000012E0: 20 20 20 20 20 A0 A0 A0 A0 A0 A0 22 3A 8F 20 50 | ......":. P|
000012F0: 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 |LACE PROGRAM TIT|
00001300: 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 21 21 |LE HERE !!!!!!!!|
00001310: 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 22 1B 8C |!!!!!!!!!***."..|
00001320: 03 8E 00 3C 1B 8E 03 8F 20 2A 2A 20 53 45 54 20 |...<.... ** SET |
00001330: 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 5D 1B 8F |VARIABLES **.]..|
00001340: 03 44 4E 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.DN$."..........|
00001350: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 6D 1B |............".m.|
00001360: 90 03 4E 41 24 B2 22 48 41 4D 4C 45 54 00 98 1B |..NA$."HAMLET...|
00001370: 91 03 52 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..R$."..........|
00001380: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001390: 1D 1D 1D 1D 1D 1D 1D 22 00 A1 1B 93 03 8D 39 30 |......."......90|
000013A0: 30 00 BC 1B 98 03 8F 20 2A 2A 20 43 48 45 43 4B |0...... ** CHECK|
000013B0: 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 DA 1B 9D | FOR 8032 **....|
000013C0: 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 |..".":.".":. SHI|
000013D0: 46 54 45 44 20 53 50 41 43 45 00 F1 1B A2 03 8B |FTED SPACE......|
000013E0: C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 |.(UB.40)..96..70|
000013F0: 30 00 0A 1C A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 |0...... ** MEMOR|
00001400: 59 20 43 48 45 43 4B 20 2A 2A 00 1E 1C A4 03 8B |Y CHECK **......|
00001410: 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 4C | .(0).2000.937.L|
00001420: 1C A5 03 99 22 93 11 11 05 54 48 49 53 20 4D 41 |...."....THIS MA|
00001430: 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 |CHINE DOES NOT H|
00001440: 41 56 45 20 45 4E 4F 55 47 48 11 22 00 70 1C A6 |AVE ENOUGH.".p..|
00001450: 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E |.."MEMORY TO RUN|
00001460: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 | THIS PROGRAM !"|
00001470: 00 7B 1C A7 03 9E 55 55 AA 37 31 00 81 1C A8 03 |.{....UU.71.....|
00001480: 80 00 9B 1C A9 03 99 22 93 05 22 3A 8B C2 28 35 |......."..":..(5|
00001490: 30 30 30 33 29 B2 30 A7 39 36 32 00 CA 1C AC 03 |0003).0.962.....|
000014A0: 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 20 |. ** BASIC 2.0 |
000014B0: 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 |OR 4.0 OR C-6|
000014C0: 34 20 53 45 54 55 50 20 2A 2A 00 08 1D AD 03 97 |4 SETUP **......|
000014D0: 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 |1075,133:.1076,1|
000014E0: 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 |44:.1077,234:.10|
000014F0: 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 |79,4:.1080,133:.|
00001500: 31 30 38 31 2C 31 34 35 00 3E 1D AE 03 97 31 30 |1081,145.>....10|
00001510: 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 |91,155:.1098,133|
00001520: 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 |:.1099,144:.1100|
00001530: 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 60 |,234:.1103,133.`|
00001540: 1D AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 |....1104,145:.11|
00001550: 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 |05,234:.1082,234|
00001560: 00 77 1D B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 |.w.....(50003)..|
00001570: 31 36 30 A7 39 35 35 00 A6 1D B6 03 97 31 30 39 |160.955......109|
00001580: 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 |3,88:.1094,228:.|
00001590: 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 |1097,85:.1102,22|
000015A0: 38 3A 89 39 36 35 00 BB 1D BB 03 8B C2 28 35 30 |8:.965.......(50|
000015B0: 30 30 33 29 B3 B1 31 A7 39 39 30 00 EA 1D C0 03 |003)..1.990.....|
000015C0: 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 |.1093,49:.1094,2|
000015D0: 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 30 |30:.1097,46:.110|
000015E0: 32 2C 32 33 30 3A 89 39 36 35 00 24 1E C2 03 97 |2,230:.965.$....|
000015F0: 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 |2099,141:.2100,2|
00001600: 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 2C |0:.2101,3:.2103,|
00001610: 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 30 |8:.2104,141:.210|
00001620: 35 2C 32 31 00 60 1E C3 03 97 32 31 30 36 2C 33 |5,21.`....2106,3|
00001630: 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 37 |:.2115,145:.2117|
00001640: 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 |,52:.2118,234:.2|
00001650: 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 |121,49:.2122,141|
00001660: 00 9A 1E C4 03 97 32 31 32 33 2C 32 30 3A 97 32 |......2123,20:.2|
00001670: 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A |124,3:.2126,234:|
00001680: 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 2C |.2127,141:.2128,|
00001690: 32 31 3A 97 32 31 32 39 2C 33 00 B8 1E C5 03 9E |21:.2129,3......|
000016A0: 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 |UU.48:. DISABLE |
000016B0: 53 54 4F 50 20 4B 45 59 00 C9 1E CA 03 8D 38 30 |STOP KEY......80|
000016C0: 30 3A 8F 20 54 49 54 4C 45 00 D9 1E D4 03 89 33 |0:. TITLE......3|
000016D0: 30 30 3A 8F 20 4D 45 4E 55 00 0A 1F DE 03 99 22 |00:. MENU......"|
000016E0: 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F |.THE PGM WILL NO|
000016F0: 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D |T WORK ON THIS M|
00001700: 41 43 48 49 4E 45 21 22 3A 80 00 3F 1F E8 03 8B |ACHINE!":..?....|
00001710: 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 |UZ.1..UP%:.UP%:U|
00001720: 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D |Z.0:. ** PROGRAM|
00001730: 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 | STARTS HERE **.|
00001740: 6B 1F E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 |k...."..";:.:..(|
00001750: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00001760: 36 3A 97 35 33 32 38 30 2C 31 34 00 84 1F ED 03 |6:.53280,14.....|
00001770: 55 54 24 B2 22 20 48 41 4D 4C 45 54 22 3A 55 47 |UT$." HAMLET":UG|
00001780: 24 B2 22 22 00 A4 1F F2 03 8F 20 2A 2A 2A 4D 45 |$.""...... ***ME|
00001790: 4E 55 20 41 44 44 45 44 20 41 4E 44 20 50 47 4D |NU ADDED AND PGM|
000017A0: 20 2A 2A 2A 00 C4 1F FC 03 8F 20 2A 2A 2A 20 20 | ***...... *** |
000017B0: 20 4D 4F 44 49 46 49 45 44 20 42 59 20 20 20 20 | MODIFIED BY |
000017C0: 20 2A 2A 2A 00 E4 1F 06 04 8F 20 2A 2A 2A 20 20 | ***...... *** |
000017D0: 20 4A 41 4D 45 53 20 4D 55 4E 52 4F 20 20 20 20 | JAMES MUNRO |
000017E0: 20 2A 2A 2A 00 04 20 10 04 8F 20 2A 2A 2A 20 20 | ***.. ... *** |
000017F0: 20 31 39 38 32 20 30 37 20 30 38 20 20 20 20 20 | 1982 07 08 |
00001800: 20 2A 2A 2A 00 24 20 1A 04 8F 20 2A 2A 2A 20 20 | ***.$ ... *** |
00001810: 4F 53 48 41 57 41 20 4F 4E 54 41 52 49 4F 20 20 |OSHAWA ONTARIO |
00001820: 20 2A 2A 2A 00 34 20 4C 04 8F 20 4F 53 45 52 4F | ***.4 L.. OSERO|
00001830: 20 33 2E 34 00 4C 20 60 04 81 49 B2 31 A4 33 39 | 3.4.L `..I.1.39|
00001840: 3A 45 24 B2 45 24 AA 22 20 22 3A 82 00 64 20 6A |:E$.E$." ":..d j|
00001850: 04 81 49 B2 31 A4 33 39 3A 45 24 B2 45 24 AA 22 |..I.1.39:E$.E$."|
00001860: 9D 22 3A 82 00 6E 20 A6 04 89 31 34 37 30 00 89 |.":..n ...1470..|
00001870: 20 B0 04 97 55 54 2C 55 55 25 3A 55 48 B2 31 3A | ...UT,UU%:UH.1:|
00001880: 8D 38 35 30 3A 99 22 11 22 00 B8 20 BA 04 99 22 |.850:.".".. ..."|
00001890: 20 22 4E 41 24 22 20 49 53 20 50 4C 41 59 45 44 | "NA$" IS PLAYED|
000018A0: 20 4F 4E 20 41 4E 20 38 20 58 20 38 20 42 4F 41 | ON AN 8 X 8 BOA|
000018B0: 52 44 20 57 49 54 48 22 00 F0 20 C4 04 99 22 20 |RD WITH".. ..." |
000018C0: 52 4F 57 53 20 4E 55 4D 42 45 52 45 44 20 12 31 |ROWS NUMBERED .1|
000018D0: 92 20 54 4F 20 12 38 92 20 41 4E 44 20 43 4F 4C |. TO .8. AND COL|
000018E0: 55 4D 4E 53 20 12 41 92 20 54 4F 20 12 48 92 22 |UMNS .A. TO .H."|
000018F0: 00 20 21 CE 04 99 22 20 54 48 45 20 49 4E 49 54 |. !..." THE INIT|
00001900: 49 41 4C 20 43 4F 4E 46 49 47 55 52 41 54 49 4F |IAL CONFIGURATIO|
00001910: 4E 20 49 53 20 41 4C 4C 20 42 4C 41 4E 4B 2C 22 |N IS ALL BLANK,"|
00001920: 00 4C 21 D8 04 99 22 20 45 58 43 45 50 54 20 46 |.L!..." EXCEPT F|
00001930: 4F 52 20 54 48 45 20 43 45 4E 54 45 52 20 46 4F |OR THE CENTER FO|
00001940: 55 52 20 53 51 55 41 52 45 53 2C 22 00 77 21 E2 |UR SQUARES,".w!.|
00001950: 04 99 22 20 54 52 59 20 54 4F 20 50 4C 41 43 45 |.." TRY TO PLACE|
00001960: 20 59 4F 55 52 20 50 49 45 43 45 20 53 4F 20 54 | YOUR PIECE SO T|
00001970: 48 41 54 20 49 54 22 00 A6 21 EC 04 99 22 20 4F |HAT IT"..!..." O|
00001980: 55 54 46 4C 41 4E 4B 53 20 4D 49 4E 45 2C 20 43 |UTFLANKS MINE, C|
00001990: 52 45 41 54 49 4E 47 20 41 20 48 4F 52 49 5A 4F |REATING A HORIZO|
000019A0: 4E 54 41 4C 2C 22 00 D5 21 F6 04 99 22 20 56 45 |NTAL,"..!..." VE|
000019B0: 52 54 49 43 41 4C 2C 4F 52 20 44 49 41 47 4F 4E |RTICAL,OR DIAGON|
000019C0: 41 4C 20 52 55 4E 20 4F 46 20 4D 59 20 50 49 45 |AL RUN OF MY PIE|
000019D0: 43 45 53 2C 22 00 F6 21 00 05 99 22 20 54 55 52 |CES,"..!..." TUR|
000019E0: 4E 49 4E 47 20 54 48 45 4D 20 49 4E 54 4F 20 59 |NING THEM INTO Y|
000019F0: 4F 55 52 53 2E 22 00 19 22 0A 05 99 22 20 20 20 |OURS.".."..." |
00001A00: 20 C0 C0 C0 DB C0 C0 C0 DB C0 C0 C0 DB C0 C0 C0 | ...............|
00001A10: DB C0 C0 C0 DB C0 C0 C0 22 00 3B 22 14 05 99 22 |........".;"..."|
00001A20: 20 20 20 20 20 20 20 DD 20 D7 20 DD 20 D7 20 DD | . . . . .|
00001A30: 20 D7 20 DD 20 D7 20 DD 20 D1 22 00 5E 22 1E 05 | . . . . .".^"..|
00001A40: 99 22 20 20 20 20 C0 C0 C0 DB C0 C0 C0 DB C0 C0 |." ..........|
00001A50: C0 DB C0 C0 C0 DB C0 C0 C0 DB C0 C0 C0 22 00 8B |............."..|
00001A60: 22 28 05 99 22 20 45 58 41 4D 50 4C 45 3A 20 57 |"(.." EXAMPLE: W|
00001A70: 48 49 54 45 20 4F 55 54 46 4C 41 4E 4B 53 20 42 |HITE OUTFLANKS B|
00001A80: 4C 41 43 4B 2C 22 3A 8D 38 33 35 00 B0 22 29 05 |LACK,":.835..").|
00001A90: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001AA0: 11 11 11 1D 1D 1D 1D 1D 1D D1 22 3A 8D 38 33 35 |..........":.835|
00001AB0: 00 DE 22 32 05 99 22 91 91 91 91 91 20 43 41 50 |.."2.."..... CAP|
00001AC0: 54 55 52 49 4E 47 20 46 4F 55 52 20 4F 46 20 42 |TURING FOUR OF B|
00001AD0: 4C 41 43 4B 53 20 50 49 45 43 45 53 2E 22 00 0D |LACKS PIECES."..|
00001AE0: 23 6E 05 99 22 13 11 11 11 11 11 11 11 11 11 11 |#n.."...........|
00001AF0: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 20 D1 |.............. .|
00001B00: 20 DD A0 D1 20 DD 20 D1 20 DD 20 D1 22 00 21 23 | ... . . . .".!#|
00001B10: 73 05 8D 38 33 35 3A 55 48 B2 31 3A 20 8D 38 35 |s..835:UH.1: .85|
00001B20: 30 00 4E 23 78 05 99 22 11 20 4D 41 4B 45 20 59 |0.N#x..". MAKE Y|
00001B30: 4F 55 52 20 4D 4F 56 45 20 42 59 20 45 4E 54 45 |OUR MOVE BY ENTE|
00001B40: 52 49 4E 47 20 41 20 4E 55 4D 42 45 52 22 00 84 |RING A NUMBER"..|
00001B50: 23 82 05 99 22 11 20 46 4F 52 20 54 48 45 20 52 |#...". FOR THE R|
00001B60: 4F 57 20 41 4E 44 20 41 20 4C 45 54 54 45 52 20 |OW AND A LETTER |
00001B70: 46 4F 52 20 54 48 45 22 3A 99 22 11 20 43 4F 4C |FOR THE":.". COL|
00001B80: 55 4D 4E 2E 00 B4 23 8C 05 99 22 11 20 4E 4F 54 |UMN...#...". NOT|
00001B90: 45 3A 20 59 4F 55 20 4D 55 53 54 20 43 41 50 54 |E: YOU MUST CAPT|
00001BA0: 55 52 45 20 41 54 20 4C 45 41 53 54 20 4F 4E 45 |URE AT LEAST ONE|
00001BB0: 20 4F 46 22 00 E3 23 96 05 99 22 11 20 4D 59 20 | OF"..#...". MY |
00001BC0: 50 49 45 43 45 53 20 49 4E 20 54 48 49 53 20 57 |PIECES IN THIS W|
00001BD0: 41 59 20 49 46 20 49 54 20 49 53 20 41 54 20 41 |AY IF IT IS AT A|
00001BE0: 4C 4C 22 00 11 24 A0 05 99 22 11 20 50 4F 53 53 |LL"..$...". POSS|
00001BF0: 49 42 4C 45 2E 20 49 46 20 49 54 20 49 53 20 4E |IBLE. IF IT IS N|
00001C00: 4F 54 20 50 4F 53 53 49 42 4C 45 2C 20 59 4F 55 |OT POSSIBLE, YOU|
00001C10: 22 00 3F 24 AA 05 99 22 11 20 46 4F 52 46 45 49 |".?$...". FORFEI|
00001C20: 54 20 59 4F 55 52 20 54 55 52 4E 20 42 59 20 45 |T YOUR TURN BY E|
00001C30: 4E 54 45 52 49 4E 47 20 12 30 92 20 12 41 92 00 |NTERING .0. .A..|
00001C40: 59 24 B4 05 99 22 11 20 46 4F 52 20 59 4F 55 52 |Y$...". FOR YOUR|
00001C50: 20 4D 4F 56 45 2E 22 3A 8E 00 62 24 BE 05 46 32 | MOVE.":..b$..F2|
00001C60: B2 30 00 70 24 C0 05 55 50 B2 30 3A 8D 38 35 30 |.0.p$..UP.0:.850|
00001C70: 00 9B 24 C8 05 99 22 11 20 53 48 4F 55 4C 44 20 |..$...". SHOULD |
00001C80: 49 20 50 4C 41 59 20 4D 59 20 42 45 53 54 20 28 |I PLAY MY BEST (|
00001C90: 59 20 4F 52 20 4E 29 3F 20 22 3B 00 AE 24 D2 05 |Y OR N)? ";..$..|
00001CA0: 53 32 B2 30 3A 53 34 B2 30 3A 53 35 B2 30 00 CE |S2.0:S4.0:S5.0..|
00001CB0: 24 DC 05 55 4C B2 31 3A 55 53 24 B2 22 59 3F 4E |$..UL.1:US$."Y?N|
00001CC0: 22 3A 8D 33 35 3A 58 24 B2 55 52 24 3A 99 00 DF |":.35:X$.UR$:...|
00001CD0: 24 E6 05 8B 58 24 B2 22 4E 22 A7 31 35 33 30 00 |$...X$."N".1530.|
00001CE0: F2 24 F0 05 53 32 B2 33 3A 53 34 B2 32 3A 53 35 |.$..S2.3:S4.2:S5|
00001CF0: B2 31 00 FF 24 FA 05 42 B2 AB 31 3A 57 B2 31 00 |.1..$..B..1:W.1.|
00001D00: 0F 25 04 06 44 24 28 42 AA 31 29 B2 22 D7 22 00 |.%..D$(B.1).".".|
00001D10: 1F 25 0E 06 44 24 28 30 AA 31 29 B2 22 20 22 00 |.%..D$(0.1)." ".|
00001D20: 2F 25 18 06 44 24 28 57 AA 31 29 B2 22 D1 22 00 |/%..D$(W.1).".".|
00001D30: 3A 25 22 06 81 4B B2 31 A4 38 00 4B 25 2C 06 87 |:%"..K.1.8.K%,..|
00001D40: 49 34 28 4B 29 2C 4A 34 28 4B 29 00 51 25 36 06 |I4(K),J4(K).Q%6.|
00001D50: 82 00 57 25 37 06 8C 00 69 25 40 06 81 49 B2 30 |..W%7...i%@..I.0|
00001D60: A4 39 3A 81 4A B2 30 A4 39 00 76 25 4A 06 41 28 |.9:.J.0.9.v%J.A(|
00001D70: 49 2C 4A 29 B2 30 00 7F 25 54 06 82 4A 2C 49 00 |I,J).0..%T..J,I.|
00001D80: 8C 25 5E 06 41 28 34 2C 34 29 B2 57 00 99 25 68 |.%^.A(4,4).W..%h|
00001D90: 06 41 28 35 2C 35 29 B2 57 00 A6 25 72 06 41 28 |.A(5,5).W..%r.A(|
00001DA0: 34 2C 35 29 B2 42 00 B3 25 7C 06 41 28 35 2C 34 |4,5).B..%|.A(5,4|
00001DB0: 29 B2 42 00 CB 25 86 06 43 31 B2 32 3A 48 31 B2 |).B..%..C1.2:H1.|
00001DC0: 43 31 3A 4E 31 B2 34 3A 5A B2 30 00 FB 25 90 06 |C1:N1.4:Z.0..%..|
00001DD0: 99 22 11 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 |.". DO YOU WANT |
00001DE0: 42 4C 41 43 4B 20 4F 52 20 57 48 49 54 45 20 28 |BLACK OR WHITE (|
00001DF0: 42 20 4F 52 20 57 29 3F 20 22 3B 00 07 26 9A 06 |B OR W)? ";..&..|
00001E00: 43 B2 57 3A 48 B2 42 00 27 26 A4 06 55 4C B2 31 |C.W:H.B.'&..UL.1|
00001E10: 3A 55 53 24 B2 22 42 57 3F 22 3A 8D 33 35 3A 58 |:US$."BW?":.35:X|
00001E20: 24 B2 55 52 24 3A 99 00 38 26 AE 06 8B 58 24 B2 |$.UR$:..8&...X$.|
00001E30: 22 42 22 A7 31 37 33 30 00 44 26 B8 06 43 B2 42 |"B".1730.D&..C.B|
00001E40: 3A 48 B2 57 00 71 26 C2 06 99 22 11 20 44 4F 20 |:H.W.q&...". DO |
00001E50: 59 4F 55 20 57 41 4E 54 20 54 4F 20 47 4F 20 46 |YOU WANT TO GO F|
00001E60: 49 52 53 54 20 28 59 20 4F 52 20 4E 29 3F 20 22 |IRST (Y OR N)? "|
00001E70: 3B 00 8F 26 CC 06 55 4C B2 31 3A 55 53 24 B2 22 |;..&..UL.1:US$."|
00001E80: 59 4E 3F 22 3A 8D 33 35 3A 58 24 B2 55 52 24 00 |YN?":.35:X$.UR$.|
00001E90: 99 26 D6 06 99 22 93 22 3B 00 A3 26 E0 06 8D 33 |.&...".";..&...3|
00001EA0: 31 38 30 00 B4 26 EA 06 8B 58 24 B2 22 59 22 A7 |180..&...X$."Y".|
00001EB0: 32 31 36 30 00 D2 26 F4 06 99 44 4E 24 3B 45 24 |2160..&...DN$;E$|
00001EC0: 22 20 49 20 41 4D 20 54 48 49 4E 4B 49 4E 47 20 |" I AM THINKING |
00001ED0: 21 22 00 F0 26 FE 06 42 31 B2 AB 31 3A 49 33 B2 |!"..&..B1..1:I3.|
00001EE0: 30 3A 4A 33 B2 30 3A 54 31 B2 43 3A 54 32 B2 48 |0:J3.0:T1.C:T2.H|
00001EF0: 00 02 27 08 07 81 49 B2 31 A4 38 3A 81 4A B2 31 |..'...I.1.8:.J.1|
00001F00: A4 38 00 17 27 12 07 8B 20 41 28 49 2C 4A 29 B3 |.8..'... A(I,J).|
00001F10: B1 30 A7 31 39 37 30 00 21 27 1C 07 8D 32 38 35 |.0.1970.!'...285|
00001F20: 30 00 30 27 26 07 8B 46 31 B2 30 A7 31 39 37 30 |0.0'&..F1.0.1970|
00001F30: 00 39 27 30 07 55 B2 AB 31 00 43 27 3A 07 8D 32 |.9'0.U..1.C':..2|
00001F40: 39 33 30 00 52 27 44 07 8B 53 31 B2 30 A7 31 39 |930.R'D..S1.0.19|
00001F50: 37 30 00 6C 27 4E 07 8B 28 49 B2 31 29 B0 28 49 |70.l'N..(I.1).(I|
00001F60: B2 38 29 A7 53 31 B2 53 31 AA 53 32 00 86 27 58 |.8).S1.S1.S2..'X|
00001F70: 07 8B 28 4A B2 31 29 B0 28 4A B2 38 29 A7 53 31 |..(J.1).(J.8).S1|
00001F80: B2 53 31 AA 53 32 00 A0 27 62 07 8B 28 49 B2 32 |.S1.S2..'b..(I.2|
00001F90: 29 B0 28 49 B2 37 29 A7 53 31 B2 53 31 AB 53 35 |).(I.7).S1.S1.S5|
00001FA0: 00 BA 27 6C 07 8B 28 4A B2 32 29 B0 28 4A B2 37 |..'l..(J.2).(J.7|
00001FB0: 29 A7 53 31 B2 53 31 AB 53 35 00 D4 27 76 07 8B |).S1.S1.S5..'v..|
00001FC0: 28 49 B2 33 29 B0 28 49 B2 36 29 A7 53 31 B2 53 |(I.3).(I.6).S1.S|
00001FD0: 31 AA 53 34 00 EE 27 80 07 8B 28 4A B2 33 29 B0 |1.S4..'...(J.3).|
00001FE0: 28 4A B2 36 29 A7 53 31 B2 53 31 AA 53 34 00 FE |(J.6).S1.S1.S4..|
00001FF0: 27 8A 07 8B 53 31 B3 42 31 A7 31 39 37 30 00 0E |'...S1.B1.1970..|
00002000: 28 94 07 8B 53 31 B1 42 31 A7 31 39 36 30 00 21 |(...S1.B1.1960.!|
00002010: 28 9E 07 8B BB 28 31 29 B1 30 2E 35 A7 31 39 37 |(....(1).0.5.197|
00002020: 30 00 35 28 A8 07 42 31 B2 53 31 3A 49 33 B2 49 |0.5(..B1.S1:I3.I|
00002030: 3A 4A 33 B2 4A 00 3E 28 B2 07 82 4A 2C 49 00 4D |:J3.J.>(...J,I.M|
00002040: 28 BC 07 8B 42 31 B1 30 A7 32 30 33 30 00 77 28 |(...B1.0.2030.w(|
00002050: C6 07 99 44 4E 24 22 11 22 45 24 22 20 49 20 48 |...DN$"."E$" I H|
00002060: 41 56 45 20 54 4F 20 46 4F 52 46 45 49 54 20 4D |AVE TO FORFEIT M|
00002070: 59 20 4D 4F 56 45 22 00 85 28 D0 07 8B 5A B2 31 |Y MOVE"..(...Z.1|
00002080: A7 32 35 31 30 00 8D 28 DA 07 5A B2 31 00 97 28 |.2510..(..Z.1..(|
00002090: E4 07 89 32 31 36 30 00 9F 28 EE 07 5A B2 30 00 |...2160..(..Z.0.|
000020A0: D7 28 F8 07 99 44 4E 24 22 11 22 45 24 22 20 49 |.(...DN$"."E$" I|
000020B0: 20 57 49 4C 4C 20 4D 4F 56 45 20 54 4F 20 12 22 | WILL MOVE TO ."|
000020C0: C9 28 C4 28 49 33 29 2C 31 29 22 92 20 12 22 C7 |.(.(I3),1)". .".|
000020D0: 28 4A 33 AA 36 34 29 00 E1 28 02 08 8D 33 34 36 |(J3.64)..(...346|
000020E0: 30 00 F3 28 0C 08 49 B2 49 33 3A 4A B2 4A 33 3A |0..(..I.I3:J.J3:|
000020F0: 55 B2 31 00 FD 28 16 08 8D 32 39 33 30 00 0C 29 |U.1..(...2930..)|
00002100: 20 08 43 31 B2 43 31 AA 53 31 AA 31 00 19 29 2A | .C1.C1.S1.1..)*|
00002110: 08 48 31 B2 48 31 AB 53 31 00 25 29 34 08 4E 31 |.H1.H1.S1.%)4.N1|
00002120: B2 4E 31 AA 31 00 46 29 3E 08 99 44 4E 24 22 11 |.N1.1.F)>..DN$".|
00002130: 11 22 45 24 22 20 54 48 41 54 20 47 49 56 45 53 |."E$" THAT GIVES|
00002140: 20 4D 45 20 22 3B 00 4F 29 48 08 99 53 31 3B 00 | ME ";.O)H..S1;.|
00002150: 66 29 52 08 99 22 20 4F 46 20 59 4F 55 52 20 50 |f)R.." OF YOUR P|
00002160: 49 45 43 45 53 22 00 70 29 5C 08 8D 33 31 38 30 |IECES".p)\..3180|
00002170: 00 85 29 66 08 8B 48 31 B2 30 B0 4E 31 B2 36 34 |..)f..H1.0.N1.64|
00002180: A7 32 35 31 30 00 93 29 70 08 54 31 B2 48 3A 54 |.2510..)p.T1.H:T|
00002190: 32 B2 43 00 C3 29 7A 08 99 44 4E 24 3B 45 24 22 |2.C..)z..DN$;E$"|
000021A0: 20 49 4E 50 55 54 20 59 4F 55 52 20 4D 4F 56 45 | INPUT YOUR MOVE|
000021B0: 20 2D 2D 20 12 52 4F 57 92 20 12 43 4F 4C 92 20 | -- .ROW. .COL. |
000021C0: 20 22 3B 00 CD 29 84 08 8D 33 33 34 30 00 DC 29 | ";..)...3340..)|
000021D0: 8E 08 8B 49 B3 B1 30 A7 32 32 36 30 00 0A 2A 98 |...I..0.2260..*.|
000021E0: 08 99 44 4E 24 3B 45 24 22 20 41 52 45 20 59 4F |..DN$;E$" ARE YO|
000021F0: 55 20 46 4F 52 46 45 49 54 49 4E 47 20 59 4F 55 |U FORFEITING YOU|
00002200: 52 20 54 55 52 4E 20 3F 22 3B 00 28 2A A2 08 55 |R TURN ?";.(*..U|
00002210: 4C B2 31 3A 55 53 24 B2 22 59 4E 48 22 3A 8D 33 |L.1:US$."YNH":.3|
00002220: 35 3A 58 24 B2 55 52 24 00 3A 2A AC 08 8B 58 24 |5:X$.UR$.:*...X$|
00002230: B3 B1 22 59 22 A7 32 31 37 30 00 48 2A B6 08 8B |.."Y".2170.H*...|
00002240: 5A B2 31 A7 32 35 31 30 00 50 2A C0 08 5A B2 31 |Z.1.2510.P*..Z.1|
00002250: 00 5A 2A CA 08 89 31 37 39 30 00 6E 2A D4 08 8B |.Z*...1790.n*...|
00002260: 20 41 28 49 2C 4A 29 B2 30 A7 32 32 39 30 00 A0 | A(I,J).0.2290..|
00002270: 2A DE 08 99 44 4E 24 22 11 22 45 24 22 20 53 4F |*...DN$"."E$" SO|
00002280: 52 52 59 2C 20 53 51 55 41 52 45 20 4F 43 43 55 |RRY, SQUARE OCCU|
00002290: 50 49 45 44 3B 20 54 52 59 20 41 47 41 49 4E 22 |PIED; TRY AGAIN"|
000022A0: 00 AA 2A E8 08 89 32 33 37 30 00 B4 2A F2 08 8D |..*...2370..*...|
000022B0: 32 38 35 30 00 C3 2A FC 08 8B 46 31 B2 31 A7 32 |2850..*...F1.1.2|
000022C0: 33 33 30 00 F0 2A 06 09 99 44 4E 24 22 11 22 45 |330..*...DN$"."E|
000022D0: 24 22 20 53 4F 52 52 59 2C 20 4E 4F 54 20 4E 45 |$" SORRY, NOT NE|
000022E0: 58 54 20 54 4F 20 4D 59 20 50 49 45 43 45 53 22 |XT TO MY PIECES"|
000022F0: 00 FA 2A 10 09 89 32 33 37 30 00 03 2B 1A 09 55 |..*...2370..+..U|
00002300: B2 AB 31 00 0D 2B 24 09 8D 32 39 33 30 00 1C 2B |..1..+$..2930..+|
00002310: 2E 09 8B 53 31 B1 30 A7 32 33 39 30 00 47 2B 38 |...S1.0.2390.G+8|
00002320: 09 99 44 4E 24 22 11 22 45 24 22 20 53 4F 52 52 |..DN$"."E$" SORR|
00002330: 59 2C 20 44 4F 45 53 4E 27 54 20 46 4C 41 4E 4B |Y, DOESN'T FLANK|
00002340: 20 41 20 52 4F 57 22 00 4F 2B 42 09 99 45 24 00 | A ROW".O+B..E$.|
00002350: 59 2B 4C 09 89 32 31 37 30 00 61 2B 56 09 5A B2 |Y+L..2170.a+V.Z.|
00002360: 30 00 82 2B 60 09 99 44 4E 24 22 11 22 45 24 22 |0..+`..DN$"."E$"|
00002370: 20 54 48 41 54 20 47 49 56 45 53 20 59 4F 55 20 | THAT GIVES YOU |
00002380: 22 3B 00 8B 2B 6A 09 99 53 31 3B 00 A4 2B 74 09 |";..+j..S1;..+t.|
00002390: 99 22 20 4F 46 20 4D 59 20 50 49 45 43 45 53 22 |." OF MY PIECES"|
000023A0: 3A 99 45 24 00 AC 2B 7E 09 55 B2 31 00 B6 2B 88 |:.E$..+~.U.1..+.|
000023B0: 09 8D 32 39 33 30 00 C5 2B 92 09 48 31 B2 48 31 |..2930..+..H1.H1|
000023C0: AA 53 31 AA 31 00 D2 2B 9C 09 43 31 B2 43 31 AB |.S1.1..+..C1.C1.|
000023D0: 53 31 00 DE 2B A6 09 4E 31 B2 4E 31 AA 31 00 E8 |S1..+..N1.N1.1..|
000023E0: 2B B0 09 8D 33 31 38 30 00 FD 2B BA 09 8B 43 31 |+...3180..+...C1|
000023F0: B2 30 B0 4E 31 B2 36 34 A7 32 35 31 30 00 07 2C |.0.N1.64.2510..,|
00002400: C4 09 89 31 37 39 30 00 1B 2C CE 09 99 44 4E 24 |...1790..,...DN$|
00002410: 3B 45 24 3A 99 45 24 3A 99 45 24 00 3D 2C D8 09 |;E$:.E$:.E$.=,..|
00002420: 99 44 4E 24 3B 45 24 22 20 59 4F 55 20 48 41 56 |.DN$;E$" YOU HAV|
00002430: 45 20 22 48 31 22 50 49 45 43 45 53 22 00 57 2C |E "H1"PIECES".W,|
00002440: E2 09 99 22 20 49 20 48 41 56 45 20 22 43 31 22 |..." I HAVE "C1"|
00002450: 50 49 45 43 45 53 22 00 67 2C EC 09 8B 48 31 B2 |PIECES".g,...H1.|
00002460: 43 31 A7 32 35 38 30 00 77 2C F6 09 8B 48 31 B1 |C1.2580.w,...H1.|
00002470: 43 31 A7 32 36 30 30 00 96 2C 00 0A 99 22 20 53 |C1.2600..,..." S|
00002480: 4F 52 52 59 2C 20 49 20 57 4F 4E 20 54 48 41 54 |ORRY, I WON THAT|
00002490: 20 4F 4E 45 2E 22 00 A0 2C 0A 0A 89 32 36 31 30 | ONE."..,...2610|
000024A0: 00 B1 2C 14 0A 99 22 20 41 20 54 49 45 20 21 21 |..,..." A TIE !!|
000024B0: 22 00 BB 2C 1E 0A 89 32 37 39 30 00 CD 2C 28 0A |"..,...2790..,(.|
000024C0: 99 22 20 59 4F 55 20 57 4F 4E 20 21 22 00 DA 2C |." YOU WON !"..,|
000024D0: 32 0A 43 31 B2 43 31 AB 48 31 00 E9 2C 3C 0A 8B |2.C1.C1.H1..,<..|
000024E0: 43 31 B1 30 A7 32 36 34 30 00 F4 2C 46 0A 43 31 |C1.0.2640..,F.C1|
000024F0: B2 AB 43 31 00 06 2D 50 0A 43 31 B2 28 36 34 AC |..C1..-P.C1.(64.|
00002500: 43 31 29 AD 4E 31 00 1B 2D 5A 0A 99 22 20 54 48 |C1).N1..-Z.." TH|
00002510: 41 54 20 57 41 53 20 41 20 22 3B 00 2B 2D 64 0A |AT WAS A ";.+-d.|
00002520: 8B 43 31 B3 31 31 A7 32 37 38 30 00 3B 2D 6E 0A |.C1.11.2780.;-n.|
00002530: 8B 43 31 B3 32 35 A7 32 37 36 30 00 4B 2D 78 0A |.C1.25.2760.K-x.|
00002540: 8B 43 31 B3 33 39 A7 32 37 34 30 00 5B 2D 82 0A |.C1.39.2740.[-..|
00002550: 8B 43 31 B3 35 33 A7 32 37 32 30 00 70 2D 8C 0A |.C1.53.2720.p-..|
00002560: 99 22 50 45 52 46 45 43 54 20 47 41 4D 45 2E 22 |."PERFECT GAME."|
00002570: 00 7A 2D 96 0A 89 32 37 39 30 00 8B 2D A0 0A 99 |.z-...2790..-...|
00002580: 22 57 41 4C 4B 41 57 41 59 2E 22 00 95 2D AA 0A |"WALKAWAY."..-..|
00002590: 89 32 37 39 30 00 A3 2D B4 0A 99 22 46 49 47 48 |.2790..-..."FIGH|
000025A0: 54 2E 22 00 AD 2D BE 0A 89 32 37 39 30 00 BF 2D |T."..-...2790..-|
000025B0: C8 0A 99 22 48 4F 54 20 47 41 4D 45 20 21 22 00 |..."HOT GAME !".|
000025C0: C9 2D D2 0A 89 32 37 39 30 00 DB 2D DC 0A 99 22 |.-...2790..-..."|
000025D0: 53 51 55 45 41 4B 45 52 20 21 22 00 F1 2D E6 0A |SQUEAKER !"..-..|
000025E0: 8D 38 33 35 3A 55 50 B2 55 50 AA 31 3A 8D 38 35 |.835:UP.UP.1:.85|
000025F0: 30 00 1F 2E F0 0A 99 22 11 11 20 44 4F 20 59 4F |0......".. DO YO|
00002600: 55 20 57 41 4E 54 20 54 4F 20 50 4C 41 59 20 41 |U WANT TO PLAY A|
00002610: 4E 4F 54 48 45 52 20 47 41 4D 45 3F 20 22 3B 00 |NOTHER GAME? ";.|
00002620: 3F 2E FA 0A 55 4C B2 31 3A 55 53 24 B2 22 59 4E |?...UL.1:US$."YN|
00002630: 48 22 3A 8D 33 35 3A 58 24 B2 55 52 24 3A 99 00 |H":.35:X$.UR$:..|
00002640: 50 2E 04 0B 8B 58 24 B2 22 59 22 A7 31 36 30 30 |P....X$."Y".1600|
00002650: 00 6E 2E 0E 0B 99 22 11 11 11 54 48 41 4E 4B 53 |.n...."...THANKS|
00002660: 20 46 4F 52 20 50 4C 41 59 49 4E 47 2E 22 00 79 | FOR PLAYING.".y|
00002670: 2E 18 0B 8D 38 33 35 3A 8E 00 82 2E 22 0B 46 31 |....835:....".F1|
00002680: B2 30 00 8F 2E 2C 0B 81 49 31 B2 AB 31 A4 31 00 |.0...,..I1..1.1.|
00002690: 9C 2E 36 0B 81 4A 31 B2 AB 31 A4 31 00 B6 2E 40 |..6..J1..1.1...@|
000026A0: 0B 8B 41 28 49 AA 49 31 2C 4A AA 4A 31 29 B2 54 |..A(I.I1,J.J1).T|
000026B0: 32 A7 32 39 31 30 00 C1 2E 4A 0B 82 4A 31 2C 49 |2.2910...J..J1,I|
000026C0: 31 00 C7 2E 54 0B 8E 00 D0 2E 5E 0B 46 31 B2 31 |1...T.....^.F1.1|
000026D0: 00 D6 2E 68 0B 8E 00 DF 2E 72 0B 53 31 B2 30 00 |...h.....r.S1.0.|
000026E0: EA 2E 7C 0B 81 4B B2 31 A4 38 00 F7 2E 86 0B 49 |..|..K.1.8.....I|
000026F0: 35 B2 49 34 28 4B 29 00 04 2F 90 0B 4A 35 B2 4A |5.I4(K)../..J5.J|
00002700: 34 28 4B 29 00 10 2F 9A 0B 49 36 B2 49 AA 49 35 |4(K)../..I6.I.I5|
00002710: 00 1C 2F A4 0B 4A 36 B2 4A AA 4A 35 00 25 2F AE |../..J6.J.J5.%/.|
00002720: 0B 53 33 B2 30 00 3C 2F B8 0B 8B 41 28 49 36 2C |.S3.0.</...A(I6,|
00002730: 4A 36 29 B3 B1 54 32 A7 33 31 36 30 00 48 2F C2 |J6)..T2.3160.H/.|
00002740: 0B 53 33 B2 53 33 AA 31 00 55 2F CC 0B 49 36 B2 |.S3.S3.1.U/..I6.|
00002750: 49 36 AA 49 35 00 62 2F D6 0B 4A 36 B2 4A 36 AA |I6.I5.b/..J6.J6.|
00002760: 4A 35 00 78 2F E0 0B 8B 41 28 49 36 2C 4A 36 29 |J5.x/...A(I6,J6)|
00002770: B2 54 31 A7 33 30 37 30 00 8E 2F EA 0B 8B 41 28 |.T1.3070../...A(|
00002780: 49 36 2C 4A 36 29 B2 30 20 A7 33 31 36 30 00 98 |I6,J6).0 .3160..|
00002790: 2F F4 0B 89 33 30 31 30 00 A5 2F FE 0B 53 31 B2 |/...3010../..S1.|
000027A0: 53 31 AA 53 33 00 B4 2F 08 0C 8B 55 B3 B1 31 A7 |S1.S3../...U..1.|
000027B0: 33 31 36 30 00 BD 2F 12 0C 49 36 B2 49 00 C6 2F |3160../..I6.I../|
000027C0: 1C 0C 4A 36 B2 4A 00 D3 2F 26 0C 81 4B 31 B2 30 |..J6.J../&..K1.0|
000027D0: A4 53 33 00 E3 2F 30 0C 41 28 49 36 2C 4A 36 29 |.S3../0.A(I6,J6)|
000027E0: B2 54 31 00 F0 2F 3A 0C 49 36 B2 49 36 AA 49 35 |.T1../:.I6.I6.I5|
000027F0: 00 FD 2F 44 0C 4A 36 B2 4A 36 AA 4A 35 00 05 30 |../D.J6.J6.J5..0|
00002800: 4E 0C 82 4B 31 00 0C 30 58 0C 82 4B 00 12 30 62 |N..K1..0X..K..0b|
00002810: 0C 8E 00 44 30 6C 0C 99 22 13 22 A3 39 29 22 20 |...D0l..".".9)" |
00002820: 20 22 3B 3A 81 49 B2 31 A4 C3 28 4E 41 24 29 3A | ";:.I.1..(NA$):|
00002830: 99 CA 28 4E 41 24 2C 49 2C 31 29 22 20 20 22 3B |..(NA$,I,1)" ";|
00002840: 3A 82 3A 99 00 73 30 76 0C 99 22 11 20 20 20 20 |:.:..s0v..". |
00002850: 20 41 20 20 20 42 20 20 20 43 20 20 20 44 20 20 | A B C D |
00002860: 20 45 20 20 20 46 20 20 20 47 20 20 20 48 20 20 | E F G H |
00002870: 20 20 22 00 9F 30 80 0C 99 22 20 20 20 B0 C0 C0 | "..0..." ...|
00002880: C0 B2 C0 C0 C0 B2 C0 C0 C0 B2 C0 C0 C0 B2 C0 C0 |................|
00002890: C0 B2 C0 C0 C0 B2 C0 C0 C0 B2 C0 C0 C0 AE 22 00 |..............".|
000028A0: AA 30 8A 0C 81 49 B2 31 A4 38 00 B6 30 94 0C 99 |.0...I.1.8..0...|
000028B0: 49 22 DD 20 22 3B 00 C1 30 9E 0C 81 4A B2 31 A4 |I". ";..0...J.1.|
000028C0: 38 00 D9 30 A8 0C 99 44 24 28 41 28 49 2C 4A 29 |8..0...D$(A(I,J)|
000028D0: AA 31 29 22 20 DD 20 22 3B 00 E0 30 B2 0C 82 4A |.1)" . ";..0...J|
000028E0: 00 E6 30 BC 0C 99 00 17 31 C6 0C 8B 49 B3 B1 38 |..0.....1...I..8|
000028F0: A7 99 22 20 20 20 AB C0 C0 C0 DB C0 C0 C0 DB C0 |.." ..........|
00002900: C0 C0 DB C0 C0 C0 DB C0 C0 C0 DB C0 C0 C0 DB C0 |................|
00002910: C0 C0 DB C0 C0 C0 B3 00 1E 31 D0 0C 82 49 00 4A |.........1...I.J|
00002920: 31 DA 0C 99 22 20 20 20 AD C0 C0 C0 B1 C0 C0 C0 |1..." ........|
00002930: B1 C0 C0 C0 B1 C0 C0 C0 B1 C0 C0 C0 B1 C0 C0 C0 |................|
00002940: B1 C0 C0 C0 B1 C0 C0 C0 BD 22 00 50 31 E4 0C 8E |.........".P1...|
00002950: 00 56 31 EE 0C 8E 00 6D 31 F8 0C 8F 20 49 4E 50 |.V1....m1... INP|
00002960: 55 54 20 53 55 42 52 4F 55 54 49 4E 45 00 79 31 |UT SUBROUTINE.y1|
00002970: F9 0C 97 55 54 2C 55 55 25 00 9D 31 02 0D 99 44 |...UT,UU%..1...D|
00002980: 4E 24 22 11 22 45 24 22 42 41 44 20 4D 4F 56 45 |N$"."E$"BAD MOVE|
00002990: 3B 20 54 52 59 20 41 47 41 49 4E 2E 22 00 A3 31 |; TRY AGAIN."..1|
000029A0: 0C 0D 8F 00 C7 31 16 0D 55 53 24 B2 22 31 32 33 |.....1..US$."123|
000029B0: 34 35 36 37 38 3F 22 3A 55 4C B2 31 3A 8D 33 35 |45678?":UL.1:.35|
000029C0: 3A 58 24 B2 55 52 24 00 04 32 1B 0D 99 22 91 1D |:X$.UR$..2..."..|
000029D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000029E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |..............";|
000029F0: 3A 55 53 24 B2 22 41 42 43 44 45 46 47 48 3F 22 |:US$."ABCDEFGH?"|
00002A00: 3A 8D 33 35 00 10 32 52 0D 47 B2 C6 28 58 24 29 |:.35..2R.G..(X$)|
00002A10: 00 1C 32 5C 0D 49 B2 47 AB 34 38 3A 00 2C 32 66 |..2\.I.G.48:.,2f|
00002A20: 0D 4A B2 C6 28 55 52 24 29 AB 36 34 00 32 32 70 |.J..(UR$).64.22p|
00002A30: 0D 8E 00 4D 32 84 0D 8F 20 42 4C 49 4E 4B 20 43 |...M2... BLINK C|
00002A40: 4F 4D 50 55 54 45 52 53 20 4D 4F 56 45 00 76 32 |OMPUTERS MOVE.v2|
00002A50: 8E 0D 99 C8 28 44 4E 24 2C 32 AC 28 49 33 AB 31 |....(DN$,2.(I3.1|
00002A60: 29 AA 35 29 3B C8 28 52 24 2C 34 AC 28 4A 33 AB |).5);.(R$,4.(J3.|
00002A70: 31 29 AA 35 29 3B 00 8D 32 98 0D 4B B2 31 3A 4D |1).5);..2..K.1:M|
00002A80: B2 30 3A 58 24 B2 44 24 28 43 AA 31 29 00 A4 32 |.0:X$.D$(C.1)..2|
00002A90: A2 0D 8B 4B B2 31 A7 99 58 24 22 9D 22 3B 3A 89 |...K.1..X$".";:.|
00002AA0: 33 35 31 30 00 AF 32 AC 0D 99 22 20 9D 22 3B 00 |3510..2..." .";.|
00002AB0: BA 32 B6 0D 4B B2 AB 31 AC 4B 00 C8 32 C0 0D 81 |.2..K..1.K..2...|
00002AC0: 4C B2 31 A4 35 30 3A 82 00 D3 32 CA 0D 8B 4D B1 |L.1.50:...2...M.|
00002AD0: 39 A7 8E 00 E3 32 D4 0D 4D B2 4D AA 31 3A 89 33 |9....2..M.M.1:.3|
00002AE0: 34 39 30 00 0F 33 DE 0D 83 20 30 2C 31 2C 2D 31 |490..3... 0,1,-1|
00002AF0: 2C 31 2C 2D 31 2C 30 2C 2D 31 2C 2D 31 2C 30 2C |,1,-1,0,-1,-1,0,|
00002B00: 2D 31 2C 31 2C 2D 31 2C 31 2C 30 2C 31 2C 31 00 |-1,1,-1,1,0,1,1.|
00002B10: 00 00 |.. |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..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.." -
-------------------------------------".X
.;..".. 1. BEGIN HAMLET"...@..".
. 2. STUDENT INSTRUCTIONS".,.E..
".. 3. TEACHER INSTRUCTIONS".H.O
..".. 4. QUIT..".W.T.." --------
------------------------------"...Y.."..
PRESS A NUMBER KEY (1-4) ";.J.^.U
L.1:US$."1234":.35:. INPUT ROUTINE.U.`.U
S$.""...C..E(UR$).1000,400,500,396...H..
300.".... ** RE-ENABLE STOP KEY AND END
**.Q....B(50003)..1.B(50003)..160.B(5000
3)..0.399.{....UU.71:.B(50003).0..53281,
6:.53280,14......"..":.......875:.......
** STUDENT INSTRUCTIONS **.Z....".":.B(
50003).0..53281,0:.53280,0.....UT$." HAM
LET": UP.0:UG$."STUDENT INST"......1200.
8....". PRESS ? <RETURN> TO OBTAIN HELP"
.A....835.U....UZ.1..UP%:.217.[.....|...
. ** TEACHER INSTRUCTIONS **......".":.U
T,UL%:.B(50003).0..53281,2:.53280,10....
.UT$." HAMLET":UP.0:UG$."TEACHER INST":.
850......".. TO THE BEST OF OUR KNO
WLEDGE,.".2...." THIS PROGRAM IS IN TH
E PUBLIC.".^...." DOMAIN. IF THIS IS
NOT THE CASE.".{...." PLEASE CONTACT:.
.."......" COMMODORE BUSINESS MACHI
NES.".H...." 3370 PHARMACY AVE.
......" AGINCOURT, ONTARIO"....
.." CANADA M1W 2K4"......"
(416) 499-4292".D...UP.1:. 835:.
850:.N...." ..PROGRAM NAME: HAMLET
......." WRITTEN BY : UNKNOWN.
......" UPGRADED BY : JAMES MUNRO...
...." .THIS PROGRAM WILL RUN ON ANY.
......." PET 64 COMPUTER.%...."
COMMODORE 64 COMPUTER......835.B
.N..UZ.1..UP%:.217.H.W...N.X.. ** PROGRA
M MODIFICATION INST **..Y..".":.UT,UL%.
..].UP.0:UG$."PROGRAM MOD":.850......835
......UZ.1..UP%:.217.B.......... ** TO U
SE 8032 LOAD CBM4032 **...F..".....BEFOR
E RUNNING THIS PROGRAM ON AN 8032 ...S.
P.." LOAD THE 'CBM 4032' PROGRAM...
..........".^.Z..UU.71.D....... .. ** T
I T L E P A G E **...".."....";:.UT,UU
%:.B(50003).0..53280,14:.53281,6.N.$..I.
1.38:."...";:....&..I.1.22:.".....";:...
.(..I.1.37:.".....";:....*..I.1.22:."...
..";:..;.,.."...........................
..]...."................... . . ...~.
0.."................... . ......2.."...
................. ..D.4..".............
.C O M M O D O R E.....6..".............
..EDUCATIONAL.....8.."................SO
FTWARE.!.:.. ** COMMODORE LOGO **.Y.;..H
(UD$,24);"..........PRESS SPACE BAR OR W
AIT.":I.0.{.<..A$:.A$.." ".I.I.1:.I.250.
828...>.T1$."":T2$."":T3$."":T4$."":I.0.
..@..300.D.C.. ** SPACE BAR PRESS **...H
..UO,0:.H(UD$,24);".......PRESS SPACE BA
R TO CONTINUE."...L..UI$:.UI$.." ".844..
.N...<.R.. ** PAGE DESIGN ROUTINE **.H.T
.UP.UP.1.R.W.."."H(UT$.UP$,21);I(UP$.UG$
.D(UP),18)...\.." ----------------------
----------------"...`..UH..0.870...A..H(
UD$,24);H(UP$,7);"HELP - PRESS ? <RETU
RN>"...F.UH.0:."..":....K.. ** PLEASE WA
IT REMARK **.J.P..H(UD$,24);"
ONE MOMENT PLEASE... ".P.U...M.... *
* SET UP VARIABLES **.....UX$."?":.UQ%(1
000):UB.32768:U1.196:U2.197:U3.198:U4.21
6:UC.167:UU.1024.....UT.59468:UU%.12:UL%
.14:UP%.1146:UM.32768:UO.158:. 50003,0.9
....B(50003).0.UB.1024:U1.209:U2.210:U3.
211:U4.214:UC.204:UU.2048.X....B(50003).
0.UT.53272:UU%.21:UL%.23:UP%.2139:UM.102
4:UO.198.....UD$."......................
...".N...UP$."
".....UT$." HAMLET
":. PLACE PROGRAM TITLE HERE !!!!!!!!
!!!!!!!!!***.".....<.... ** SET VARIABLE
S **.]...DN$."......................".M.
..NA$."HAMLET.....R$."..................
..............."......900...... ** CHECK
FOR 8032 **.Z....".":." ":. SHIFTED SPA
CE......B(UB.40)..96..700...... ** MEMOR
Y CHECK **...... .(0).2000.937.L...."...
.THIS MACHINE DOES NOT HAVE ENOUGH.".P..
.."MEMORY TO RUN THIS PROGRAM !".{....UU
.71............"..":.B(50003).0.962.J...
. ** BASIC 2.0 OR 4.0 OR C-64 SETUP
**......1075,133:.1076,144:.1077,234:.10
79,4:.1080,133:.1081,145.>....1091,155:.
1098,133:.1099,144:.1100,234:.1103,133.`
....1104,145:.1105,234:.1082,234.W....B(
50003)..160.955......1093,88:.1094,228:.
1097,85:.1102,228:.965......B(50003)..1.
990......1093,49:.1094,230:.1097,46:.110
2,230:.965.$.B..2099,141:.2100,20:.2101,
3:.2103,8:.2104,141:.2105,21.`.C..2106,3
:.2115,145:.2117,52:.2118,234:.2121,49:.
2122,141...D..2123,20:.2124,3:.2126,234:
.2127,141:.2128,21:.2129,3...E..UU.48:.
DISABLE STOP KEY.I.J..800:. TITLE.Y.T..3
00:. MENU......".THE PGM WILL NOT WORK O
N THIS MACHINE!":..?....UZ.1..UP%:.UP%:U
Z.0:. ** PROGRAM STARTS HERE **.K...."..
";:.:.B(50003).0..53281,6:.53280,14.....
UT$." HAMLET":UG$.""...... ***MENU ADDED
AND PGM ***.D.... *** MODIFIED BY
***...... *** JAMES MUNRO ***.. .
.. *** 1982 07 08 ***.$ ... ***
OSHAWA ONTARIO ***.4 L.. OSERO 3.4.L `
..I.1.39:E$.E$." ":..D J..I.1.39:E$.E$."
.":..N ...1470.. ...UT,UU%:UH.1:.850:.".
".. ..." "NA$" IS PLAYED ON AN 8 X 8 BOA
RD WITH".. D.." ROWS NUMBERED .1. TO .8.
AND COLUMNS .A. TO .H.". !N.." THE INIT
IAL CONFIGURATION IS ALL BLANK,".L!X.."
EXCEPT FOR THE CENTER FOUR SQUARES,".W!.
.." TRY TO PLACE YOUR PIECE SO THAT IT".
.!..." OUTFLANKS MINE, CREATING A HORIZO
NTAL,".U!..." VERTICAL,OR DIAGONAL RUN O
F MY PIECES,"..!..." TURNING THEM INTO Y
OURS.".."..." .......................
".;"..." . W . W . W . W . Q".^"..
." .......................".."(.." EX
AMPLE: WHITE OUTFLANKS BLACK,":.835..").
.".......................Q":.835.."2..".
.... CAPTURING FOUR OF BLACKS PIECES."..
#N.."......................... Q . Q . Q
. Q".!#S..835:UH.1: .850.N#X..". MAKE Y
OUR MOVE BY ENTERING A NUMBER"..#...". F
OR THE ROW AND A LETTER FOR THE":.". COL
UMN...#...". NOTE: YOU MUST CAPTURE AT L
EAST ONE OF"..#...". MY PIECES IN THIS W
AY IF IT IS AT ALL"..$ ..". POSSIBLE. IF
IT IS NOT POSSIBLE, YOU".?$...". FORFEI
T YOUR TURN BY ENTERING .0. .A..Y$...".
FOR YOUR MOVE.":..B$..F2.0.P$..UP.0:.850
..$H..". SHOULD I PLAY MY BEST (Y OR N)?
";..$R.S2.0:S4.0:S5.0.N$..UL.1:US$."Y?N
":.35:X$.UR$:...$...X$."N".1530..$..S2.3
:S4.2:S5.1..$..B..1:W.1..%..D$(B.1)."W".
.%..D$(0.1)." "./%..D$(W.1)."Q".:%"..K.1
.8.K%,..I4(K),J4(K).Q%6...W%7...I%@..I.0
.9:.J.0.9.V%J.A(I,J).0.%T..J,I..%^.A(4,
4).W..%H.A(5,5).W..%R.A(4,5).B..%|.A(5,4
).B.K%..C1.2:H1.C1:N1.4:Z.0..%...". DO Y
OU WANT BLACK OR WHITE (B OR W)? ";..&..
C.W:H.B.'&..UL.1:US$."BW?":.35:X$.UR$:..
8&...X$."B".1730.D&..C.B:H.W.Q&B..". DO
YOU WANT TO GO FIRST (Y OR N)? ";..&L.UL
.1:US$."YN?":.35:X$.UR$..&V..".";..&...3
180..&...X$."Y".2160.R&...DN$;E$" I AM T
HINKING !"..&..B1..1:I3.0:J3.0:T1.C:T2.H
..'...I.1.8:.J.1.8..'... A(I,J)..0.1970.
!'...2850.0'&..F1.0.1970.9'0.U..1.C':..2
930.R'D..S1.0.1970.L'N..(I.1).(I.8).S1.S
1.S2..'X..(J.1).(J.8).S1.S1.S2. 'B..(I.2
).(I.7).S1.S1.S5..'L..(J.2).(J.7).S1.S1.
S5.T'V..(I.3).(I.6).S1.S1.S4..'...(J.3).
(J.6).S1.S1.S4..'...S1.B1.1970..(...S1.B
1.1960.!(....(1).0.5.1970.5(..B1.S1:I3.I
:J3.J.>(...J,I.M(...B1.0.2030.W(F..DN$".
"E$" I HAVE TO FORFEIT MY MOVE"..(P..Z.1
.2510..(Z.Z.1..(...2160..(..Z.0.W(...DN$
"."E$" I WILL MOVE TO ."I(D(I3),1)". ."G
(J3.64)..(...3460..(..I.I3:J.J3:U.1..(..
.2930..) .C1.C1.S1.1..)*.H1.H1.S1.%)4.N1
.N1.1.F)>..DN$".."E$" THAT GIVES ME ";.O
)H..S1;.F)R.." OF YOUR PIECES".P)\..3180
..)F..H1.0.N1.64.2510..)P.T1.H:T2.C.C)Z.
.DN$;E$" INPUT YOUR MOVE -- .ROW. .COL.
";.M)...3340..)...I..0.2260..*...DN$;E$
" ARE YOU FORFEITING YOUR TURN ?";.(*..U
L.1:US$."YNH":.35:X$.UR$.:*...X$.."Y".21
70.H*...Z.1.2510.P*..Z.1.Z*J..1790.N*T..
A(I,J).0.2290. *...DN$"."E$" SORRY, SQU
ARE OCCUPIED; TRY AGAIN"..*...2370..*...
2850.C*...F1.1.2330..*...DN$"."E$" SORRY
, NOT NEXT TO MY PIECES"..*...2370..+..U
..1..+$..2930..+...S1.0.2390.G+8..DN$"."
E$" SORRY, DOESN'T FLANK A ROW".O+B..E$.
Y+L..2170.A+V.Z.0..+`..DN$"."E$" THAT GI
VES YOU ";..+J..S1;..+T.." OF MY PIECES"
:.E$..+~.U.1..+...2930.E+..H1.H1.S1.1.R+
..C1.C1.S1..+..N1.N1.1..+...3180..+...C1
.0.N1.64.2510..,D..1790..,N..DN$;E$:.E$:
.E$.=,X..DN$;E$" YOU HAVE "H1"PIECES".W,
..." I HAVE "C1"PIECES".G,...H1.C1.2580.
W,...H1.C1.2600..,..." SORRY, I WON THAT
ONE.". ,...2610..,..." A TIE !!"..,...2
790.M,(.." YOU WON !".Z,2.C1.C1.H1..,<..
C1.0.2640..,F.C1..C1..-P.C1.(64.C1).N1..
-Z.." THAT WAS A ";.+-D..C1.11.2780.;-N.
.C1.25.2760.K-X..C1.39.2740.[-...C1.53.2
720.P-..."PERFECT GAME.".Z-...2790..- ..
"WALKAWAY."..-...2790..-..."FIGHT."..-..
.2790..-H.."HOT GAME !".I-R..2790..-..."
SQUEAKER !"..-...835:UP.UP.1:.850......"
.. DO YOU WANT TO PLAY ANOTHER GAME? ";.
?...UL.1:US$."YNH":.35:X$.UR$:..P....X$.
"Y".1600.N...."...THANKS FOR PLAYING.".Y
....835:....".F1.0...,..I1..1.1...6..J1.
.1.1...@..A(I.I1,J.J1).T2.2910.A.J..J1,I
1.G.T...P.^.F1.1.V.H.....R.S1.0...|..K.1
.8.....I5.I4(K)../..J5.J4(K)../..I6.I.I5
../..J6.J.J5.%/..S3.0.</...A(I6,J6)..T2.
3160.H/B.S3.S3.1.U/L.I6.I6.I5.B/V.J6.J6.
J5.X/...A(I6,J6).T1.3070../...A(I6,J6).0
.3160../...3010../..S1.S1.S3../...U..1.
3160../..I6.I.F/..J6.J.S/&..K1.0.S3../0.
A(I6,J6).T1../:.I6.I6.I5../D.J6.J6.J5..0
N..K1..0X..K..0B...D0L..".".9)" ";:.I.1
.C(NA$):.J(NA$,I,1)" ";:.:..S0V..".
A B C D E F G H "..0..
." .................................".
.0...I.1.8..0...I". ";.A0...J.1.8.Y0...D
$(A(I,J).1)" . ";..0...J..0.....1F..I..8
.." ..................................
.1P..I.J1Z.." ........................
.........".P1....V1....M1... INPUT SUBRO
UTINE.Y1...UT,UU%..1...DN$"."E$"BAD MOVE
; TRY AGAIN."..1....G1..US$."12345678?":
UL.1:.35:X$.UR$..2..."..................
..............";:US$."ABCDEFGH?":.35..2R
.G.F(X$)..2\.I.G.48:.,2F.J.F(UR$).64.22P
...M2... BLINK COMPUTERS MOVE.V2...H(DN$
,2.(I3.1).5);H(R$,4.(J3.1).5);..2..K.1:M
.0:X$.D$(C.1)..2...K.1..X$".";:.3510..2.
.." .";..2..K..1.K.H2...L.1.50:..S2J..M.
9....2T.M.M.1:.3490..3... 0,1,-1,1,-1,0,
-1,-1,0,-1,1,-1,1,0,1,1...
> CLICK IMAGE PREVIEW FOR FULL MODAL