Noughts and Crosses 37
500 A=(2*INT(1+RND*2)-3)
510 P$="Me":IF A<0 THEN P$="You"
520 LOCATE 13,3:PRINT P$;" to go FIRST"; :GOTO 120
530 P$="YOU WIN":IF A<0 THEN P$="1 WIN": M=M+1:GOTO 550
540 H=H+1
550 LOCATE 2,12:INK 1,24,6:PRINT P$:FOR X=1 TO 2: FOR S=1 TO 7:ENT 1,100,-S,2:SO UND 1,200,30,7,0,1:NEXT S:NEXT X
560 LOCATE 1,22:INK 1,24,6:PRINT"Score: YOU ";H;"	ME ";M;"	DRAW ";D;:LOC
ATE 7,24:PRINT"PRESS ANY KEY FOR NEW GAM E"
570 IF INKEY$<>"" THEN 570
580 X$=INKEY$:IF X$="" THEN 580
590 FOR X=1 TO 9:A(X)=0:NEXT
600 N=0:T=0:CLS:GOTO 430