MASTERMIND
FILE INFORMATION
FILENAME(S): MASTERMIND
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-12-01 02:21:53
APPEARS ON: 1 disk(s)
FILE HASH
7e47487485b36aa509b7713113dae6c61a4b46cd6554d3465ecc510982449592
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 31 GAMES | MASTERMIND | PRG | hedning, scooby | 30 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 05 00 99 C7 28 31 34 32 29 00 34 08 |........(142).4.|
00000010: 0A 00 8F 20 31 30 2F 32 33 2F 38 35 20 20 22 4D |... 10/23/85 "M|
00000020: 41 53 54 45 52 4D 49 4E 44 22 20 20 44 2E 48 45 |ASTERMIND" D.HE|
00000030: 41 4C 45 59 00 3A 08 65 00 9C 00 5A 08 C8 00 8F |ALEY.:.e...Z....|
00000040: 20 2A 2A 2A 2A 2A 2A 4D 41 49 4E 20 50 52 4F 47 | ******MAIN PROG|
00000050: 52 41 4D 2A 2A 2A 2A 2A 2A 2A 00 9A 08 D2 00 99 |RAM*******......|
00000060: 22 93 11 11 11 11 11 1D 1D 1D 1D 1D 57 45 4C 43 |"...........WELC|
00000070: 4F 4D 45 20 54 4F 11 11 9D 9D 9D 9D 54 48 45 20 |OME TO......THE |
00000080: 44 45 56 49 4F 55 53 11 11 9D 9D 9D 9D 57 4F 52 |DEVIOUS......WOR|
00000090: 4C 44 20 4F 46 20 54 48 45 22 00 C0 08 DC 00 99 |LD OF THE"......|
000000A0: 22 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000000B0: 1D 1D 1D 9E 4D 41 53 54 45 52 4D 49 4E 44 9A 22 |....MASTERMIND."|
000000C0: 00 F6 08 E6 00 99 22 11 11 11 11 11 11 11 11 11 |......".........|
000000D0: 1D 1D 1D 44 4F 20 59 4F 55 20 4E 45 45 44 20 49 |...DO YOU NEED I|
000000E0: 4E 53 54 52 55 43 54 49 4F 4E 53 20 20 59 20 4F |NSTRUCTIONS Y O|
000000F0: 52 20 4E 20 3F 22 00 03 09 F0 00 8F 20 52 45 50 |R N ?"...... REP|
00000100: 45 41 54 00 1C 09 FA 00 A1 20 41 24 3A 8B 20 41 |EAT...... A$:. A|
00000110: 24 B2 22 22 20 A7 20 89 20 32 35 30 00 3A 09 04 |$."" . . 250.:..|
00000120: 01 8B 20 41 24 B3 B1 22 59 22 20 AF 20 41 24 B3 |.. A$.."Y" . A$.|
00000130: B1 22 4E 22 20 A7 20 32 34 30 00 57 09 0E 01 8F |."N" . 240.W....|
00000140: 20 55 4E 54 49 4C 20 41 24 3D 22 59 22 20 4F 52 | UNTIL A$="Y" OR|
00000150: 20 41 24 3D 22 4E 22 00 6E 09 18 01 8B 20 41 24 | A$="N".n.... A$|
00000160: B2 22 59 22 20 A7 20 8D 20 31 30 35 30 30 00 74 |."Y" . . 10500.t|
00000170: 09 22 01 8F 00 7F 09 27 01 88 20 53 43 B2 30 00 |.".....'.. SC.0.|
00000180: B1 09 2C 01 99 22 93 11 11 11 11 11 11 11 11 1D |..,.."..........|
00000190: 1D 1D 1D 1D 1D 49 20 41 4D 20 54 48 49 4E 4B 49 |.....I AM THINKI|
000001A0: 4E 47 20 4F 46 20 46 4F 55 52 20 43 55 42 45 53 |NG OF FOUR CUBES|
000001B0: 22 00 BF 09 36 01 81 20 49 B2 31 A4 20 31 30 00 |"...6.. I.1. 10.|
000001C0: DB 09 40 01 99 22 91 22 3B A3 31 31 29 22 05 12 |..@..".";.11)"..|
000001D0: 54 48 49 4E 4B 49 4E 47 92 90 22 00 EB 09 4A 01 |THINKING.."...J.|
000001E0: 81 20 51 B2 31 A4 35 30 3A 82 51 00 04 0A 54 01 |. Q.1.50:.Q...T.|
000001F0: 99 22 91 22 3B A3 31 31 29 22 54 48 49 4E 4B 49 |.".";.11)"THINKI|
00000200: 4E 47 9A 22 00 14 0A 5E 01 81 20 51 B2 31 A4 35 |NG."...^.. Q.1.5|
00000210: 30 3A 82 51 00 1B 0A 68 01 82 49 00 4F 0A 72 01 |0:.Q...h..I.O.r.|
00000220: 99 22 11 11 9E 4F 4B 21 20 4F 4E 4C 59 20 49 20 |."...OK! ONLY I |
00000230: 4B 4E 4F 57 20 54 48 45 20 53 4F 4C 55 54 49 4F |KNOW THE SOLUTIO|
00000240: 4E 20 47 55 45 53 53 20 41 57 41 59 21 9A 22 00 |N GUESS AWAY!.".|
00000250: 5D 0A 86 01 81 20 49 B2 20 31 A4 20 34 00 74 0A |].... I. 1. 4.t.|
00000260: 90 01 88 20 53 28 49 29 B2 B5 28 BB 28 31 29 AC |... S(I)..(.(1).|
00000270: 36 29 AA 31 00 7C 0A 9A 01 82 20 49 00 87 0A A4 |6).1.|.... I....|
00000280: 01 88 20 57 4E B2 30 00 98 0A AE 01 8F 20 57 48 |.. WN.0...... WH|
00000290: 49 4C 45 20 57 4E 3D 30 00 AA 0A B8 01 8B 20 57 |ILE WN=0...... W|
000002A0: 4E B3 B1 30 20 A7 20 34 38 30 00 B5 0A C2 01 8D |N..0 . 480......|
000002B0: 20 36 30 30 30 00 BB 0A CC 01 8F 00 C5 0A D6 01 | 6000...........|
000002C0: 89 20 34 33 30 00 D4 0A E0 01 8F 20 45 4E 44 57 |. 430...... ENDW|
000002D0: 48 49 4C 45 00 DF 0A EA 01 8D 20 38 30 30 30 00 |HILE...... 8000.|
000002E0: E5 0A F4 01 8F 00 F8 0A FE 01 8B 20 41 24 B2 22 |........... A$."|
000002F0: 59 22 20 A7 20 32 39 30 00 03 0B 08 02 99 22 93 |Y" . 290......".|
00000300: 22 3A 80 00 25 0B 88 13 8F 20 2A 2A 2A 2A 2A 2A |":..%.... ******|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000320: 2A 2A 2A 2A 2A 00 3B 0B 92 13 8F 20 20 20 44 49 |*****.;.... DI|
00000330: 53 50 4C 41 59 20 43 55 42 45 53 00 5F 0B 9C 13 |SPLAY CUBES._...|
00000340: 99 A3 39 29 3B C7 28 33 32 29 3B C7 28 31 31 34 |..9);.(32);.(114|
00000350: 29 3B C7 28 31 31 34 29 3B C7 28 33 32 29 3B 00 |);.(114);.(32);.|
00000360: 87 0B A6 13 99 C7 28 31 37 29 3B C7 28 31 35 37 |......(17);.(157|
00000370: 29 3B C7 28 31 35 37 29 3B C7 28 31 35 37 29 3B |);.(157);.(157);|
00000380: C7 28 31 35 37 29 3B 00 A8 0B B0 13 99 C7 28 31 |.(157);.......(1|
00000390: 31 30 29 3B C7 28 33 32 29 3B C7 28 31 31 30 29 |10);.(32);.(110)|
000003A0: 3B C7 28 31 36 35 29 3B 00 D0 0B BA 13 99 C7 28 |;.(165);.......(|
000003B0: 31 37 29 3B C7 28 31 35 37 29 3B C7 28 31 35 37 |17);.(157);.(157|
000003C0: 29 3B C7 28 31 35 37 29 3B C7 28 31 35 37 29 3B |);.(157);.(157);|
000003D0: 00 F1 0B C4 13 99 C7 28 31 31 31 29 3B C7 28 31 |.......(111);.(1|
000003E0: 31 32 29 3B C7 28 33 32 29 3B C7 28 31 36 35 29 |12);.(32);.(165)|
000003F0: 3B 00 19 0C CE 13 99 C7 28 31 37 29 3B C7 28 31 |;.......(17);.(1|
00000400: 35 37 29 3B C7 28 31 35 37 29 3B C7 28 31 35 37 |57);.(157);.(157|
00000410: 29 3B C7 28 31 35 37 29 3B 00 3A 0C D8 13 99 C7 |);.(157);.:.....|
00000420: 28 31 30 38 29 3B C7 28 31 38 36 29 3B C7 28 31 |(108);.(186);.(1|
00000430: 31 30 29 3B C7 28 33 32 29 3B 00 5C 0C E2 13 99 |10);.(32);.\....|
00000440: C7 28 31 35 37 29 3B C7 28 31 34 35 29 3B C7 28 |.(157);.(145);.(|
00000450: 31 34 35 29 3B C7 28 31 34 35 29 3B 00 67 0C EC |145);.(145);.g..|
00000460: 13 8D 20 39 30 30 30 00 6D 0C F6 13 8F 00 73 0C |.. 9000.m.....s.|
00000470: 00 14 8E 00 90 0C 70 17 8F 20 2A 2A 2A 2A 2A 2A |......p.. ******|
00000480: 54 55 52 4E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |TURN************|
00000490: 00 9B 0C 71 17 88 20 43 42 B2 30 00 A6 0C 72 17 |...q.. CB.0...r.|
000004A0: 88 20 43 57 B2 30 00 B0 0C 73 17 88 20 48 B2 30 |. CW.0...s.. H.0|
000004B0: 00 BD 0C 75 17 81 20 5A B2 20 31 A4 34 00 CA 0C |...u.. Z. 1.4...|
000004C0: 7A 17 8F 20 52 45 50 45 41 54 00 E2 0C 84 17 A1 |z.. REPEAT......|
000004D0: 20 47 24 3A 8B 20 47 24 B2 22 22 20 A7 20 36 30 | G$:. G$."" . 60|
000004E0: 32 30 00 F0 0C 89 17 88 20 47 B2 C5 28 47 24 29 |20...... G..(G$)|
000004F0: 00 07 0D 8E 17 8B 47 B2 20 31 20 B0 20 47 B2 20 |......G. 1 . G. |
00000500: 32 20 A7 36 30 37 30 00 1E 0D 98 17 8B 47 B2 20 |2 .6070......G. |
00000510: 33 20 B0 20 47 B2 20 34 20 A7 36 30 37 30 00 35 |3 . G. 4 .6070.5|
00000520: 0D A2 17 8B 47 B2 20 35 20 B0 20 47 B2 20 36 20 |....G. 5 . G. 6 |
00000530: A7 36 30 37 30 00 40 0D AC 17 89 20 36 30 31 30 |.6070.@.... 6010|
00000540: 00 5B 0D B6 17 8F 20 55 4E 54 49 4C 20 47 24 3D |.[.... UNTIL G$=|
00000550: 56 41 4C 49 44 20 43 4F 4C 4F 52 00 83 0D B7 17 |VALID COLOR.....|
00000560: 91 20 47 20 89 20 36 30 37 32 2C 36 30 37 33 2C |. G . 6072,6073,|
00000570: 36 30 37 34 2C 36 30 37 35 2C 36 30 37 36 2C 36 |6074,6075,6076,6|
00000580: 30 37 37 00 9A 0D B8 17 88 20 43 24 B2 C7 28 31 |077...... C$..(1|
00000590: 34 34 29 3A 89 20 36 30 37 39 00 AF 0D B9 17 88 |44):. 6079......|
000005A0: 20 43 24 B2 C7 28 35 29 3A 89 20 36 30 37 39 00 | C$..(5):. 6079.|
000005B0: C5 0D BA 17 88 20 43 24 B2 C7 28 32 38 29 3A 89 |..... C$..(28):.|
000005C0: 20 36 30 37 39 00 DC 0D BB 17 88 20 43 24 B2 C7 | 6079...... C$..|
000005D0: 28 31 35 39 29 3A 89 20 36 30 37 39 00 F3 0D BC |(159):. 6079....|
000005E0: 17 88 20 43 24 B2 C7 28 31 35 36 29 3A 89 20 36 |.. C$..(156):. 6|
000005F0: 30 37 39 00 09 0E BD 17 88 20 43 24 B2 C7 28 33 |079...... C$..(3|
00000600: 30 29 3A 89 20 36 30 37 39 00 0F 0E BF 17 8F 00 |0):. 6079.......|
00000610: 1C 0E C0 17 88 20 47 28 5A 29 B2 47 00 25 0E CA |..... G(Z).G.%..|
00000620: 17 99 43 24 3B 00 30 0E D4 17 8D 20 35 30 30 30 |..C$;.0.... 5000|
00000630: 00 36 0E DE 17 8F 00 47 0E E8 17 99 22 9A 22 3B |.6.....G....".";|
00000640: 3A 8F 20 42 4C 55 45 00 4F 0E F2 17 82 20 5A 00 |:. BLUE.O.... Z.|
00000650: 73 0E F7 17 8F 20 2A 2A 2A 43 4B 20 47 55 45 53 |s.... ***CK GUES|
00000660: 53 20 46 4F 52 20 43 4F 52 52 45 43 54 4E 45 53 |S FOR CORRECTNES|
00000670: 53 2A 2A 00 7E 0E 10 18 81 49 B2 31 A4 34 00 96 |S**.~....I.1.4..|
00000680: 0E 1A 18 8B 20 47 28 49 29 B3 B1 53 28 49 29 20 |.... G(I)..S(I) |
00000690: A7 20 36 31 39 30 00 A1 0E 1F 18 8F 20 45 4C 53 |. 6190...... ELS|
000006A0: 45 00 AF 0E 24 18 88 20 43 42 B2 43 42 AA 31 00 |E...$.. CB.CB.1.|
000006B0: BA 0E 29 18 89 20 36 32 39 30 00 C5 0E 2E 18 8F |..).. 6290......|
000006C0: 20 54 48 45 4E 00 D9 0E 38 18 8B 20 48 B2 47 28 | THEN...8.. H.G(|
000006D0: 49 29 20 A7 20 36 32 39 30 00 E7 0E 42 18 88 20 |I) . 6290...B.. |
000006E0: 48 B2 20 47 28 49 29 00 F2 0E 4C 18 88 20 43 54 |H. G(I)...L.. CT|
000006F0: B2 31 00 04 0F 56 18 8F 20 57 48 49 4C 45 20 43 |.1...V.. WHILE C|
00000700: 54 3C 3D 34 00 16 0F 60 18 8B 20 43 54 B1 34 20 |T<=4...`.. CT.4 |
00000710: A7 20 36 32 38 35 00 2B 0F 6A 18 8B 20 48 B3 B1 |. 6285.+.j.. H..|
00000720: 53 28 43 54 29 A7 20 36 32 37 30 00 39 0F 74 18 |S(CT). 6270.9.t.|
00000730: 88 20 43 57 B2 43 57 AA 31 00 62 0F 75 18 8B 20 |. CW.CW.1.b.u.. |
00000740: 48 B2 47 28 49 AA 31 29 20 AF 20 47 28 49 AA 31 |H.G(I.1) . G(I.1|
00000750: 29 B2 53 28 49 AA 31 29 20 A7 20 43 57 B2 43 57 |).S(I.1) . CW.CW|
00000760: AB 31 00 8A 0F 76 18 8B 20 48 B2 47 28 49 AB 31 |.1...v.. H.G(I.1|
00000770: 29 AF 20 47 28 49 AB 31 29 B2 53 28 49 AB 31 29 |). G(I.1).S(I.1)|
00000780: 20 A7 20 43 57 B2 43 57 AB 31 00 95 0F 79 18 88 | . CW.CW.1...y..|
00000790: 20 43 54 B2 34 00 A1 0F 7E 18 8F 20 45 4E 44 49 | CT.4...~.. ENDI|
000007A0: 46 00 AF 0F 83 18 88 20 43 54 B2 43 54 AA 31 00 |F...... CT.CT.1.|
000007B0: BA 0F 88 18 89 20 36 32 33 30 00 C9 0F 8D 18 8F |..... 6230......|
000007C0: 20 45 4E 44 57 48 49 4C 45 00 D5 0F 92 18 8F 20 | ENDWHILE...... |
000007D0: 45 4E 44 49 46 00 DD 0F 97 18 82 20 49 00 FF 0F |ENDIF...... I...|
000007E0: 9C 18 8F 20 2A 2A 2A 2A 53 45 54 20 55 50 20 48 |... ****SET UP H|
000007F0: 49 4E 54 20 41 52 52 41 59 2A 2A 2A 2A 2A 2A 00 |INT ARRAY******.|
00000800: 11 10 A6 18 8B 20 43 42 B2 34 20 A7 20 57 4E B2 |..... CB.4 . WN.|
00000810: 31 00 1B 10 B0 18 88 20 49 B2 31 00 2E 10 BA 18 |1...... I.1.....|
00000820: 8F 20 57 48 49 4C 45 20 43 42 20 3E 20 30 00 43 |. WHILE CB > 0.C|
00000830: 10 C4 18 8B 20 43 42 20 B3 B2 20 30 20 A7 20 36 |.... CB .. 0 . 6|
00000840: 33 39 30 00 5D 10 CE 18 88 20 48 24 28 49 29 B2 |390.].... H$(I).|
00000850: C7 28 31 34 34 29 AA C7 28 31 31 33 29 00 6B 10 |.(144)..(113).k.|
00000860: D8 18 88 20 43 42 B2 43 42 AB 31 00 77 10 E2 18 |... CB.CB.1.w...|
00000870: 88 20 49 B2 49 AA 31 00 82 10 EC 18 89 20 36 33 |. I.I.1...... 63|
00000880: 33 30 00 91 10 F6 18 8F 20 45 4E 44 57 48 49 4C |30...... ENDWHIL|
00000890: 45 00 A4 10 00 19 8F 20 57 48 49 4C 45 20 43 57 |E...... WHILE CW|
000008A0: 20 3E 20 30 00 B9 10 0A 19 8B 20 43 57 20 B3 B2 | > 0...... CW ..|
000008B0: 20 30 20 A7 20 36 34 36 30 00 D1 10 14 19 88 20 | 0 . 6460...... |
000008C0: 48 24 28 49 29 B2 C7 28 35 29 AA C7 28 31 31 33 |H$(I)..(5)..(113|
000008D0: 29 00 DF 10 1E 19 88 20 43 57 B2 43 57 AB 31 00 |)...... CW.CW.1.|
000008E0: EB 10 28 19 88 20 49 B2 49 AA 31 00 F6 10 32 19 |..(.. I.I.1...2.|
000008F0: 89 20 36 34 30 30 00 05 11 3C 19 8F 20 45 4E 44 |. 6400...<.. END|
00000900: 57 48 49 4C 45 00 18 11 46 19 8F 20 57 48 49 4C |WHILE...F.. WHIL|
00000910: 45 20 49 20 3C 3D 20 34 00 2B 11 50 19 8B 20 49 |E I <= 4.+.P.. I|
00000920: 20 B1 20 34 20 A7 20 36 35 32 30 00 44 11 5A 19 | . 4 . 6520.D.Z.|
00000930: 88 20 48 24 28 49 29 20 B2 20 C7 28 35 29 AA C7 |. H$(I) . .(5)..|
00000940: 28 37 39 29 00 50 11 64 19 88 20 49 B2 49 AA 31 |(79).P.d.. I.I.1|
00000950: 00 5B 11 6E 19 89 20 36 34 37 30 00 6A 11 78 19 |.[.n.. 6470.j.x.|
00000960: 8F 20 45 4E 44 57 48 49 4C 45 00 89 11 58 1B 8F |. ENDWHILE...X..|
00000970: 20 2A 2A 2A 2A 20 44 49 53 50 4C 41 59 20 48 49 | **** DISPLAY HI|
00000980: 4E 54 53 20 2A 2A 2A 2A 2A 00 C5 11 62 1B 99 22 |NTS *****...b.."|
00000990: 11 1D 1D 1D 1D 22 3B 48 24 28 31 29 3B 22 1D 1D |.....";H$(1);"..|
000009A0: 22 3B 48 24 28 32 29 3B 22 11 11 9D 9D 9D 9D 22 |";H$(2);"......"|
000009B0: 3B 48 24 28 33 29 3B 22 1D 1D 22 3B 48 24 28 34 |;H$(3);"..";H$(4|
000009C0: 29 3B 22 9A 22 00 D3 11 67 1B 88 20 53 43 B2 53 |);"."...g.. SC.S|
000009D0: 43 AA 31 00 D9 11 6C 1B 8E 00 F7 11 40 1F 8F 20 |C.1...l.....@.. |
000009E0: 2A 2A 2A 2A 2A 2A 57 49 4E 20 52 54 4E 2A 2A 2A |******WIN RTN***|
000009F0: 2A 2A 2A 2A 2A 2A 2A 00 10 12 4A 1F 81 20 49 B2 |*******...J.. I.|
00000A00: 31 A4 34 30 30 3A 82 49 3A 8F 20 44 45 4C 41 59 |1.400:.I:. DELAY|
00000A10: 00 3E 12 54 1F 99 22 93 11 11 11 11 11 11 11 11 |.>.T..".........|
00000A20: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000A30: 1D 12 90 59 4F 55 20 57 49 4E 21 92 9A 22 00 4B |...YOU WIN!..".K|
00000A40: 12 5E 1F 81 20 58 58 B2 31 A4 35 00 5A 12 68 1F |.^.. XX.1.5.Z.h.|
00000A50: 97 20 35 33 32 38 30 2C 58 58 00 69 12 72 1F 97 |. 53280,XX.i.r..|
00000A60: 20 35 33 32 38 31 2C 58 58 00 75 12 7C 1F 8D 20 | 53281,XX.u.|.. |
00000A70: 31 30 30 30 30 00 7B 12 86 1F 8F 00 84 12 90 1F |10000.{.........|
00000A80: 82 20 58 58 00 92 12 9A 1F 97 35 33 32 38 30 2C |. XX......53280,|
00000A90: 31 34 00 9F 12 A4 1F 97 35 33 32 38 31 2C 36 00 |14......53281,6.|
00000AA0: C2 12 A9 1F 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D |....."..........|
00000AB0: 1D 1D 1D 1D 1D 1D 90 53 43 4F 52 45 20 3D 20 22 |.......SCORE = "|
00000AC0: 53 43 00 F6 12 AE 1F 99 22 11 11 11 11 11 11 11 |SC......".......|
00000AD0: 9A 20 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 |. DO YOU WANT T|
00000AE0: 4F 20 50 4C 41 59 20 41 47 41 49 4E 20 59 20 4F |O PLAY AGAIN Y O|
00000AF0: 52 20 4E 20 3F 22 00 03 13 B8 1F 8F 20 52 45 50 |R N ?"...... REP|
00000B00: 45 41 54 00 1B 13 C2 1F A1 20 41 24 3A 8B 20 41 |EAT...... A$:. A|
00000B10: 24 B2 22 22 20 A7 20 38 31 33 30 00 3A 13 CC 1F |$."" . 8130.:...|
00000B20: 8B 20 41 24 B3 B1 22 59 22 20 AF 20 41 24 B3 B1 |. A$.."Y" . A$..|
00000B30: 22 4E 22 20 A7 20 38 31 32 30 00 57 13 D6 1F 8F |"N" . 8120.W....|
00000B40: 20 55 4E 54 49 4C 20 41 24 3D 22 59 22 20 4F 52 | UNTIL A$="Y" OR|
00000B50: 20 41 24 3D 22 4E 22 00 5D 13 E0 1F 8E 00 74 13 | A$="N".].....t.|
00000B60: 28 23 8F 20 2A 2A 2A 2A 2A 2A 53 4F 55 4E 44 2A |(#. ******SOUND*|
00000B70: 2A 2A 2A 2A 00 98 13 32 23 81 4C B2 35 34 32 37 |****...2#.L.5427|
00000B80: 32 A4 35 34 32 39 35 3A 97 4C 2C 30 3A 82 3A 97 |2.54295:.L,0:.:.|
00000B90: 35 34 32 39 36 2C 31 35 00 BA 13 3C 23 97 35 34 |54296,15...<#.54|
00000BA0: 32 37 37 2C 38 3A 97 35 34 32 37 38 2C 32 32 35 |277,8:.54278,225|
00000BB0: 3A 97 35 34 32 37 36 2C 32 33 00 C8 13 46 23 97 |:.54276,23...F#.|
00000BC0: 35 34 32 38 37 2C 34 30 00 D8 13 50 23 8F 20 46 |54287,40...P#. F|
00000BD0: 4F 52 5A 3D 31 54 4F 34 00 F7 13 5A 23 81 46 31 |ORZ=1TO4...Z#.F1|
00000BE0: B2 32 35 35 A4 30 A9 AB 36 3A 97 35 34 32 37 33 |.255.0..6:.54273|
00000BF0: 2C 46 31 3A 82 46 31 00 16 14 64 23 81 46 31 B2 |,F1:.F1...d#.F1.|
00000C00: 30 A4 32 35 35 A9 32 30 3A 97 35 34 32 37 33 2C |0.255.20:.54273,|
00000C10: 46 31 3A 82 46 31 00 22 14 6E 23 8F 20 4E 45 58 |F1:.F1.".n#. NEX|
00000C20: 54 5A 00 30 14 78 23 97 35 34 32 37 38 2C 31 35 |TZ.0.x#.54278,15|
00000C30: 00 36 14 82 23 8E 00 51 14 10 27 8F 20 2A 2A 2A |.6..#..Q..'. ***|
00000C40: 2A 2A 2A 2A 53 4F 55 4E 44 2A 2A 2A 2A 2A 2A 2A |****SOUND*******|
00000C50: 2A 00 75 14 1A 27 81 4C B2 35 34 32 37 32 A4 35 |*.u..'.L.54272.5|
00000C60: 34 32 39 35 3A 97 4C 2C 30 3A 82 3A 97 35 34 32 |4295:.L,0:.:.542|
00000C70: 39 36 2C 31 35 00 97 14 24 27 97 35 34 32 37 37 |96,15...$'.54277|
00000C80: 2C 38 3A 97 35 34 32 37 38 2C 32 35 35 3A 97 35 |,8:.54278,255:.5|
00000C90: 34 32 37 36 2C 32 33 00 A0 14 2E 27 46 31 B2 32 |4276,23....'F1.2|
00000CA0: 00 B0 14 38 27 81 59 B2 31 A4 33 3A 46 32 B2 38 |...8'.Y.1.3:F2.8|
00000CB0: 00 BE 14 42 27 97 35 34 32 37 33 2C 46 31 00 D3 |...B'.54273,F1..|
00000CC0: 14 4C 27 81 58 B2 31 A4 35 3A 97 35 34 32 38 37 |.L'.X.1.5:.54287|
00000CD0: 2C 46 32 00 F1 14 56 27 46 32 B2 46 32 AC 31 2E |,F2...V'F2.F2.1.|
00000CE0: 34 3A 82 58 3A 46 31 B2 46 31 AC 31 2E 35 3A 82 |4:.X:F1.F1.1.5:.|
00000CF0: 59 00 07 15 60 27 81 57 B2 31 A4 31 30 3A 97 35 |Y...`'.W.1.10:.5|
00000D00: 34 32 38 37 2C 46 32 00 23 15 6A 27 46 32 B2 46 |4287,F2.#.j'F2.F|
00000D10: 32 AC 31 2E 30 35 3A 82 57 3A 97 35 34 32 37 38 |2.1.05:.W:.54278|
00000D20: 2C 31 35 00 29 15 74 27 8E 00 48 15 04 29 8F 20 |,15.).t'..H..). |
00000D30: 2A 2A 2A 2A 49 4E 53 54 52 55 43 54 49 4F 4E 53 |****INSTRUCTIONS|
00000D40: 2A 2A 2A 2A 2A 2A 2A 2A 00 6A 15 0E 29 99 22 11 |********.j..).".|
00000D50: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 12 05 48 4F 57 20 |............HOW |
00000D60: 54 4F 20 50 4C 41 59 92 9A 22 00 96 15 18 29 99 |TO PLAY.."....).|
00000D70: 22 11 11 11 54 48 45 20 43 4F 4D 50 55 54 45 52 |"...THE COMPUTER|
00000D80: 20 57 49 4C 4C 20 54 48 49 4E 4B 20 4F 46 20 41 | WILL THINK OF A|
00000D90: 20 43 4F 44 45 22 00 C5 15 22 29 99 22 43 4F 4E | CODE"...")."CON|
00000DA0: 53 49 53 54 49 4E 47 20 4F 46 20 4F 4E 45 20 54 |SISTING OF ONE T|
00000DB0: 4F 20 46 4F 55 52 20 43 4F 4C 4F 52 53 20 46 52 |O FOUR COLORS FR|
00000DC0: 4F 4D 20 41 22 00 F1 15 2C 29 99 22 50 4F 53 53 |OM A"...,)."POSS|
00000DD0: 49 42 4C 45 20 53 49 58 2E 20 20 59 4F 55 20 4D |IBLE SIX. YOU M|
00000DE0: 55 53 54 20 54 52 59 20 54 4F 20 47 55 45 53 53 |UST TRY TO GUESS|
00000DF0: 22 00 1C 16 36 29 99 22 57 48 49 43 48 20 43 4F |"...6)."WHICH CO|
00000E00: 4C 4F 52 53 20 41 4E 44 20 49 4E 20 57 48 41 54 |LORS AND IN WHAT|
00000E10: 20 4F 52 44 45 52 20 54 48 45 59 22 00 45 16 40 | ORDER THEY".E.@|
00000E20: 29 99 22 4F 43 43 55 52 2E 20 20 54 48 45 52 45 |)."OCCUR. THERE|
00000E30: 20 57 49 4C 4C 20 41 4C 57 41 59 53 20 42 45 20 | WILL ALWAYS BE |
00000E40: 46 4F 55 52 22 00 73 16 4A 29 99 22 42 55 54 20 |FOUR".s.J)."BUT |
00000E50: 41 20 43 4F 4C 4F 52 20 4D 41 59 20 41 50 50 45 |A COLOR MAY APPE|
00000E60: 41 52 20 4D 4F 52 45 20 54 48 41 4E 20 4F 4E 43 |AR MORE THAN ONC|
00000E70: 45 2E 22 00 A1 16 54 29 99 3A 99 22 54 4F 20 45 |E."...T).:."TO E|
00000E80: 4E 54 45 52 20 41 20 47 55 45 53 53 20 50 52 45 |NTER A GUESS PRE|
00000E90: 53 53 20 41 20 4E 55 4D 45 52 49 43 20 4B 45 59 |SS A NUMERIC KEY|
00000EA0: 22 00 CD 16 5E 29 99 22 46 52 4F 4D 20 9E 31 20 |"...^)."FROM .1 |
00000EB0: 9A 54 4F 20 9E 36 9A 2E 20 54 48 45 20 4B 45 59 |.TO .6.. THE KEY|
00000EC0: 20 43 4F 52 52 45 53 50 4F 4E 44 53 22 00 F6 16 | CORRESPONDS"...|
00000ED0: 68 29 99 22 54 4F 20 54 48 45 20 43 4F 4C 4F 52 |h)."TO THE COLOR|
00000EE0: 20 50 52 49 4E 54 45 44 20 4F 4E 20 49 54 53 20 | PRINTED ON ITS |
00000EF0: 46 41 43 45 2E 22 00 26 17 72 29 99 3A 99 22 41 |FACE.".&.r).:."A|
00000F00: 46 54 45 52 20 45 41 43 48 20 43 4F 4D 50 4C 45 |FTER EACH COMPLE|
00000F10: 54 45 20 47 55 45 53 53 20 28 34 20 4B 45 59 53 |TE GUESS (4 KEYS|
00000F20: 29 20 54 48 45 22 00 53 17 7C 29 99 22 43 4F 4D |) THE".S.|)."COM|
00000F30: 50 55 54 45 52 20 57 49 4C 4C 20 54 45 4C 4C 20 |PUTER WILL TELL |
00000F40: 48 4F 57 20 43 4C 4F 53 45 20 59 4F 55 20 43 41 |HOW CLOSE YOU CA|
00000F50: 4D 45 22 00 84 17 86 29 99 22 42 59 20 44 49 53 |ME"....)."BY DIS|
00000F60: 50 4C 41 59 49 4E 47 20 90 D1 9A 20 46 4F 52 20 |PLAYING ... FOR |
00000F70: 45 41 43 48 20 43 4F 52 52 45 43 54 20 47 55 45 |EACH CORRECT GUE|
00000F80: 53 53 2C 22 00 B6 17 90 29 99 22 05 4F 9A 20 46 |SS,"....).".O. F|
00000F90: 4F 52 20 45 41 43 48 20 57 52 4F 4E 47 20 47 55 |OR EACH WRONG GU|
00000FA0: 45 53 53 2C 20 41 4E 44 20 05 D1 9A 20 46 4F 52 |ESS, AND ... FOR|
00000FB0: 20 45 41 43 48 22 00 E5 17 9A 29 99 22 43 4F 4C | EACH"....)."COL|
00000FC0: 4F 52 20 54 48 41 54 20 49 53 20 52 49 47 48 54 |OR THAT IS RIGHT|
00000FD0: 20 42 55 54 20 49 53 20 49 4E 20 54 48 45 20 57 | BUT IS IN THE W|
00000FE0: 52 4F 4E 47 22 00 12 18 A4 29 99 22 50 4F 53 49 |RONG"....)."POSI|
00000FF0: 54 49 4F 4E 2E 20 20 4E 4F 57 20 50 52 45 53 53 |TION. NOW PRESS|
00001000: 20 41 4E 59 20 4B 45 59 20 54 4F 20 42 45 47 49 | ANY KEY TO BEGI|
00001010: 4E 22 00 2B 18 AE 29 A1 20 41 24 3A 8B 20 41 24 |N".+..). A$:. A$|
00001020: B2 22 22 20 A7 20 31 30 36 37 30 00 31 18 B8 29 |."" . 10670.1..)|
00001030: 8E 00 00 00 |.... |
.......G(142).4.... 10/23/85 "MASTERMIN
D" D.HEALEY.:.E...Z.H.. ******MAIN PROG
RAM*******...R.."...........WELCOME TO..
....THE DEVIOUS......WORLD OF THE"......
"...................MASTERMIND."......".
...........DO YOU NEED INSTRUCTIONS Y O
R N ?"...... REPEAT...... A$:. A$."" . .
250.:.... A$.."Y" . A$.."N" . 240.W....
UNTIL A$="Y" OR A$="N".N.... A$."Y" . .
10500.T."....'.. SC.0...,.."..........
.....I AM THINKING OF FOUR CUBES"...6..
I.1. 10...@..".";.11)"..THINKING.."...J.
. Q.1.50:.Q...T..".";.11)"THINKING."...^
.. Q.1.50:.Q...H..I.O.R.."...OK! ONLY I
KNOW THE SOLUTION GUESS AWAY!.".].... I.
1. 4.T.... S(I)..(.(1).6).1.|.... I....
.. WN.0...... WHILE WN=0...... WN..0 . 4
80...B.. 6000...L...E.V.. 430.T.... ENDW
HILE...... 8000............ A$."Y" . 290
......".":..%.... **********************
*****.;.... DISPLAY CUBES._.....9);G(3
2);G(114);G(114);G(32);......G(17);G(157
);G(157);G(157);G(157);......G(110);G(32
);G(110);G(165);.P....G(17);G(157);G(157
);G(157);G(157);...D..G(111);G(112);G(32
);G(165);...N..G(17);G(157);G(157);G(157
);G(157);.:.X..G(108);G(186);G(110);G(32
);.\....G(157);G(145);G(145);G(145);.G..
.. 9000.M.....S.......P.. ******TURN****
********...Q.. CB.0...R.. CW.0...S.. H.0
...U.. Z. 1.4.J.Z.. REPEAT...... G$:. G$
."" . 6020...... G.E(G$)......G. 1 . G.
2 .6070......G. 3 . G. 4 .6070.5....G. 5
. G. 6 .6070.@.... 6010.[.... UNTIL G$=
VALID COLOR...... G . 6072,6073,6074,607
5,6076,6077...... C$.G(144):. 6079......
C$.G(5):. 6079.E.... C$.G(28):. 6079...
... C$.G(159):. 6079...... C$.G(156):. 6
079...... C$.G(30):. 6079............ G(
Z).G.%.J..C$;.0.T.. 5000.6.....G....".";
:. BLUE.O.... Z.S.... ***CK GUESS FOR CO
RRECTNESS**.~....I.1.4...... G(I)..S(I)
. 6190...... ELSE...$.. CB.CB.1...).. 62
90.E.... THEN.Y.8.. H.G(I) . 6290...B..
H. G(I)...L.. CT.1...V.. WHILE CT<=4...`
.. CT.4 . 6285.+.J.. H..S(CT). 6270.9.T.
. CW.CW.1.B.U.. H.G(I.1) . G(I.1).S(I.1)
. CW.CW.1...V.. H.G(I.1). G(I.1).S(I.1)
. CW.CW.1...Y.. CT.4...~.. ENDIF......
CT.CT.1...... 6230.I.... ENDWHILE.U....
ENDIF...... I...... ****SET UP HINT ARRA
Y******...... CB.4 . WN.1...... I.1.....
. WHILE CB > 0.C.D.. CB .. 0 . 6390.].N.
. H$(I).G(144).G(113).K.X.. CB.CB.1.W...
. I.I.1...... 6330...... ENDWHILE......
WHILE CW > 0...... CW .. 0 . 6460.Q....
H$(I).G(5).G(113)...... CW.CW.1...(.. I.
I.1...2.. 6400...<.. ENDWHILE...F.. WHIL
E I <= 4.+.P.. I . 4 . 6520.D.Z.. H$(I)
. G(5).G(79).P.D.. I.I.1.[.N.. 6470.J.X.
. ENDWHILE...X.. **** DISPLAY HINTS ****
*.E.B..".....";H$(1);"..";H$(2);"......"
;H$(3);"..";H$(4);".".S.G.. SC.SC.1.Y.L.
....@.. ******WIN RTN**********...J.. I.
1.400:.I:. DELAY.>.T..".................
...........YOU WIN!..".K.^.. XX.1.5.Z.H.
. 53280,XX.I.R.. 53281,XX.U.|.. 10000.{.
......... XX......53280,14......53281,6.
B....".................SCORE = "SC......
"........ DO YOU WANT TO PLAY AGAIN Y O
R N ?"...... REPEAT...B.. A$:. A$."" . 8
130.:.L.. A$.."Y" . A$.."N" . 8120.W.V..
UNTIL A$="Y" OR A$="N".].....T.(#. ****
**SOUND*****...2#.L.54272.54295:.L,0:.:.
54296,15...<#.54277,8:.54278,225:.54276,
23.H.F#.54287,40.X.P#. FORZ=1TO4...Z#.F1
.255.0..6:.54273,F1:.F1...D#.F1.0.255.20
:.54273,F1:.F1.".N#. NEXTZ.0.X#.54278,15
.6..#..Q..'. *******SOUND********.U..'.L
.54272.54295:.L,0:.:.54296,15...$'.54277
,8:.54278,255:.54276,23. ..'F1.2...8'.Y.
1.3:F2.8...B'.54273,F1.S.L'.X.1.5:.54287
,F2...V'F2.F2.1.4:.X:F1.F1.1.5:.Y...`'.W
.1.10:.54287,F2.#.J'F2.F2.1.05:.W:.54278
,15.).T'..H..). ****INSTRUCTIONS********
.J..).".............HOW TO PLAY.."....).
"...THE COMPUTER WILL THINK OF A CODE".E
.")."CONSISTING OF ONE TO FOUR COLORS FR
OM A"...,)."POSSIBLE SIX. YOU MUST TRY
TO GUESS"...6)."WHICH COLORS AND IN WHAT
ORDER THEY".E.@)."OCCUR. THERE WILL AL
WAYS BE FOUR".S.J)."BUT A COLOR MAY APPE
AR MORE THAN ONCE."...T).:."TO ENTER A G
UESS PRESS A NUMERIC KEY".M.^)."FROM .1
.TO .6.. THE KEY CORRESPONDS"...H)."TO T
HE COLOR PRINTED ON ITS FACE.".&.R).:."A
FTER EACH COMPLETE GUESS (4 KEYS) THE".S
.|)."COMPUTER WILL TELL HOW CLOSE YOU CA
ME"....)."BY DISPLAYING .Q. FOR EACH COR
RECT GUESS,"....).".O. FOR EACH WRONG GU
ESS, AND .Q. FOR EACH"....)."COLOR THAT
IS RIGHT BUT IS IN THE WRONG"....)."POSI
TION. NOW PRESS ANY KEY TO BEGIN".+..).
A$:. A$."" . 10670.1..)....
> CLICK IMAGE PREVIEW FOR FULL MODAL