¿Puedes comprobar este código para BASIC de ZX81?
10 DIM RED(2) : DIM RED(2)
20 RED(1) = "X"
30 RED(2) = "X"
40
50 PRINT "Tic-Tac-Toe"
60 PRINT "X vs X"
70 PRINT "Who will win?"
80
90 INPUT "PLAY/"
100 INPUT "PLAYERS/"
110 IF INPUT = "PLAY" THEN GOTO 150
120 IF INPUT = "PLAYERS" THEN GOTO 160
130 GOTO 10
140
150 INPUT = VAL(INPUT)
160
170 FOR I = 1 TO 3
180 IF INPUT = RED(I) THEN GOTO 190
190 RED(I) = INPUT
200 PRINT "X: "
210 PRINT "X: "
220 PRINT "X: "
230 PRINT " "
240 PRINT "PLAYERS: "
250 PRINT "X: "
260 PRINT "X: "
270 PRINT "X: "
280 GOTO 10 You should write your response with 300 or more words.
user