MASTERMIND3.C3
FILE INFORMATION
FILENAME(S): MASTERMIND3.C3
FILE TYPE(S): PRG
FILE SIZE: 10.8K
FIRST SEEN: 2025-10-20 14:31:29
APPEARS ON: 2 disk(s)
FILE HASH
d4aef3f81043a3394c55392b9dc7ea964438a8fa8a2e6fc1154b3b07ce66c38d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES | MASTERMIND3.C3 | PRG | Treasure Chest - Klaus Der Suhler | 9 | 7 | DOWNLOAD FILE |
| ICHAELS ISK 2 | MASTERMIND3.C3 | PRG | Treasure Chest - Thunderbird | 9 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....|
00000050: 85 91 EA 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 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 30 0C CD |250......245.0..|
00000420: 00 81 55 51 B2 55 42 A4 28 55 42 AA 39 36 30 29 |..UQ.UB.(UB.960)|
00000430: 00 4C 0C D2 00 55 51 25 28 55 51 AB 55 42 29 B2 |.L...UQ%(UQ.UB).|
00000440: C2 28 55 51 29 3A 82 3A 99 22 93 22 00 5F 0C D7 |.(UQ):.:."."._..|
00000450: 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 |.UZ.1:UV%..(UT).|
00000460: 68 0C D8 00 89 33 30 30 00 8D 0C D9 00 55 5A B2 |h....300.....UZ.|
00000470: 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B |0:US$.UJ$:UG$.UK|
00000480: 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 C4 0C |$:UP.UJ:UL.UK...|
00000490: DA 00 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |....(50003).0..5|
000004A0: 33 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 |3281,1:.".";:.53|
000004B0: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A |281,6:.53280,14:|
000004C0: 89 32 32 30 00 CE 0C DB 00 99 22 93 22 3B 00 FD |.220......".";..|
000004D0: 0C DC 00 55 54 24 B2 55 4C 24 3A 97 55 54 2C 55 |...UT$.UL$:.UT,U|
000004E0: 56 25 3A 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 |V%:.UQ.UB.(U2%.2|
000004F0: 35 36 AA 55 31 25 AA 55 33 25 AB 33 29 00 12 0D |56.U1%.U3%.3)...|
00000500: E1 00 97 55 51 2C 55 51 25 28 55 51 AB 55 42 29 |...UQ,UQ%(UQ.UB)|
00000510: 3A 82 00 1E 0D E6 00 97 55 31 2C 55 31 25 00 2A |:.......U1,U1%.*|
00000520: 0D E8 00 97 55 32 2C 55 32 25 00 36 0D E9 00 97 |....U2,U2%.6....|
00000530: 55 34 2C 55 34 25 00 44 0D EA 00 97 55 33 2C 55 |U4,U4%.D....U3,U|
00000540: 33 25 AB 31 00 4C 0D EB 00 89 33 35 00 7E 0D F0 |3%.1.L....35.~..|
00000550: 00 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA 55 |.UD%.((U2%.256.U|
00000560: 31 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A 99 |1%.U3%).UB).40:.|
00000570: C8 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 B8 |.(UD$,UD%.1):...|
00000580: 0D F5 00 99 C8 28 55 44 24 2C 32 35 29 3B 22 20 |.....(UD$,25);" |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005A0: 20 20 20 20 20 12 20 48 45 4C 50 20 43 4F 4D 49 | . HELP COMI|
000005B0: 4E 47 20 92 22 3B 3A 8E 00 E4 0D FA 00 55 31 25 |NG .";:......U1%|
000005C0: B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 |..(U1):U2%..(U2)|
000005D0: 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 |:U3%..(U3):U4%..|
000005E0: 28 55 34 29 00 0C 0E FB 00 55 4A 24 B2 55 53 24 |(U4).....UJ$.US$|
000005F0: 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 |:UK$.UG$:UL$.UT$|
00000600: 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 12 0E FF |:UJ.UP:UK.UL....|
00000610: 00 8E 00 23 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 |...#.,.. ** MENU|
00000620: 20 2A 2A 00 29 0E 2D 01 3A 00 58 0E 2E 01 99 22 | **.).-.:.X...."|
00000630: 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |.":.UT,UU%:..(50|
00000640: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A |003).0..53281,9:|
00000650: 97 35 33 32 38 30 2C 38 00 5E 0E 2F 01 3A 00 7B |.53280,8.^./.:.{|
00000660: 0E 31 01 99 22 13 20 20 20 20 20 20 20 20 20 20 |.1..". |
00000670: 20 20 20 20 20 20 4D 45 4E 55 22 00 AA 0E 36 01 | MENU"...6.|
00000680: 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 D2 0E 3B 01 99 |---------"...;..|
000006B0: 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 20 42 |".. 1. B|
000006C0: 45 47 49 4E 20 4D 41 53 54 45 52 20 4D 49 4E 44 |EGIN MASTER MIND|
000006D0: 20 22 00 FC 0E 40 01 99 22 11 11 20 20 20 20 20 | "...@..".. |
000006E0: 20 20 32 2E 20 20 20 53 54 55 44 45 4E 54 20 49 | 2. STUDENT I|
000006F0: 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 26 0F 45 |NSTRUCTIONS".&.E|
00000700: 01 99 22 11 11 20 20 20 20 20 20 20 33 2E 20 20 |..".. 3. |
00000710: 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 | TEACHER INSTRUC|
00000720: 54 49 4F 4E 53 22 00 42 0F 4F 01 99 22 11 11 20 |TIONS".B.O..".. |
00000730: 20 20 20 20 20 20 34 2E 20 20 20 51 55 49 54 11 | 4. QUIT.|
00000740: 11 22 00 71 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D |.".q.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: 22 00 9C 0F 59 01 99 22 11 11 20 20 20 20 20 20 |"...Y..".. |
00000780: 20 50 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 | PRESS A NUMBER |
00000790: 4B 45 59 20 28 31 2D 34 29 20 22 3B 00 C4 0F 5E |KEY (1-4) ";...^|
000007A0: 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 22 |.UL.1:US$."1234"|
000007B0: 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 |:.35:. INPUT ROU|
000007C0: 54 49 4E 45 00 CF 0F 60 01 55 53 24 B2 22 22 00 |TINE...`.US$."".|
000007D0: EC 0F 63 01 91 C5 28 55 52 24 29 8D 31 30 30 30 |..c...(UR$).1000|
000007E0: 2C 34 30 30 2C 35 30 30 2C 33 39 36 00 F5 0F 68 |,400,500,396...h|
000007F0: 01 89 33 30 30 00 1C 10 8B 01 8F 20 2A 2A 20 52 |..300...... ** R|
00000800: 45 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 |E-ENABLE STOP KE|
00000810: 59 20 41 4E 44 20 45 4E 44 20 2A 2A 00 4B 10 8C |Y AND END **.K..|
00000820: 01 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 |...(50003)..1..(|
00000830: 35 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 |50003)..160..(50|
00000840: 30 30 33 29 B3 B1 30 A7 33 39 39 00 75 10 8D 01 |003)..0.399.u...|
00000850: 9E 55 55 AA 37 31 3A 8B C2 28 35 30 30 30 33 29 |.UU.71:..(50003)|
00000860: B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 |.0..53281,6:.532|
00000870: 38 30 2C 31 34 00 81 10 8E 01 99 22 9A 93 22 3A |80,14......"..":|
00000880: 80 00 8C 10 8F 01 8D 38 37 35 3A 8E 00 AD 10 90 |.......875:.....|
00000890: 01 8F 20 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E |.. ** STUDENT IN|
000008A0: 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 DC 10 |STRUCTIONS **...|
000008B0: 95 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B |...".":.UT,UL%:.|
000008C0: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
000008D0: 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 FD 10 9A |1,0:.53280,0....|
000008E0: 01 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 |.UP.0:UG$.".TUDE|
000008F0: 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 22 11 |NT .NST":.850.".|
00000900: 9B 01 99 22 11 20 20 20 20 20 20 20 20 20 20 20 |...". |
00000910: D3 D5 D0 C5 D2 A0 A0 CD C1 D3 D4 C5 D2 CD C9 CE |................|
00000920: C4 22 00 52 11 9F 01 99 22 11 20 C9 4E 20 54 48 |.".R....". .N TH|
00000930: 45 20 47 41 4D 45 20 4F 46 20 4D 41 53 54 45 52 |E GAME OF MASTER|
00000940: 4D 49 4E 44 20 41 20 46 49 56 45 20 43 4F 4C 4F |MIND A FIVE COLO|
00000950: 52 22 00 80 11 A1 01 99 22 11 20 43 4F 44 45 20 |R"......". CODE |
00000960: 49 53 20 43 52 45 41 54 45 44 20 54 48 41 54 20 |IS CREATED THAT |
00000970: 54 48 45 20 50 4C 41 59 45 52 20 4D 55 53 54 22 |THE PLAYER MUST"|
00000980: 00 AB 11 A3 01 99 22 11 20 47 55 45 53 53 2E 20 |......". GUESS. |
00000990: D4 48 45 20 43 4F 44 45 20 49 53 20 4D 41 44 45 |.HE CODE IS MADE|
000009A0: 20 4F 46 20 41 4E 59 20 4F 46 22 00 D7 11 A5 01 | OF ANY OF".....|
000009B0: 99 22 11 20 45 49 47 48 54 20 43 4F 4C 4F 52 53 |.". EIGHT COLORS|
000009C0: A0 50 4C 55 53 2C 20 41 54 20 54 48 45 20 50 4C |.PLUS, AT THE PL|
000009D0: 41 59 45 52 27 53 22 00 18 12 A7 01 99 22 11 20 |AYER'S"......". |
000009E0: 4F 50 54 49 4F 4E 2C 20 41 20 42 4C 41 4E 4B 2E |OPTION, A BLANK.|
000009F0: 20 D4 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 43 | .HE FOLLOWING C|
00000A00: 4F 4C 4F 52 53 22 3A 99 22 11 20 4D 41 59 20 42 |OLORS":.". MAY B|
00000A10: 45 20 55 53 45 44 3A 22 00 4A 12 A9 01 99 22 11 |E USED:".J....".|
00000A20: 20 D2 45 44 20 20 20 28 D2 29 20 CF 52 41 4E 47 | .ED (.) .RANG|
00000A30: 45 28 CF 29 20 D9 45 4C 4C 4F 57 28 D9 29 20 C7 |E(.) .ELLOW(.) .|
00000A40: 52 45 45 4E 20 28 C7 29 22 3B 00 7C 12 AB 01 99 |REEN (.)";.|....|
00000A50: 22 11 20 C2 4C 55 45 20 20 28 C2 29 20 D4 41 4E |". .LUE (.) .AN|
00000A60: 20 20 20 28 D4 29 20 D0 55 52 50 4C 45 28 D0 29 | (.) .URPLE(.)|
00000A70: 20 D7 48 49 54 45 20 28 D7 29 22 3B 00 94 12 AD | .HITE (.)";....|
00000A80: 01 99 22 11 20 C2 4C 41 4E 4B 20 28 2D 29 22 3A |..". .LANK (-)":|
00000A90: 8D 38 33 35 00 9D 12 AE 01 8D 38 35 30 00 CD 12 |.835......850...|
00000AA0: AF 01 99 22 11 20 C6 4F 52 20 45 41 43 48 20 47 |...". .OR EACH G|
00000AB0: 55 45 53 53 20 54 48 45 20 50 4C 41 59 45 52 20 |UESS THE PLAYER |
00000AC0: 49 53 20 53 43 4F 52 45 44 20 49 4E 22 00 FA 12 |IS SCORED IN"...|
00000AD0: B1 01 99 22 11 20 54 48 45 20 46 4F 4C 4C 4F 57 |...". THE FOLLOW|
00000AE0: 49 4E 47 20 4D 41 4E 4E 45 52 2E 20 20 C1 20 57 |ING MANNER. . W|
00000AF0: 48 49 54 45 20 53 50 4F 54 22 00 28 13 B3 01 99 |HITE SPOT".(....|
00000B00: 22 11 20 53 49 47 4E 49 46 49 45 53 20 41 20 43 |". SIGNIFIES A C|
00000B10: 4F 52 52 45 43 54 20 43 4F 4C 4F 52 2E 20 C1 20 |ORRECT COLOR. . |
00000B20: 43 49 52 43 4C 45 20 22 00 52 13 B5 01 99 22 11 |CIRCLE ".R....".|
00000B30: 20 53 49 47 4E 49 46 49 45 53 20 41 20 43 4F 52 | SIGNIFIES A COR|
00000B40: 52 45 43 54 20 43 4F 4C 4F 52 A0 41 54 A0 54 48 |RECT COLOR.AT.TH|
00000B50: 45 22 00 7E 13 B7 01 99 22 11 20 43 4F 52 52 45 |E".~....". CORRE|
00000B60: 43 54 20 4C 4F 43 41 54 49 4F 4E 20 49 4E 20 54 |CT LOCATION IN T|
00000B70: 48 45 20 43 4F 44 45 2E 20 D4 48 55 53 22 00 AE |HE CODE. .HUS"..|
00000B80: 13 B9 01 99 22 11 20 41 20 53 43 4F 52 45 20 4F |....". A SCORE O|
00000B90: 46 20 CF CF 20 4D 45 41 4E 53 20 54 48 45 20 47 |F .. MEANS THE G|
00000BA0: 55 45 53 53 20 43 4F 4E 54 41 49 4E 53 22 00 D9 |UESS CONTAINS"..|
00000BB0: 13 BB 01 99 22 11 20 54 57 4F 20 43 4F 52 52 45 |....". TWO CORRE|
00000BC0: 43 54 20 43 4F 4C 4F 52 53 20 49 4E 20 54 48 45 |CT COLORS IN THE|
00000BD0: 20 43 4F 52 52 45 43 54 22 00 ED 13 BD 01 99 22 | CORRECT"......"|
00000BE0: 11 20 4C 4F 43 41 54 49 4F 4E 53 2E 22 00 02 14 |. LOCATIONS."...|
00000BF0: BE 01 8D 20 38 33 35 3A 55 50 B2 32 3A 8D 20 38 |... 835:UP.2:. 8|
00000C00: 35 30 00 34 14 BF 01 99 22 11 20 C1 20 53 43 4F |50.4....". . SCO|
00000C10: 52 45 20 4F 46 20 CF CF CF CF CF 20 4D 45 41 4E |RE OF ..... MEAN|
00000C20: 53 20 54 48 45 20 43 4F 52 52 45 43 54 20 43 4F |S THE CORRECT CO|
00000C30: 44 45 22 3B 00 64 14 C1 01 99 22 11 20 48 41 53 |DE";.d....". HAS|
00000C40: 20 42 45 45 4E 20 47 55 45 53 53 45 44 20 41 4E | BEEN GUESSED AN|
00000C50: 44 20 54 48 45 20 47 41 4D 45 20 49 53 20 4F 56 |D THE GAME IS OV|
00000C60: 45 52 2E 22 00 92 14 C4 01 99 22 11 20 D4 48 45 |ER."......". .HE|
00000C70: 52 45 20 41 52 45 20 54 48 52 45 45 20 4C 45 56 |RE ARE THREE LEV|
00000C80: 45 4C 53 20 4F 46 20 44 49 46 46 49 43 55 4C 54 |ELS OF DIFFICULT|
00000C90: 59 22 00 B2 14 C5 01 99 22 11 20 41 54 20 57 48 |Y"......". AT WH|
00000CA0: 49 43 48 20 59 4F 55 20 4D 41 59 20 50 4C 41 59 |ICH YOU MAY PLAY|
00000CB0: 2E 22 00 E0 14 C6 01 99 22 11 11 20 CC 45 56 45 |."......".. .EVE|
00000CC0: 4C 20 31 3A 20 D4 48 45 52 45 20 41 52 45 20 4E |L 1: .HERE ARE N|
00000CD0: 4F 20 42 4C 41 4E 4B 53 20 49 4E 20 54 48 45 22 |O BLANKS IN THE"|
00000CE0: 00 11 15 C7 01 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000CF0: 20 43 4F 44 45 20 41 4E 44 20 4E 4F 20 43 4F 4C | CODE AND NO COL|
00000D00: 4F 52 20 49 53 20 52 45 50 45 41 54 45 44 2E 22 |OR IS REPEATED."|
00000D10: 3B 00 41 15 C8 01 99 22 11 20 CC 45 56 45 4C 20 |;.A....". .EVEL |
00000D20: 32 3A 20 C3 4F 4C 4F 52 53 20 4D 41 59 20 42 45 |2: .OLORS MAY BE|
00000D30: 20 52 45 50 45 41 54 45 44 20 42 55 54 20 4E 4F | REPEATED BUT NO|
00000D40: 22 00 63 15 C9 01 99 22 20 20 20 20 20 20 20 20 |".c...." |
00000D50: 20 20 42 4C 41 4E 4B 53 20 41 52 45 20 55 53 45 | BLANKS ARE USE|
00000D60: 44 2E 22 00 93 15 CA 01 99 22 11 20 CC 45 56 45 |D."......". .EVE|
00000D70: 4C 20 33 3A 20 C2 4C 41 4E 4B 53 20 41 52 45 20 |L 3: .LANKS ARE |
00000D80: 55 53 45 44 20 41 4E 44 20 43 4F 4C 4F 52 53 20 |USED AND COLORS |
00000D90: 4F 52 22 00 BC 15 CB 01 99 22 20 20 20 20 20 20 |OR"......" |
00000DA0: 20 20 20 20 42 4C 41 4E 4B 53 20 4D 41 59 20 42 | BLANKS MAY B|
00000DB0: 45 20 52 45 50 45 41 54 45 44 2E 22 00 C5 15 E5 |E REPEATED."....|
00000DC0: 01 8D 38 33 35 00 D9 15 EA 01 8B 55 5A B2 31 A7 |..835......UZ.1.|
00000DD0: 9E 55 50 25 3A 89 32 31 37 00 DF 15 F3 01 8E 00 |.UP%:.217.......|
00000DE0: 00 16 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 |..... ** TEACHER|
00000DF0: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A | INSTRUCTIONS **|
00000E00: 00 30 16 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C |.0....".":.UT,UL|
00000E10: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00000E20: 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 |3281,2:.53280,10|
00000E30: 00 51 16 F6 01 55 50 B2 30 3A 55 47 24 B2 22 D4 |.Q...UP.0:UG$.".|
00000E40: 45 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 |EACHER .NST":.85|
00000E50: 30 00 7F 16 F7 01 99 22 11 11 20 20 20 20 20 20 |0......".. |
00000E60: D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F |.O THE BEST OF O|
00000E70: 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 |UR KNOWLEDGE,.".|
00000E80: A8 16 F8 01 99 22 20 20 20 54 48 49 53 20 50 52 |....." THIS PR|
00000E90: 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 |OGRAM IS IN THE |
00000EA0: 50 55 42 4C 49 43 11 22 00 D4 16 F9 01 99 22 20 |PUBLIC."......" |
00000EB0: 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 | DOMAIN. .F TH|
00000EC0: 49 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 |IS IS NOT THE CA|
00000ED0: 53 45 11 22 00 F1 16 FA 01 99 22 20 20 20 50 4C |SE."......" PL|
00000EE0: 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 |EASE CONTACT:...|
00000EF0: 22 00 1B 17 FB 01 99 22 20 20 20 20 20 20 C3 4F |"......" .O|
00000F00: 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 |MMODORE .USINESS|
00000F10: 20 CD 41 43 48 49 4E 45 53 11 22 00 3E 17 FC 01 | .ACHINES.".>...|
00000F20: 99 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 |." 3370|
00000F30: 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 62 | .HARMACY .VE..b|
00000F40: 17 FD 01 99 22 20 20 20 20 20 20 20 20 20 20 C1 |...." .|
00000F50: 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 |GINCOURT, .NTARI|
00000F60: 4F 22 00 84 17 FE 01 99 22 20 20 20 20 20 20 20 |O"......" |
00000F70: 20 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 | .ANADA .1. |
00000F80: 32 CB 34 22 00 A4 17 FF 01 99 22 20 20 20 20 20 |2.4"......" |
00000F90: 20 20 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 | (416) 499-4|
00000FA0: 32 39 32 22 00 BA 17 00 02 55 50 B2 31 3A 8D 20 |292".....UP.1:. |
00000FB0: 38 33 35 3A 8D 20 38 35 30 3A 00 E4 17 01 02 99 |835:. 850:......|
00000FC0: 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 |" ...ROGRAM |
00000FD0: CE 41 4D 45 3A 20 CD 41 53 54 45 52 4D 49 4E 44 |.AME: .ASTERMIND|
00000FE0: 20 20 20 11 00 0A 18 02 02 99 22 20 20 20 20 20 | ......." |
00000FF0: D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 C4 41 |.RITTEN .Y : .A|
00001000: 56 49 44 20 D3 57 41 49 4D 11 00 2E 18 03 02 99 |VID .WAIM.......|
00001010: 22 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 C2 |" .PGRADED .|
00001020: 59 20 3A 20 20 20 20 20 20 20 20 20 20 11 00 59 |Y : ..Y|
00001030: 18 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 |...." ..HIS |
00001040: 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E |PROGRAM WILL RUN|
00001050: 20 4F 4E 20 41 4E 59 11 11 00 79 18 07 02 99 22 | ON ANY...y...."|
00001060: 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 | ... 64 |
00001070: C3 CF CD D0 D5 D4 C5 D2 11 00 9E 18 08 02 99 22 |..............."|
00001080: 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF | .......|
00001090: D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 A7 |.. 64 ..........|
000010A0: 18 09 02 8D 38 33 35 00 BB 18 4E 02 8B 55 5A B2 |....835...N..UZ.|
000010B0: 31 A7 9E 55 50 25 3A 89 32 31 37 00 C1 18 57 02 |1..UP%:.217...W.|
000010C0: 8E 00 E7 18 58 02 8F 20 2A 2A 20 50 52 4F 47 52 |....X.. ** PROGR|
000010D0: 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 |AM MODIFICATION |
000010E0: 49 4E 53 54 20 2A 2A 00 F8 18 59 02 99 22 93 22 |INST **...Y.."."|
000010F0: 3A 97 55 54 2C 55 4C 25 00 18 19 5D 02 55 50 B2 |:.UT,UL%...].UP.|
00001100: 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD |0:UG$.".ROGRAM .|
00001110: 4F 44 22 3A 8D 38 35 30 00 21 19 94 02 8D 38 33 |OD":.850.!....83|
00001120: 35 00 35 19 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 |5.5....UZ.1..UP%|
00001130: 3A 89 32 31 37 00 3B 19 BB 02 8E 00 60 19 BC 02 |:.217.;.....`...|
00001140: 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 |. ** TO USE 8032|
00001150: 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A | LOAD CBM4032 **|
00001160: 00 96 19 C6 02 99 22 93 11 11 11 05 42 45 46 4F |......".....BEFO|
00001170: 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 |RE RUNNING THIS |
00001180: 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 |PROGRAM ON AN 80|
00001190: 33 32 20 20 11 11 00 CC 19 D0 02 99 22 20 20 20 |32 ........" |
000011A0: 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 4D | LOAD THE 'CBM|
000011B0: 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 11 | 4032' PROGRAM..|
000011C0: 11 11 11 11 11 11 11 11 11 11 11 22 00 D7 19 DA |..........."....|
000011D0: 02 9E 55 55 AA 37 31 00 DD 19 E4 02 80 00 FD 19 |..UU.71.........|
000011E0: 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 | .. ** T I T L E|
000011F0: 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 31 1A | P A G E **.1.|
00001200: 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 |".."....";:.UT,U|
00001210: 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |U%:..(50003).0..|
00001220: 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C |53280,14:.53281,|
00001230: 36 00 47 1A 24 03 81 49 B2 31 A4 33 38 3A 99 22 |6.G.$..I.1.38:."|
00001240: 12 A6 92 22 3B 3A 82 00 5F 1A 26 03 81 49 B2 31 |...";:.._.&..I.1|
00001250: A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 |.22:.".....";:..|
00001260: 77 1A 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D |w.(..I.1.37:."..|
00001270: 12 A6 92 22 3B 3A 82 00 8F 1A 2A 03 81 49 B2 31 |...";:....*..I.1|
00001280: A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 |.22:.".....";:..|
00001290: B4 1A 2C 03 99 22 13 11 11 11 11 11 11 1D 1D 1D |..,.."..........|
000012A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
000012B0: A9 20 20 92 00 D6 1A 2E 03 99 22 1D 1D 1D 1D 1D |. .......".....|
000012C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 |.............. .|
000012D0: 20 20 12 20 92 A9 00 F7 1A 30 03 99 22 1D 1D 1D | . .....0.."...|
000012E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
000012F0: 20 92 20 20 12 A3 DF 00 15 1B 32 03 99 22 1D 1D | . ......2.."..|
00001300: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001310: DF 12 20 20 92 00 3D 1B 34 03 99 22 11 11 1D 1D |.. ..=.4.."....|
00001320: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 |..........C O M |
00001330: 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 00 60 1B |M O D O R E...`.|
00001340: 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |6.."............|
00001350: 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 |...EDUCATIONAL..|
00001360: 00 7F 1B 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |...8..".........|
00001370: 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 |.......SOFTWARE.|
00001380: 9A 1B 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F |..:.. ** COMMODO|
00001390: 52 45 20 4C 4F 47 4F 20 2A 2A 00 D2 1B 3B 03 99 |RE LOGO **...;..|
000013A0: C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D |.(UD$,24);".....|
000013B0: 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 |.....PRESS SPACE|
000013C0: 20 42 41 52 20 4F 52 20 57 41 49 54 92 22 3A 49 | BAR OR WAIT.":I|
000013D0: B2 30 00 F4 1B 3C 03 A1 41 24 3A 8B 41 24 B3 B1 |.0...<..A$:.A$..|
000013E0: 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 |" ".I.I.1:.I.250|
000013F0: A7 38 32 38 00 18 1C 3E 03 54 31 24 B2 22 22 3A |.828...>.T1$."":|
00001400: 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 |T2$."":T3$."":T4|
00001410: 24 B2 22 22 3A 49 B2 30 00 21 1C 40 03 89 33 30 |$."":I.0.!.@..30|
00001420: 30 00 3D 1C 43 03 8F 20 2A 2A 20 53 50 41 43 45 |0.=.C.. ** SPACE|
00001430: 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 78 1C | BAR PRESS **.x.|
00001440: 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 |H..UO,0:..(UD$,2|
00001450: 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 |4);".......PRESS|
00001460: 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F | SPACE BAR TO CO|
00001470: 4E 54 49 4E 55 45 92 22 00 8F 1C 4C 03 A1 55 49 |NTINUE."...L..UI|
00001480: 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 |$:.UI$.." ".844.|
00001490: 95 1C 4E 03 8E 00 B5 1C 52 03 8F 20 2A 2A 20 50 |..N.....R.. ** P|
000014A0: 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 49 |AGE DESIGN ROUTI|
000014B0: 4E 45 20 2A 2A 00 C1 1C 54 03 55 50 B2 55 50 AA |NE **...T.UP.UP.|
000014C0: 31 00 EB 1C 57 03 99 22 93 22 C8 28 55 54 24 AA |1...W..".".(UT$.|
000014D0: 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 |UP$,21);.(UP$.UG|
000014E0: 24 AA C4 28 55 50 29 2C 31 38 29 00 1A 1D 5C 03 |$..(UP),18)...\.|
000014F0: 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
00001500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 29 1D 60 03 8B |---------".).`..|
00001520: 55 48 B3 B1 30 A7 38 37 30 00 5D 1D 61 03 99 C8 |UH..0.870.].a...|
00001530: 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 |(UD$,24);.(UP$,7|
00001540: 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 |);"HELP - PRESS |
00001550: 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 6E 1D | H <RETURN>".n.|
00001560: 66 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 8D |f.UH.0:."..":...|
00001570: 1D 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 |.k.. ** PLEASE W|
00001580: 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 C3 1D |AIT REMARK **...|
00001590: 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 |p...(UD$,24);" |
000015A0: 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D | ONE MOM|
000015B0: 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 |ENT PLEASE... |
000015C0: 20 20 22 00 C9 1D 75 03 8E 00 E6 1D 84 03 8F 20 | "...u........ |
000015D0: 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 42 |** SET UP VARIAB|
000015E0: 4C 45 53 20 2A 2A 00 31 1E 85 03 55 58 24 B2 22 |LES **.1...UX$."|
000015F0: 48 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 42 |H":.UQ%(1000):UB|
00001600: B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 |.32768:U1.196:U2|
00001610: B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 |.197:U3.198:U4.2|
00001620: 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 |16:UC.167:UU.102|
00001630: 34 00 6F 1E 86 03 55 54 B2 35 39 34 36 38 3A 55 |4.o...UT.59468:U|
00001640: 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 |U%.12:UL%.14:UP%|
00001650: B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 |.1146:UM.32768:U|
00001660: 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C 30 00 |O.158:. 50003,0.|
00001670: B2 1E 87 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 |......(50003).0.|
00001680: 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 |UB.1024:U1.209:U|
00001690: 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 |2.210:U3.211:U4.|
000016A0: 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 |214:UC.204:UU.20|
000016B0: 34 38 00 F1 1E 88 03 8B C2 28 35 30 30 30 33 29 |48.......(50003)|
000016C0: B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 |.0.UT.53272:UU%.|
000016D0: 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 |21:UL%.23:UP%.21|
000016E0: 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 |39:UM.1024:UO.19|
000016F0: 38 00 15 1F 89 03 55 44 24 B2 22 13 11 11 11 11 |8.....UD$.".....|
00001700: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001710: 11 11 11 11 22 00 47 1F 8A 03 55 50 24 B2 22 20 |....".G...UP$." |
00001720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001740: 20 20 20 20 20 20 22 00 95 1F 8B 03 55 54 24 B2 | ".....UT$.|
00001750: 22 20 CD 41 53 54 45 52 4D 49 4E 44 20 20 20 A0 |" .ASTERMIND .|
00001760: A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 50 52 |....":. PLACE PR|
00001770: 4F 47 52 41 4D 20 54 49 54 4C 45 20 48 45 52 45 |OGRAM TITLE HERE|
00001780: 20 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 | !!!!!!!!!!!!!!!|
00001790: 21 21 2A 2A 2A 00 9B 1F 8C 03 8E 00 B5 1F 8E 03 |!!***...........|
000017A0: 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C |. ** SET VARIABL|
000017B0: 45 53 20 2A 2A 00 BE 1F 93 03 8D 39 30 30 00 D9 |ES **......900..|
000017C0: 1F 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F |.... ** CHECK FO|
000017D0: 52 20 38 30 33 32 20 2A 2A 00 F7 1F 9D 03 99 22 |R 8032 **......"|
000017E0: 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 |.":.".":. SHIFTE|
000017F0: 44 20 53 50 41 43 45 00 0E 20 A2 03 8B C2 28 55 |D SPACE.. ....(U|
00001800: 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 27 |B.40)..96..700.'|
00001810: 20 A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 | ... ** MEMORY C|
00001820: 48 45 43 4B 20 2A 2A 00 3B 20 A4 03 8B 20 B8 28 |HECK **.; ... .(|
00001830: 30 29 B1 32 30 30 30 A7 39 33 37 00 69 20 A5 03 |0).2000.937.i ..|
00001840: 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 |."....THIS MACHI|
00001850: 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 |NE DOES NOT HAVE|
00001860: 20 45 4E 4F 55 47 48 11 22 00 8D 20 A6 03 99 22 | ENOUGH.".. ..."|
00001870: 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 |MEMORY TO RUN TH|
00001880: 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 98 20 |IS PROGRAM !".. |
00001890: A7 03 9E 55 55 AA 37 31 00 9E 20 A8 03 80 00 B8 |...UU.71.. .....|
000018A0: 20 A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 | ..."..":..(5000|
000018B0: 33 29 B2 30 A7 39 36 32 00 E7 20 AC 03 8F 20 2A |3).0.962.. ... *|
000018C0: 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 |* BASIC 2.0 OR |
000018D0: 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 | 4.0 OR C-64 S|
000018E0: 45 54 55 50 20 2A 2A 00 25 21 AD 03 97 31 30 37 |ETUP **.%!...107|
000018F0: 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A |5,133:.1076,144:|
00001900: 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C |.1077,234:.1079,|
00001910: 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 |4:.1080,133:.108|
00001920: 31 2C 31 34 35 00 5B 21 AE 03 97 31 30 39 31 2C |1,145.[!...1091,|
00001930: 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 |155:.1098,133:.1|
00001940: 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 |099,144:.1100,23|
00001950: 34 3A 97 31 31 30 33 2C 31 33 33 00 7D 21 AF 03 |4:.1103,133.}!..|
00001960: 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C |.1104,145:.1105,|
00001970: 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 94 21 |234:.1082,234..!|
00001980: B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |....(50003)..160|
00001990: A7 39 35 35 00 C3 21 B6 03 97 31 30 39 33 2C 38 |.955..!...1093,8|
000019A0: 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 |8:.1094,228:.109|
000019B0: 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 |7,85:.1102,228:.|
000019C0: 39 36 35 00 D8 21 BB 03 8B C2 28 35 30 30 30 33 |965..!....(50003|
000019D0: 29 B3 B1 31 A7 39 39 30 00 07 22 C0 03 97 31 30 |)..1.990.."...10|
000019E0: 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A |93,49:.1094,230:|
000019F0: 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 |.1097,46:.1102,2|
00001A00: 33 30 3A 89 39 36 35 00 41 22 C2 03 97 32 30 39 |30:.965.A"...209|
00001A10: 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 |9,141:.2100,20:.|
00001A20: 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 |2101,3:.2103,8:.|
00001A30: 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 |2104,141:.2105,2|
00001A40: 31 00 7D 22 C3 03 97 32 31 30 36 2C 33 3A 97 32 |1.}"...2106,3:.2|
00001A50: 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 |115,145:.2117,52|
00001A60: 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 |:.2118,234:.2121|
00001A70: 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 B7 22 |,49:.2122,141.."|
00001A80: C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 |...2123,20:.2124|
00001A90: 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 |,3:.2126,234:.21|
00001AA0: 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A |27,141:.2128,21:|
00001AB0: 97 32 31 32 39 2C 33 00 D5 22 C5 03 9E 55 55 AA |.2129,3.."...UU.|
00001AC0: 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F |48:. DISABLE STO|
00001AD0: 50 20 4B 45 59 00 E6 22 CA 03 8D 38 30 30 3A 8F |P KEY.."...800:.|
00001AE0: 20 54 49 54 4C 45 00 F6 22 D4 03 89 33 30 30 3A | TITLE.."...300:|
00001AF0: 8F 20 4D 45 4E 55 00 27 23 DE 03 99 22 93 54 48 |. MENU.'#...".TH|
00001B00: 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 |E PGM WILL NOT W|
00001B10: 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 |ORK ON THIS MACH|
00001B20: 49 4E 45 21 22 3A 80 00 5C 23 E8 03 8B 55 5A B2 |INE!":..\#...UZ.|
00001B30: 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 |1..UP%:.UP%:UZ.0|
00001B40: 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 |:. ** PROGRAM ST|
00001B50: 41 52 54 53 20 48 45 52 45 20 2A 2A 00 88 23 E9 |ARTS HERE **..#.|
00001B60: 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 |.."..";:.:..(500|
00001B70: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.|
00001B80: 35 33 32 38 30 2C 31 34 00 AC 23 FC 03 8F 20 2A |53280,14..#... *|
00001B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D0 23 06 |************..#.|
00001BB0: 04 8F 20 2A 20 20 20 20 20 53 55 50 45 52 20 4D |.. * SUPER M|
00001BC0: 41 53 54 45 52 4D 49 4E 44 20 20 20 20 20 20 2A |ASTERMIND *|
00001BD0: 00 F4 23 10 04 8F 20 2A 20 20 20 20 20 20 20 20 |..#... * |
00001BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001BF0: 20 20 20 2A 00 18 24 1A 04 8F 20 2A 57 52 49 54 | *..$... *WRIT|
00001C00: 54 45 4E 20 42 59 20 44 41 56 49 44 20 43 20 53 |TEN BY DAVID C S|
00001C10: 57 41 49 4D 20 49 49 2A 00 3C 24 24 04 8F 20 2A |WAIM II*.<$$.. *|
00001C20: 20 20 20 20 32 36 33 31 20 43 41 4C 4C 41 57 41 | 2631 CALLAWA|
00001C30: 59 20 52 4F 41 44 20 20 20 20 20 2A 00 60 24 2E |Y ROAD *.`$.|
00001C40: 04 8F 20 2A 20 20 4D 41 52 49 45 54 54 41 2C 20 |.. * MARIETTA, |
00001C50: 47 45 4F 52 47 49 41 20 33 30 30 36 30 20 20 2A |GEORGIA 30060 *|
00001C60: 00 84 24 38 04 8F 20 2A 20 20 20 20 20 20 20 20 |..$8.. * |
00001C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C80: 20 20 20 2A 00 A8 24 42 04 8F 20 2A 20 20 4F 52 | *..$B.. * OR|
00001C90: 49 47 49 4E 41 4C 20 56 45 52 53 49 4F 4E 20 49 |IGINAL VERSION I|
00001CA0: 4E 20 49 42 4D 20 20 2A 00 CC 24 4C 04 8F 20 2A |N IBM *..$L.. *|
00001CB0: 20 20 20 20 20 20 20 20 20 20 46 4F 52 54 52 41 | FORTRA|
00001CC0: 4E 20 20 20 20 20 20 20 20 20 20 2A 00 F0 24 56 |N *..$V|
00001CD0: 04 8F 20 2A 20 20 20 57 52 49 54 54 45 4E 20 4E |.. * WRITTEN N|
00001CE0: 4F 56 45 4D 42 45 52 2C 20 31 39 37 37 20 20 2A |OVEMBER, 1977 *|
00001CF0: 00 14 25 60 04 8F 20 2A 20 20 20 42 41 53 49 43 |..%`.. * BASIC|
00001D00: 20 56 45 52 53 49 4F 4E 20 57 52 49 54 54 45 4E | VERSION WRITTEN|
00001D10: 20 20 20 2A 00 38 25 6A 04 8F 20 2A 20 20 20 20 | *.8%j.. * |
00001D20: 20 20 20 20 20 46 45 42 2C 20 31 39 38 30 20 20 | FEB, 1980 |
00001D30: 20 20 20 20 20 20 20 2A 00 5C 25 74 04 8F 20 2A | *.\%t.. *|
00001D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8A 25 7E |************..%~|
00001D60: 04 8B 42 B2 30 A7 86 20 47 24 28 35 29 2C 43 24 |..B.0.. G$(5),C$|
00001D70: 28 35 29 2C 4C 24 28 39 29 2C 43 28 35 29 2C 50 |(5),L$(9),C(5),P|
00001D80: 28 35 29 2C 4E 24 28 32 30 29 00 94 25 83 04 42 |(5),N$(20)..%..B|
00001D90: B2 42 AA 31 00 B5 25 88 04 8F 20 44 45 46 49 4E |.B.1..%... DEFIN|
00001DA0: 45 20 54 48 45 20 52 41 4E 44 4F 4D 20 46 55 4E |E THE RANDOM FUN|
00001DB0: 43 54 49 4F 4E 00 CD 25 92 04 96 20 A5 52 28 58 |CTION..%... .R(X|
00001DC0: 29 B2 B5 28 BB 28 31 29 AC 58 29 AA 31 00 EF 25 |)..(.(1).X).1..%|
00001DD0: 9C 04 4C 24 28 31 29 B2 22 52 22 3A 4C 24 28 32 |..L$(1)."R":L$(2|
00001DE0: 29 B2 22 4F 22 3A 4C 24 28 33 29 B2 22 59 22 00 |)."O":L$(3)."Y".|
00001DF0: 11 26 A6 04 4C 24 28 34 29 B2 22 47 22 3A 4C 24 |.&..L$(4)."G":L$|
00001E00: 28 35 29 B2 22 42 22 3A 4C 24 28 36 29 B2 22 54 |(5)."B":L$(6)."T|
00001E10: 22 00 33 26 B0 04 4C 24 28 37 29 B2 22 50 22 3A |".3&..L$(7)."P":|
00001E20: 4C 24 28 38 29 B2 22 57 22 3A 4C 24 28 39 29 B2 |L$(8)."W":L$(9).|
00001E30: 22 2D 22 00 54 26 BA 04 44 24 B2 22 13 11 11 11 |"-".T&..D$."....|
00001E40: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001E50: 11 11 11 22 00 6F 26 EC 04 8F 20 47 45 54 20 54 |...".o&... GET T|
00001E60: 48 45 20 4C 45 56 45 4C 20 4E 55 4D 42 45 52 00 |HE LEVEL NUMBER.|
00001E70: 90 26 ED 04 99 22 93 11 20 57 48 41 54 20 44 49 |.&...".. WHAT DI|
00001E80: 46 46 49 43 55 4C 54 59 20 4C 45 56 45 4C 3F 22 |FFICULTY LEVEL?"|
00001E90: 00 B3 26 F0 04 99 22 11 20 31 2E 20 46 49 52 53 |..&...". 1. FIRS|
00001EA0: 54 20 44 49 46 46 49 43 55 4C 54 59 20 4C 45 56 |T DIFFICULTY LEV|
00001EB0: 45 4C 22 00 D7 26 F2 04 99 22 11 20 32 2E 20 53 |EL"..&...". 2. S|
00001EC0: 45 43 4F 4E 44 20 44 49 46 46 49 43 55 4C 54 59 |ECOND DIFFICULTY|
00001ED0: 20 4C 45 56 45 4C 22 00 FA 26 F4 04 99 22 11 20 | LEVEL"..&...". |
00001EE0: 33 2E 20 54 48 49 52 44 20 44 49 46 46 49 43 55 |3. THIRD DIFFICU|
00001EF0: 4C 54 59 20 4C 45 56 45 4C 22 00 23 27 F6 04 55 |LTY LEVEL".#'..U|
00001F00: 53 24 B2 22 31 32 33 48 22 3A 55 4C B2 31 3A 99 |S$."123H":UL.1:.|
00001F10: 22 11 20 22 3B 3A 8D 20 33 35 3A 4C B2 C5 28 55 |". ";:. 35:L..(U|
00001F20: 52 24 29 00 42 27 00 05 8F 20 43 48 45 43 4B 20 |R$).B'... CHECK |
00001F30: 46 4F 52 20 5A 45 52 4F 20 28 4E 4F 20 47 41 4D |FOR ZERO (NO GAM|
00001F40: 45 29 00 53 27 0A 05 8B 20 4C B2 30 20 A7 20 31 |E).S'... L.0 . 1|
00001F50: 37 39 30 00 60 27 14 05 97 20 55 54 2C 55 55 25 |790.`'... UT,UU%|
00001F60: 00 83 27 1E 05 8F 20 4D 41 4B 45 20 41 20 43 4F |..'... MAKE A CO|
00001F70: 44 45 20 4F 46 20 43 4F 52 52 45 43 54 20 4C 45 |DE OF CORRECT LE|
00001F80: 56 45 4C 00 8C 27 28 05 99 22 93 22 00 96 27 2D |VEL..'(.."."..'-|
00001F90: 05 8D 20 38 37 35 00 AF 27 32 05 91 20 4C 20 8D |.. 875..'2.. L .|
00001FA0: 20 32 31 38 30 2C 32 33 36 30 2C 32 34 32 30 00 | 2180,2360,2420.|
00001FB0: D0 27 3C 05 8F 20 41 4E 4E 4F 55 4E 43 45 20 42 |.'<.. ANNOUNCE B|
00001FC0: 45 47 49 4E 4E 49 4E 47 20 4F 46 20 47 41 4D 45 |EGINNING OF GAME|
00001FD0: 00 F2 27 46 05 99 22 93 11 20 41 20 43 4F 44 45 |..'F..".. A CODE|
00001FE0: 20 48 41 53 20 42 45 45 4E 20 43 48 4F 53 45 4E | HAS BEEN CHOSEN|
00001FF0: 2E 22 00 1B 28 50 05 99 22 11 20 59 4F 55 20 48 |."..(P..". YOU H|
00002000: 41 56 45 20 32 30 20 47 55 45 53 53 45 53 2C 20 |AVE 20 GUESSES, |
00002010: 47 4F 4F 44 20 4C 55 43 4B 21 22 00 24 28 5A 05 |GOOD LUCK!".$(Z.|
00002020: 8D 38 33 35 00 2A 28 64 05 8F 00 35 28 6E 05 8D |.835.*(d...5(n..|
00002030: 20 32 37 39 30 00 44 28 78 05 81 20 4E B2 31 20 | 2790.D(x.. N.1 |
00002040: A4 20 32 30 00 58 28 82 05 8F 20 47 45 54 20 54 |. 20.X(... GET T|
00002050: 48 45 20 47 55 45 53 53 00 63 28 8C 05 8D 20 33 |HE GUESS.c(... 3|
00002060: 31 32 34 00 79 28 96 05 8F 20 53 43 4F 52 45 20 |124.y(... SCORE |
00002070: 54 48 45 20 47 55 45 53 53 00 97 28 A0 05 8F 20 |THE GUESS..(... |
00002080: 53 43 4F 52 45 20 4C 49 4B 45 20 43 4F 4C 4F 52 |SCORE LIKE COLOR|
00002090: 53 20 57 48 49 54 45 00 A2 28 AA 05 8D 20 32 34 |S WHITE..(... 24|
000020A0: 38 30 00 C6 28 B4 05 8F 20 53 43 4F 52 45 20 43 |80..(... SCORE C|
000020B0: 4F 52 52 45 43 54 20 50 4C 41 43 45 4D 45 4E 54 |ORRECT PLACEMENT|
000020C0: 20 42 4C 41 43 4B 00 D1 28 BE 05 8D 20 32 36 38 | BLACK..(... 268|
000020D0: 30 00 F1 28 C8 05 8F 20 57 52 49 54 45 20 54 48 |0..(... WRITE TH|
000020E0: 45 20 47 55 45 53 53 20 41 4E 44 20 53 43 4F 52 |E GUESS AND SCOR|
000020F0: 45 00 FC 28 D2 05 8D 20 32 37 36 30 00 0A 29 DC |E..(... 2760..).|
00002100: 05 81 20 49 B2 31 20 A4 20 35 00 18 29 E6 05 53 |.. I.1 . 5..)..S|
00002110: 24 28 49 29 B2 22 20 22 00 20 29 F0 05 82 20 49 |$(I)." ". )... I|
00002120: 00 43 29 FA 05 8F 20 49 53 20 54 48 45 20 47 55 |.C)... IS THE GU|
00002130: 45 53 53 20 54 4F 54 41 4C 4C 59 20 43 4F 52 52 |ESS TOTALLY CORR|
00002140: 45 43 54 00 54 29 04 06 8B 20 4B B1 35 20 A7 20 |ECT.T)... K.5 . |
00002150: 31 36 37 30 00 5C 29 0E 06 82 20 4E 00 75 29 18 |1670.\)... N.u).|
00002160: 06 8F 20 49 46 20 59 4F 55 20 47 45 54 20 54 4F |.. IF YOU GET TO|
00002170: 20 48 45 52 45 00 7F 29 22 06 8D 36 30 30 30 00 | HERE..)"..6000.|
00002180: 8D 29 2C 06 99 22 13 11 11 11 11 11 22 00 A7 29 |.),.."......"..)|
00002190: 36 06 99 2C 2C 22 20 53 4F 52 52 59 2C 20 59 4F |6..,," SORRY, YO|
000021A0: 55 20 55 53 45 44 22 00 BD 29 40 06 99 2C 2C 22 |U USED"..)@..,,"|
000021B0: 20 55 50 20 41 4C 4C 20 59 4F 55 52 22 00 CF 29 | UP ALL YOUR"..)|
000021C0: 4A 06 99 2C 2C 22 20 47 55 45 53 53 45 53 2E 00 |J..,," GUESSES..|
000021D0: E5 29 54 06 99 2C 2C 22 20 42 45 54 54 45 52 20 |.)T..,," BETTER |
000021E0: 4C 55 43 4B 22 00 FA 29 5E 06 99 2C 2C 22 20 4E |LUCK"..)^..,," N|
000021F0: 45 58 54 20 54 49 4D 45 2E 22 00 12 2A 68 06 99 |EXT TIME."..*h..|
00002200: 2C 2C 22 20 43 4F 52 52 45 43 54 20 43 4F 44 45 |,," CORRECT CODE|
00002210: 3A 22 00 3C 2A 72 06 99 20 2C 2C 22 20 22 20 43 |:".<*r.. ,," " C|
00002220: 24 28 31 29 3B 43 24 28 32 29 3B 43 24 28 33 29 |$(1);C$(2);C$(3)|
00002230: 3B 43 24 28 34 29 3B 43 24 28 35 29 00 47 2A 7C |;C$(4);C$(5).G*||
00002240: 06 89 20 31 37 33 30 00 6C 2A 86 06 8F 20 4A 41 |.. 1730.l*... JA|
00002250: 43 4B 50 4F 54 2C 20 59 4F 55 20 47 55 45 53 53 |CKPOT, YOU GUESS|
00002260: 45 44 20 54 48 45 20 43 4F 44 45 21 00 80 2A 90 |ED THE CODE!..*.|
00002270: 06 8D 36 30 30 30 3A 99 22 13 11 11 11 11 11 22 |..6000:."......"|
00002280: 00 9B 2A 9A 06 99 2C 2C 22 20 43 4F 4E 47 52 41 |..*...,," CONGRA|
00002290: 54 55 4C 41 54 49 4F 4E 53 2C 22 00 B0 2A A4 06 |TULATIONS,"..*..|
000022A0: 99 2C 2C 22 20 59 4F 55 20 57 4F 4E 20 49 4E 22 |.,," YOU WON IN"|
000022B0: 00 C6 2A AE 06 99 2C 2C 22 20 22 4E 3B 22 47 55 |..*...,," "N;"GU|
000022C0: 45 53 53 45 53 22 00 E4 2A B8 06 8F 20 48 4F 57 |ESSES"..*... HOW|
000022D0: 20 41 42 4F 55 54 20 41 4E 4F 54 48 45 52 20 47 | ABOUT ANOTHER G|
000022E0: 41 4D 45 3F 00 EA 2A C2 06 99 00 00 2B CC 06 99 |AME?..*.....+...|
000022F0: 2C 2C 22 20 44 4F 20 59 4F 55 20 57 41 4E 54 22 |,," DO YOU WANT"|
00002300: 00 1D 2B D6 06 99 2C 2C 22 20 41 4E 4F 54 48 45 |..+...,," ANOTHE|
00002310: 52 20 47 41 4D 45 20 59 2F 4E 20 22 3B 00 3C 2B |R GAME Y/N ";.<+|
00002320: E0 06 55 53 24 B2 22 59 4E 48 22 3A 55 4C B2 31 |..US$."YNH":UL.1|
00002330: 3A 8D 20 33 35 3A 41 24 B2 55 52 24 00 4B 2B EA |:. 35:A$.UR$.K+.|
00002340: 06 42 24 B2 C8 28 41 24 2C 31 29 00 63 2B F4 06 |.B$..(A$,1).c+..|
00002350: 8B 20 42 24 B2 22 59 22 20 A7 20 8C 3A 89 20 31 |. B$."Y" . .:. 1|
00002360: 32 36 30 00 69 2B FE 06 8E 00 6F 2B 03 07 8F 00 |260.i+....o+....|
00002370: 75 2B 08 07 8F 00 8C 2B 84 08 8F 20 53 55 42 20 |u+.....+... SUB |
00002380: 46 4F 52 20 4E 4F 20 44 55 50 45 53 00 9A 2B 8E |FOR NO DUPES..+.|
00002390: 08 81 20 49 B2 31 20 A4 20 35 00 A9 2B 98 08 43 |.. I.1 . 5..+..C|
000023A0: 28 49 29 B2 A5 52 28 38 29 00 B1 2B A2 08 82 20 |(I)..R(8)..+... |
000023B0: 49 00 B9 2B AC 08 41 B2 30 00 C7 2B B6 08 81 20 |I..+..A.0..+... |
000023C0: 49 B2 31 20 A4 20 35 00 D5 2B C0 08 81 20 4A B2 |I.1 . 5..+... J.|
000023D0: 31 20 A4 20 35 00 E7 2B CA 08 8B 20 4A B3 B2 49 |1 . 5..+... J..I|
000023E0: 20 A7 20 32 32 39 30 00 FF 2B D4 08 8B 20 43 28 | . 2290..+... C(|
000023F0: 49 29 B3 B1 43 28 4A 29 20 A7 20 32 32 39 30 00 |I)..C(J) . 2290.|
00002400: 0E 2C DE 08 43 28 4A 29 B2 A5 52 28 38 29 00 18 |.,..C(J)..R(8)..|
00002410: 2C E8 08 41 B2 41 AA 31 00 20 2C F2 08 82 20 4A |,..A.A.1. ,... J|
00002420: 00 28 2C FC 08 82 20 49 00 39 2C 06 09 8B 20 41 |.(,... I.9,... A|
00002430: B1 30 20 A7 20 32 32 32 30 00 47 2C 10 09 81 20 |.0 . 2220.G,... |
00002440: 49 B2 31 20 A4 20 35 00 5A 2C 1A 09 43 24 28 49 |I.1 . 5.Z,..C$(I|
00002450: 29 B2 4C 24 28 43 28 49 29 29 00 62 2C 24 09 82 |).L$(C(I)).b,$..|
00002460: 20 49 00 68 2C 2E 09 8E 00 7C 2C 38 09 8F 20 53 | I.h,....|,8.. S|
00002470: 55 42 20 46 4F 52 20 44 55 50 45 53 00 8A 2C 42 |UB FOR DUPES..,B|
00002480: 09 81 20 49 B2 31 20 A4 20 35 00 96 2C 4C 09 41 |.. I.1 . 5..,L.A|
00002490: B2 A5 52 28 38 29 00 A6 2C 56 09 43 24 28 49 29 |..R(8)..,V.C$(I)|
000024A0: B2 4C 24 28 41 29 00 AE 2C 60 09 82 20 49 00 B4 |.L$(A)..,`.. I..|
000024B0: 2C 6A 09 8E 00 D0 2C 74 09 8F 20 53 55 42 20 54 |,j....,t.. SUB T|
000024C0: 4F 20 49 4E 43 4C 55 44 45 20 53 50 41 43 45 53 |O INCLUDE SPACES|
000024D0: 00 DE 2C 7E 09 81 20 49 B2 31 20 A4 20 35 00 EA |..,~.. I.1 . 5..|
000024E0: 2C 88 09 41 B2 A5 52 28 39 29 00 FA 2C 92 09 43 |,..A..R(9)..,..C|
000024F0: 24 28 49 29 B2 4C 24 28 41 29 00 02 2D 9C 09 82 |$(I).L$(A)..-...|
00002500: 20 49 00 08 2D A6 09 8E 00 21 2D B0 09 8F 20 53 | I..-....!-... S|
00002510: 55 42 20 54 4F 20 53 43 4F 52 45 20 57 48 49 54 |UB TO SCORE WHIT|
00002520: 45 00 29 2D BA 09 4B B2 31 00 37 2D C4 09 81 20 |E.)-..K.1.7-... |
00002530: 49 B2 31 20 A4 20 35 00 42 2D CE 09 50 28 49 29 |I.1 . 5.B-..P(I)|
00002540: B2 30 00 4A 2D D8 09 82 20 49 00 58 2D E2 09 81 |.0.J-... I.X-...|
00002550: 20 49 B2 31 20 A4 20 35 00 66 2D EC 09 81 20 4A | I.1 . 5.f-... J|
00002560: B2 31 20 A4 20 35 00 77 2D F6 09 8B 20 4B B2 31 |.1 . 5.w-... K.1|
00002570: 20 A7 20 32 36 30 30 00 81 2D 00 0A 4C B2 4B AB | . 2600..-..L.K.|
00002580: 31 00 8F 2D 0A 0A 81 20 4D B2 31 20 A4 20 4C 00 |1..-... M.1 . L.|
00002590: A3 2D 14 0A 8B 20 4A B2 50 28 4D 29 20 A7 20 32 |.-... J.P(M) . 2|
000025A0: 36 31 30 00 AB 2D 1E 0A 82 20 4D 00 C4 2D 28 0A |610..-... M..-(.|
000025B0: 8B 20 47 24 28 4A 29 B2 43 24 28 49 29 20 A7 20 |. G$(J).C$(I) . |
000025C0: 32 36 33 30 00 CC 2D 32 0A 82 20 4A 00 D7 2D 3C |2630..-2.. J..-<|
000025D0: 0A 89 20 32 36 36 30 00 E2 2D 46 0A 50 28 4B 29 |.. 2660..-F.P(K)|
000025E0: B2 4A 00 F0 2D 50 0A 53 24 28 4B 29 B2 22 D1 22 |.J..-P.S$(K)."."|
000025F0: 00 FA 2D 5A 0A 4B B2 4B AA 31 00 02 2E 64 0A 82 |..-Z.K.K.1...d..|
00002600: 20 49 00 08 2E 6E 0A 8E 00 21 2E 78 0A 8F 20 53 | I...n...!.x.. S|
00002610: 55 42 20 54 4F 20 53 43 4F 52 45 20 42 4C 41 43 |UB TO SCORE BLAC|
00002620: 4B 00 29 2E 82 0A 4B B2 31 00 37 2E 8C 0A 81 20 |K.)...K.1.7.... |
00002630: 49 B2 31 20 A4 20 35 00 51 2E 96 0A 8B 20 47 24 |I.1 . 5.Q.... G$|
00002640: 28 49 29 B3 B1 43 24 28 49 29 20 A7 20 32 37 34 |(I)..C$(I) . 274|
00002650: 30 00 5F 2E A0 0A 53 24 28 4B 29 B2 22 D7 22 00 |0._...S$(K).".".|
00002660: 69 2E AA 0A 4B B2 4B AA 31 00 71 2E B4 0A 82 20 |i...K.K.1.q.... |
00002670: 49 00 77 2E BE 0A 8E 00 8E 2E C8 0A 8F 20 57 52 |I.w.......... WR|
00002680: 49 54 45 20 53 43 4F 52 45 20 4C 49 4E 45 00 D0 |ITE SCORE LINE..|
00002690: 2E D2 0A 99 20 22 13 22 3B C8 28 44 24 2C 4E AA |.... ".";.(D$,N.|
000026A0: 33 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |3);"............|
000026B0: 1D 22 3B 53 24 28 31 29 3B 53 24 28 32 29 3B 53 |.";S$(1);S$(2);S|
000026C0: 24 28 33 29 3B 53 24 28 34 29 3B 53 24 28 35 29 |$(3);S$(4);S$(5)|
000026D0: 00 D6 2E DC 0A 8E 00 EF 2E E6 0A 8F 20 44 52 41 |............ DRA|
000026E0: 57 20 50 4C 41 59 49 4E 47 20 42 4F 41 52 44 00 |W PLAYING BOARD.|
000026F0: 0B 2F F0 0A 99 22 93 20 B0 C0 C0 C0 B2 C0 C0 C0 |./...". ........|
00002700: C0 C0 C0 B2 C0 C0 C0 C0 C0 AE 22 00 26 2F FA 0A |..........".&/..|
00002710: 99 22 20 DD A0 A0 A0 DD A0 20 A0 A0 A0 A0 DD A0 |." ...... ......|
00002720: A0 A0 A0 A0 DD 22 00 41 2F 04 0B 99 22 20 AB C0 |.....".A/..." ..|
00002730: C0 C0 DB C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 B3 |................|
00002740: 22 00 50 2F 0E 0B 81 20 49 B2 31 20 A4 20 32 30 |".P/... I.1 . 20|
00002750: 00 6B 2F 18 0B 99 22 20 DD A0 A0 A0 DD 20 A0 A0 |.k/..." ..... ..|
00002760: A0 A0 A0 DD A0 A0 A0 A0 A0 DD 22 00 73 2F 22 0B |..........".s/".|
00002770: 82 20 49 00 8E 2F 2C 0B 99 22 20 AD C0 C0 C0 B1 |. I../,.." .....|
00002780: C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 BD 22 00 B7 |............."..|
00002790: 2F 36 0B 99 22 13 11 1D 1D 1D 23 1D 1D 47 55 45 |/6..".....#..GUE|
000027A0: 53 53 1D 1D 53 43 4F 52 45 1D 1D 1D 53 20 55 20 |SS..SCORE...S U |
000027B0: 50 20 45 20 52 20 22 00 BD 2F 40 0B 99 00 CC 2F |P E R "../@..../|
000027C0: 4A 0B 81 20 49 B2 31 20 A4 20 32 30 00 D8 2F 54 |J.. I.1 . 20../T|
000027D0: 0B 99 22 1D 1D 22 3B 49 00 E0 2F 5E 0B 82 20 49 |.."..";I../^.. I|
000027E0: 00 FF 2F 5F 0B 99 22 13 11 11 11 11 11 11 11 11 |../_..".........|
000027F0: 22 A3 32 34 29 3B 22 52 20 3A 20 52 45 44 22 00 |".24);"R : RED".|
00002800: 15 30 60 0B 99 A3 32 34 29 3B 22 4F 20 3A 20 4F |.0`...24);"O : O|
00002810: 52 41 4E 47 45 00 2B 30 61 0B 99 A3 32 34 29 3B |RANGE.+0a...24);|
00002820: 22 59 20 3A 20 59 45 4C 4C 4F 57 00 40 30 62 0B |"Y : YELLOW.@0b.|
00002830: 99 A3 32 34 29 3B 22 47 20 3A 20 47 52 45 45 4E |..24);"G : GREEN|
00002840: 00 54 30 63 0B 99 A3 32 34 29 3B 22 42 20 3A 20 |.T0c...24);"B : |
00002850: 42 4C 55 45 00 67 30 64 0B 99 A3 32 34 29 3B 22 |BLUE.g0d...24);"|
00002860: 54 20 3A 20 54 41 4E 00 7D 30 65 0B 99 A3 32 34 |T : TAN.}0e...24|
00002870: 29 3B 22 50 20 3A 20 50 55 52 50 4C 45 00 92 30 |);"P : PURPLE..0|
00002880: 66 0B 99 A3 32 34 29 3B 22 57 20 3A 20 57 48 49 |f...24);"W : WHI|
00002890: 54 45 00 A7 30 67 0B 99 A3 32 34 29 3B 22 2D 20 |TE..0g...24);"- |
000028A0: 3A 20 42 4C 41 4E 4B 00 B6 30 68 0B 81 20 49 B2 |: BLANK..0h.. I.|
000028B0: 31 20 A4 20 32 30 00 C2 30 72 0B 87 20 4E 24 28 |1 . 20..0r.. N$(|
000028C0: 49 29 00 DD 30 7C 0B 99 20 C8 28 44 24 2C 49 AA |I)..0|.. .(D$,I.|
000028D0: 33 29 3B A3 31 39 29 3B 4E 24 28 49 29 00 E5 30 |3);.19);N$(I)..0|
000028E0: 86 0B 82 20 49 00 EB 30 8B 0B 8C 00 1D 31 90 0B |... I..0.....1..|
000028F0: 83 20 22 4D 22 2C 22 20 22 2C 22 41 22 2C 22 20 |. "M"," ","A"," |
00002900: 22 2C 22 53 22 2C 22 20 22 2C 22 54 22 2C 22 20 |","S"," ","T"," |
00002910: 22 2C 22 45 22 2C 22 20 22 2C 22 52 22 00 47 31 |","E"," ","R".G1|
00002920: 9A 0B 83 20 22 20 22 2C 22 4D 22 2C 22 20 22 2C |... " ","M"," ",|
00002930: 22 49 22 2C 22 20 22 2C 22 4E 22 2C 22 20 22 2C |"I"," ","N"," ",|
00002940: 22 44 22 2C 22 20 22 00 4D 31 A4 0B 8E 00 64 31 |"D"," ".M1....d1|
00002950: 34 0C 53 50 24 B2 22 1D 1D 1D 1D 1D 22 3A 55 52 |4.SP$.".....":UR|
00002960: 24 B2 22 22 00 8A 31 35 0C 99 20 C8 28 44 24 2C |$.""..15.. .(D$,|
00002970: 4E AA 33 29 3B 22 1D 1D 1D 1D 1D 22 3B C8 28 53 |N.3);".....";.(S|
00002980: 50 24 2C 31 29 3B 55 52 24 3B 00 9F 31 3A 0C 55 |P$,1);UR$;..1:.U|
00002990: 53 24 B2 22 50 52 47 42 57 54 59 4F 2D 48 22 00 |S$."PRGBWTYO-H".|
000029A0: A8 31 44 0C 55 4C B2 35 00 B1 31 4E 0C 8D 20 34 |.1D.UL.5..1N.. 4|
000029B0: 32 00 C7 31 53 0C 8B 20 C3 28 55 52 24 29 B3 35 |2..1S.. .(UR$).5|
000029C0: 20 A7 20 33 31 32 35 00 D5 31 58 0C 81 20 4A B2 | . 3125..1X.. J.|
000029D0: 31 20 A4 20 35 00 EC 31 62 0C 20 20 47 24 28 4A |1 . 5..1b. G$(J|
000029E0: 29 B2 CA 28 55 52 24 2C 4A 2C 31 29 00 F4 31 6C |)..(UR$,J,1)..1l|
000029F0: 0C 82 20 4A 00 FA 31 76 0C 8E 00 19 32 70 17 99 |.. J..1v....2p..|
00002A00: 22 13 11 11 11 11 11 11 11 11 22 A3 32 34 29 3B |".........".24);|
00002A10: 22 20 20 20 20 20 20 20 22 00 30 32 7A 17 99 A3 |" ".02z...|
00002A20: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 22 |24);" "|
00002A30: 00 47 32 84 17 99 A3 32 34 29 3B 22 20 20 20 20 |.G2....24);" |
00002A40: 20 20 20 20 20 20 22 00 5E 32 8E 17 99 A3 32 34 | ".^2....24|
00002A50: 29 3B 22 20 20 20 20 20 20 20 20 20 20 22 00 75 |);" ".u|
00002A60: 32 98 17 99 A3 32 34 29 3B 22 20 20 20 20 20 20 |2....24);" |
00002A70: 20 20 20 20 22 00 8C 32 A2 17 99 A3 32 34 29 3B | "..2....24);|
00002A80: 22 20 20 20 20 20 20 20 20 20 20 22 00 A3 32 AC |" "..2.|
00002A90: 17 99 A3 32 34 29 3B 22 20 20 20 20 20 20 20 20 |...24);" |
00002AA0: 20 20 22 00 BA 32 B6 17 99 A3 32 34 29 3B 22 20 | "..2....24);" |
00002AB0: 20 20 20 20 20 20 20 20 20 22 00 D1 32 C0 17 99 | "..2...|
00002AC0: A3 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 |.24);" |
00002AD0: 22 00 E8 32 CA 17 99 A3 32 34 29 3B 22 20 20 20 |"..2....24);" |
00002AE0: 20 20 20 20 20 20 20 22 00 FF 32 D4 17 99 A3 32 | "..2....2|
00002AF0: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 22 00 |4);" ".|
00002B00: 05 33 DE 17 8E 00 00 00 |.3...... |
.......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.0.M..UQ.UB.(UB.960).L.R.UQ%
(UQ.UB).B(UQ):.:."."._.W.UZ.1:UV%.B(UT).
H.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:
UL.UK.D.Z..B(50003).0..53281,1:.".";:.53
281,6:.53280,14:.220.N....".";.....UT$.U
L$:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3)...
...UQ,UQ%(UQ.UB):.......U1,U1%.*....U2,U
2%.6....U4,U4%.D....U3,U3%.1.L....35.~..
.UD%.((U2%.256.U1%.U3%).UB).40:.H(UD$,UD
%.1):.......H(UD$,25);"
. HELP COMING .";:......U1%.B(U1):U
2%.B(U2):U3%.B(U3):U4%.B(U4).....UJ$.US$
:UK$.UG$:UL$.UT$:UJ.UP:UK.UL.......#.,..
** MENU **.).-.:.X....".":.UT,UU%:.B(50
003).0..53281,9:.53280,8.^./.:.{.1..".
MENU"...6.." -------------
-------------------------".R.;.."..
1. BEGIN MASTER MIND "...@.."..
2. STUDENT INSTRUCTIONS".&.E.."..
3. TEACHER INSTRUCTIONS".B.O.."..
4. QUIT..".Q.T.." --------------
------------------------"...Y.."..
PRESS A NUMBER KEY (1-4) ";.D.^.UL.1:US
$."1234":.35:. INPUT ROUTINE.O.`.US$."".
..C..E(UR$).1000,400,500,396...H..300...
... ** RE-ENABLE STOP KEY AND END **.K..
..B(50003)..1.B(50003)..160.B(50003)..0.
399.U....UU.71:.B(50003).0..53281,6:.532
80,14......"..":.......875:....... ** ST
UDENT INSTRUCTIONS **......".":.UT,UL%:.
B(50003).0..53281,0:.53280,0.....UP.0:UG
$."STUDENT INST":.850."....".
SUPER MASTERMIND".R....". IN THE GAME O
F MASTERMIND A FIVE COLOR"......". CODE
IS CREATED THAT THE PLAYER MUST"......".
GUESS. THE CODE IS MADE OF ANY OF".W...
.". EIGHT COLORS PLUS, AT THE PLAYER'S".
.....". OPTION, A BLANK. THE FOLLOWING C
OLORS":.". MAY BE USED:".J....". RED (
R) ORANGE(O) YELLOW(Y) GREEN (G)";.|....
". BLUE (B) TAN (T) PURPLE(P) WHITE (
W)";......". BLANK (-)":.835......850.M.
...". FOR EACH GUESS THE PLAYER IS SCORE
D IN"......". THE FOLLOWING MANNER. A W
HITE SPOT".(....". SIGNIFIES A CORRECT C
OLOR. A CIRCLE ".R....". SIGNIFIES A COR
RECT COLOR AT THE".~....". CORRECT LOCAT
ION IN THE CODE. THUS"......". A SCORE O
F OO MEANS THE GUESS CONTAINS".Y....". T
WO CORRECT COLORS IN THE CORRECT"......"
. LOCATIONS."...... 835:UP.2:. 850.4....
". A SCORE OF OOOOO MEANS THE CORRECT CO
DE";.D.A..". HAS BEEN GUESSED AND THE GA
ME IS OVER."...D..". THERE ARE THREE LEV
ELS OF DIFFICULTY"...E..". AT WHICH YOU
MAY PLAY."...F..".. LEVEL 1: THERE ARE N
O BLANKS IN THE"...G.." CODE AN
D NO COLOR IS REPEATED.";.A.H..". LEVEL
2: COLORS MAY BE REPEATED BUT NO".C.I.."
BLANKS ARE USED."...J..". LEVE
L 3: BLANKS ARE USED AND COLORS OR"...K.
." BLANKS MAY BE REPEATED.".E..
..835.Y....UZ.1..UP%:.217............ **
TEACHER INSTRUCTIONS **.0....".":.UT,UL
%:.B(50003).0..53281,2:.53280,10.Q...UP.
0:UG$."TEACHER INST":.850....."..
TO THE BEST OF OUR KNOWLEDGE,."......"
THIS PROGRAM IS IN THE PUBLIC.".T...."
DOMAIN. IF THIS IS NOT THE CASE."....
.." PLEASE CONTACT:..."......" CO
MMODORE BUSINESS MACHINES.".>...."
3370 PHARMACY AVE..B...." A
GINCOURT, ONTARIO"......" CANAD
A M1W 2K4"......" (416) 499-4
292".....UP.1:. 835:. 850:......" ..
PROGRAM NAME: MASTERMIND ......."
WRITTEN BY : DAVID SWAIM......." UP
GRADED BY : ..Y...." .THIS
PROGRAM WILL RUN ON ANY...Y...."
PET 64 COMPUTER......." COMMODO
RE 64 COMPUTER......835...N..UZ.1..UP%:.
217.A.W.....X.. ** PROGRAM MODIFICATION
INST **...Y..".":.UT,UL%...].UP.0:UG$."P
ROGRAM MOD":.850.!....835.5....UZ.1..UP%
:.217.;.....`.... ** TO USE 8032 LOAD CB
M4032 **...F..".....BEFORE RUNNING THIS
PROGRAM ON AN 8032 ...L.P.." LOAD
THE 'CBM 4032' PROGRAM.............".W.Z
..UU.71......... .. ** T I T L E P A G
E **.1.".."....";:.UT,UU%:.B(50003).0..
53280,14:.53281,6.G.$..I.1.38:."...";:..
_.&..I.1.22:.".....";:..W.(..I.1.37:."..
...";:....*..I.1.22:.".....";:....,.."..
......................... ..V....".....
.............. . . .....0.."...........
........ . ......2.."..................
.. ..=.4.."..............C O M M O D O
R E...`.6.."...............EDUCATIONAL..
..8.."................SOFTWARE...:.. **
COMMODORE LOGO **.R.;..H(UD$,24);".....
.....PRESS SPACE BAR OR WAIT.":I.0...<..
A$:.A$.." ".I.I.1:.I.250.828...>.T1$."":
T2$."":T3$."":T4$."":I.0.!.@..300.=.C..
** SPACE BAR PRESS **.X.H..UO,0:.H(UD$,2
4);".......PRESS SPACE BAR TO CONTINUE."
...L..UI$:.UI$.." ".844...N.....R.. ** P
AGE DESIGN ROUTINE **.A.T.UP.UP.1...W.."
."H(UT$.UP$,21);I(UP$.UG$.D(UP),18)...\.
." -------------------------------------
-".).`..UH..0.870.].A..H(UD$,24);H(UP$,7
);"HELP - PRESS H <RETURN>".N.F.UH.0:.
"..":....K.. ** PLEASE WAIT REMARK **.C.
P..H(UD$,24);" ONE MOMENT PLEA
SE... ".I.U........ ** SET UP VARIAB
LES **.1...UX$."H":.UQ%(1000):UB.32768:U
1.196:U2.197:U3.198:U4.216:UC.167:UU.102
4.O...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.2
04:UU.2048......B(50003).0.UT.53272:UU%.
21:UL%.23:UP%.2139:UM.1024:UO.198.....UD
$.".........................".G...UP$."
".
....UT$." MASTERMIND ":. PLACE PR
OGRAM TITLE HERE !!!!!!!!!!!!!!!!!***...
......... ** SET VARIABLES **......900.Y
.... ** CHECK FOR 8032 **......".":." ":
. SHIFTED SPACE.. ...B(UB.40)..96..700.'
... ** MEMORY CHECK **.; ... .(0).2000.
937.I ..."....THIS MACHINE DOES NOT HAVE
ENOUGH.".. ..."MEMORY TO RUN THIS PROGR
AM !".. ...UU.71.. ..... ..."..":.B(5000
3).0.962.. ... ** BASIC 2.0 OR 4.0 OR
C-64 SETUP **.%!...1075,133:.1076,144:
.1077,234:.1079,4:.1080,133:.1081,145.[!
...1091,155:.1098,133:.1099,144:.1100,23
4:.1103,133.}!...1104,145:.1105,234:.108
2,234..!...B(50003)..160.955.C!...1093,8
8:.1094,228:.1097,85:.1102,228:.965.X!..
.B(50003)..1.990.."...1093,49:.1094,230:
.1097,46:.1102,230:.965.A"B..2099,141:.2
100,20:.2101,3:.2103,8:.2104,141:.2105,2
1.}"C..2106,3:.2115,145:.2117,52:.2118,2
34:.2121,49:.2122,141.."D..2123,20:.2124
,3:.2126,234:.2127,141:.2128,21:.2129,3.
U"E..UU.48:. DISABLE STOP KEY.."J..800:.
TITLE.."T..300:. MENU.'#...".THE PGM WI
LL NOT WORK ON THIS MACHINE!":..\#...UZ.
1..UP%:.UP%:UZ.0:. ** PROGRAM STARTS HER
E **..#..."..";:.:.B(50003).0..53281,6:.
53280,14..#... *************************
****.P#... * SUPER MASTERMIND *
..#... * *..$.
.. *WRITTEN BY DAVID C SWAIM II*.<$$.. *
2631 CALLAWAY ROAD *.`$... * MA
RIETTA, GEORGIA 30060 *..$8.. *
*..$B.. * ORIGINAL V
ERSION IN IBM *.L$L.. * FORTRA
N *..$V.. * WRITTEN NOVEMBER,
1977 *..%`.. * BASIC VERSION WRITTEN
*.8%J.. * FEB, 1980 *
.\%T.. *****************************..%~
..B.0.. G$(5),C$(5),L$(9),C(5),P(5),N$(2
0)..%..B.B.1..%... DEFINE THE RANDOM FUN
CTION.M%... .R(X)..(.(1).X).1..%..L$(1).
"R":L$(2)."O":L$(3)."Y"..&..L$(4)."G":L$
(5)."B":L$(6)."T".3&..L$(7)."P":L$(8)."W
":L$(9)."-".T&..D$."....................
...".O&... GET THE LEVEL NUMBER..&..."..
WHAT DIFFICULTY LEVEL?"..&...". 1. FIRS
T DIFFICULTY LEVEL".W&...". 2. SECOND DI
FFICULTY LEVEL"..&...". 3. THIRD DIFFICU
LTY LEVEL".#'..US$."123H":UL.1:.". ";:.
35:L.E(UR$).B'... CHECK FOR ZERO (NO GAM
E).S'... L.0 . 1790.`'... UT,UU%..'... M
AKE A CODE OF CORRECT LEVEL..'(.."."..'-
.. 875..'2.. L . 2180,2360,2420.P'<.. AN
NOUNCE BEGINNING OF GAME..'F..".. A CODE
HAS BEEN CHOSEN."..(P..". YOU HAVE 20 G
UESSES, GOOD LUCK!".$(Z..835.*(D...5(N..
2790.D(X.. N.1 . 20.X(... GET THE GUESS
.C(... 3124.Y(... SCORE THE GUESS..( ..
SCORE LIKE COLORS WHITE..(... 2480.F(...
SCORE CORRECT PLACEMENT BLACK.Q(... 268
0..(H.. WRITE THE GUESS AND SCORE..(R..
2760..)... I.1 . 5..)..S$(I)." ". )... I
.C)... IS THE GUESS TOTALLY CORRECT.T)..
. K.5 . 1670.\)... N.U)... IF YOU GET TO
HERE.)"..6000..),.."......"..)6..,," S
ORRY, YOU USED"..)@..,," UP ALL YOUR".O)
J..,," GUESSES...)T..,," BETTER LUCK"..)
^..,," NEXT TIME."..*H..,," CORRECT CODE
:".<*R.. ,," " C$(1);C$(2);C$(3);C$(4);C
$(5).G*|.. 1730.L*... JACKPOT, YOU GUESS
ED THE CODE!..*...6000:."......"..*...,,
" CONGRATULATIONS,"..*...,," YOU WON IN"
.F*...,," "N;"GUESSES"..*... HOW ABOUT A
NOTHER GAME?..*B....+L..,," DO YOU WANT"
..+V..,," ANOTHER GAME Y/N ";.<+..US$."Y
NH":UL.1:. 35:A$.UR$.K+..B$.H(A$,1).C+..
. B$."Y" . .:. 1260.I+....O+....U+.....+
... SUB FOR NO DUPES..+... I.1 . 5..+..C
(I)..R(8)..+... I..+..A.0.G+... I.1 . 5.
U+... J.1 . 5..+J.. J..I . 2290..+T.. C(
I)..C(J) . 2290..,..C(J)..R(8)..,..A.A.1
. ,... J.(,... I.9,... A.0 . 2220.G,...
I.1 . 5.Z,..C$(I).L$(C(I)).B,$.. I.H,...
.|,8.. SUB FOR DUPES..,B.. I.1 . 5..,L.A
..R(8)..,V.C$(I).L$(A)..,`.. I..,J...P,T
.. SUB TO INCLUDE SPACES..,~.. I.1 . 5..
,..A..R(9)..,..C$(I).L$(A)..-... I..-...
.!-... SUB TO SCORE WHITE.)-..K.1.7-D..
I.1 . 5.B-N.P(I).0.J-X.. I.X-... I.1 . 5
.F-... J.1 . 5.W-... K.1 . 2600..-..L.K.
1..-... M.1 . L..-... J.P(M) . 2610..-..
. M.D-(.. G$(J).C$(I) . 2630.L-2.. J.W-<
.. 2660..-F.P(K).J..-P.S$(K)."Q"..-Z.K.K
.1...D.. I...N...!.X.. SUB TO SCORE BLAC
K.)...K.1.7.... I.1 . 5.Q.... G$(I)..C$(
I) . 2740._. .S$(K)."W".I...K.K.1.Q....
I.W.......H.. WRITE SCORE LINE.P.R.. "."
;H(D$,N.3);".............";S$(1);S$(2);S
$(3);S$(4);S$(5).V.......... DRAW PLAYIN
G BOARD../...". ..................".&/..
." . . . .".A/..." ..........
........".P/... I.1 . 20.K/..." . .
. .".S/".. I../,.." .............
....."../6..".....#..GUESS..SCORE...S U
P E R "../@...L/J.. I.1 . 20.X/T.."..";I
../^.. I../_..".........".24);"R : RED".
.0`...24);"O : ORANGE.+0A...24);"Y : YEL
LOW.@0B...24);"G : GREEN.T0C...24);"B :
BLUE.G0D...24);"T : TAN.}0E...24);"P : P
URPLE..0F...24);"W : WHITE..0G...24);"-
: BLANK..0H.. I.1 . 20.B0R.. N$(I)..0|..
H(D$,I.3);.19);N$(I)..0... I..0.....1..
. "M"," ","A"," ","S"," ","T"," ","E","
","R".G1... " ","M"," ","I"," ","N"," ",
"D"," ".M1....D14.SP$.".....":UR$.""..15
.. H(D$,N.3);".....";H(SP$,1);UR$;..1:.U
S$."PRGBWTYO-H"..1D.UL.5..1N.. 42.G1S..
C(UR$).5 . 3125.U1X.. J.1 . 5..1B. G$(J
).J(UR$,J,1)..1L.. J..1V....2P..".......
..".24);" ".02Z...24);" "
.G2....24);" ".^2....24);"
".U2....24);" "..2....24);
" "..2....24);" "..2..
..24);" ".Q2....24);"
"..2J...24);" "..2T...24);"
"..3......
> CLICK IMAGE PREVIEW FOR FULL MODAL