14) TIC-TAC-TOE (618 B)
To use: LOAD 5, RUN

10 REM
20 REM TIC-TAC-TOE
30 REM
40 DIM A(9)
50 FOR J=0 TO 2
60 FOR I=1 TO 3
70 LET A(I+3*J)=28+I+4*J+2*I*(J>1)
80 NEXT I
90 NEXT J
100 LET A(4)=36
110 LET A(5)=61
120 LET A(6)=32
130 GOTO 260
140 FOR I=1 TO 9
150 IF A(I)=M+28 THEN LET A(I)=V
160 NEXT I
170 FOR I=0 TO 2
180 FOR J=1 TO 3
190 PRINT CHR$(A(J+3*I));" ";
200 NEXT J
210 PRINT
220 PRINT
230 NEXT I
240 PRINT
250 RETURN
260 LET A=0
270 LET E=0
280 PRINT "I WENT FIRST"
290 GOSUB 170
300 PRINT "ENTER MOVE"
310 INPUT R
320 CLS
330 IF R=2*(R/2) THEN LET E=-1
340 LET M=R
350 LET V=28
360 GOSUB 140
370 LET P=R
380 FOR T=1 TO 4
390 PRINT "I MOVED"
400 LET V=61
410 LET A=A+1
420 IF T=1 OR R=P+4 OR R=P-4 THEN GOTO 480
430 LET P=P+4
440 IF P>8 THEN LET P=P-8
450 LET M=P
460 GOSUB 140
470 GOTO 650
480 IF A=3 AND E THEN LET A=7
490 IF A=4 THEN LET A=6
500 LET P=P+A
510 IF P>8 THEN LET P=P-8
520 LET M=P
530 GOSUB 140
540 IF A=7 THEN GOTO 650
550 IF T=4 THEN GOTO 630
560 PRINT "YOUR MOVE"
570 INPUT R
580 CLS
590 LET M=R
600 LET V=28
610 GOSUB 140
620 NEXT T
630 PRINT "DRAW"
640 STOP
650 PRINT "I WON"
660 STOP