HAMLET.C3
FILE INFORMATION
FILENAME(S): HAMLET.C3
FILE TYPE(S): PRG
FILE SIZE: 10.8K
FIRST SEEN: 2025-11-30 21:09:02
APPEARS ON: 1 disk(s)
FILE HASH
b47780c8577211f646413208385e5224b2f9998109fe89c87951292bb1b6bb5e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPELLEN | HAMLET.C3 | PRG | DuncanTwain | 27 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0A 04 01 00 89 39 31 30 00 2A 04 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 04 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 04 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 04 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 04 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 04 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 04 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 04 1E 00 3A 00 F0 04 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 05 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 05 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 2B 05 2D 00 99 22 20 |.0.UL.80.+.-.." |
00000120: 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 3F 05 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 05 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 05 3C 00 8B 55 |" .";:.85.|.<..U|
00000170: 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 90 05 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 05 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 05 46 00 55 52 24 B2 55 52 |ACTER...F.UR$.UR|
000001C0: 24 AA 55 49 24 00 CF 05 4B 00 99 55 49 24 3B 00 |$.UI$...K..UI$;.|
000001D0: D7 05 50 00 89 35 30 00 FC 05 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 06 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 06 5F 00 8B 55 46 B2 31 A7 8D |TINE.3._..UF.1..|
00000230: 32 34 30 00 40 06 64 00 55 46 B2 30 3A 99 3A 8E |240.@.d.UF.0:.:.|
00000240: 00 59 06 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 06 69 00 8B C3 |DELETE ++.j.i...|
00000260: 28 55 52 24 29 B3 31 A7 35 30 00 82 06 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 06 73 00 99 22 9D 20 20 9D 9D 22 3B |1)...s..". ..";|
00000290: 3A 89 35 30 00 BB 06 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 06 7D 00 |ARACTERS ++...}.|
000002C0: 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DE 06 |..(US$).0.150...|
000002D0: 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 F5 |...US.1..(US$)..|
000002E0: 06 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 06 8C 00 82 00 08 07 91 00 |,1).............|
00000300: 55 49 24 B2 22 22 3A 8E 00 23 07 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 07 98 00 8B C6 28 55 49 24 29 B2 | **.4.....(UI$).|
00000330: 34 36 A7 8E 00 45 07 9B 00 8B 55 49 24 B2 C7 28 |46...E....UI$..(|
00000340: 33 32 29 A7 8E 00 62 07 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 07 A5 00 8E 00 85 07 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 07 AF 00 8E 00 AF 07 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 07 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 07 BB 00 8E 00 E5 07 BE 00 55 49 24 |:............UI$|
000003E0: B2 22 22 3A 8E 00 0A 08 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 08 C5 00 8D |E EXIT +++......|
00000410: 32 35 30 00 1C 08 C8 00 8D 32 34 35 00 3B 08 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 08 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 08 D7 00 55 5A B2 31 |:.:.".".j...UZ.1|
00000460: 3A 55 56 25 B2 C2 28 55 54 29 00 73 08 D8 00 89 |:UV%..(UT).s....|
00000470: 33 30 30 00 98 08 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 08 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 08 DB 00 99 22 93 22 3B 00 08 09 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 09 E1 00 97 55 51 |%.U3%.3)......UQ|
00000510: 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 29 09 |,UQ%(UQ.UB):..).|
00000520: E6 00 97 55 31 2C 55 31 25 00 35 09 E8 00 97 55 |...U1,U1%.5....U|
00000530: 32 2C 55 32 25 00 41 09 E9 00 97 55 34 2C 55 34 |2,U2%.A....U4,U4|
00000540: 25 00 4F 09 EA 00 97 55 33 2C 55 33 25 AB 31 00 |%.O....U3,U3%.1.|
00000550: 57 09 EB 00 89 33 35 00 89 09 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 09 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 09 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 0A 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 0A FF 00 8E 00 2F |UP:UK.UL......./|
00000620: 0A 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 |.,.. ** MENU **.|
00000630: 35 0A 2D 01 3A 00 64 0A 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 0A 2F 01 3A 00 87 0A 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 0A 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 0A 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 0B 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 0B 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 0B 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 0B 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 0B 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 0B 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 0B 60 01 55 |UT ROUTINE...`.U|
000007D0: 53 24 B2 22 22 00 F2 0B 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 0B 68 01 89 33 30 30 00 22 0C 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 0C 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 0C 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 0C 8E 01 |6:.53280,14.....|
00000880: 99 22 9A 93 22 3A 80 00 92 0C 8F 01 8D 38 37 35 |."..":.......875|
00000890: 3A 8E 00 B3 0C 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 0C 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 0D 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 0D 9F 01 8D 31 32 30 30 00 |INST"......1200.|
00000910: 38 0D 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 0D E5 01 8D 38 33 |IN HELP".A....83|
00000940: 35 00 55 0D 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 0D F3 01 8E 00 7C 0D 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 0D 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 0D 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 0E 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 0E 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 0E 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: 0E 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 0E 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 0E 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 0E 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 0F 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: 0F 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: 0F 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 0F 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: 0F 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 0F 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 0F 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 08 10 05 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000BF0: 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 | ......2.0 ... .|
00000C00: CF CD D0 D5 D4 C5 D2 11 00 2F 10 06 02 99 22 20 |........./...." |
00000C10: 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E | ..... 4.|
00000C20: 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 |0 ..............|
00000C30: 51 10 07 02 99 22 20 20 20 20 20 20 20 20 20 38 |Q...." 8|
00000C40: 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 |032 ... ........|
00000C50: 11 00 76 10 08 02 99 22 20 20 20 20 20 20 20 20 |..v...." |
00000C60: 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF | ......... 64 ..|
00000C70: CD D0 D5 D4 C5 D2 00 7F 10 09 02 8D 38 33 35 00 |............835.|
00000C80: 93 10 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |..N..UZ.1..UP%:.|
00000C90: 32 31 37 00 99 10 57 02 8E 00 BF 10 58 02 8F 20 |217...W.....X.. |
00000CA0: 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 |** PROGRAM MODIF|
00000CB0: 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 |ICATION INST **.|
00000CC0: D0 10 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 |..Y..".":.UT,UL%|
00000CD0: 00 F0 10 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 |...].UP.0:UG$.".|
00000CE0: 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 |ROGRAM .OD":.850|
00000CF0: 00 F9 10 94 02 8D 38 33 35 00 0D 11 B2 02 8B 55 |......835......U|
00000D00: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 13 11 |Z.1..UP%:.217...|
00000D10: BB 02 8E 00 38 11 BC 02 8F 20 2A 2A 20 54 4F 20 |....8.... ** TO |
00000D20: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB|
00000D30: 4D 34 30 33 32 20 2A 2A 00 6E 11 C6 02 99 22 93 |M4032 **.n....".|
00000D40: 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 |....BEFORE RUNNI|
00000D50: 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |NG THIS PROGRAM |
00000D60: 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 A4 |ON AN 8032 ....|
00000D70: 11 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 |...." LOAD |
00000D80: 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 |THE 'CBM 4032' P|
00000D90: 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 |ROGRAM..........|
00000DA0: 11 11 11 22 00 AF 11 DA 02 9E 55 55 AA 37 31 00 |..."......UU.71.|
00000DB0: B5 11 E4 02 80 00 D5 11 20 03 8F 20 2A 2A 20 54 |........ .. ** T|
00000DC0: 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 | I T L E P A G|
00000DD0: 20 45 20 2A 2A 00 09 12 22 03 99 22 93 11 1D 05 | E **...".."....|
00000DE0: 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |";:.UT,UU%:..(50|
00000DF0: 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 |003).0..53280,14|
00000E00: 3A 97 35 33 32 38 31 2C 36 00 1F 12 24 03 81 49 |:.53281,6...$..I|
00000E10: B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 |.1.38:."...";:..|
00000E20: 37 12 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D |7.&..I.1.22:."..|
00000E30: 12 A6 92 22 3B 3A 82 00 4F 12 28 03 81 49 B2 31 |...";:..O.(..I.1|
00000E40: A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 |.37:.".....";:..|
00000E50: 67 12 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D |g.*..I.1.22:."..|
00000E60: 12 A6 92 22 3B 3A 82 00 8C 12 2C 03 99 22 13 11 |...";:....,.."..|
00000E70: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000E80: 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 AE 12 2E |......... .....|
00000E90: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000EA0: 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 CF |...... . . ....|
00000EB0: 12 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.0.."...........|
00000EC0: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 |........ . ....|
00000ED0: ED 12 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..2.."..........|
00000EE0: 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 15 13 |.......... ....|
00000EF0: 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |4.."............|
00000F00: 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 |..C O M M O D O |
00000F10: 52 20 45 11 11 00 38 13 36 03 99 22 1D 1D 1D 1D |R E...8.6.."....|
00000F20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 |...........EDUCA|
00000F30: 54 49 4F 4E 41 4C 11 11 00 57 13 38 03 99 22 1D |TIONAL...W.8..".|
00000F40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 |...............S|
00000F50: 4F 46 54 57 41 52 45 00 72 13 3A 03 8F 20 2A 2A |OFTWARE.r.:.. **|
00000F60: 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 | COMMODORE LOGO |
00000F70: 2A 2A 00 AA 13 3B 03 99 C8 28 55 44 24 2C 32 34 |**...;...(UD$,24|
00000F80: 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 |);"..........PRE|
00000F90: 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 |SS SPACE BAR OR |
00000FA0: 57 41 49 54 92 22 3A 49 B2 30 00 CC 13 3C 03 A1 |WAIT.":I.0...<..|
00000FB0: 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA |A$:.A$.." ".I.I.|
00000FC0: 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 F0 13 3E |1:.I.250.828...>|
00000FD0: 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 |.T1$."":T2$."":T|
00000FE0: 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 |3$."":T4$."":I.0|
00000FF0: 00 F9 13 40 03 89 33 30 30 00 15 14 43 03 8F 20 |...@..300...C.. |
00001000: 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 |** SPACE BAR PRE|
00001010: 53 53 20 2A 2A 00 50 14 48 03 97 55 4F 2C 30 3A |SS **.P.H..UO,0:|
00001020: 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D |..(UD$,24);"....|
00001030: 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 |...PRESS SPACE B|
00001040: 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 |AR TO CONTINUE."|
00001050: 00 67 14 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 |.g.L..UI$:.UI$..|
00001060: 22 20 22 A7 38 34 34 00 6D 14 4E 03 8E 00 8D 14 |" ".844.m.N.....|
00001070: 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 |R.. ** PAGE DESI|
00001080: 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 99 14 |GN ROUTINE **...|
00001090: 54 03 55 50 B2 55 50 AA 31 00 C3 14 57 03 99 22 |T.UP.UP.1...W.."|
000010A0: 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B |.".(UT$.UP$,21);|
000010B0: C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C |.(UP$.UG$..(UP),|
000010C0: 31 38 29 00 F2 14 5C 03 99 22 20 2D 2D 2D 2D 2D |18)...\.." -----|
000010D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000010E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000010F0: 2D 22 00 01 15 60 03 8B 55 48 B3 B1 30 A7 38 37 |-"...`..UH..0.87|
00001100: 30 00 35 15 61 03 99 C8 28 55 44 24 2C 32 34 29 |0.5.a...(UD$,24)|
00001110: 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 |;.(UP$,7);"HELP |
00001120: 2D 20 50 52 45 53 53 20 20 20 3F 20 3C 52 45 54 |- PRESS ? <RET|
00001130: 55 52 4E 3E 22 00 46 15 66 03 55 48 B2 30 3A 99 |URN>".F.f.UH.0:.|
00001140: 22 13 11 22 3A 8E 00 65 15 6B 03 8F 20 2A 2A 20 |"..":..e.k.. ** |
00001150: 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 |PLEASE WAIT REMA|
00001160: 52 4B 20 2A 2A 00 9B 15 70 03 99 C8 28 55 44 24 |RK **...p...(UD$|
00001170: 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 |,24);" |
00001180: 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 | ONE MOMENT PLEA|
00001190: 53 45 2E 2E 2E 20 20 20 20 20 22 00 A1 15 75 03 |SE... "...u.|
000011A0: 8E 00 BE 15 84 03 8F 20 2A 2A 20 53 45 54 20 55 |....... ** SET U|
000011B0: 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 09 |P VARIABLES **..|
000011C0: 16 85 03 55 58 24 B2 22 3F 22 3A 86 55 51 25 28 |...UX$."?":.UQ%(|
000011D0: 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 |1000):UB.32768:U|
000011E0: 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 |1.196:U2.197:U3.|
000011F0: 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 |198:U4.216:UC.16|
00001200: 37 3A 55 55 B2 31 30 32 34 00 47 16 86 03 55 54 |7:UU.1024.G...UT|
00001210: B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C |.59468:UU%.12:UL|
00001220: 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D |%.14:UP%.1146:UM|
00001230: B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 |.32768:UO.158:. |
00001240: 35 30 30 30 33 2C 30 00 8A 16 87 03 8B C2 28 35 |50003,0.......(5|
00001250: 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A |0003).0.UB.1024:|
00001260: 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 |U1.209:U2.210:U3|
00001270: B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 |.211:U4.214:UC.2|
00001280: 30 34 3A 55 55 B2 32 30 34 38 00 C9 16 88 03 8B |04:UU.2048......|
00001290: C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 |.(50003).0.UT.53|
000012A0: 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 |272:UU%.21:UL%.2|
000012B0: 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 |3:UP%.2139:UM.10|
000012C0: 32 34 3A 55 4F B2 31 39 38 00 ED 16 89 03 55 44 |24:UO.198.....UD|
000012D0: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
000012E0: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 1F 17 |............"...|
000012F0: 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 |..UP$." |
00001300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001320: 6D 17 8B 03 55 54 24 B2 22 20 48 41 4D 4C 45 54 |m...UT$." HAMLET|
00001330: 20 20 20 20 20 20 A0 A0 A0 A0 A0 A0 22 3A 8F 20 | ......":. |
00001340: 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 |PLACE PROGRAM TI|
00001350: 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 21 |TLE HERE !!!!!!!|
00001360: 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 73 17 |!!!!!!!!!!***.s.|
00001370: 8C 03 8E 00 8D 17 8E 03 8F 20 2A 2A 20 53 45 54 |......... ** SET|
00001380: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 AE 17 | VARIABLES **...|
00001390: 8F 03 44 4E 24 B2 22 13 11 11 11 11 11 11 11 11 |..DN$.".........|
000013A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 BE |............."..|
000013B0: 17 90 03 4E 41 24 B2 22 48 41 4D 4C 45 54 00 E9 |...NA$."HAMLET..|
000013C0: 17 91 03 52 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |...R$.".........|
000013D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000013E0: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 F2 17 93 03 8D 39 |........"......9|
000013F0: 30 30 00 0D 18 98 03 8F 20 2A 2A 20 43 48 45 43 |00...... ** CHEC|
00001400: 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 2B 18 |K FOR 8032 **.+.|
00001410: 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 |...".":.".":. SH|
00001420: 49 46 54 45 44 20 53 50 41 43 45 00 42 18 A2 03 |IFTED SPACE.B...|
00001430: 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 |..(UB.40)..96..7|
00001440: 30 30 00 5B 18 A3 03 8F 20 2A 2A 20 4D 45 4D 4F |00.[.... ** MEMO|
00001450: 52 59 20 43 48 45 43 4B 20 2A 2A 00 6F 18 A4 03 |RY CHECK **.o...|
00001460: 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 |. .(0).2000.937.|
00001470: 9D 18 A5 03 99 22 93 11 11 05 54 48 49 53 20 4D |....."....THIS M|
00001480: 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 |ACHINE DOES NOT |
00001490: 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 C1 18 |HAVE ENOUGH."...|
000014A0: A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 |..."MEMORY TO RU|
000014B0: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 |N THIS PROGRAM !|
000014C0: 22 00 CC 18 A7 03 9E 55 55 AA 37 31 00 D2 18 A8 |"......UU.71....|
000014D0: 03 80 00 EC 18 A9 03 99 22 93 05 22 3A 8B C2 28 |........"..":..(|
000014E0: 35 30 30 30 33 29 B2 30 A7 39 36 32 00 1B 19 AC |50003).0.962....|
000014F0: 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 |.. ** BASIC 2.0 |
00001500: 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D | OR 4.0 OR C-|
00001510: 36 34 20 53 45 54 55 50 20 2A 2A 00 59 19 AD 03 |64 SETUP **.Y...|
00001520: 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C |.1075,133:.1076,|
00001530: 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 |144:.1077,234:.1|
00001540: 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A |079,4:.1080,133:|
00001550: 97 31 30 38 31 2C 31 34 35 00 8F 19 AE 03 97 31 |.1081,145......1|
00001560: 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 |091,155:.1098,13|
00001570: 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 |3:.1099,144:.110|
00001580: 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 |0,234:.1103,133.|
00001590: B1 19 AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 |.....1104,145:.1|
000015A0: 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 |105,234:.1082,23|
000015B0: 34 00 C8 19 B1 03 8B C2 28 35 30 30 30 33 29 B3 |4.......(50003).|
000015C0: B1 31 36 30 A7 39 35 35 00 F7 19 B6 03 97 31 30 |.160.955......10|
000015D0: 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A |93,88:.1094,228:|
000015E0: 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 |.1097,85:.1102,2|
000015F0: 32 38 3A 89 39 36 35 00 0C 1A BB 03 8B C2 28 35 |28:.965.......(5|
00001600: 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 3B 1A C0 |0003)..1.990.;..|
00001610: 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C |..1093,49:.1094,|
00001620: 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 |230:.1097,46:.11|
00001630: 30 32 2C 32 33 30 3A 89 39 36 35 00 75 1A C2 03 |02,230:.965.u...|
00001640: 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C |.2099,141:.2100,|
00001650: 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 |20:.2101,3:.2103|
00001660: 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 |,8:.2104,141:.21|
00001670: 30 35 2C 32 31 00 B1 1A C3 03 97 32 31 30 36 2C |05,21......2106,|
00001680: 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 |3:.2115,145:.211|
00001690: 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 |7,52:.2118,234:.|
000016A0: 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 |2121,49:.2122,14|
000016B0: 31 00 EB 1A C4 03 97 32 31 32 33 2C 32 30 3A 97 |1......2123,20:.|
000016C0: 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 |2124,3:.2126,234|
000016D0: 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 |:.2127,141:.2128|
000016E0: 2C 32 31 3A 97 32 31 32 39 2C 33 00 09 1B C5 03 |,21:.2129,3.....|
000016F0: 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 |.UU.48:. DISABLE|
00001700: 20 53 54 4F 50 20 4B 45 59 00 1A 1B CA 03 8D 38 | STOP KEY......8|
00001710: 30 30 3A 8F 20 54 49 54 4C 45 00 2A 1B D4 03 89 |00:. TITLE.*....|
00001720: 33 30 30 3A 8F 20 4D 45 4E 55 00 5B 1B DE 03 99 |300:. MENU.[....|
00001730: 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E |".THE PGM WILL N|
00001740: 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 |OT WORK ON THIS |
00001750: 4D 41 43 48 49 4E 45 21 22 3A 80 00 90 1B E8 03 |MACHINE!":......|
00001760: 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A |.UZ.1..UP%:.UP%:|
00001770: 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 |UZ.0:. ** PROGRA|
00001780: 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A |M STARTS HERE **|
00001790: 00 BC 1B E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 |......"..";:.:..|
000017A0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
000017B0: 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 D5 1B ED |,6:.53280,14....|
000017C0: 03 55 54 24 B2 22 20 48 41 4D 4C 45 54 22 3A 55 |.UT$." HAMLET":U|
000017D0: 47 24 B2 22 22 00 F5 1B F2 03 8F 20 2A 2A 2A 4D |G$.""...... ***M|
000017E0: 45 4E 55 20 41 44 44 45 44 20 41 4E 44 20 50 47 |ENU ADDED AND PG|
000017F0: 4D 20 2A 2A 2A 00 15 1C FC 03 8F 20 2A 2A 2A 20 |M ***...... *** |
00001800: 20 20 4D 4F 44 49 46 49 45 44 20 42 59 20 20 20 | MODIFIED BY |
00001810: 20 20 2A 2A 2A 00 35 1C 06 04 8F 20 2A 2A 2A 20 | ***.5.... *** |
00001820: 20 20 4A 41 4D 45 53 20 4D 55 4E 52 4F 20 20 20 | JAMES MUNRO |
00001830: 20 20 2A 2A 2A 00 55 1C 10 04 8F 20 2A 2A 2A 20 | ***.U.... *** |
00001840: 20 20 31 39 38 32 20 30 37 20 30 38 20 20 20 20 | 1982 07 08 |
00001850: 20 20 2A 2A 2A 00 75 1C 1A 04 8F 20 2A 2A 2A 20 | ***.u.... *** |
00001860: 20 4F 53 48 41 57 41 20 4F 4E 54 41 52 49 4F 20 | OSHAWA ONTARIO |
00001870: 20 20 2A 2A 2A 00 85 1C 4C 04 8F 20 4F 53 45 52 | ***...L.. OSER|
00001880: 4F 20 33 2E 34 00 9D 1C 60 04 81 49 B2 31 A4 33 |O 3.4...`..I.1.3|
00001890: 39 3A 45 24 B2 45 24 AA 22 20 22 3A 82 00 B5 1C |9:E$.E$." ":....|
000018A0: 6A 04 81 49 B2 31 A4 33 39 3A 45 24 B2 45 24 AA |j..I.1.39:E$.E$.|
000018B0: 22 9D 22 3A 82 00 BF 1C A6 04 89 31 34 37 30 00 |".":.......1470.|
000018C0: DA 1C B0 04 97 55 54 2C 55 55 25 3A 55 48 B2 31 |.....UT,UU%:UH.1|
000018D0: 3A 8D 38 35 30 3A 99 22 11 22 00 09 1D BA 04 99 |:.850:."."......|
000018E0: 22 20 22 4E 41 24 22 20 49 53 20 50 4C 41 59 45 |" "NA$" IS PLAYE|
000018F0: 44 20 4F 4E 20 41 4E 20 38 20 58 20 38 20 42 4F |D ON AN 8 X 8 BO|
00001900: 41 52 44 20 57 49 54 48 22 00 41 1D C4 04 99 22 |ARD WITH".A...."|
00001910: 20 52 4F 57 53 20 4E 55 4D 42 45 52 45 44 20 12 | ROWS NUMBERED .|
00001920: 31 92 20 54 4F 20 12 38 92 20 41 4E 44 20 43 4F |1. TO .8. AND CO|
00001930: 4C 55 4D 4E 53 20 12 41 92 20 54 4F 20 12 48 92 |LUMNS .A. TO .H.|
00001940: 22 00 71 1D CE 04 99 22 20 54 48 45 20 49 4E 49 |".q...." THE INI|
00001950: 54 49 41 4C 20 43 4F 4E 46 49 47 55 52 41 54 49 |TIAL CONFIGURATI|
00001960: 4F 4E 20 49 53 20 41 4C 4C 20 42 4C 41 4E 4B 2C |ON IS ALL BLANK,|
00001970: 22 00 9D 1D D8 04 99 22 20 45 58 43 45 50 54 20 |"......" EXCEPT |
00001980: 46 4F 52 20 54 48 45 20 43 45 4E 54 45 52 20 46 |FOR THE CENTER F|
00001990: 4F 55 52 20 53 51 55 41 52 45 53 2C 22 00 C8 1D |OUR SQUARES,"...|
000019A0: E2 04 99 22 20 54 52 59 20 54 4F 20 50 4C 41 43 |..." TRY TO PLAC|
000019B0: 45 20 59 4F 55 52 20 50 49 45 43 45 20 53 4F 20 |E YOUR PIECE SO |
000019C0: 54 48 41 54 20 49 54 22 00 F7 1D EC 04 99 22 20 |THAT IT"......" |
000019D0: 4F 55 54 46 4C 41 4E 4B 53 20 4D 49 4E 45 2C 20 |OUTFLANKS MINE, |
000019E0: 43 52 45 41 54 49 4E 47 20 41 20 48 4F 52 49 5A |CREATING A HORIZ|
000019F0: 4F 4E 54 41 4C 2C 22 00 26 1E F6 04 99 22 20 56 |ONTAL,".&...." V|
00001A00: 45 52 54 49 43 41 4C 2C 4F 52 20 44 49 41 47 4F |ERTICAL,OR DIAGO|
00001A10: 4E 41 4C 20 52 55 4E 20 4F 46 20 4D 59 20 50 49 |NAL RUN OF MY PI|
00001A20: 45 43 45 53 2C 22 00 47 1E 00 05 99 22 20 54 55 |ECES,".G...." TU|
00001A30: 52 4E 49 4E 47 20 54 48 45 4D 20 49 4E 54 4F 20 |RNING THEM INTO |
00001A40: 59 4F 55 52 53 2E 22 00 6A 1E 0A 05 99 22 20 20 |YOURS.".j...." |
00001A50: 20 20 C0 C0 C0 DB C0 C0 C0 DB C0 C0 C0 DB C0 C0 | ..............|
00001A60: C0 DB C0 C0 C0 DB C0 C0 C0 22 00 8C 1E 14 05 99 |........."......|
00001A70: 22 20 20 20 20 20 20 20 DD 20 D7 20 DD 20 D7 20 |" . . . . |
00001A80: DD 20 D7 20 DD 20 D7 20 DD 20 D1 22 00 AF 1E 1E |. . . . . ."....|
00001A90: 05 99 22 20 20 20 20 C0 C0 C0 DB C0 C0 C0 DB C0 |.." .........|
00001AA0: C0 C0 DB C0 C0 C0 DB C0 C0 C0 DB C0 C0 C0 22 00 |..............".|
00001AB0: DC 1E 28 05 99 22 20 45 58 41 4D 50 4C 45 3A 20 |..(.." EXAMPLE: |
00001AC0: 57 48 49 54 45 20 4F 55 54 46 4C 41 4E 4B 53 20 |WHITE OUTFLANKS |
00001AD0: 42 4C 41 43 4B 2C 22 3A 8D 38 33 35 00 01 1F 29 |BLACK,":.835...)|
00001AE0: 05 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00001AF0: 11 11 11 11 1D 1D 1D 1D 1D 1D D1 22 3A 8D 38 33 |...........":.83|
00001B00: 35 00 2F 1F 32 05 99 22 91 91 91 91 91 20 43 41 |5./.2.."..... CA|
00001B10: 50 54 55 52 49 4E 47 20 46 4F 55 52 20 4F 46 20 |PTURING FOUR OF |
00001B20: 42 4C 41 43 4B 53 20 50 49 45 43 45 53 2E 22 00 |BLACKS PIECES.".|
00001B30: 5E 1F 6E 05 99 22 13 11 11 11 11 11 11 11 11 11 |^.n.."..........|
00001B40: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 20 |............... |
00001B50: D1 20 DD A0 D1 20 DD 20 D1 20 DD 20 D1 22 00 72 |. ... . . . .".r|
00001B60: 1F 73 05 8D 38 33 35 3A 55 48 B2 31 3A 20 8D 38 |.s..835:UH.1: .8|
00001B70: 35 30 00 9F 1F 78 05 99 22 11 20 4D 41 4B 45 20 |50...x..". MAKE |
00001B80: 59 4F 55 52 20 4D 4F 56 45 20 42 59 20 45 4E 54 |YOUR MOVE BY ENT|
00001B90: 45 52 49 4E 47 20 41 20 4E 55 4D 42 45 52 22 00 |ERING A NUMBER".|
00001BA0: D5 1F 82 05 99 22 11 20 46 4F 52 20 54 48 45 20 |.....". FOR THE |
00001BB0: 52 4F 57 20 41 4E 44 20 41 20 4C 45 54 54 45 52 |ROW AND A LETTER|
00001BC0: 20 46 4F 52 20 54 48 45 22 3A 99 22 11 20 43 4F | FOR THE":.". CO|
00001BD0: 4C 55 4D 4E 2E 00 05 20 8C 05 99 22 11 20 4E 4F |LUMN... ...". NO|
00001BE0: 54 45 3A 20 59 4F 55 20 4D 55 53 54 20 43 41 50 |TE: YOU MUST CAP|
00001BF0: 54 55 52 45 20 41 54 20 4C 45 41 53 54 20 4F 4E |TURE AT LEAST ON|
00001C00: 45 20 4F 46 22 00 34 20 96 05 99 22 11 20 4D 59 |E OF".4 ...". MY|
00001C10: 20 50 49 45 43 45 53 20 49 4E 20 54 48 49 53 20 | PIECES IN THIS |
00001C20: 57 41 59 20 49 46 20 49 54 20 49 53 20 41 54 20 |WAY IF IT IS AT |
00001C30: 41 4C 4C 22 00 62 20 A0 05 99 22 11 20 50 4F 53 |ALL".b ...". POS|
00001C40: 53 49 42 4C 45 2E 20 49 46 20 49 54 20 49 53 20 |SIBLE. IF IT IS |
00001C50: 4E 4F 54 20 50 4F 53 53 49 42 4C 45 2C 20 59 4F |NOT POSSIBLE, YO|
00001C60: 55 22 00 90 20 AA 05 99 22 11 20 46 4F 52 46 45 |U".. ...". FORFE|
00001C70: 49 54 20 59 4F 55 52 20 54 55 52 4E 20 42 59 20 |IT YOUR TURN BY |
00001C80: 45 4E 54 45 52 49 4E 47 20 12 30 92 20 12 41 92 |ENTERING .0. .A.|
00001C90: 00 AA 20 B4 05 99 22 11 20 46 4F 52 20 59 4F 55 |.. ...". FOR YOU|
00001CA0: 52 20 4D 4F 56 45 2E 22 3A 8E 00 B3 20 BE 05 46 |R MOVE.":... ..F|
00001CB0: 32 B2 30 00 C1 20 C0 05 55 50 B2 30 3A 8D 38 35 |2.0.. ..UP.0:.85|
00001CC0: 30 00 EC 20 C8 05 99 22 11 20 53 48 4F 55 4C 44 |0.. ...". SHOULD|
00001CD0: 20 49 20 50 4C 41 59 20 4D 59 20 42 45 53 54 20 | I PLAY MY BEST |
00001CE0: 28 59 20 4F 52 20 4E 29 3F 20 22 3B 00 FF 20 D2 |(Y OR N)? ";.. .|
00001CF0: 05 53 32 B2 30 3A 53 34 B2 30 3A 53 35 B2 30 00 |.S2.0:S4.0:S5.0.|
00001D00: 1F 21 DC 05 55 4C B2 31 3A 55 53 24 B2 22 59 3F |.!..UL.1:US$."Y?|
00001D10: 4E 22 3A 8D 33 35 3A 58 24 B2 55 52 24 3A 99 00 |N":.35:X$.UR$:..|
00001D20: 30 21 E6 05 8B 58 24 B2 22 4E 22 A7 31 35 33 30 |0!...X$."N".1530|
00001D30: 00 43 21 F0 05 53 32 B2 33 3A 53 34 B2 32 3A 53 |.C!..S2.3:S4.2:S|
00001D40: 35 B2 31 00 50 21 FA 05 42 B2 AB 31 3A 57 B2 31 |5.1.P!..B..1:W.1|
00001D50: 00 60 21 04 06 44 24 28 42 AA 31 29 B2 22 D7 22 |.`!..D$(B.1)."."|
00001D60: 00 70 21 0E 06 44 24 28 30 AA 31 29 B2 22 20 22 |.p!..D$(0.1)." "|
00001D70: 00 80 21 18 06 44 24 28 57 AA 31 29 B2 22 D1 22 |..!..D$(W.1)."."|
00001D80: 00 8B 21 22 06 81 4B B2 31 A4 38 00 9C 21 2C 06 |..!"..K.1.8..!,.|
00001D90: 87 49 34 28 4B 29 2C 4A 34 28 4B 29 00 A2 21 36 |.I4(K),J4(K)..!6|
00001DA0: 06 82 00 A8 21 37 06 8C 00 BA 21 40 06 81 49 B2 |....!7....!@..I.|
00001DB0: 30 A4 39 3A 81 4A B2 30 A4 39 00 C7 21 4A 06 41 |0.9:.J.0.9..!J.A|
00001DC0: 28 49 2C 4A 29 B2 30 00 D0 21 54 06 82 4A 2C 49 |(I,J).0..!T..J,I|
00001DD0: 00 DD 21 5E 06 41 28 34 2C 34 29 B2 57 00 EA 21 |..!^.A(4,4).W..!|
00001DE0: 68 06 41 28 35 2C 35 29 B2 57 00 F7 21 72 06 41 |h.A(5,5).W..!r.A|
00001DF0: 28 34 2C 35 29 B2 42 00 04 22 7C 06 41 28 35 2C |(4,5).B.."|.A(5,|
00001E00: 34 29 B2 42 00 1C 22 86 06 43 31 B2 32 3A 48 31 |4).B.."..C1.2:H1|
00001E10: B2 43 31 3A 4E 31 B2 34 3A 5A B2 30 00 4C 22 90 |.C1:N1.4:Z.0.L".|
00001E20: 06 99 22 11 20 44 4F 20 59 4F 55 20 57 41 4E 54 |..". DO YOU WANT|
00001E30: 20 42 4C 41 43 4B 20 4F 52 20 57 48 49 54 45 20 | BLACK OR WHITE |
00001E40: 28 42 20 4F 52 20 57 29 3F 20 22 3B 00 58 22 9A |(B OR W)? ";.X".|
00001E50: 06 43 B2 57 3A 48 B2 42 00 78 22 A4 06 55 4C B2 |.C.W:H.B.x"..UL.|
00001E60: 31 3A 55 53 24 B2 22 42 57 3F 22 3A 8D 33 35 3A |1:US$."BW?":.35:|
00001E70: 58 24 B2 55 52 24 3A 99 00 89 22 AE 06 8B 58 24 |X$.UR$:..."...X$|
00001E80: B2 22 42 22 A7 31 37 33 30 00 95 22 B8 06 43 B2 |."B".1730.."..C.|
00001E90: 42 3A 48 B2 57 00 C2 22 C2 06 99 22 11 20 44 4F |B:H.W.."...". DO|
00001EA0: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 47 4F 20 | YOU WANT TO GO |
00001EB0: 46 49 52 53 54 20 28 59 20 4F 52 20 4E 29 3F 20 |FIRST (Y OR N)? |
00001EC0: 22 3B 00 E0 22 CC 06 55 4C B2 31 3A 55 53 24 B2 |";.."..UL.1:US$.|
00001ED0: 22 59 4E 3F 22 3A 8D 33 35 3A 58 24 B2 55 52 24 |"YN?":.35:X$.UR$|
00001EE0: 00 EA 22 D6 06 99 22 93 22 3B 00 F4 22 E0 06 8D |.."...".";.."...|
00001EF0: 33 31 38 30 00 05 23 EA 06 8B 58 24 B2 22 59 22 |3180..#...X$."Y"|
00001F00: A7 32 31 36 30 00 23 23 F4 06 99 44 4E 24 3B 45 |.2160.##...DN$;E|
00001F10: 24 22 20 49 20 41 4D 20 54 48 49 4E 4B 49 4E 47 |$" I AM THINKING|
00001F20: 20 21 22 00 41 23 FE 06 42 31 B2 AB 31 3A 49 33 | !".A#..B1..1:I3|
00001F30: B2 30 3A 4A 33 B2 30 3A 54 31 B2 43 3A 54 32 B2 |.0:J3.0:T1.C:T2.|
00001F40: 48 00 53 23 08 07 81 49 B2 31 A4 38 3A 81 4A B2 |H.S#...I.1.8:.J.|
00001F50: 31 A4 38 00 68 23 12 07 8B 20 41 28 49 2C 4A 29 |1.8.h#... A(I,J)|
00001F60: B3 B1 30 A7 31 39 37 30 00 72 23 1C 07 8D 32 38 |..0.1970.r#...28|
00001F70: 35 30 00 81 23 26 07 8B 46 31 B2 30 A7 31 39 37 |50..#&..F1.0.197|
00001F80: 30 00 8A 23 30 07 55 B2 AB 31 00 94 23 3A 07 8D |0..#0.U..1..#:..|
00001F90: 32 39 33 30 00 A3 23 44 07 8B 53 31 B2 30 A7 31 |2930..#D..S1.0.1|
00001FA0: 39 37 30 00 BD 23 4E 07 8B 28 49 B2 31 29 B0 28 |970..#N..(I.1).(|
00001FB0: 49 B2 38 29 A7 53 31 B2 53 31 AA 53 32 00 D7 23 |I.8).S1.S1.S2..#|
00001FC0: 58 07 8B 28 4A B2 31 29 B0 28 4A B2 38 29 A7 53 |X..(J.1).(J.8).S|
00001FD0: 31 B2 53 31 AA 53 32 00 F1 23 62 07 8B 28 49 B2 |1.S1.S2..#b..(I.|
00001FE0: 32 29 B0 28 49 B2 37 29 A7 53 31 B2 53 31 AB 53 |2).(I.7).S1.S1.S|
00001FF0: 35 00 0B 24 6C 07 8B 28 4A B2 32 29 B0 28 4A B2 |5..$l..(J.2).(J.|
00002000: 37 29 A7 53 31 B2 53 31 AB 53 35 00 25 24 76 07 |7).S1.S1.S5.%$v.|
00002010: 8B 28 49 B2 33 29 B0 28 49 B2 36 29 A7 53 31 B2 |.(I.3).(I.6).S1.|
00002020: 53 31 AA 53 34 00 3F 24 80 07 8B 28 4A B2 33 29 |S1.S4.?$...(J.3)|
00002030: B0 28 4A B2 36 29 A7 53 31 B2 53 31 AA 53 34 00 |.(J.6).S1.S1.S4.|
00002040: 4F 24 8A 07 8B 53 31 B3 42 31 A7 31 39 37 30 00 |O$...S1.B1.1970.|
00002050: 5F 24 94 07 8B 53 31 B1 42 31 A7 31 39 36 30 00 |_$...S1.B1.1960.|
00002060: 72 24 9E 07 8B BB 28 31 29 B1 30 2E 35 A7 31 39 |r$....(1).0.5.19|
00002070: 37 30 00 86 24 A8 07 42 31 B2 53 31 3A 49 33 B2 |70..$..B1.S1:I3.|
00002080: 49 3A 4A 33 B2 4A 00 8F 24 B2 07 82 4A 2C 49 00 |I:J3.J..$...J,I.|
00002090: 9E 24 BC 07 8B 42 31 B1 30 A7 32 30 33 30 00 C8 |.$...B1.0.2030..|
000020A0: 24 C6 07 99 44 4E 24 22 11 22 45 24 22 20 49 20 |$...DN$"."E$" I |
000020B0: 48 41 56 45 20 54 4F 20 46 4F 52 46 45 49 54 20 |HAVE TO FORFEIT |
000020C0: 4D 59 20 4D 4F 56 45 22 00 D6 24 D0 07 8B 5A B2 |MY MOVE"..$...Z.|
000020D0: 31 A7 32 35 31 30 00 DE 24 DA 07 5A B2 31 00 E8 |1.2510..$..Z.1..|
000020E0: 24 E4 07 89 32 31 36 30 00 F0 24 EE 07 5A B2 30 |$...2160..$..Z.0|
000020F0: 00 28 25 F8 07 99 44 4E 24 22 11 22 45 24 22 20 |.(%...DN$"."E$" |
00002100: 49 20 57 49 4C 4C 20 4D 4F 56 45 20 54 4F 20 12 |I WILL MOVE TO .|
00002110: 22 C9 28 C4 28 49 33 29 2C 31 29 22 92 20 12 22 |".(.(I3),1)". ."|
00002120: C7 28 4A 33 AA 36 34 29 00 32 25 02 08 8D 33 34 |.(J3.64).2%...34|
00002130: 36 30 00 44 25 0C 08 49 B2 49 33 3A 4A B2 4A 33 |60.D%..I.I3:J.J3|
00002140: 3A 55 B2 31 00 4E 25 16 08 8D 32 39 33 30 00 5D |:U.1.N%...2930.]|
00002150: 25 20 08 43 31 B2 43 31 AA 53 31 AA 31 00 6A 25 |% .C1.C1.S1.1.j%|
00002160: 2A 08 48 31 B2 48 31 AB 53 31 00 76 25 34 08 4E |*.H1.H1.S1.v%4.N|
00002170: 31 B2 4E 31 AA 31 00 97 25 3E 08 99 44 4E 24 22 |1.N1.1..%>..DN$"|
00002180: 11 11 22 45 24 22 20 54 48 41 54 20 47 49 56 45 |.."E$" THAT GIVE|
00002190: 53 20 4D 45 20 22 3B 00 A0 25 48 08 99 53 31 3B |S ME ";..%H..S1;|
000021A0: 00 B7 25 52 08 99 22 20 4F 46 20 59 4F 55 52 20 |..%R.." OF YOUR |
000021B0: 50 49 45 43 45 53 22 00 C1 25 5C 08 8D 33 31 38 |PIECES"..%\..318|
000021C0: 30 00 D6 25 66 08 8B 48 31 B2 30 B0 4E 31 B2 36 |0..%f..H1.0.N1.6|
000021D0: 34 A7 32 35 31 30 00 E4 25 70 08 54 31 B2 48 3A |4.2510..%p.T1.H:|
000021E0: 54 32 B2 43 00 14 26 7A 08 99 44 4E 24 3B 45 24 |T2.C..&z..DN$;E$|
000021F0: 22 20 49 4E 50 55 54 20 59 4F 55 52 20 4D 4F 56 |" INPUT YOUR MOV|
00002200: 45 20 2D 2D 20 12 52 4F 57 92 20 12 43 4F 4C 92 |E -- .ROW. .COL.|
00002210: 20 20 22 3B 00 1E 26 84 08 8D 33 33 34 30 00 2D | ";..&...3340.-|
00002220: 26 8E 08 8B 49 B3 B1 30 A7 32 32 36 30 00 5B 26 |&...I..0.2260.[&|
00002230: 98 08 99 44 4E 24 3B 45 24 22 20 41 52 45 20 59 |...DN$;E$" ARE Y|
00002240: 4F 55 20 46 4F 52 46 45 49 54 49 4E 47 20 59 4F |OU FORFEITING YO|
00002250: 55 52 20 54 55 52 4E 20 3F 22 3B 00 79 26 A2 08 |UR TURN ?";.y&..|
00002260: 55 4C B2 31 3A 55 53 24 B2 22 59 4E 48 22 3A 8D |UL.1:US$."YNH":.|
00002270: 33 35 3A 58 24 B2 55 52 24 00 8B 26 AC 08 8B 58 |35:X$.UR$..&...X|
00002280: 24 B3 B1 22 59 22 A7 32 31 37 30 00 99 26 B6 08 |$.."Y".2170..&..|
00002290: 8B 5A B2 31 A7 32 35 31 30 00 A1 26 C0 08 5A B2 |.Z.1.2510..&..Z.|
000022A0: 31 00 AB 26 CA 08 89 31 37 39 30 00 BF 26 D4 08 |1..&...1790..&..|
000022B0: 8B 20 41 28 49 2C 4A 29 B2 30 A7 32 32 39 30 00 |. A(I,J).0.2290.|
000022C0: F1 26 DE 08 99 44 4E 24 22 11 22 45 24 22 20 53 |.&...DN$"."E$" S|
000022D0: 4F 52 52 59 2C 20 53 51 55 41 52 45 20 4F 43 43 |ORRY, SQUARE OCC|
000022E0: 55 50 49 45 44 3B 20 54 52 59 20 41 47 41 49 4E |UPIED; TRY AGAIN|
000022F0: 22 00 FB 26 E8 08 89 32 33 37 30 00 05 27 F2 08 |"..&...2370..'..|
00002300: 8D 32 38 35 30 00 14 27 FC 08 8B 46 31 B2 31 A7 |.2850..'...F1.1.|
00002310: 32 33 33 30 00 41 27 06 09 99 44 4E 24 22 11 22 |2330.A'...DN$"."|
00002320: 45 24 22 20 53 4F 52 52 59 2C 20 4E 4F 54 20 4E |E$" SORRY, NOT N|
00002330: 45 58 54 20 54 4F 20 4D 59 20 50 49 45 43 45 53 |EXT TO MY PIECES|
00002340: 22 00 4B 27 10 09 89 32 33 37 30 00 54 27 1A 09 |".K'...2370.T'..|
00002350: 55 B2 AB 31 00 5E 27 24 09 8D 32 39 33 30 00 6D |U..1.^'$..2930.m|
00002360: 27 2E 09 8B 53 31 B1 30 A7 32 33 39 30 00 98 27 |'...S1.0.2390..'|
00002370: 38 09 99 44 4E 24 22 11 22 45 24 22 20 53 4F 52 |8..DN$"."E$" SOR|
00002380: 52 59 2C 20 44 4F 45 53 4E 27 54 20 46 4C 41 4E |RY, DOESN'T FLAN|
00002390: 4B 20 41 20 52 4F 57 22 00 A0 27 42 09 99 45 24 |K A ROW"..'B..E$|
000023A0: 00 AA 27 4C 09 89 32 31 37 30 00 B2 27 56 09 5A |..'L..2170..'V.Z|
000023B0: B2 30 00 D3 27 60 09 99 44 4E 24 22 11 22 45 24 |.0..'`..DN$"."E$|
000023C0: 22 20 54 48 41 54 20 47 49 56 45 53 20 59 4F 55 |" THAT GIVES YOU|
000023D0: 20 22 3B 00 DC 27 6A 09 99 53 31 3B 00 F5 27 74 | ";..'j..S1;..'t|
000023E0: 09 99 22 20 4F 46 20 4D 59 20 50 49 45 43 45 53 |.." OF MY PIECES|
000023F0: 22 3A 99 45 24 00 FD 27 7E 09 55 B2 31 00 07 28 |":.E$..'~.U.1..(|
00002400: 88 09 8D 32 39 33 30 00 16 28 92 09 48 31 B2 48 |...2930..(..H1.H|
00002410: 31 AA 53 31 AA 31 00 23 28 9C 09 43 31 B2 43 31 |1.S1.1.#(..C1.C1|
00002420: AB 53 31 00 2F 28 A6 09 4E 31 B2 4E 31 AA 31 00 |.S1./(..N1.N1.1.|
00002430: 39 28 B0 09 8D 33 31 38 30 00 4E 28 BA 09 8B 43 |9(...3180.N(...C|
00002440: 31 B2 30 B0 4E 31 B2 36 34 A7 32 35 31 30 00 58 |1.0.N1.64.2510.X|
00002450: 28 C4 09 89 31 37 39 30 00 6C 28 CE 09 99 44 4E |(...1790.l(...DN|
00002460: 24 3B 45 24 3A 99 45 24 3A 99 45 24 00 8E 28 D8 |$;E$:.E$:.E$..(.|
00002470: 09 99 44 4E 24 3B 45 24 22 20 59 4F 55 20 48 41 |..DN$;E$" YOU HA|
00002480: 56 45 20 22 48 31 22 50 49 45 43 45 53 22 00 A8 |VE "H1"PIECES"..|
00002490: 28 E2 09 99 22 20 49 20 48 41 56 45 20 22 43 31 |(..." I HAVE "C1|
000024A0: 22 50 49 45 43 45 53 22 00 B8 28 EC 09 8B 48 31 |"PIECES"..(...H1|
000024B0: B2 43 31 A7 32 35 38 30 00 C8 28 F6 09 8B 48 31 |.C1.2580..(...H1|
000024C0: B1 43 31 A7 32 36 30 30 00 E7 28 00 0A 99 22 20 |.C1.2600..(..." |
000024D0: 53 4F 52 52 59 2C 20 49 20 57 4F 4E 20 54 48 41 |SORRY, I WON THA|
000024E0: 54 20 4F 4E 45 2E 22 00 F1 28 0A 0A 89 32 36 31 |T ONE."..(...261|
000024F0: 30 00 02 29 14 0A 99 22 20 41 20 54 49 45 20 21 |0..)..." A TIE !|
00002500: 21 22 00 0C 29 1E 0A 89 32 37 39 30 00 1E 29 28 |!"..)...2790..)(|
00002510: 0A 99 22 20 59 4F 55 20 57 4F 4E 20 21 22 00 2B |.." YOU WON !".+|
00002520: 29 32 0A 43 31 B2 43 31 AB 48 31 00 3A 29 3C 0A |)2.C1.C1.H1.:)<.|
00002530: 8B 43 31 B1 30 A7 32 36 34 30 00 45 29 46 0A 43 |.C1.0.2640.E)F.C|
00002540: 31 B2 AB 43 31 00 57 29 50 0A 43 31 B2 28 36 34 |1..C1.W)P.C1.(64|
00002550: AC 43 31 29 AD 4E 31 00 6C 29 5A 0A 99 22 20 54 |.C1).N1.l)Z.." T|
00002560: 48 41 54 20 57 41 53 20 41 20 22 3B 00 7C 29 64 |HAT WAS A ";.|)d|
00002570: 0A 8B 43 31 B3 31 31 A7 32 37 38 30 00 8C 29 6E |..C1.11.2780..)n|
00002580: 0A 8B 43 31 B3 32 35 A7 32 37 36 30 00 9C 29 78 |..C1.25.2760..)x|
00002590: 0A 8B 43 31 B3 33 39 A7 32 37 34 30 00 AC 29 82 |..C1.39.2740..).|
000025A0: 0A 8B 43 31 B3 35 33 A7 32 37 32 30 00 C1 29 8C |..C1.53.2720..).|
000025B0: 0A 99 22 50 45 52 46 45 43 54 20 47 41 4D 45 2E |.."PERFECT GAME.|
000025C0: 22 00 CB 29 96 0A 89 32 37 39 30 00 DC 29 A0 0A |"..)...2790..)..|
000025D0: 99 22 57 41 4C 4B 41 57 41 59 2E 22 00 E6 29 AA |."WALKAWAY."..).|
000025E0: 0A 89 32 37 39 30 00 F4 29 B4 0A 99 22 46 49 47 |..2790..)..."FIG|
000025F0: 48 54 2E 22 00 FE 29 BE 0A 89 32 37 39 30 00 10 |HT."..)...2790..|
00002600: 2A C8 0A 99 22 48 4F 54 20 47 41 4D 45 20 21 22 |*..."HOT GAME !"|
00002610: 00 1A 2A D2 0A 89 32 37 39 30 00 2C 2A DC 0A 99 |..*...2790.,*...|
00002620: 22 53 51 55 45 41 4B 45 52 20 21 22 00 42 2A E6 |"SQUEAKER !".B*.|
00002630: 0A 8D 38 33 35 3A 55 50 B2 55 50 AA 31 3A 8D 38 |..835:UP.UP.1:.8|
00002640: 35 30 00 70 2A F0 0A 99 22 11 11 20 44 4F 20 59 |50.p*...".. DO Y|
00002650: 4F 55 20 57 41 4E 54 20 54 4F 20 50 4C 41 59 20 |OU WANT TO PLAY |
00002660: 41 4E 4F 54 48 45 52 20 47 41 4D 45 3F 20 22 3B |ANOTHER GAME? ";|
00002670: 00 90 2A FA 0A 55 4C B2 31 3A 55 53 24 B2 22 59 |..*..UL.1:US$."Y|
00002680: 4E 48 22 3A 8D 33 35 3A 58 24 B2 55 52 24 3A 99 |NH":.35:X$.UR$:.|
00002690: 00 A1 2A 04 0B 8B 58 24 B2 22 59 22 A7 31 36 30 |..*...X$."Y".160|
000026A0: 30 00 BF 2A 0E 0B 99 22 11 11 11 54 48 41 4E 4B |0..*..."...THANK|
000026B0: 53 20 46 4F 52 20 50 4C 41 59 49 4E 47 2E 22 00 |S FOR PLAYING.".|
000026C0: CA 2A 18 0B 8D 38 33 35 3A 8E 00 D3 2A 22 0B 46 |.*...835:...*".F|
000026D0: 31 B2 30 00 E0 2A 2C 0B 81 49 31 B2 AB 31 A4 31 |1.0..*,..I1..1.1|
000026E0: 00 ED 2A 36 0B 81 4A 31 B2 AB 31 A4 31 00 07 2B |..*6..J1..1.1..+|
000026F0: 40 0B 8B 41 28 49 AA 49 31 2C 4A AA 4A 31 29 B2 |@..A(I.I1,J.J1).|
00002700: 54 32 A7 32 39 31 30 00 12 2B 4A 0B 82 4A 31 2C |T2.2910..+J..J1,|
00002710: 49 31 00 18 2B 54 0B 8E 00 21 2B 5E 0B 46 31 B2 |I1..+T...!+^.F1.|
00002720: 31 00 27 2B 68 0B 8E 00 30 2B 72 0B 53 31 B2 30 |1.'+h...0+r.S1.0|
00002730: 00 3B 2B 7C 0B 81 4B B2 31 A4 38 00 48 2B 86 0B |.;+|..K.1.8.H+..|
00002740: 49 35 B2 49 34 28 4B 29 00 55 2B 90 0B 4A 35 B2 |I5.I4(K).U+..J5.|
00002750: 4A 34 28 4B 29 00 61 2B 9A 0B 49 36 B2 49 AA 49 |J4(K).a+..I6.I.I|
00002760: 35 00 6D 2B A4 0B 4A 36 B2 4A AA 4A 35 00 76 2B |5.m+..J6.J.J5.v+|
00002770: AE 0B 53 33 B2 30 00 8D 2B B8 0B 8B 41 28 49 36 |..S3.0..+...A(I6|
00002780: 2C 4A 36 29 B3 B1 54 32 A7 33 31 36 30 00 99 2B |,J6)..T2.3160..+|
00002790: C2 0B 53 33 B2 53 33 AA 31 00 A6 2B CC 0B 49 36 |..S3.S3.1..+..I6|
000027A0: B2 49 36 AA 49 35 00 B3 2B D6 0B 4A 36 B2 4A 36 |.I6.I5..+..J6.J6|
000027B0: AA 4A 35 00 C9 2B E0 0B 8B 41 28 49 36 2C 4A 36 |.J5..+...A(I6,J6|
000027C0: 29 B2 54 31 A7 33 30 37 30 00 DF 2B EA 0B 8B 41 |).T1.3070..+...A|
000027D0: 28 49 36 2C 4A 36 29 B2 30 20 A7 33 31 36 30 00 |(I6,J6).0 .3160.|
000027E0: E9 2B F4 0B 89 33 30 31 30 00 F6 2B FE 0B 53 31 |.+...3010..+..S1|
000027F0: B2 53 31 AA 53 33 00 05 2C 08 0C 8B 55 B3 B1 31 |.S1.S3..,...U..1|
00002800: A7 33 31 36 30 00 0E 2C 12 0C 49 36 B2 49 00 17 |.3160..,..I6.I..|
00002810: 2C 1C 0C 4A 36 B2 4A 00 24 2C 26 0C 81 4B 31 B2 |,..J6.J.$,&..K1.|
00002820: 30 A4 53 33 00 34 2C 30 0C 41 28 49 36 2C 4A 36 |0.S3.4,0.A(I6,J6|
00002830: 29 B2 54 31 00 41 2C 3A 0C 49 36 B2 49 36 AA 49 |).T1.A,:.I6.I6.I|
00002840: 35 00 4E 2C 44 0C 4A 36 B2 4A 36 AA 4A 35 00 56 |5.N,D.J6.J6.J5.V|
00002850: 2C 4E 0C 82 4B 31 00 5D 2C 58 0C 82 4B 00 63 2C |,N..K1.],X..K.c,|
00002860: 62 0C 8E 00 95 2C 6C 0C 99 22 13 22 A3 39 29 22 |b....,l..".".9)"|
00002870: 20 20 22 3B 3A 81 49 B2 31 A4 C3 28 4E 41 24 29 | ";:.I.1..(NA$)|
00002880: 3A 99 CA 28 4E 41 24 2C 49 2C 31 29 22 20 20 22 |:..(NA$,I,1)" "|
00002890: 3B 3A 82 3A 99 00 C4 2C 76 0C 99 22 11 20 20 20 |;:.:...,v..". |
000028A0: 20 20 41 20 20 20 42 20 20 20 43 20 20 20 44 20 | A B C D |
000028B0: 20 20 45 20 20 20 46 20 20 20 47 20 20 20 48 20 | E F G H |
000028C0: 20 20 20 22 00 F0 2C 80 0C 99 22 20 20 20 B0 C0 | "..,..." ..|
000028D0: C0 C0 B2 C0 C0 C0 B2 C0 C0 C0 B2 C0 C0 C0 B2 C0 |................|
000028E0: C0 C0 B2 C0 C0 C0 B2 C0 C0 C0 B2 C0 C0 C0 AE 22 |..............."|
000028F0: 00 FB 2C 8A 0C 81 49 B2 31 A4 38 00 07 2D 94 0C |..,...I.1.8..-..|
00002900: 99 49 22 DD 20 22 3B 00 12 2D 9E 0C 81 4A B2 31 |.I". ";..-...J.1|
00002910: A4 38 00 2A 2D A8 0C 99 44 24 28 41 28 49 2C 4A |.8.*-...D$(A(I,J|
00002920: 29 AA 31 29 22 20 DD 20 22 3B 00 31 2D B2 0C 82 |).1)" . ";.1-...|
00002930: 4A 00 37 2D BC 0C 99 00 68 2D C6 0C 8B 49 B3 B1 |J.7-....h-...I..|
00002940: 38 A7 99 22 20 20 20 AB C0 C0 C0 DB C0 C0 C0 DB |8.." .........|
00002950: C0 C0 C0 DB C0 C0 C0 DB C0 C0 C0 DB C0 C0 C0 DB |................|
00002960: C0 C0 C0 DB C0 C0 C0 B3 00 6F 2D D0 0C 82 49 00 |.........o-...I.|
00002970: 9B 2D DA 0C 99 22 20 20 20 AD C0 C0 C0 B1 C0 C0 |.-..." .......|
00002980: C0 B1 C0 C0 C0 B1 C0 C0 C0 B1 C0 C0 C0 B1 C0 C0 |................|
00002990: C0 B1 C0 C0 C0 B1 C0 C0 C0 BD 22 00 A1 2D E4 0C |.........."..-..|
000029A0: 8E 00 A7 2D EE 0C 8E 00 BE 2D F8 0C 8F 20 49 4E |...-.....-... IN|
000029B0: 50 55 54 20 53 55 42 52 4F 55 54 49 4E 45 00 CA |PUT SUBROUTINE..|
000029C0: 2D F9 0C 97 55 54 2C 55 55 25 00 EE 2D 02 0D 99 |-...UT,UU%..-...|
000029D0: 44 4E 24 22 11 22 45 24 22 42 41 44 20 4D 4F 56 |DN$"."E$"BAD MOV|
000029E0: 45 3B 20 54 52 59 20 41 47 41 49 4E 2E 22 00 F4 |E; TRY AGAIN."..|
000029F0: 2D 0C 0D 8F 00 18 2E 16 0D 55 53 24 B2 22 31 32 |-........US$."12|
00002A00: 33 34 35 36 37 38 3F 22 3A 55 4C B2 31 3A 8D 33 |345678?":UL.1:.3|
00002A10: 35 3A 58 24 B2 55 52 24 00 55 2E 1B 0D 99 22 91 |5:X$.UR$.U....".|
00002A20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002A30: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."|
00002A40: 3B 3A 55 53 24 B2 22 41 42 43 44 45 46 47 48 3F |;:US$."ABCDEFGH?|
00002A50: 22 3A 8D 33 35 00 61 2E 52 0D 47 B2 C6 28 58 24 |":.35.a.R.G..(X$|
00002A60: 29 00 6D 2E 5C 0D 49 B2 47 AB 34 38 3A 00 7D 2E |).m.\.I.G.48:.}.|
00002A70: 66 0D 4A B2 C6 28 55 52 24 29 AB 36 34 00 83 2E |f.J..(UR$).64...|
00002A80: 70 0D 8E 00 9E 2E 84 0D 8F 20 42 4C 49 4E 4B 20 |p........ BLINK |
00002A90: 43 4F 4D 50 55 54 45 52 53 20 4D 4F 56 45 00 C7 |COMPUTERS MOVE..|
00002AA0: 2E 8E 0D 99 C8 28 44 4E 24 2C 32 AC 28 49 33 AB |.....(DN$,2.(I3.|
00002AB0: 31 29 AA 35 29 3B C8 28 52 24 2C 34 AC 28 4A 33 |1).5);.(R$,4.(J3|
00002AC0: AB 31 29 AA 35 29 3B 00 DE 2E 98 0D 4B B2 31 3A |.1).5);.....K.1:|
00002AD0: 4D B2 30 3A 58 24 B2 44 24 28 43 AA 31 29 00 F5 |M.0:X$.D$(C.1)..|
00002AE0: 2E A2 0D 8B 4B B2 31 A7 99 58 24 22 9D 22 3B 3A |....K.1..X$".";:|
00002AF0: 89 33 35 31 30 00 00 2F AC 0D 99 22 20 9D 22 3B |.3510../..." .";|
00002B00: 00 0B 2F B6 0D 4B B2 AB 31 AC 4B 00 19 2F C0 0D |../..K..1.K../..|
00002B10: 81 4C B2 31 A4 35 30 3A 82 00 24 2F CA 0D 8B 4D |.L.1.50:..$/...M|
00002B20: B1 39 A7 8E 00 34 2F D4 0D 4D B2 4D AA 31 3A 89 |.9...4/..M.M.1:.|
00002B30: 33 34 39 30 00 60 2F DE 0D 83 20 30 2C 31 2C 2D |3490.`/... 0,1,-|
00002B40: 31 2C 31 2C 2D 31 2C 30 2C 2D 31 2C 2D 31 2C 30 |1,1,-1,0,-1,-1,0|
00002B50: 2C 2D 31 2C 31 2C 2D 31 2C 31 2C 30 2C 31 2C 31 |,-1,1,-1,1,0,1,1|
00002B60: 00 00 00 |... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.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.
......." BASIC 2.0 PET COMPUTER.
./...." BASIC 4.0 PET COMPUTER..
Q...." 8032 CBM COMPUTER..V...."
COMMODORE 64 COMPUTER.....835.
..N..UZ.1..UP%:.217...W.....X.. ** PROGR
AM MODIFICATION INST **.P.Y..".":.UT,UL%
...].UP.0:UG$."PROGRAM MOD":.850......83
5......UZ.1..UP%:.217.......8.... ** TO
USE 8032 LOAD CBM4032 **.N.F..".....BEFO
RE RUNNING THIS PROGRAM ON AN 8032 ....
.P.." LOAD THE 'CBM 4032' PROGRAM..
..........."...Z..UU.71.......U. .. ** T
I T L E P A G E **...".."....";:.UT,U
U%:.B(50003).0..53280,14:.53281,6...$..I
.1.38:."...";:..7.&..I.1.22:.".....";:..
O.(..I.1.37:.".....";:..G.*..I.1.22:."..
...";:....,.."..........................
. ......."................... . . ...O
.0.."................... . ......2.."..
.................. ....4.."............
..C O M M O D O R E...8.6.."............
...EDUCATIONAL...W.8.."................S
OFTWARE.R.:.. ** COMMODORE LOGO **...;..
H(UD$,24);"..........PRESS SPACE BAR OR
WAIT.":I.0.L.<..A$:.A$.." ".I.I.1:.I.250
.828...>.T1$."":T2$."":T3$."":T4$."":I.0
...@..300...C.. ** SPACE BAR PRESS **.P.
H..UO,0:.H(UD$,24);".......PRESS SPACE B
AR TO CONTINUE.".G.L..UI$:.UI$.." ".844.
M.N.....R.. ** PAGE DESIGN ROUTINE **...
T.UP.UP.1.C.W.."."H(UT$.UP$,21);I(UP$.UG
$.D(UP),18)...\.." ---------------------
-----------------"...`..UH..0.870.5.A..H
(UD$,24);H(UP$,7);"HELP - PRESS ? <RET
URN>".F.F.UH.0:."..":..E.K.. ** PLEASE W
AIT REMARK **...P..H(UD$,24);"
ONE MOMENT PLEASE... "...U........
** SET UP VARIABLES **.....UX$."?":.UQ%(
1000):UB.32768:U1.196:U2.197:U3.198:U4.2
16:UC.167:UU.1024.G...UT.59468:UU%.12:UL
%.14:UP%.1146:UM.32768:UO.158:. 50003,0.
.....B(50003).0.UB.1024:U1.209:U2.210:U3
.211:U4.214:UC.204:UU.2048.I....B(50003)
.0.UT.53272:UU%.21:UL%.23:UP%.2139:UM.10
24:UO.198.....UD$.".....................
....".....UP$."
".M...UT$." HAMLET
":. PLACE PROGRAM TITLE HERE !!!!!!!
!!!!!!!!!!***.S.......... ** SET VARIABL
ES **.....DN$."......................"..
...NA$."HAMLET.....R$.".................
................"......900...... ** CHEC
K FOR 8032 **.+....".":." ":. SHIFTED SP
ACE.B....B(UB.40)..96..700.[.... ** MEMO
RY CHECK **.O.... .(0).2000.937......"..
..THIS MACHINE DOES NOT HAVE ENOUGH.".A.
..."MEMORY TO RUN THIS PROGRAM !".L....U
U.71.R.........."..":.B(50003).0.962....
.. ** BASIC 2.0 OR 4.0 OR C-64 SETUP
**.Y....1075,133:.1076,144:.1077,234:.1
079,4:.1080,133:.1081,145......1091,155:
.1098,133:.1099,144:.1100,234:.1103,133.
.....1104,145:.1105,234:.1082,234.H....B
(50003)..160.955......1093,88:.1094,228:
.1097,85:.1102,228:.965......B(50003)..1
.990.;....1093,49:.1094,230:.1097,46:.11
02,230:.965.U.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...J..800:. TITLE.*.T..
300:. MENU.[....".THE PGM WILL NOT WORK
ON THIS MACHINE!":.......UZ.1..UP%:.UP%:
UZ.0:. ** PROGRAM STARTS HERE **......".
.";:.:.B(50003).0..53281,6:.53280,14.U..
.UT$." HAMLET":UG$.""...... ***MENU ADDE
D AND PGM ***...... *** MODIFIED BY
***.5.... *** JAMES MUNRO ***.U.
... *** 1982 07 08 ***.U.... ***
OSHAWA ONTARIO ***...L.. OSERO 3.4...
`..I.1.39:E$.E$." ":....J..I.1.39:E$.E$.
".":.......1470.Z....UT,UU%:UH.1:.850:."
."......" "NA$" IS PLAYED ON AN 8 X 8 BO
ARD WITH".A.D.." ROWS NUMBERED .1. TO .8
. AND COLUMNS .A. TO .H.".Q.N.." THE INI
TIAL CONFIGURATION IS ALL BLANK,"...X.."
EXCEPT FOR THE CENTER FOUR SQUARES,".H.
..." TRY TO PLACE YOUR PIECE SO THAT IT"
......" OUTFLANKS MINE, CREATING A HORIZ
ONTAL,".&...." VERTICAL,OR DIAGONAL RUN
OF MY PIECES,".G...." TURNING THEM INTO
YOURS.".J...." ......................
."......" . W . W . W . W . Q"....
.." ......................."...(.." E
XAMPLE: WHITE OUTFLANKS BLACK,":.835...)
..".......................Q":.835./.2.."
..... CAPTURING FOUR OF BLACKS PIECES.".
^.N.."......................... Q . Q .
Q . Q".R.S..835:UH.1: .850...X..". MAKE
YOUR MOVE BY ENTERING A NUMBER".U....".
FOR THE ROW AND A LETTER FOR THE":.". CO
LUMN... ...". NOTE: YOU MUST CAPTURE AT
LEAST ONE OF".4 ...". MY PIECES IN THIS
WAY IF IT IS AT ALL".B ..". POSSIBLE. I
F IT IS NOT POSSIBLE, YOU".. ...". FORFE
IT YOUR TURN BY ENTERING .0. .A... ...".
FOR YOUR MOVE.":... ..F2.0.A ..UP.0:.85
0.. H..". SHOULD I PLAY MY BEST (Y OR N)
? ";.. R.S2.0:S4.0:S5.0..!..UL.1:US$."Y?
N":.35:X$.UR$:..0!...X$."N".1530.C!..S2.
3:S4.2:S5.1.P!..B..1:W.1.`!..D$(B.1)."W"
.P!..D$(0.1)." "..!..D$(W.1)."Q"..!"..K.
1.8..!,..I4(K),J4(K)..!6....!7....!@..I.
0.9:.J.0.9.G!J.A(I,J).0.P!T..J,I..!^.A(4
,4).W..!H.A(5,5).W..!R.A(4,5).B.."|.A(5,
4).B.."..C1.2:H1.C1:N1.4:Z.0.L"...". DO
YOU WANT BLACK OR WHITE (B OR W)? ";.X".
.C.W:H.B.X"..UL.1:US$."BW?":.35:X$.UR$:.
.."...X$."B".1730.."..C.B:H.W.B"B..". DO
YOU WANT TO GO FIRST (Y OR N)? ";.."L.U
L.1:US$."YN?":.35:X$.UR$.."V..".";.."...
3180..#...X$."Y".2160.##...DN$;E$" I AM
THINKING !".A#..B1..1:I3.0:J3.0:T1.C:T2.
H.S#...I.1.8:.J.1.8.H#... A(I,J)..0.1970
.R#...2850..#&..F1.0.1970..#0.U..1..#:..
2930..#D..S1.0.1970..#N..(I.1).(I.8).S1.
S1.S2.W#X..(J.1).(J.8).S1.S1.S2..#B..(I.
2).(I.7).S1.S1.S5..$L..(J.2).(J.7).S1.S1
.S5.%$V..(I.3).(I.6).S1.S1.S4.?$...(J.3)
.(J.6).S1.S1.S4.O$...S1.B1.1970._$...S1.
B1.1960.R$....(1).0.5.1970..$..B1.S1:I3.
I:J3.J..$...J,I..$...B1.0.2030.H$F..DN$"
."E$" I HAVE TO FORFEIT MY MOVE".V$P..Z.
1.2510..$Z.Z.1..$...2160..$..Z.0.(%...DN
$"."E$" I WILL MOVE TO ."I(D(I3),1)". ."
G(J3.64).2%...3460.D%..I.I3:J.J3:U.1.N%.
..2930.]% .C1.C1.S1.1.J%*.H1.H1.S1.V%4.N
1.N1.1..%>..DN$".."E$" THAT GIVES ME ";.
%H..S1;..%R.." OF YOUR PIECES".A%\..318
0.V%F..H1.0.N1.64.2510..%P.T1.H:T2.C..&Z
..DN$;E$" INPUT YOUR MOVE -- .ROW. .COL.
";..&...3340.-&...I..0.2260.[&...DN$;E
$" ARE YOU FORFEITING YOUR TURN ?";.Y&..
UL.1:US$."YNH":.35:X$.UR$..&...X$.."Y".2
170..&...Z.1.2510..&..Z.1..&J..1790..&T.
. A(I,J).0.2290..&...DN$"."E$" SORRY, SQ
UARE OCCUPIED; TRY AGAIN"..&...2370..'..
.2850..'...F1.1.2330.A'...DN$"."E$" SORR
Y, NOT NEXT TO MY PIECES".K'...2370.T'..
U..1.^'$..2930.M'...S1.0.2390..'8..DN$".
"E$" SORRY, DOESN'T FLANK A ROW". 'B..E$
..'L..2170..'V.Z.0.S'`..DN$"."E$" THAT G
IVES YOU ";..'J..S1;..'T.." OF MY PIECES
":.E$..'~.U.1..(...2930..(..H1.H1.S1.1.#
(..C1.C1.S1./(..N1.N1.1.9(...3180.N(...C
1.0.N1.64.2510.X(D..1790.L(N..DN$;E$:.E$
:.E$..(X..DN$;E$" YOU HAVE "H1"PIECES"..
(..." I HAVE "C1"PIECES"..(...H1.C1.2580
.H(...H1.C1.2600..(..." SORRY, I WON THA
T ONE."..(...2610..)..." A TIE !!"..)...
2790..)(.." YOU WON !".+)2.C1.C1.H1.:)<.
.C1.0.2640.E)F.C1..C1.W)P.C1.(64.C1).N1.
L)Z.." THAT WAS A ";.|)D..C1.11.2780..)N
..C1.25.2760..)X..C1.39.2740..)...C1.53.
2720.A)..."PERFECT GAME.".K)...2790..) .
."WALKAWAY."..)...2790..)..."FIGHT."..).
..2790..*H.."HOT GAME !"..*R..2790.,*...
"SQUEAKER !".B*...835:UP.UP.1:.850.P*...
".. DO YOU WANT TO PLAY ANOTHER GAME? ";
..*..UL.1:US$."YNH":.35:X$.UR$:...*...X$
."Y".1600..*..."...THANKS FOR PLAYING.".
J*...835:..S*".F1.0..*,..I1..1.1..*6..J1
..1.1..+@..A(I.I1,J.J1).T2.2910..+J..J1,
I1..+T...!+^.F1.1.'+H...0+R.S1.0.;+|..K.
1.8.H+..I5.I4(K).U+..J5.J4(K).A+..I6.I.I
5.M+..J6.J.J5.V+..S3.0..+...A(I6,J6)..T2
.3160..+B.S3.S3.1..+L.I6.I6.I5..+V.J6.J6
.J5.I+...A(I6,J6).T1.3070..+...A(I6,J6).
0 .3160..+...3010..+..S1.S1.S3..,...U..1
.3160..,..I6.I..,..J6.J.$,&..K1.0.S3.4,0
.A(I6,J6).T1.A,:.I6.I6.I5.N,D.J6.J6.J5.V
,N..K1.],X..K.C,B....,L..".".9)" ";:.I.
1.C(NA$):.J(NA$,I,1)" ";:.:..D,V..".
A B C D E F G H "..,.
.." ................................."
..,...I.1.8..-...I". ";..-...J.1.8.*-...
D$(A(I,J).1)" . ";.1-...J.7-....H-F..I..
8.." .................................
.O-P..I..-Z.." .......................
.........."..-.....-.....-... INPUT SUBR
OUTINE.J-...UT,UU%..-...DN$"."E$"BAD MOV
E; TRY AGAIN."..-........US$."12345678?"
:UL.1:.35:X$.UR$.U....".................
...............";:US$."ABCDEFGH?":.35.A.
R.G.F(X$).M.\.I.G.48:.}.F.J.F(UR$).64...
P........ BLINK COMPUTERS MOVE.G....H(DN
$,2.(I3.1).5);H(R$,4.(J3.1).5);.....K.1:
M.0:X$.D$(C.1)......K.1..X$".";:.3510../
..." .";../..K..1.K../...L.1.50:..$/J..M
.9...4/T.M.M.1:.3490.`/... 0,1,-1,1,-1,0
,-1,-1,0,-1,1,-1,1,0,1,1...
> CLICK IMAGE PREVIEW FOR FULL MODAL