CONUNDRUM
FILE INFORMATION
FILENAME(S): CONUNDRUM
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 18:12:05
APPEARS ON: 1 disk(s)
FILE HASH
648ddd2932824f6326b93ad054f420f934890a4ecd23eac853f52434f4199b93
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 33 S 1 | CONUNDRUM | PRG | Sailor, Ganheden | 14 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 64 00 97 35 33 32 38 30 2C 2E 3A 97 |....d..53280,.:.| 00000010: 35 33 32 38 31 2C 2E 00 49 08 B4 00 99 20 C7 28 |53281,..I.... .(| 00000020: 31 34 32 29 22 93 11 11 11 11 22 3B A3 31 31 29 |142)".....";.11)| 00000030: 3B 22 9E 2A 2A 2A 20 12 20 43 4F 4E 55 4E 44 52 |;".*** . CONUNDR| 00000040: 55 4D 20 92 20 2A 2A 2A 22 00 5F 08 BE 00 99 20 |UM . ***"._.... | 00000050: 22 11 11 11 22 3B A3 31 39 29 3B 22 42 59 22 00 |"...";.19);"BY".| 00000060: 82 08 C8 00 99 20 22 11 11 22 3B A3 31 32 29 3B |..... "..";.12);| 00000070: 22 52 49 43 48 41 52 44 20 46 2E 20 44 41 4C 45 |"RICHARD F. DALE| 00000080: 59 22 00 93 08 D2 00 99 20 A3 31 38 29 3B 22 41 |Y"...... .18);"A| 00000090: 4E 44 22 00 B0 08 DC 00 99 20 A3 31 33 29 3B 22 |ND"...... .13);"| 000000A0: 53 41 4C 4C 59 20 4A 2E 20 44 41 4C 45 59 1E 22 |SALLY J. DALEY."| 000000B0: 00 FB 08 E6 00 47 4E 24 B2 22 1E 12 20 20 20 20 |.....GN$.".. | 000000C0: 20 92 11 9D 9D 9D 9D 9D 12 20 20 20 20 20 92 11 | ........ ..| 000000D0: 9D 9D 9D 9D 9D 12 20 20 1D 20 20 11 9D 9D 9D 9D |...... . .....| 000000E0: 9D 12 20 20 20 20 20 92 11 9D 9D 9D 9D 9D 12 20 |.. ........ | 000000F0: 20 20 20 20 92 91 91 91 91 1D 22 00 46 09 F0 00 | ......".F...| 00000100: 52 44 24 B2 22 1C 12 20 20 20 20 20 92 11 9D 9D |RD$.".. ....| 00000110: 9D 9D 9D 12 20 20 20 20 20 92 11 9D 9D 9D 9D 9D |.... .......| 00000120: 12 20 20 1D 20 20 11 9D 9D 9D 9D 9D 12 20 20 20 |. . ....... | 00000130: 20 20 92 11 9D 9D 9D 9D 9D 12 20 20 20 20 20 92 | ........ .| 00000140: 91 91 91 91 1D 22 00 69 09 FA 00 52 54 24 B2 22 |.....".i...RT$."| 00000150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3A 20 44 4E |...........": DN| 00000160: 24 B2 22 11 11 11 11 11 22 00 96 09 04 01 99 20 |$."....."...... | 00000170: 22 11 11 20 20 20 20 20 20 20 20 20 20 11 50 52 |".. .PR| 00000180: 45 53 53 20 12 52 45 54 55 52 4E 92 20 54 4F 20 |ESS .RETURN. TO | 00000190: 42 45 47 49 4E 22 00 B4 09 0E 01 A1 20 4B 42 24 |BEGIN"...... KB$| 000001A0: 3A 20 8B 20 4B 42 24 B3 B1 C7 28 31 33 29 20 A7 |: . KB$...(13) .| 000001B0: 20 32 37 30 00 C6 09 18 01 86 20 53 51 28 39 29 | 270...... SQ(9)| 000001C0: 2C 52 56 28 39 29 00 E6 09 22 01 99 20 22 93 22 |,RV(9)...".. "."| 000001D0: 3A 20 97 20 35 33 32 38 30 2C 30 3A 20 97 20 35 |: . 53280,0: . 5| 000001E0: 33 32 38 31 2C 30 00 1F 0A 2C 01 8D 20 39 32 30 |3281,0...,.. 920| 000001F0: 3A 20 20 81 20 43 54 B2 31 20 A4 20 39 3A 20 53 |: . CT.1 . 9: S| 00000200: 51 28 43 54 29 B2 30 3A 20 8B 20 BB 28 54 49 29 |Q(CT).0: . .(TI)| 00000210: B1 2E 36 35 20 A7 20 53 51 28 43 54 29 B2 31 00 |..65 . SQ(CT).1.| 00000220: 28 0A 36 01 82 20 43 54 00 2E 0A 40 01 8F 00 46 |(.6.. CT...@...F| 00000230: 0A 4A 01 8F 20 2A 2A 2A 20 4D 41 49 4E 20 4C 4F |.J.. *** MAIN LO| 00000240: 4F 50 20 2A 2A 2A 00 4C 0A 54 01 8F 00 5A 0A 5E |OP ***.L.T...Z.^| 00000250: 01 8D 20 31 30 32 30 3A 20 99 00 79 0A 68 01 57 |.. 1020: ..y.h.W| 00000260: 4E B2 30 3A 20 8D 20 35 38 30 3A 20 8B 20 57 4E |N.0: . 580: . WN| 00000270: B3 B1 30 20 A7 20 36 35 30 00 AB 0A 72 01 99 20 |..0 . 650...r.. | 00000280: 22 9F 57 48 49 43 48 20 4F 4E 45 20 54 4F 20 52 |".WHICH ONE TO R| 00000290: 45 56 45 52 53 45 3F 20 20 20 20 20 20 9D 9D 9D |EVERSE? ...| 000002A0: 9D 9D 22 3B 3A 20 8D 20 37 39 30 00 C4 0A 77 01 |..";: . 790...w.| 000002B0: 8B 4B 42 24 B2 22 51 22 B0 4B 42 24 B2 22 D1 22 |.KB$."Q".KB$."."| 000002C0: A7 37 34 30 00 EE 0A 7C 01 8B 20 C5 28 4B 42 24 |.740...|.. .(KB$| 000002D0: 29 B3 31 20 B0 20 C5 28 4B 42 24 29 B1 39 20 A7 |).1 . .(KB$).9 .| 000002E0: 20 99 20 22 91 91 22 3A 20 89 20 33 37 30 00 17 | . "..": . 370..| 000002F0: 0B 86 01 8B 20 53 51 28 C5 28 4B 42 24 29 29 B2 |.... SQ(.(KB$)).| 00000300: 31 20 A7 20 53 51 28 C5 28 4B 42 24 29 29 B2 30 |1 . SQ(.(KB$)).0| 00000310: 3A 20 89 20 34 31 30 00 28 0B 90 01 53 51 28 C5 |: . 410.(...SQ(.| 00000320: 28 4B 42 24 29 29 B2 31 00 5B 0B 9A 01 91 20 C5 |(KB$)).1.[.... .| 00000330: 28 4B 42 24 29 20 89 20 34 33 30 2C 34 34 30 2C |(KB$) . 430,440,| 00000340: 34 35 30 2C 34 36 30 2C 34 37 30 2C 34 38 30 2C |450,460,470,480,| 00000350: 34 39 30 2C 35 30 30 2C 35 31 30 00 65 0B A4 01 |490,500,510.e...| 00000360: 89 20 33 35 30 00 9B 0B AE 01 54 B2 33 3A 20 52 |. 350.....T.3: R| 00000370: 56 28 31 29 B2 32 3A 20 52 56 28 32 29 B2 34 3A |V(1).2: RV(2).4:| 00000380: 20 52 56 28 33 29 B2 35 3A 20 89 20 35 32 30 3A | RV(3).5: . 520:| 00000390: 20 8F 20 53 51 55 41 52 45 20 31 00 C8 0B B8 01 | . SQUARE 1.....| 000003A0: 54 B2 32 3A 20 52 56 28 31 29 B2 31 3A 20 52 56 |T.2: RV(1).1: RV| 000003B0: 28 32 29 B2 33 3A 20 89 20 35 32 30 3A 20 8F 20 |(2).3: . 520: . | 000003C0: 53 51 55 41 52 45 20 32 00 FE 0B C2 01 54 B2 33 |SQUARE 2.....T.3| 000003D0: 3A 20 52 56 28 31 29 B2 32 3A 20 52 56 28 32 29 |: RV(1).2: RV(2)| 000003E0: B2 35 3A 20 52 56 28 33 29 B2 36 3A 20 89 20 35 |.5: RV(3).6: . 5| 000003F0: 32 30 3A 20 8F 20 53 51 55 41 52 45 20 33 00 2B |20: . SQUARE 3.+| 00000400: 0C CC 01 54 B2 32 3A 20 52 56 28 31 29 B2 31 3A |...T.2: RV(1).1:| 00000410: 20 52 56 28 32 29 B2 37 3A 20 89 20 35 32 30 3A | RV(2).7: . 520:| 00000420: 20 8F 20 53 51 55 41 52 45 20 34 00 6A 0C D6 01 | . SQUARE 4.j...| 00000430: 54 B2 34 3A 20 52 56 28 31 29 B2 32 3A 20 52 56 |T.4: RV(1).2: RV| 00000440: 28 32 29 B2 34 3A 20 52 56 28 33 29 B2 36 3A 20 |(2).4: RV(3).6: | 00000450: 52 56 28 34 29 B2 38 3A 20 89 20 35 32 30 3A 20 |RV(4).8: . 520: | 00000460: 8F 20 53 51 55 41 52 45 20 35 00 97 0C E0 01 54 |. SQUARE 5.....T| 00000470: B2 32 3A 20 52 56 28 31 29 B2 33 3A 20 52 56 28 |.2: RV(1).3: RV(| 00000480: 32 29 B2 39 3A 20 89 20 35 32 30 3A 20 8F 20 53 |2).9: . 520: . S| 00000490: 51 55 41 52 45 20 36 00 CD 0C EA 01 54 B2 33 3A |QUARE 6.....T.3:| 000004A0: 20 52 56 28 31 29 B2 34 3A 20 52 56 28 32 29 B2 | RV(1).4: RV(2).| 000004B0: 35 3A 20 52 56 28 33 29 B2 38 3A 20 89 20 35 32 |5: RV(3).8: . 52| 000004C0: 30 3A 20 8F 20 53 51 55 41 52 45 20 37 00 FA 0C |0: . SQUARE 7...| 000004D0: F4 01 54 B2 32 3A 20 52 56 28 31 29 B2 37 3A 20 |..T.2: RV(1).7: | 000004E0: 52 56 28 32 29 B2 39 3A 20 89 20 35 32 30 3A 20 |RV(2).9: . 520: | 000004F0: 8F 20 53 51 55 41 52 45 20 38 00 29 0D FE 01 54 |. SQUARE 8.)...T| 00000500: B2 33 3A 20 52 56 28 31 29 B2 38 3A 20 52 56 28 |.3: RV(1).8: RV(| 00000510: 32 29 B2 35 3A 20 52 56 28 33 29 B2 36 3A 20 8F |2).5: RV(3).6: .| 00000520: 20 53 51 55 41 52 45 20 39 00 5E 0D 08 02 81 20 | SQUARE 9.^.... | 00000530: 43 54 B2 31 20 A4 20 54 3A 20 8B 20 53 51 28 52 |CT.1 . T: . SQ(R| 00000540: 56 28 43 54 29 29 B2 31 20 A7 20 53 51 28 52 56 |V(CT)).1 . SQ(RV| 00000550: 28 43 54 29 29 B2 30 3A 20 89 20 35 34 30 00 6F |(CT)).0: . 540.o| 00000560: 0D 12 02 53 51 28 52 56 28 43 54 29 29 B2 31 00 |...SQ(RV(CT)).1.| 00000570: 7F 0D 1C 02 82 20 43 54 3A 20 89 20 33 35 30 00 |..... CT: . 350.| 00000580: 85 0D 26 02 8F 00 A1 0D 30 02 8F 20 2A 2A 2A 20 |..&.....0.. *** | 00000590: 43 48 45 43 4B 20 46 4F 52 20 57 49 4E 20 2A 2A |CHECK FOR WIN **| 000005A0: 2A 00 A7 0D 3A 02 8F 00 CC 0D 44 02 81 20 43 54 |*...:.....D.. CT| 000005B0: B2 31 20 A4 20 39 3A 20 8B 20 53 51 28 43 54 29 |.1 . 9: . SQ(CT)| 000005C0: B2 31 20 A7 20 57 4E B2 57 4E AA 31 00 F1 0D 4E |.1 . WN.WN.1...N| 000005D0: 02 82 20 43 54 3A 20 8B 20 57 4E B2 38 20 AF 20 |.. CT: . WN.8 . | 000005E0: 53 51 28 35 29 B2 30 20 A7 20 57 4E B2 31 3A 20 |SQ(5).0 . WN.1: | 000005F0: 8E 00 07 0E 58 02 8B 20 57 4E B2 30 20 A7 20 57 |....X.. WN.0 . W| 00000600: 4E B2 AB 31 3A 20 8E 00 13 0E 62 02 57 4E B2 30 |N..1: ....b.WN.0| 00000610: 3A 20 8E 00 19 0E 6C 02 8F 00 4B 0E 76 02 8F 20 |: ....l...K.v.. | 00000620: 2A 2A 2A 20 47 41 4D 45 20 4F 56 45 52 20 2D 20 |*** GAME OVER - | 00000630: 44 49 53 50 4C 41 59 20 57 49 4E 4E 45 52 20 41 |DISPLAY WINNER A| 00000640: 4E 44 20 45 58 49 54 20 2A 2A 2A 00 51 0E 80 02 |ND EXIT ***.Q...| 00000650: 8F 00 68 0E 8A 02 4A B2 30 3A 20 8B 20 57 4E B2 |..h...J.0: . WN.| 00000660: AB 31 20 A7 20 37 35 30 00 AD 0E 94 02 99 20 22 |.1 . 750...... "| 00000670: 99 93 11 1D CD 20 20 CE 11 9D 9D 9D CD CE 11 9D |..... .........| 00000680: 9D 9D 20 A7 20 11 9D 9D 9D 20 A7 20 1D 91 91 91 |.. . .... . ....| 00000690: 1D 1D CE A3 CD 11 9D 9D 9D A5 20 A7 20 11 9D 9D |.......... . ...| 000006A0: 9D 9D A5 20 A7 20 11 9D 9D 9D 9D 22 3B 00 E6 0E |... . .....";...| 000006B0: 9E 02 99 20 22 CD A4 CE 91 91 91 1D 1D A5 20 A7 |... "......... .| 000006C0: 20 11 9D 9D 9D 9D A5 20 A7 20 11 9D 9D 9D 9D A5 | ...... . ......| 000006D0: 20 A7 20 11 9D 9D 9D 9D CD A4 CE 91 91 91 1D 1D | . .............| 000006E0: 1D 1D 1D 1D 22 3B 00 0B 0F A8 02 99 20 22 A5 20 |....";...... ". | 000006F0: 20 A7 11 9D 9D 9D 9D A5 20 20 A7 11 9D 9D 9D 9D | ....... ......| 00000700: A5 20 20 A7 11 9D 9D 9D 9D 22 3B 00 47 0F B2 02 |. ......";.G...| 00000710: 99 20 22 CD CE CD CE 91 91 91 1D 1D CE A3 CD 11 |. ".............| 00000720: 9D 9D 9D A5 20 A7 11 9D 9D 9D A5 20 A7 11 9D 9D |.... ...... ....| 00000730: 9D CD A4 CE 91 91 91 1D A7 CD 20 20 20 A5 11 9D |.......... ...| 00000740: 9D 9D 9D 9D 9D 22 3B 00 7E 0F BC 02 99 20 22 A7 |.....";.~.... ".| 00000750: 20 CD 20 20 A5 11 9D 9D 9D 9D 9D 9D A7 20 20 CD | . ......... .| 00000760: 20 A5 11 9D 9D 9D 9D 9D 9D A7 20 20 20 CD A5 91 | ......... ...| 00000770: 91 91 1D DD 11 9D DD 11 9D DD 11 9D D7 22 00 BB |............."..| 00000780: 0F C6 02 99 20 22 13 11 11 11 22 3B 44 4E 24 3B |.... "....";DN$;| 00000790: 44 4E 24 3B 44 4E 24 3B 44 4E 24 3B 22 05 44 4F |DN$;DN$;DN$;".DO| 000007A0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 50 4C 41 | YOU WISH TO PLA| 000007B0: 59 20 41 47 41 49 4E 3F 20 22 3B 00 C4 0F CB 02 |Y AGAIN? ";.....| 000007C0: 8D 37 39 30 00 DD 0F D0 02 8B 20 C8 28 4B 42 24 |.790...... .(KB$| 000007D0: 2C 31 29 B2 22 59 22 20 A7 20 32 39 30 00 F7 0F |,1)."Y" . 290...| 000007E0: D6 02 8B 20 C8 28 4B 42 24 2C 31 29 B3 B1 22 4E |... .(KB$,1).."N| 000007F0: 22 20 A7 20 37 31 35 00 15 10 DA 02 99 20 22 93 |" . 715...... ".| 00000800: 9A 54 48 41 4E 4B 53 20 46 4F 52 20 54 48 45 20 |.THANKS FOR THE | 00000810: 47 41 4D 45 22 00 4E 10 E4 02 9F 31 35 2C 38 2C |GAME".N....15,8,| 00000820: 31 35 2C 22 52 30 3A 48 45 4C 4C 4F 20 43 4F 4E |15,"R0:HELLO CON| 00000830: 4E 45 43 54 3D 48 45 4C 4C 4F 20 43 4F 4E 4E 45 |NECT=HELLO CONNE| 00000840: 43 54 22 3A 84 31 35 2C 45 52 3A A0 31 35 00 62 |CT":.15,ER:.15.b| 00000850: 10 E9 02 99 22 93 22 3B 3A 8B 45 52 B3 B1 36 33 |....".";:.ER..63| 00000860: A7 80 00 79 10 EA 02 93 22 48 45 4C 4C 4F 20 43 |...y...."HELLO C| 00000870: 4F 4E 4E 45 43 54 22 2C 38 00 BC 10 EE 02 99 20 |ONNECT",8...... | 00000880: 22 13 11 11 9C 22 3B 44 4E 24 3B 44 4E 24 3B 44 |"....";DN$;DN$;D| 00000890: 4E 24 3B 44 4E 24 3B 22 48 4F 57 20 43 4C 55 4D |N$;DN$;"HOW CLUM| 000008A0: 53 59 20 4F 46 20 59 4F 55 21 20 59 4F 55 20 4C |SY OF YOU! YOU L| 000008B0: 4F 53 45 21 22 3A 20 89 20 37 31 30 00 C2 10 F8 |OSE!": . 710....| 000008C0: 02 8F 00 EA 10 02 03 8F 20 2A 2A 2A 20 4B 45 59 |........ *** KEY| 000008D0: 42 4F 41 52 44 20 49 4E 50 55 54 20 53 55 42 52 |BOARD INPUT SUBR| 000008E0: 4F 55 54 49 4E 45 20 2A 2A 2A 00 F0 10 0C 03 8F |OUTINE ***......| 000008F0: 00 FE 10 16 03 99 20 22 12 A6 92 9D 22 3B 00 08 |...... "....";..| 00000900: 11 20 03 A1 20 4B 42 24 00 30 11 2A 03 8B 20 4B |. .. KB$.0.*.. K| 00000910: 42 24 B3 B1 22 22 20 A7 20 8B 20 C6 28 4B 42 24 |B$.."" . . .(KB$| 00000920: 29 B3 B1 31 33 20 A7 20 99 20 22 20 22 3A 20 8E |)..13 . . " ": .| 00000930: 00 40 11 34 03 81 20 43 54 B2 31 20 A4 20 34 30 |.@.4.. CT.1 . 40| 00000940: 00 4A 11 3E 03 A1 20 4B 42 24 00 72 11 48 03 8B |.J.>.. KB$.r.H..| 00000950: 20 4B 42 24 B3 B1 22 22 20 A7 20 8B 20 C6 28 4B | KB$.."" . . .(K| 00000960: 42 24 29 B3 B1 31 33 20 A7 20 99 20 22 20 22 3A |B$)..13 . . " ":| 00000970: 20 8E 00 91 11 52 03 82 20 43 54 3A 20 99 20 22 | ....R.. CT: . "| 00000980: A6 9D 22 3B 3A 20 81 20 43 54 B2 31 20 A4 20 34 |..";: . CT.1 . 4| 00000990: 30 00 9B 11 5C 03 A1 20 4B 42 24 00 C3 11 66 03 |0...\.. KB$...f.| 000009A0: 8B 20 4B 42 24 B3 B1 22 22 20 A7 20 8B 20 C6 28 |. KB$.."" . . .(| 000009B0: 4B 42 24 29 B3 B1 31 33 20 A7 20 99 20 22 20 22 |KB$)..13 . . " "| 000009C0: 3A 20 8E 00 D3 11 70 03 82 20 43 54 3A 20 89 20 |: ....p.. CT: . | 000009D0: 37 39 30 00 D9 11 7A 03 8F 00 12 12 84 03 8F 20 |790...z........ | 000009E0: 2A 2A 2A 20 53 55 42 52 4F 55 54 49 4E 45 20 54 |*** SUBROUTINE T| 000009F0: 4F 20 50 52 49 4E 54 20 54 48 45 20 47 52 49 44 |O PRINT THE GRID| 00000A00: 20 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 20 2A | ON THE SCREEN *| 00000A10: 2A 2A 00 18 12 8E 03 8F 00 52 12 98 03 99 20 44 |**.......R.... D| 00000A20: 4E 24 3B 52 54 24 3B 22 91 91 91 1F B0 C0 C3 C0 |N$;RT$;"........| 00000A30: C0 C0 B2 C0 C3 C0 C0 C0 B2 C0 C3 C0 C0 C0 AE 22 |..............."| 00000A40: 3A 20 8D 20 39 38 30 3A 20 81 20 4A B2 31 20 A4 |: . 980: . J.1 .| 00000A50: 20 32 00 79 12 A2 03 99 20 52 54 24 3B 22 AB C0 | 2.y.... RT$;"..| 00000A60: C3 C0 C0 C0 DB C0 C3 C0 C0 C0 DB C0 C3 C0 C0 C0 |................| 00000A70: B3 22 3A 20 8D 20 39 38 30 00 9B 12 AC 03 82 3A |.": . 980......:| 00000A80: 99 20 52 54 24 3B 22 AD C0 C3 C0 C0 C0 B1 C3 C0 |. RT$;".........| 00000A90: C0 C0 C0 B1 C0 C3 C0 C0 C0 BD 22 00 C3 12 AE 03 |..........".....| 00000AA0: 99 22 13 11 05 20 20 20 20 20 20 20 20 20 20 20 |."... | 00000AB0: 20 50 52 45 53 53 20 27 51 27 20 54 4F 20 51 55 | PRESS 'Q' TO QU| 00000AC0: 49 54 22 00 D8 12 B1 03 99 20 22 9E 13 22 44 4E |IT"...... ".."DN| 00000AD0: 24 52 54 24 22 11 22 3B 00 F7 12 B6 03 81 20 43 |$RT$".";...... C| 00000AE0: 54 B2 31 20 A4 20 39 3A 20 99 20 22 1D 1D 22 3B |T.1 . 9: . "..";| 00000AF0: 43 54 3B 22 1D 22 3B 00 26 13 C0 03 8B 20 43 54 |CT;".";.&.... CT| 00000B00: AD 33 B2 B5 28 43 54 AD 33 29 20 AF 20 43 54 B3 |.3..(CT.3) . CT.| 00000B10: B1 39 20 A7 20 99 3A 20 99 20 22 11 11 11 11 11 |.9 . .: . ".....| 00000B20: 22 3B 52 54 24 3B 00 32 13 CA 03 82 20 43 54 3A |";RT$;.2.... CT:| 00000B30: 20 8E 00 67 13 D4 03 81 20 43 54 B2 31 20 A4 20 | ..g.... CT.1 . | 00000B40: 35 3A 20 99 20 52 54 24 3B 22 DD 20 20 20 20 20 |5: . RT$;". | 00000B50: DD 20 20 20 20 20 DD 20 20 20 20 20 DD 22 3A 20 |. . .": | 00000B60: 82 20 43 54 3A 20 8E 00 6D 13 DE 03 8F 00 AB 13 |. CT: ..m.......| 00000B70: E8 03 8F 20 2A 2A 2A 20 53 55 42 52 4F 55 54 49 |... *** SUBROUTI| 00000B80: 4E 45 20 54 4F 20 44 49 53 50 4C 41 59 20 43 55 |NE TO DISPLAY CU| 00000B90: 52 52 45 4E 54 20 53 54 41 54 55 53 20 4F 46 20 |RRENT STATUS OF | 00000BA0: 53 51 55 41 52 45 53 20 2A 2A 2A 00 B1 13 F2 03 |SQUARES ***.....| 00000BB0: 8F 00 D7 13 FC 03 99 20 22 13 11 22 3B 44 4E 24 |....... "..";DN$| 00000BC0: 3B 52 54 24 3B 22 91 91 1D 22 3B 3A 20 81 20 43 |;RT$;"...";: . C| 00000BD0: 54 B2 31 20 A4 20 39 00 F7 13 06 04 8B 20 53 51 |T.1 . 9...... SQ| 00000BE0: 28 43 54 29 B2 31 20 A7 20 99 20 47 4E 24 3B 3A |(CT).1 . . GN$;:| 00000BF0: 20 89 20 31 30 35 30 00 02 14 10 04 99 20 52 44 | . 1050...... RD| 00000C00: 24 3B 00 2D 14 1A 04 8B 20 43 54 AD 33 B2 B5 28 |$;.-.... CT.3..(| 00000C10: 43 54 AD 33 29 20 A7 20 99 3A 20 99 20 22 11 11 |CT.3) . .: . "..| 00000C20: 11 11 11 22 3B 52 54 24 3B 22 1D 22 3B 00 39 14 |...";RT$;".";.9.| 00000C30: 24 04 82 20 43 54 3A 20 8E 00 00 00 |$.. CT: .... |
....D..53280,.:.53281,..I.... G(142)"...
..";.11);".*** . CONUNDRUM . ***"._....
"...";.19);"BY"...H.. "..";.12);"RICHARD
F. DALEY"...R.. .18);"AND"...... .13);"
SALLY J. DALEY.".....GN$.".. .......
. ........ . ....... ........
......".F...RD$.".. ........
........ . ....... ........ .
.....".I...RT$."...........": DN$.".....
"...... ".. .PRESS .RETURN. TO
BEGIN"...... KB$: . KB$..G(13) . 270.F..
.. SQ(9),RV(9)...".. ".": . 53280,0: . 5
3281,0...,.. 920: . CT.1 . 9: SQ(CT).0:
. .(TI)..65 . SQ(CT).1.(.6.. CT...@...F
.J.. *** MAIN LOOP ***.L.T...Z.^.. 1020:
..Y.H.WN.0: . 580: . WN..0 . 650...R..
".WHICH ONE TO REVERSE? .....";: .
790.D.W..KB$."Q".KB$."Q".740...|.. E(KB$
).1 . E(KB$).9 . . "..": . 370...... SQ(
E(KB$)).1 . SQ(E(KB$)).0: . 410.(...SQ(E
(KB$)).1.[.... E(KB$) . 430,440,450,460,
470,480,490,500,510.E.... 350.....T.3: R
V(1).2: RV(2).4: RV(3).5: . 520: . SQUAR
E 1.H...T.2: RV(1).1: RV(2).3: . 520: .
SQUARE 2...B.T.3: RV(1).2: RV(2).5: RV(3
).6: . 520: . SQUARE 3.+.L.T.2: RV(1).1:
RV(2).7: . 520: . SQUARE 4.J.V.T.4: RV(
1).2: RV(2).4: RV(3).6: RV(4).8: . 520:
. SQUARE 5.....T.2: RV(1).3: RV(2).9: .
520: . SQUARE 6.M...T.3: RV(1).4: RV(2).
5: RV(3).8: . 520: . SQUARE 7.....T.2: R
V(1).7: RV(2).9: . 520: . SQUARE 8.)...T
.3: RV(1).8: RV(2).5: RV(3).6: . SQUARE
9.^.... CT.1 . T: . SQ(RV(CT)).1 . SQ(RV
(CT)).0: . 540.O...SQ(RV(CT)).1..... CT
: . 350...&.....0.. *** CHECK FOR WIN **
*...:...L.D.. CT.1 . 9: . SQ(CT).1 . WN.
WN.1...N.. CT: . WN.8 . SQ(5).0 . WN.1:
....X.. WN.0 . WN..1: ....B.WN.0: ....L.
..K.V.. *** GAME OVER - DISPLAY WINNER A
ND EXIT ***.Q.....H...J.0: . WN..1 . 750
...... "....M N....MN.... . .... . ....
..N.M..... . ...... . .....";...... "M.N
...... . ...... . ...... . .....M.N.....
....";...... ". ....... ....... .....
.";.G.... "MNMN.....N.M..... ...... ....
.M.N.....M ........";.~.... ". M ....
..... M ......... M..............W"..
.F.. "....";DN$;DN$;DN$;DN$;".DO YOU WIS
H TO PLAY AGAIN? ";.D.K..790...P.. H(KB$
,1)."Y" . 290...V.. H(KB$,1).."N" . 715.
..Z.. "..THANKS FOR THE GAME".N....15,8,
15,"R0:HELLO CONNECT=HELLO CONNECT":.15,
ER: 15.B....".";:.ER..63...Y...."HELLO C
ONNECT",8...... "....";DN$;DN$;DN$;DN$;"
HOW CLUMSY OF YOU! YOU LOSE!": . 710.B..
........ *** KEYBOARD INPUT SUBROUTINE *
**............ "....";... .. KB$.0.*.. K
B$.."" . . F(KB$)..13 . . " ": ..@.4.. C
T.1 . 40.J.>.. KB$.R.H.. KB$.."" . . F(K
B$)..13 . . " ": ....R.. CT: . "..";: .
CT.1 . 40...\.. KB$.C.F.. KB$.."" . . F(
KB$)..13 . . " ": ..S.P.. CT: . 790.Y.Z.
....... *** SUBROUTINE TO PRINT THE GRID
ON THE SCREEN ***.......R.... DN$;RT$;"
......C.....C.....C....": . 980: . J.1 .
2.Y.... RT$;"..C.....C.....C....": . 98
0......:. RT$;"..C....C......C....".C...
."... PRESS 'Q' TO QUIT".X...
. ".."DN$RT$".";...... CT.1 . 9: . "..";
CT;".";.&.... CT.3..(CT.3) . CT..9 . .:
. ".....";RT$;.2.J.. CT: ..G.T.. CT.1 .
5: . RT$;". . . .": . CT: ..
M.......... *** SUBROUTINE TO DISPLAY CU
RRENT STATUS OF SQUARES ***.......W....
"..";DN$;RT$;"...";: . CT.1 . 9...... SQ
(CT).1 . . GN$;: . 1050...... RD$;.-....
CT.3..(CT.3) . .: . ".....";RT$;".";.9.
$.. CT: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL