Noughts and Crosses
The classic game, played against the computer. But in our version the computer can be beaten!!
10 REM	NOUGHTS AND CROSSES
20 REM	@ MICHAEL BEWS
30 MODE 1:BORDER 0:INK 0,0:INK 1,24:INK 2,6:INK 3,9:CLS
40 PAPER 0:PEN 1
50 CLS
60 DIM A$(9),A(9):D=0:H=0:M=0:N=0:T=0 70 Y$=CHR$(143)+"	"+CHR$(143)+"
"+CHR$(143)+"	"+CHR$(143)
80 Z$=STRING$(19,143)
90 GOTO 440
100 REM ***** MAIN ROUTINE *****
110 SOUND 1,120,10: T=T+1:A$(N)=CHRS(A+2 02):A(N)=SGN (A):A=—A:IF A<0 THEN LOCATE 37,10:PRINT" ";
120 FOR x=0 TO 2:FOR y=1 TO 3:Z=x*3+y : LOCATE (7+6*y),(5*(x+1)+3):PRINT A$(Z):N EXT y:NEXT x
130 FOR X=0 TO 2:IF ABS(A(3*X+1)+A(3*X+2 )+A(3*X+3))=3 OR ABS(A(X+1)+A(X+4)+A(X+7 ))=3 THEN 530
140 IF X>1 THEN 160
150 IF ABS (A(5)+A(5+2*(X+1))+A(5-2*(X+1 )))=3 THEN 530
160 NEXT X:IF T=9 THEN 310
170 IF A<0 THEN 390
180 IF T>0 THEN 210
190 N=1+2*INT(RND*5):IF N=5 THEN 190 200 GOTO 110
210 K=2:N=0
220 FOR X=0 TO 2:IF A(3*X+1)+A(3*X+2)+A( 3*X+3)=K THEN 320
230 IF A(X+1)+A(X+4)+A(X+7)=K THEN 340 240 IF X=2 THEN 260
250 IF A(5)+A(5+2*(X+1))+A(5-2*(X+1))=K THEN 360