10TEXT:HOME:POKE 17059, 6:TEXT
20VTAB 3:HTAB 5:? "*********************"
24HTAB 5:? "*                   *"
25HTAB 5:? "*       PLAY        *"
30HTAB 5:? "*    TIC TAC TOE    *"
35HTAB 5:? "*   AGAINST ADAM    *"
38HTAB 5:? "*                   *"
40HTAB 5:? "*        by         *"
42HTAB 5:? "*   Kip H. Hammond  *"
44HTAB 5:? "*                   *"
46HTAB 5:? "*********************"
50?:? "You are 'X' and ADAM is 'O'."
52?:? "Use the Joystick #1 keypad"
55?:? "as your playing board."
60?:?:? "Press LEFT FIRE button"
62? "to begin."
70IF PDL(7)=1 THEN GOSUB 13000:GOTO 80
72GOTO 70
80 e=0: f=0: g=0: h=0: i=0: j=0: k=0: l=0: m=0
100GR:COLOR =4
110VLIN 0, 39 AT 15:VLIN 0, 39 AT 24:HLIN 7, 32 AT 13:HLIN 7, 32 AT 26
120HOME:HTAB 12:? "YOUR TURN"
130 c=PDL(13)
140IF c=0 OR c=10 OR c=11 OR c=15 GOTO 130
145IF c=1 AND e=1 GOTO 130
146IF c=1 AND e=2 GOTO 130
150IF c=1 THEN  a=1: b=8: e=1:GOSUB 5000
155IF c=2 AND f=1 GOTO 130
156IF c=2 AND f=2 GOTO 130
160IF c=2 THEN  a=1: b=17: f=1:GOSUB 5000
165IF c=3 AND g=1 GOTO 130
166IF c=3 AND g=2 GOTO 130
170IF c=3 THEN  a=1: b=26: g=1:GOSUB 5000
175IF c=4 AND h=1 GOTO 130
176IF c=4 AND h=2 GOTO 130
180IF c=4 THEN  a=15: b=8: h=1:GOSUB 5000
190IF c=5 AND i=1 GOTO 130
195IF c=5 AND i=2 GOTO 130
200IF c=5 THEN  a=15: b=17: i=1:GOSUB 5000
210IF c=6 AND j=1 GOTO 130
215IF c=6 AND j=2 GOTO 130
220IF c=6 THEN  a=15: b=26: j=1:GOSUB 5000
230IF c=7 AND k=1 GOTO 130
240IF c=7 AND k=2 GOTO 130
250IF c=7 THEN  a=28: b=8: k=1:GOSUB 5000
260IF c=8 AND l=1 GOTO 130
270IF c=8 AND l=2 GOTO 130
280IF c=8 THEN  a=28: b=17: l=1:GOSUB 5000
290IF c=9 AND m=1 GOTO 130
300IF c=9 AND m=2 GOTO 130
310IF c=9 THEN  a=28: b=26: m=1:GOSUB 5000
320 c=0:GOSUB 6000
390HOME:HTAB 1:? "ADAM'S TURN (He is thinking.)"
395FOR delay=0 TO 4000:NEXT
400GOSUB 10000
410IF d=0 OR d=10 OR d=11 OR d=15 GOTO 400
420IF d=1 AND e=1 GOTO 400
430IF d=1 AND e=2 GOTO 400
440IF d=1 THEN  a=1: b=8: e=2:GOSUB 5500
450IF d=2 AND f=1 GOTO 400
460IF d=2 AND f=2 GOTO 400
470IF d=2 THEN  a=1: b=17: f=2:GOSUB 5500
480IF d=3 AND g=1 GOTO 400
490IF d=3 AND g=2 GOTO 400
500IF d=3 THEN  a=1: b=26: g=2:GOSUB 5500
510IF d=4 AND h=1 GOTO 400
520IF d=4 AND h=2 GOTO 400
530IF d=4 THEN  a=15: b=8: h=2:GOSUB 5500
540IF d=5 AND i=1 GOTO 400
550IF d=5 AND i=2 GOTO 400
560IF d=5 THEN  a=15: b=17: i=2:GOSUB 5500
570IF d=6 AND j=1 GOTO 400
580IF d=6 AND j=2 GOTO 400
590IF d=6 THEN  a=15: b=26: j=2:GOSUB 5500
600IF d=7 AND k=1 GOTO 400
610IF d=7 AND k=2 GOTO 400
620IF d=7 THEN  a=28: b=8: k=2:GOSUB 5500
630IF d=8 AND l=1 GOTO 400
640IF d=8 AND l=2 GOTO 400
650IF d=8 THEN  a=28: b=17: l=2:GOSUB 5500
660IF d=9 AND m=1 GOTO 400
670IF d=9 AND m=2 GOTO 400
680IF d=9 THEN  a=28: b=26: m=2:GOSUB 5500
690 d=0:GOSUB 6000:GOTO 120
5000COLOR =3
5010VLIN a, a+1 AT b
5020VLIN a+2, a+3 AT 1+b
5030VLIN a+8, a+9 AT b
5040VLIN a+6, a+7 AT 1+b
5050VLIN a+4, a+5 AT 2+b
5060VLIN a+4, a+5 AT 3+b
5070VLIN a, a+1 AT b+5
5080VLIN a+2, a+3 AT b+4
5090VLIN a+6, a+7 AT b+4
5100VLIN a+8, a+9 AT b+5
5110RETURN
5500COLOR =14
5510VLIN a, a+9 AT b
5520VLIN a, a+9 AT b+5
5530HLIN b, b+5 AT a
5540HLIN b, b+5 AT a+9
5550RETURN
6000IF e=1 AND f=1 AND g=1 GOTO 7000
6010IF h=1 AND i=1 AND j=1 GOTO 7000
6020IF k=1 AND l=1 AND m=1 GOTO 7000
6030IF e=1 AND h=1 AND k=1 GOTO 7000
6040IF f=1 AND i=1 AND l=1 GOTO 7000
6050IF g=1 AND j=1 AND m=1 GOTO 7000
6060IF e=1 AND i=1 AND m=1 GOTO 7000
6070IF k=1 AND i=1 AND g=1 GOTO 7000
6090IF e=2 AND f=2 AND g=2 GOTO 8000
6100IF h=2 AND i=2 AND j=2 GOTO 8000
6110IF k=2 AND l=2 AND m=2 GOTO 8000
6120IF e=2 AND h=2 AND k=2 GOTO 8000
6130IF f=2 AND i=2 AND l=2 GOTO 8000
6140IF g=2 AND j=2 AND m=2 GOTO 8000
6150IF e=2 AND i=2 AND m=2 GOTO 8000
6160IF k=2 AND i=2 AND g=2 GOTO 8000
6170IF e+f+g+h+i+j+k+l+m=13 GOTO 9000
6180RETURN
7000FOR x=0 TO 20:? CHR$(7):NEXT
7020POKE 17059, 12:TEXT
7030VTAB 10:HTAB 8:? "   YOU ARE   "
7040?:HTAB 9:? "THE WINNER!!!"
7050?:?:?:?
7060? "Push left fire button to"
7070? "play again, right fire button"
7080? "to quit."
7100IF PDL(7)=1 GOTO 70
7110IF PDL(9)=1 THEN HOME:POKE 17059, 1:TEXT:END
7120GOTO 7100
8000FOR x=0 TO 20:? CHR$(7):NEXT
8020POKE 17059, 4:TEXT
8030VTAB 10:HTAB 8:? "   ADAM IS   "
8040?:HTAB 9:? "THE WINNER!!!"
8050?:?:?:?
8060? "Push the left fire button to"
8070? "play again, right fire button"
8080? "to quit."
8100IF PDL(7)=1 GOTO 70
8110IF PDL(9)=1 THEN HOME:POKE 17059, 1:TEXT:END
8120GOTO 8100
9000FOR x=0 TO 20:? CHR$(7):NEXT
9010POKE 17059, 13:TEXT
9020VTAB 10:HTAB 10:? "CAT'S GAME !!!"
9030?:?:?:?:?:?
9040? "Push left fire button to"
9050? "play again, right fire button"
9060? "to quit."
9070IF PDL(7)=1 GOTO 70
9080IF PDL(9)=1 THEN HOME:POKE 17059, 1:TEXT:END
9090GOTO 9070
10000IF e+f+g+h+i+j+k+l+m=1 THEN GOSUB 11000:RETURN
10003IF dif=1 GOTO 10300
10005IF e=2 AND g=2 AND f=0 THEN  d=2:RETURN
10006IF e=2 AND f=2 AND g=0 THEN  d=3:RETURN
10007IF f=2 AND g=2 AND e=0 THEN  d=1:RETURN
10010IF h=2 AND j=2 AND i=0 THEN  d=5:RETURN
10011IF h=2 AND i=2 AND j=0 THEN  d=6:RETURN
10012IF i=2 AND j=2 AND h=0 THEN  d=4:RETURN
10020IF k=2 AND m=2 AND l=0 THEN  d=8:RETURN
10021IF k=2 AND l=2 AND m=0 THEN  d=9:RETURN
10022IF l=2 AND m=2 AND k=0 THEN  d=7:RETURN
10030IF e=2 AND k=2 AND h=0 THEN  d=4:RETURN
10031IF e=2 AND h=2 AND k=0 THEN  d=7:RETURN
10032IF h=2 AND k=2 AND e=0 THEN  d=1:RETURN
10040IF f=2 AND l=2 AND i=0 THEN  d=5:RETURN
10041IF f=2 AND i=2 AND l=0 THEN  d=8:RETURN
10042IF i=2 AND l=2 AND f=0 THEN  d=2:RETURN
10050IF g=2 AND m=2 AND j=0 THEN  d=6:RETURN
10051IF g=2 AND j=2 AND m=0 THEN  d=9:RETURN
10052IF j=2 AND m=2 AND g=0 THEN  d=3:RETURN
10060IF e=2 AND m=2 AND i=0 THEN  d=5:RETURN
10061IF e=2 AND i=2 AND m=0 THEN  d=9:RETURN
10062IF i=2 AND m=2 AND e=0 THEN  d=1:RETURN
10070IF k=2 AND g=2 AND i=0 THEN  d=5:RETURN
10071IF k=2 AND i=2 AND g=0 THEN  d=3:RETURN
10072IF i=2 AND g=2 AND k=0 THEN  d=7:RETURN
10080IF e=1 AND g=1 AND f=0 THEN  d=2:RETURN
10081IF e=1 AND f=1 AND g=0 THEN  d=3:RETURN
10082IF f=1 AND g=1 AND e=0 THEN  d=1:RETURN
10090IF n=1 AND j=1 AND i=0 THEN  d=5:RETURN
10091IF h=1 AND i=1 AND j=0 THEN  d=6:RETURN
10092IF i=1 AND j=1 AND h=0 THEN  d=4:RETURN
10100IF k=1 AND m=1 AND l=0 THEN  d=8:RETURN
10101IF k=1 AND l=1 AND m=0 THEN  d=9:RETURN
10102IF l=1 AND m=1 AND k=0 THEN  d=7:RETURN
10110IF e=1 AND k=1 AND h=0 THEN  d=4:RETURN
10111IF e=1 AND h=1 AND k=0 THEN  d=7:RETURN
10112IF h=1 AND k=1 AND e=0 THEN  d=1:RETURN
10120IF f=1 AND l=1 AND i=0 THEN  d=5:RETURN
10121IF f=1 AND i=1 AND l=0 THEN  d=8:RETURN
10122IF i=1 AND l=1 AND f=0 THEN  d=2:RETURN
10130IF g=1 AND m=1 AND j=0 THEN  d=6:RETURN
10131IF g=1 AND j=1 AND m=0 THEN  d=9:RETURN
10132IF j=1 AND m=1 AND g=0 THEN  d=3:RETURN
10140IF e=1 AND m=1 AND i=0 THEN  d=5:RETURN
10141IF e=1 AND i=1 AND m=0 THEN  d=9:RETURN
10142IF i=1 AND m=1 AND e=0 THEN  d=1:RETURN
10150IF k=1 AND g=1 AND i=0 THEN  d=5:RETURN
10151IF k=1 AND i=1 AND g=0 THEN  d=3:RETURN
10152IF i=1 AND g=1 AND k=0 THEN  d=7:RETURN
10160IF dif=2 GOTO 10300
10200IF e+f+g+h+i+j+k+l+m=4 THEN GOSUB 12000:RETURN
10300IF e=0 THEN  d=1:RETURN
10310IF f=0 THEN  d=2:RETURN
10320IF g=0 THEN  d=3:RETURN
10330IF h=0 THEN  d=4:RETURN
10340IF i=0 THEN  d=5:RETURN
10350IF j=0 THEN  d=6:RETURN
10360IF k=0 THEN  d=7:RETURN
10370IF l=0 THEN  d=8:RETURN
10380IF m=0 THEN  d=9:RETURN
11000IF e=1 OR g=1 OR k=1 OR m=1 THEN  d=5:RETURN
11010IF i=1 THEN  d=1:RETURN
11020IF f=1 OR j=1 OR h=1 OR l=1 THEN  d=5:RETURN
12000IF f=1 AND j=1 THEN  d=3:RETURN
12010IF j=1 AND l=1 THEN  d=9:RETURN
12020IF h=1 AND l=1 THEN  d=7:RETURN
12030IF h=1 AND f=1 THEN  d=1:RETURN
12040IF f=1 AND l=1 THEN  d=1:RETURN
12050IF h=1 AND j=1 THEN  d=1:RETURN
12060IF i=1 AND m=1 THEN  d=3:RETURN
12070IF g=1 AND h=1 THEN  d=8:RETURN
12080IF g=1 AND l=1 THEN  d=4:RETURN
12090IF e=1 AND j=1 THEN  d=8:RETURN
12100IF e=1 AND l=1 THEN  d=6:RETURN
12110IF f=1 AND m=1 THEN  d=4:RETURN
12120IF h=1 AND m=1 THEN  d=2:RETURN
12130IF f=1 AND k=1 THEN  d=6:RETURN
12140IF j=1 AND k=1 THEN  d=2:RETURN
12150IF e=1 AND m=1 THEN  d=2:RETURN
12160IF g=1 AND k=1 THEN  d=2:RETURN
13000POKE 17059, 4:TEXT
13005VTAB 5
13010? "Choose your difficulty by"
13020? "by pushing the keypad number."
13030?:?:? "1 - EASY (Adam will be dumb,"
13040? "          and you should win"
13050? "          easily.)"
13060?:? "2 - MEDIUM (Adam will have"
13070? "            some smarts, but"
13080? "            you can still win."
13090?:? "3 - HARD (Adam is a genius..."
13100? "          Impossible for you"
13110? "          to win!!!!!!)"
13115 dif=0
13120 dif=PDL(13)
13130IF dif=1 OR dif=2 OR dif=3 GOTO 13150
13140GOTO 13120
13150RETURN
