CLS
FOR i = 1 TO 3: FOR j = 1 TO 3: x$(i, j) = "-": NEXT: NEXT
gioc$ = "X"
10
FOR i = 1 TO 3: FOR j = 1 TO 3
   LOCATE i, j * 2: PRINT x$(i, j)
NEXT: NEXT
20
LOCATE 5: PRINT SPACE$(50): LOCATE 5
PRINT
PRINT "giocatore "; gioc$; ":  "; : INPUT "riga,colonna"; r, c
IF x$(r, c) <> "-" THEN GOTO 20
IF gioc$ = "X" THEN x$(r, c) = "X": gioc$ = "O" ELSE x$(r, c) = "O": gioc$ = "X"
GOTO 10