TIC-TAC-TOE
FILE INFORMATION
FILENAME(S): TIC-TAC-TOE
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-10-19 22:35:22
APPEARS ON: 1 disk(s)
FILE HASH
46bf2b2bc1f9e17a4440e482dfda0c05923c58dc4318d576fe993483fdf24c4a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KARATE | TIC-TAC-TOE | PRG | Radd Maxx | 26 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 00 00 8F 00 22 08 01 00 97 35 33 32 |........"....532|
00000010: 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 99 22 |80,0:.53281,0:."|
00000020: 93 22 00 45 08 02 00 99 22 05 20 20 20 20 20 20 |.".E....". |
00000030: 20 20 20 20 20 20 20 20 20 54 49 43 2D 54 41 43 | TIC-TAC|
00000040: 2D 54 4F 45 22 00 68 08 03 00 99 22 11 20 20 20 |-TOE".h....". |
00000050: 20 20 20 20 20 20 20 20 20 20 42 59 3A 4D 41 52 | BY:MAR|
00000060: 43 4F 20 42 52 55 4E 4F 00 94 08 04 00 99 22 11 |CO BRUNO......".|
00000070: 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 |.......... |
00000080: 20 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 | PRESS A |
00000090: 4B 45 59 22 00 A5 08 05 00 A1 41 24 3A 8B 41 24 |KEY"......A$:.A$|
000000A0: B2 22 22 A7 35 00 AE 08 32 00 99 22 93 22 00 DF |."".5...2.."."..|
000000B0: 08 33 00 99 22 47 41 4D 45 20 53 45 54 55 50 2D |.3.."GAME SETUP-|
000000C0: 50 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E 2E 2E |PLEASE WAIT.....|
000000D0: 2E 2E 22 3A 81 54 B2 31 A4 32 30 30 30 3A 82 00 |..":.T.1.2000:..|
000000E0: EC 08 37 00 86 42 44 24 28 31 38 29 00 09 09 39 |..7..BD$(18)...9|
000000F0: 00 42 44 24 B2 22 43 4D 4C 54 52 54 4C 42 52 42 |.BD$."CMLTRTLBRB|
00000100: 43 54 4C 4D 52 4D 43 42 22 00 14 09 3C 00 86 42 |CTLMRMCB"...<..B|
00000110: 44 28 39 29 00 25 09 3E 00 86 48 24 28 31 29 2C |D(9).%.>..H$(1),|
00000120: 43 24 28 35 29 00 30 09 41 00 86 46 24 28 38 29 |C$(5).0.A..F$(8)|
00000130: 00 3B 09 43 00 86 41 24 28 31 29 00 47 09 46 00 |.;.C..A$(1).G.F.|
00000140: 86 4D 56 24 28 32 29 00 53 09 50 00 86 47 4D 28 |.MV$(2).S.P..GM(|
00000150: 32 34 29 00 6D 09 52 00 81 49 B2 31 A4 32 34 3A |24).m.R..I.1.24:|
00000160: 87 4E 3A 47 4D 28 49 29 B2 4E 3A 82 49 00 7A 09 |.N:GM(I).N:.I.z.|
00000170: 64 00 99 22 93 22 3A 99 3A 99 00 AA 09 6E 00 99 |d..".":.:....n..|
00000180: 22 49 20 41 4D 20 54 48 45 20 43 36 34 2C 41 4E |"I AM THE C64,AN|
00000190: 44 20 41 20 4D 41 53 54 45 52 20 41 54 20 54 49 |D A MASTER AT TI|
000001A0: 43 2D 54 41 43 2D 54 4F 45 22 00 B2 09 78 00 99 |C-TAC-TOE"...x..|
000001B0: 3A 99 00 E2 09 87 00 99 22 49 20 41 4D 20 50 52 |:......."I AM PR|
000001C0: 4F 47 52 41 4D 4D 45 44 20 57 49 54 48 20 43 4F |OGRAMMED WITH CO|
000001D0: 4D 50 55 53 43 49 20 41 52 54 49 46 49 43 49 41 |MPUSCI ARTIFICIA|
000001E0: 4C 22 00 F8 09 88 00 99 22 91 49 4E 54 45 4C 4C |L"......".INTELL|
000001F0: 49 47 45 4E 43 45 2E 22 00 15 0A 89 00 99 22 49 |IGENCE."......"I|
00000200: 20 42 45 54 20 49 20 43 41 4E 20 42 45 41 54 20 | BET I CAN BEAT |
00000210: 59 4F 55 21 22 00 32 0A 8A 00 99 22 20 20 20 20 |YOU!".2...." |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 A3 A3 A3 | ...|
00000230: A3 22 00 43 0A 8B 00 81 54 B2 31 A4 32 30 30 30 |.".C....T.1.2000|
00000240: 3A 82 54 00 4E 0A 94 00 99 22 93 22 3A 99 00 7E |:.T.N....".":..~|
00000250: 0A 96 00 99 22 44 49 52 45 43 54 49 4F 4E 53 28 |...."DIRECTIONS(|
00000260: 51 3D 51 55 49 43 4B 3B 44 3D 44 45 54 41 49 4C |Q=QUICK;D=DETAIL|
00000270: 45 44 3B 4E 3D 4E 4F 29 22 3B 3A 85 41 24 00 8E |ED;N=NO)";:.A$..|
00000280: 0A A0 00 8B 41 24 B2 22 4E 22 A7 31 38 30 00 A5 |....A$."N".180..|
00000290: 0A A5 00 8B 41 24 B2 22 44 22 A7 8D 32 30 31 30 |....A$."D"..2010|
000002A0: 3A 89 31 38 30 00 BC 0A A7 00 8B 41 24 B2 22 51 |:.180......A$."Q|
000002B0: 22 A7 8D 32 32 30 30 3A 89 31 38 30 00 C5 0A AA |"..2200:.180....|
000002C0: 00 89 31 34 38 00 CB 0A B4 00 99 00 EE 0A BE 00 |..148...........|
000002D0: 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 58 27 |."DO YOU WANT X'|
000002E0: 53 20 4F 52 20 4F 27 53 22 3B 3A 85 41 24 00 0B |S OR O'S";:.A$..|
000002F0: 0B C0 00 8B 41 24 B2 22 58 22 A7 48 50 B2 38 38 |....A$."X".HP.88|
00000300: 3A 43 50 B2 37 39 3A 89 32 30 30 00 1C 0B C2 00 |:CP.79:.200.....|
00000310: 8B 41 24 B3 B1 22 4F 22 A7 31 38 30 00 2C 0B C4 |.A$.."O".180.,..|
00000320: 00 48 50 B2 37 39 3A 43 50 B2 38 38 00 35 0B C8 |.HP.79:CP.88.5..|
00000330: 00 99 22 93 22 00 4D 0B CD 00 8D 31 35 31 30 3A |..".".M....1510:|
00000340: 8F 20 43 4C 45 41 52 20 42 4F 41 52 44 00 5E 0B |. CLEAR BOARD.^.|
00000350: D2 00 8D 31 30 31 30 3A 8F 20 46 4C 49 50 00 7F |...1010:. FLIP..|
00000360: 0B DC 00 57 B2 30 3A 54 4E B2 31 3A 8F 20 53 45 |...W.0:TN.1:. SE|
00000370: 54 20 47 41 4D 45 20 43 4F 4F 4E 54 45 52 53 00 |T GAME COONTERS.|
00000380: 90 0B E6 00 8B 46 24 B2 22 43 22 A7 54 4E B2 31 |.....F$."C".TN.1|
00000390: 00 9B 0B F0 00 81 49 B2 31 A4 39 00 B6 0B FA 00 |......I.1.9.....|
000003A0: 8B 54 4E B2 AB 31 A7 8D 33 30 31 30 3A 54 4E B2 |.TN..1..3010:TN.|
000003B0: 31 3A 89 32 38 30 00 C6 0B 04 01 8D 34 30 31 30 |1:.280......4010|
000003C0: 3A 54 4E B2 AB 31 00 E0 0B 18 01 8D 35 30 31 30 |:TN..1......5010|
000003D0: 3A 8F 20 44 49 53 50 4C 41 59 20 42 4F 41 52 44 |:. DISPLAY BOARD|
000003E0: 00 FD 0B 22 01 8B 49 B1 34 A7 8D 36 30 31 30 3A |..."..I.4..6010:|
000003F0: 8F 20 57 49 4E 4E 45 52 3F 3F 3F 3F 3F 00 0B 0C |. WINNER?????...|
00000400: 2C 01 8B 57 B3 B1 30 A7 49 B2 39 00 12 0C 36 01 |,..W..0.I.9...6.|
00000410: 82 49 00 1A 0C 5E 01 99 3A 99 00 31 0C 68 01 99 |.I...^..:..1.h..|
00000420: 22 50 4C 41 59 20 41 47 41 49 4E 22 3B 3A 85 41 |"PLAY AGAIN";:.A|
00000430: 24 00 44 0C 72 01 8B 41 24 B2 22 4E 22 A7 9E 36 |$.D.r..A$."N"..6|
00000440: 34 37 33 38 00 55 0C 7C 01 8B 41 24 B3 B1 22 59 |4738.U.|..A$.."Y|
00000450: 22 A7 33 35 30 00 5E 0C 86 01 89 32 30 30 00 7A |".350.^....200.z|
00000460: 0C E8 03 8F 2A 2A 2A 2A 2A 2A 2A 46 4C 49 50 20 |....*******FLIP |
00000470: 53 55 42 52 4F 55 54 49 4E 45 00 A4 0C F2 03 99 |SUBROUTINE......|
00000480: 22 93 4C 45 54 27 53 20 46 4C 49 50 20 54 4F 20 |".LET'S FLIP TO |
00000490: 53 45 45 20 57 48 4F 20 47 4F 45 53 20 46 49 52 |SEE WHO GOES FIR|
000004A0: 53 54 2E 22 00 AA 0C FC 03 99 00 C9 0C 06 04 99 |ST."............|
000004B0: 22 28 48 29 45 41 44 53 20 4F 52 20 28 54 29 41 |"(H)EADS OR (T)A|
000004C0: 49 4C 53 22 3B 3A 85 48 24 00 E8 0C 0B 04 8B 20 |ILS";:.H$...... |
000004D0: 48 24 B3 B1 22 48 22 20 AF 20 48 24 B3 B1 22 54 |H$.."H" . H$.."T|
000004E0: 22 20 A7 20 31 30 32 30 00 EE 0C 10 04 99 00 09 |" . 1020........|
000004F0: 0D 15 04 99 22 49 27 4C 4C 20 46 4C 49 50 20 54 |...."I'LL FLIP T|
00000500: 48 45 20 43 4F 49 4E 2E 22 00 11 0D 16 04 99 3A |HE COIN."......:|
00000510: 99 00 22 0D 17 04 81 54 B2 31 A4 31 30 30 30 3A |.."....T.1.1000:|
00000520: 82 54 00 46 0D 1A 04 8B B5 28 BB 28 31 29 AC 32 |.T.F.....(.(1).2|
00000530: 29 AA 31 B2 31 A7 43 24 B2 22 48 45 41 44 53 22 |).1.1.C$."HEADS"|
00000540: 3A 89 31 30 38 30 00 55 0D 24 04 43 24 B2 22 54 |:.1080.U.$.C$."T|
00000550: 41 49 4C 53 22 00 6A 0D 38 04 99 22 20 20 20 20 |AILS".j.8.." |
00000560: 20 22 3B 43 24 3B 22 21 22 3B 00 7B 0D 3D 04 8B | ";C$;"!";.{.=..|
00000570: 43 24 B3 B1 48 24 A7 31 31 30 30 00 96 0D 3F 04 |C$..H$.1100...?.|
00000580: 99 22 20 20 59 4F 55 20 57 49 4E 21 22 3A 46 24 |." YOU WIN!":F$|
00000590: B2 22 59 4F 55 22 00 B6 0D 40 04 99 3A 99 22 20 |."YOU"...@..:." |
000005A0: 20 20 20 20 20 20 20 20 59 4F 55 20 47 4F 20 46 | YOU GO F|
000005B0: 49 52 53 54 21 22 00 C0 0D 41 04 89 31 31 31 35 |IRST!"...A..1115|
000005C0: 00 E1 0D 4C 04 99 22 20 20 59 4F 55 20 4C 4F 53 |...L.." YOU LOS|
000005D0: 45 21 22 3A 46 24 B2 22 43 4F 4D 50 55 54 45 52 |E!":F$."COMPUTER|
000005E0: 22 00 FF 0D 56 04 99 22 20 20 20 20 20 20 20 20 |"...V.." |
000005F0: 20 20 20 49 20 47 4F 20 46 49 52 53 54 21 22 00 | I GO FIRST!".|
00000600: 05 0E 5B 04 99 00 0B 0E 60 04 8E 00 2F 0E DC 05 |..[.....`.../...|
00000610: 8F 2A 2A 2A 2A 2A 2A 2A 2A 43 4C 45 41 52 20 42 |.********CLEAR B|
00000620: 4F 41 52 44 20 53 55 42 52 4F 55 54 49 4E 45 00 |OARD SUBROUTINE.|
00000630: 3A 0E E6 05 81 49 B2 31 A4 39 00 47 0E F0 05 42 |:....I.1.9.G...B|
00000640: 44 28 49 29 B2 33 32 00 4E 0E FA 05 82 49 00 54 |D(I).32.N....I.T|
00000650: 0E 04 06 8E 00 72 0E D0 07 8F 2A 2A 2A 44 49 52 |.....r....***DIR|
00000660: 45 43 54 49 4F 4E 53 20 53 55 42 52 4F 55 54 49 |ECTIONS SUBROUTI|
00000670: 4E 45 00 78 0E DA 07 99 00 A0 0E E4 07 99 22 93 |NE.x..........".|
00000680: 55 53 45 20 41 20 32 2D 4C 45 54 54 45 52 20 43 |USE A 2-LETTER C|
00000690: 4F 44 45 20 54 4F 20 50 4F 53 49 54 49 4F 4E 22 |ODE TO POSITION"|
000006A0: 00 B5 0E EE 07 99 22 59 4F 55 52 45 20 58 20 4F |......"YOURE X O|
000006B0: 52 20 4F 3A 22 00 BB 0E F8 07 99 00 DF 0E 02 08 |R O:"...........|
000006C0: 99 22 54 2C 4D 2C 41 4E 44 20 42 20 53 54 41 4E |."T,M,AND B STAN|
000006D0: 44 20 46 4F 52 20 54 48 45 20 52 4F 57 3A 22 00 |D FOR THE ROW:".|
000006E0: E5 0E 0C 08 99 00 FA 0E 16 08 99 22 20 20 20 20 |..........." |
000006F0: 54 3D 54 4F 50 20 52 4F 57 22 00 12 0F 20 08 99 |T=TOP ROW"... ..|
00000700: 22 20 20 20 20 4D 3D 4D 49 44 44 4C 45 20 52 4F |" M=MIDDLE RO|
00000710: 57 22 00 2A 0F 2A 08 99 22 20 20 20 20 42 3D 42 |W".*.*.." B=B|
00000720: 4F 54 54 4F 4D 20 52 4F 57 22 00 30 0F 34 08 99 |OTTOM ROW".0.4..|
00000730: 00 57 0F 3E 08 99 22 4C 2C 43 2C 41 4E 44 20 52 |.W.>.."L,C,AND R|
00000740: 20 53 54 41 4E 44 20 46 4F 52 20 54 48 45 20 43 | STAND FOR THE C|
00000750: 4F 4C 55 4D 4E 3A 22 00 5D 0F 48 08 99 00 74 0F |OLUMN:".].H...t.|
00000760: 52 08 99 22 20 20 20 20 4C 3D 4C 45 46 54 20 53 |R.." L=LEFT S|
00000770: 49 44 45 22 00 88 0F 5C 08 99 22 20 20 20 20 43 |IDE"...\.." C|
00000780: 3D 43 45 4E 54 45 52 22 00 A0 0F 66 08 99 22 20 |=CENTER"...f.." |
00000790: 20 20 20 52 3D 52 49 47 48 54 20 53 49 44 45 22 | R=RIGHT SIDE"|
000007A0: 00 A6 0F 70 08 99 00 D1 0F 84 08 99 22 55 53 45 |...p........"USE|
000007B0: 20 32 20 4C 45 54 54 45 52 53 20 46 4F 52 20 45 | 2 LETTERS FOR E|
000007C0: 41 43 48 20 50 4F 53 49 54 49 4F 4E 49 4E 47 3A |ACH POSITIONING:|
000007D0: 22 00 D9 0F 98 08 99 3A 99 00 EF 0F A2 08 99 22 |"......:......."|
000007E0: 20 20 20 20 20 20 4C 54 C2 43 54 C2 52 54 22 00 | LT.CT.RT".|
000007F0: 05 10 AC 08 99 22 20 20 20 20 20 20 C3 C3 C3 C3 |....." ....|
00000800: C3 C3 C3 C3 22 00 1B 10 B6 08 99 22 20 20 20 20 |...."......" |
00000810: 20 20 4C 4D C2 43 4D C2 52 4D 22 00 31 10 C0 08 | LM.CM.RM".1...|
00000820: 99 22 20 20 20 20 20 20 C3 C3 C3 C3 C3 C3 C3 C3 |." ........|
00000830: 22 00 47 10 CA 08 99 22 20 20 20 20 20 20 4C 42 |".G...." LB|
00000840: C2 43 42 C2 52 42 22 00 68 10 D4 08 99 22 20 20 |.CB.RB".h...." |
00000850: 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 45 | PRE|
00000860: 53 53 20 41 20 4B 45 59 00 7E 10 E8 08 A1 53 53 |SS A KEY.~....SS|
00000870: 24 3A 8B 53 53 24 B2 22 22 A7 32 32 38 30 00 84 |$:.SS$."".2280..|
00000880: 10 E9 08 8E 00 A6 10 B8 0B 8F 2A 2A 2A 2A 43 4F |..........****CO|
00000890: 4D 50 55 54 45 52 20 54 55 52 4E 20 53 55 42 52 |MPUTER TURN SUBR|
000008A0: 4F 55 54 49 4E 45 00 AC 10 C2 0B 99 00 CD 10 CC |OUTINE..........|
000008B0: 0B 99 22 49 20 41 4D 20 54 48 49 4E 4B 49 4E 47 |.."I AM THINKING|
000008C0: 20 4F 46 20 4D 59 20 4D 4F 56 45 2E 22 00 DE 10 | OF MY MOVE."...|
000008D0: D6 0B 81 54 B2 31 A4 31 30 30 30 3A 82 54 00 E4 |...T.1.1000:.T..|
000008E0: 10 E0 0B 99 00 F7 10 EA 0B 99 22 48 45 52 45 20 |.........."HERE |
000008F0: 49 54 20 49 53 3A 22 00 11 11 EF 0B 8B 49 B1 33 |IT IS:"......I.3|
00000900: A7 8D 33 31 31 30 3A 8B 4A B2 32 36 A7 33 30 39 |..3110:.J.26.309|
00000910: 30 00 2B 11 F1 0B 8B 49 B1 32 A7 8D 33 32 31 30 |0.+....I.2..3210|
00000920: 3A 8B 4A B2 32 36 A7 33 30 39 30 00 36 11 F4 0B |:.J.26.3090.6...|
00000930: 81 4A B2 31 A4 39 00 51 11 FE 0B 8B 42 44 28 4A |.J.1.9.Q....BD(J|
00000940: 29 B2 33 32 A7 42 44 28 4A 29 B2 43 50 3A 4A B2 |).32.BD(J).CP:J.|
00000950: 39 00 58 11 08 0C 82 4A 00 5E 11 12 0C 8E 00 7F |9.X....J.^......|
00000960: 11 1C 0C 8F 2A 2A 2A 43 4F 4D 50 55 54 45 52 20 |....***COMPUTER |
00000970: 57 49 4E 3F 20 53 55 42 52 4F 55 54 49 4E 45 00 |WIN? SUBROUTINE.|
00000980: 8D 11 26 0C 81 4A B2 31 A4 32 32 A9 33 00 C5 11 |..&..J.1.22.3...|
00000990: 30 0C 8B 42 44 28 47 4D 28 4A 29 29 AA 42 44 28 |0..BD(GM(J)).BD(|
000009A0: 47 4D 28 4A AA 31 29 29 AA 42 44 28 47 4D 28 4A |GM(J.1)).BD(GM(J|
000009B0: AA 32 29 29 B2 32 AC 43 50 AA 33 32 A7 46 B2 4A |.2)).2.CP.32.F.J|
000009C0: 3A 4A B2 32 33 00 CC 11 3A 0C 82 4A 00 DC 11 44 |:J.23...:..J...D|
000009D0: 0C 8B 4A B3 B1 32 36 A7 33 31 38 30 00 E9 11 4E |..J..26.3180...N|
000009E0: 0C 81 4A B2 46 A4 46 AA 32 00 00 12 53 0C 8B 42 |..J.F.F.2...S..B|
000009F0: 44 28 47 4D 28 4A 29 29 B2 43 50 A7 33 31 37 30 |D(GM(J)).CP.3170|
00000A00: 00 16 12 58 0C 42 44 28 47 4D 28 4A 29 29 B2 43 |...X.BD(GM(J)).C|
00000A10: 50 3A 4A B2 32 35 00 1D 12 62 0C 82 4A 00 23 12 |P:J.25...b..J.#.|
00000A20: 6C 0C 8E 00 47 12 80 0C 8F 2A 2A 2A 2A 2A 2A 43 |l...G....******C|
00000A30: 4F 4D 50 55 54 45 52 20 53 41 56 45 20 53 55 42 |OMPUTER SAVE SUB|
00000A40: 52 4F 55 54 49 4E 45 00 55 12 8A 0C 81 4A B2 31 |ROUTINE.U....J.1|
00000A50: A4 32 32 A9 33 00 8D 12 94 0C 8B 42 44 28 47 4D |.22.3......BD(GM|
00000A60: 28 4A 29 29 AA 42 44 28 47 4D 28 4A AA 31 29 29 |(J)).BD(GM(J.1))|
00000A70: AA 42 44 28 47 4D 28 4A AA 32 29 29 B2 32 AC 48 |.BD(GM(J.2)).2.H|
00000A80: 50 AA 33 32 A7 46 B2 4A 3A 4A B2 32 33 00 94 12 |P.32.F.J:J.23...|
00000A90: 9E 0C 82 4A 00 A4 12 A8 0C 8B 4A B3 B1 32 36 A7 |...J......J..26.|
00000AA0: 33 32 38 30 00 B1 12 B2 0C 81 4A B2 46 A4 46 AA |3280......J.F.F.|
00000AB0: 32 00 C8 12 B7 0C 8B 42 44 28 47 4D 28 4A 29 29 |2......BD(GM(J))|
00000AC0: B2 48 50 A7 33 32 37 30 00 DE 12 BC 0C 42 44 28 |.HP.3270.....BD(|
00000AD0: 47 4D 28 4A 29 29 B2 43 50 3A 4A B2 32 35 00 E5 |GM(J)).CP:J.25..|
00000AE0: 12 C6 0C 82 4A 00 EB 12 D0 0C 8E 00 0A 13 A0 0F |....J...........|
00000AF0: 8F 2A 2A 2A 2A 48 55 4D 41 4E 20 54 55 52 4E 20 |.****HUMAN TURN |
00000B00: 53 55 42 52 4F 55 54 49 4E 45 00 10 13 AA 0F 99 |SUBROUTINE......|
00000B10: 00 38 13 B4 0F 99 22 59 4F 55 52 20 4D 4F 56 45 |.8...."YOUR MOVE|
00000B20: 28 4F 52 20 44 3D 44 49 52 45 43 54 49 4F 4E 53 |(OR D=DIRECTIONS|
00000B30: 29 22 3B 3A 85 4D 56 24 00 51 13 BE 0F 8B 4D 56 |)";:.MV$.Q....MV|
00000B40: 24 B2 22 44 22 A7 8D 32 32 30 30 3A 89 34 30 32 |$."D"..2200:.402|
00000B50: 30 00 5F 13 C8 0F 81 4A B2 31 A4 31 37 A9 32 00 |0._....J.1.17.2.|
00000B60: 77 13 D2 0F 8B 42 44 24 28 4A AA 31 29 B3 B1 4D |w....BD$(J.1)..M|
00000B70: 56 24 A7 34 30 36 30 00 A5 13 D4 0F 8B 42 44 28 |V$.4060......BD(|
00000B80: 28 4A AA 31 29 AD 32 29 B2 33 32 A7 42 44 28 28 |(J.1).2).32.BD((|
00000B90: 4A AA 31 29 AD 32 29 B2 48 50 3A 4A B2 31 38 3A |J.1).2).HP:J.18:|
00000BA0: 89 34 30 36 30 00 AD 13 D6 0F 99 3A 99 00 DD 13 |.4060......:....|
00000BB0: D7 0F 99 22 54 48 41 54 20 53 50 41 43 45 20 49 |..."THAT SPACE I|
00000BC0: 53 20 46 49 4C 4C 45 44 21 21 20 54 52 59 20 41 |S FILLED!! TRY A|
00000BD0: 47 41 49 4E 2E 22 3A 99 3A 4A B2 31 37 00 E4 13 |GAIN.":.:J.17...|
00000BE0: DC 0F 82 4A 00 F4 13 E6 0F 8B 4A B3 B1 32 30 A7 |...J......J..20.|
00000BF0: 34 30 31 30 00 FA 13 F0 0F 8E 00 17 14 88 13 8F |4010............|
00000C00: 2A 2A 2A 2A 2A 44 49 53 50 4C 41 59 20 53 55 42 |*****DISPLAY SUB|
00000C10: 52 4F 55 54 49 4E 45 00 1F 14 92 13 99 3A 99 00 |ROUTINE......:..|
00000C20: 51 14 9C 13 99 22 20 20 20 20 20 20 20 22 3B C7 |Q...." ";.|
00000C30: 28 42 44 28 32 29 29 3B 22 C2 22 3B C7 28 42 44 |(BD(2));".";.(BD|
00000C40: 28 36 29 29 3B 22 C2 22 3B C7 28 42 44 28 33 29 |(6));".";.(BD(3)|
00000C50: 29 00 66 14 A6 13 99 22 20 20 20 20 20 20 20 C3 |).f...." .|
00000C60: C3 C3 C3 C3 C3 22 00 98 14 B0 13 99 22 20 20 20 |....."......" |
00000C70: 20 20 20 20 22 3B C7 28 42 44 28 37 29 29 3B 22 | ";.(BD(7));"|
00000C80: C2 22 3B C7 28 42 44 28 31 29 29 3B 22 C2 22 3B |.";.(BD(1));".";|
00000C90: C7 28 42 44 28 38 29 29 00 AD 14 BA 13 99 22 20 |.(BD(8))......" |
00000CA0: 20 20 20 20 20 20 C3 C3 C3 C3 C3 C3 22 00 DF 14 | ......"...|
00000CB0: C4 13 99 22 20 20 20 20 20 20 20 22 3B C7 28 42 |..." ";.(B|
00000CC0: 44 28 34 29 29 3B 22 C2 22 3B C7 28 42 44 28 39 |D(4));".";.(BD(9|
00000CD0: 29 29 3B 22 C2 22 3B C7 28 42 44 28 35 29 29 00 |));".";.(BD(5)).|
00000CE0: E7 14 CE 13 99 3A 99 00 ED 14 E2 13 8E 00 0A 15 |.....:..........|
00000CF0: 70 17 8F 2A 2A 2A 2A 2A 57 49 4E 4E 45 52 3F 20 |p..*****WINNER? |
00000D00: 53 55 42 52 4F 55 54 49 4E 45 00 18 15 7A 17 81 |SUBROUTINE...z..|
00000D10: 4A B2 31 A4 32 32 A9 33 00 53 15 84 17 8B 43 50 |J.1.22.3.S....CP|
00000D20: B2 42 44 28 47 4D 28 4A 29 29 AF 43 50 B2 42 44 |.BD(GM(J)).CP.BD|
00000D30: 28 47 4D 28 4A AA 31 29 29 AF 43 50 B2 42 44 28 |(GM(J.1)).CP.BD(|
00000D40: 47 4D 28 4A AA 32 29 29 A7 57 B2 57 AA 31 3A 4A |GM(J.2)).W.W.1:J|
00000D50: B2 32 32 00 5A 15 8E 17 82 4A 00 68 15 98 17 81 |.22.Z....J.h....|
00000D60: 4A B2 31 A4 32 32 A9 33 00 A3 15 A2 17 8B 48 50 |J.1.22.3......HP|
00000D70: B2 42 44 28 47 4D 28 4A 29 29 AF 48 50 B2 42 44 |.BD(GM(J)).HP.BD|
00000D80: 28 47 4D 28 4A AA 31 29 29 AF 48 50 B2 42 44 28 |(GM(J.1)).HP.BD(|
00000D90: 47 4D 28 4A AA 32 29 29 A7 57 B2 57 AA 32 3A 4A |GM(J.2)).W.W.2:J|
00000DA0: B2 32 32 00 AA 15 AC 17 82 4A 00 B2 15 B0 17 99 |.22......J......|
00000DB0: 3A 99 00 C4 15 B1 17 8B 57 B2 30 AF 49 B2 39 A7 |:.......W.0.I.9.|
00000DC0: 36 31 35 30 00 D2 15 B6 17 8B 57 B2 30 A7 36 32 |6150......W.0.62|
00000DD0: 31 30 00 DA 15 C0 17 99 3A 99 00 E9 15 CA 17 8B |10......:.......|
00000DE0: 57 B3 B1 31 A7 36 31 32 30 00 06 16 D4 17 99 22 |W..1.6120......"|
00000DF0: 2A 2A 2A 20 49 20 57 49 4E 21 20 49 20 57 49 4E |*** I WIN! I WIN|
00000E00: 21 20 2A 2A 2A 22 00 10 16 DE 17 89 36 32 30 30 |! ***"......6200|
00000E10: 00 1F 16 E8 17 8B 57 B3 B1 32 A7 36 31 35 30 00 |......W..2.6150.|
00000E20: 40 16 F2 17 99 22 2A 2A 2A 20 59 4F 55 20 57 49 |@...."*** YOU WI|
00000E30: 4E 21 20 59 4F 55 20 57 49 4E 21 20 2A 2A 2A 22 |N! YOU WIN! ***"|
00000E40: 00 4A 16 FC 17 89 36 32 30 30 00 69 16 06 18 99 |.J....6200.i....|
00000E50: 22 2A 2A 2A 2A 2A 20 49 54 27 53 20 41 20 54 49 |"***** IT'S A TI|
00000E60: 45 21 20 2A 2A 2A 2A 2A 22 00 71 16 38 18 99 3A |E! *****".q.8..:|
00000E70: 99 00 77 16 42 18 8E 00 AC 16 58 1B 83 32 2C 34 |..w.B.....X..2,4|
00000E80: 2C 37 2C 31 2C 36 2C 39 2C 33 2C 35 2C 38 2C 32 |,7,1,6,9,3,5,8,2|
00000E90: 2C 33 2C 36 2C 31 2C 37 2C 38 2C 34 2C 35 2C 39 |,3,6,1,7,8,4,5,9|
00000EA0: 2C 31 2C 32 2C 35 2C 31 2C 33 2C 34 00 00 00 |,1,2,5,1,3,4... |
........"....53280,0:.53281,0:.".".E....
". TIC-TAC-TOE".H....".
BY:MARCO BRUNO......".........
.. PRESS A KEY"......A$:.A$
."".5...2.."."...3.."GAME SETUP-PLEASE W
AIT.......":.T.1.2000:....7..BD$(18)...9
.BD$."CMLTRTLBRBCTLMRMCB"...<..BD(9).%.>
..H$(1),C$(5).0.A..F$(8).;.C..A$(1).G.F.
.MV$(2).S.P..GM(24).M.R..I.1.24:.N:GM(I)
.N:.I.Z.D..".":.:....N.."I AM THE C64,AN
D A MASTER AT TIC-TAC-TOE"...X..:.......
"I AM PROGRAMMED WITH COMPUSCI ARTIFICIA
L"......".INTELLIGENCE."......"I BET I C
AN BEAT YOU!".2...." ...
.".C....T.1.2000:.T.N....".":..~...."DIR
ECTIONS(Q=QUICK;D=DETAILED;N=NO)";:.A$..
. ..A$."N".180......A$."D"..2010:.180...
...A$."Q"..2200:.180.E....148.K.........
."DO YOU WANT X'S OR O'S";:.A$......A$."
X".HP.88:CP.79:.200...B..A$.."O".180.,.D
.HP.79:CP.88.5.H..".".M.M..1510:. CLEAR
BOARD.^.R..1010:. FLIP....W.0:TN.1:. SE
T GAME COONTERS......F$."C".TN.1......I.
1.9......TN..1..3010:TN.1:.280.F....4010
:TN..1......5010:. DISPLAY BOARD..."..I.
4..6010:. WINNER?????...,..W..0.I.9...6.
.I...^..:..1.H.."PLAY AGAIN";:.A$.D.R..A
$."N"..64738.U.|..A$.."Y".350.^....200.Z
....*******FLIP SUBROUTINE......".LET'S
FLIP TO SEE WHO GOES FIRST.".......I....
"(H)EADS OR (T)AILS";:.H$...... H$.."H"
. H$.."T" . 1020............"I'LL FLIP T
HE COIN."......:.."....T.1.1000:.T.F....
.(.(1).2).1.1.C$."HEADS":.1080.U.$.C$."T
AILS".J.8.." ";C$;"!";.{.=..C$..H$.1
100...?.." YOU WIN!":F$."YOU"...@..:."
YOU GO FIRST!"...A..1115...L.."
YOU LOSE!":F$."COMPUTER"...V.."
I GO FIRST!"...[.....`.../....*******
*CLEAR BOARD SUBROUTINE.:....I.1.9.G...B
D(I).32.N....I.T.....R.P..***DIRECTIONS
SUBROUTINE.X.Z... ....".USE A 2-LETTER C
ODE TO POSITION"......"YOURE X OR O:"...
........."T,M,AND B STAND FOR THE ROW:".
..........." T=TOP ROW"... .." M=M
IDDLE ROW".*.*.." B=BOTTOM ROW".0.4..
.W.>.."L,C,AND R STAND FOR THE COLUMN:".
].H...T.R.." L=LEFT SIDE"...\.." C
=CENTER". .F.." R=RIGHT SIDE"...P...Q
...."USE 2 LETTERS FOR EACH POSITIONING:
".Y....:......." LTBCTBRT"......"
CCCCCCCC"......" LMBCMBRM".1...
." CCCCCCCC".G.J.." LBBCBBRB".
H.T.." PRESS A KEY.~....SS
$:.SS$."".2280............****COMPUTER T
URN SUBROUTINE...B...M.L.."I AM THINKING
OF MY MOVE."...V..T.1.1000:.T..........
.."HERE IT IS:"......I.3..3110:.J.26.309
0.+....I.2..3210:.J.26.3090.6....J.1.9.Q
....BD(J).32.BD(J).CP:J.9.X....J.^.....
....***COMPUTER WIN? SUBROUTINE...&..J.1
.22.3.E.0..BD(GM(J)).BD(GM(J.1)).BD(GM(J
.2)).2.CP.32.F.J:J.23.L.:..J...D..J..26.
3180...N..J.F.F.2...S..BD(GM(J)).CP.3170
...X.BD(GM(J)).CP:J.25...B..J.#.L...G...
.******COMPUTER SAVE SUBROUTINE.U....J.1
.22.3......BD(GM(J)).BD(GM(J.1)).BD(GM(J
.2)).2.HP.32.F.J:J.23......J......J..26.
3280......J.F.F.2.H....BD(GM(J)).HP.3270
.....BD(GM(J)).CP:J.25...F..J...P..... .
.****HUMAN TURN SUBROUTINE.......8...."Y
OUR MOVE(OR D=DIRECTIONS)";:.MV$.Q....MV
$."D"..2200:.4020._.H..J.1.17.2.W.R..BD$
(J.1)..MV$.4060...T..BD((J.1).2).32.BD((
J.1).2).HP:J.18:.4060...V..:....W.."THAT
SPACE IS FILLED!! TRY AGAIN.":.:J.17...
...J......J..20.4010............*****DIS
PLAY SUBROUTINE......:..Q...." ";G
(BD(2));"B";G(BD(6));"B";G(BD(3)).F...."
CCCCCC"......" ";G(BD(7));"
B";G(BD(1));"B";G(BD(8))......" CC
CCCC"...D.." ";G(BD(4));"B";G(BD(9
));"B";G(BD(5))...N..:..........P..*****
WINNER? SUBROUTINE...Z..J.1.22.3.S....CP
.BD(GM(J)).CP.BD(GM(J.1)).CP.BD(GM(J.2))
.W.W.1:J.22.Z....J.H....J.1.22.3......HP
.BD(GM(J)).HP.BD(GM(J.1)).HP.BD(GM(J.2))
.W.W.2:J.22......J......:..D....W.0.I.9.
6150.R....W.0.6210.Z....:....J..W..1.612
0...T.."*** I WIN! I WIN! ***"......6200
......W..2.6150.@...."*** YOU WIN! YOU W
IN! ***".J....6200.I...."***** IT'S A TI
E! *****".Q.8..:..W.B.....X..2,4,7,1,6,9
,3,5,8,2,3,6,1,7,8,4,5,9,1,2,5,1,3,4...
> CLICK IMAGE PREVIEW FOR FULL MODAL