18 lines
301 B
QBasic
18 lines
301 B
QBasic
$1 = "_________"
|
|
A = & $1
|
|
FOR X = 1 TO 9
|
|
FOR Y = 1 TO 9
|
|
PEEK B A
|
|
IF B = 95 THEN PRINT "_" ;
|
|
IF B = 88 THEN PRINT "X" ;
|
|
IF B = 79 THEN PRINT "O" ;
|
|
C = A % 3
|
|
IF C = 0 THEN PRINT " "
|
|
A = A + 1
|
|
NEXT Y
|
|
Z = X % 2
|
|
IF Z = 0 THEN PRINT "You are X"
|
|
IF Z = 1 THEN PRINT "You are O"
|
|
NEXT X
|
|
END
|