36 Noughts and Crosses
260 NEXT X:K=-K:IF K<0 THEN 220
270 FOR X=1 TO 40:N=I+2*INT(RND*5):IF N< >5 AND A(N)=0 THEN 110
280 NEXT X
290 FOR X=1 TO 9:IF A(X)=0 THEN N=X:GOTO 110
300 NEXT X
310 LOCATE 18,20:PRINT"DRAW!":D=D+1:FOR X=1 TO 35:SOUND 1,(100-X),4:NEXT X:GOTO 560
320 FOR Y=3 TO 1 STEP -1:IF A(3*X+Y)=0 T HEN N=3*X+Y:GOTO 110
330 NEXT Y
340 FOR Y=3 TO 1 STEP -1:IF A(X+Y*3-2)=0 THEN N=X+3*Y-2:GOTO 110
350 NEXT Y
360 IF A(5)=0 THEN N=5:GOTO 110
370 IF A(542*(X+1))=0 THEN N=5+2*(X+1):G OTO 110
380 IF A(5-2*(X+I))=0 THEN N=5-2*(X+1):G OTO 110
390 X$=INKEY$:IF X$="" OR X$<"1" OR X$>" 9" THEN 390
400 N=VAL(X$)
410 LOCATE 34,12:PRINT"	":LOCATE 34
,10:PRINT"You ";N;:SOUND 1,120,10:IF A$( N)>"9" THEN LOCATE 34,12:PRINT"AGAIN!";: FOR X=1 TO 5:FOR Y=1 TO 3:NEXT Y:SOUND 1 ,180,10,3,1:NEXT X:GOTO 390
420 GOTO 110
430 PAPER 0:INK 1,24:INK 0,0:PEN 1
440 LOCATE 11,1:PRINT"NOUGHTS AND CROSSE S"
450 LOCATE 11,2: FOR C=1 TO 19:PRINT CHR $(208);:NEXT
460 FOR X=I TO 9:A$(X)=STR$ (X):NEXT
470 LOCATE 1,3: PRINT:PRINT:FOR X=1 TO 3 :PRINT TAB(11) Z$;TAB(11)Y$;TAB (11)Y$0- AB (11)Y$;TAB (11) Y$;:NEXT X:PRINT TAB( 11) Z$
480 LOCATE 1,4:PRINT" I AM
YOU ARE"
490 LOCATE 4,5:PRINT CHR$(203):LOCATE 36 ,5:PRINT CHR$(201)