10 CLS:DEFINTA
14 PRINT@41,"-> USE CAPS <-"
15 CALL17001:PRINT@55," TIC-TAC-TOE ":CALL17006
20 LINE(177,19)-(233,19)
30 LINE(177,35)-(233,35)
40 LINE(197,0)-(197,56)
50 LINE(215,0)-(215,56)
60 PRINT@80," X or O: ";
70 A$=INPUT$(1)
80 IFA$=CHR$(27)THENMENU
90 IFA$="0"THEN10
95 IFA$="X"ORA$="O"THEN100
96 BEEP:GOTO70
100 PRINTA$;" at position 1-9:";
110 B$=INPUT$(1)
120 IFB$=CHR$(27)THENMENU
130 IFB$<"0"ORB$>"9"THENBEEP:GOTO10
140 B=VAL(B$)
150 PRINT@161,"To start new game type 0":PRINT@241,"Press ESC for Menu."
160 IFB=1THENPRINT@71,A$:GOSUB260:GOTO60
170 IFB=2THENPRINT@74,A$:GOSUB260:GOTO60
180 IFB=3THENPRINT@77,A$:GOSUB260:GOTO60
190 IFB=4THENPRINT@151,A$:GOSUB260:GOTO60
200 IFB=5THENPRINT@154,A$:GOSUB260:GOTO60
210 IFB=6THENPRINT@157,A$:GOSUB260:GOTO60
220 IFB=7THENPRINT@231,A$:GOSUB260:GOTO60
230 IFB=8THENPRINT@234,A$:GOSUB260:GOTO60
240 IFB=9THENPRINT@237,A$:GOSUB260:GOTO60
250 IFB=0THEN10
260 PRINT@80,SPACE$(27):RETURN