Управление клавишами - QBasic

CLS
sqr1$ = "?"
sqr2$ = "?"
sqr3$ = "?"
sqr4$ = "?"
sqr5$ = "?"
sqr6$ = "?"
sqr7$ = "?"
sqr8$ = "?"
sqr9$ = "?"
scorex = 0
score0 = 0
turn = 1
k$ = INKEY$
PRINT "                               КРЕСТИКИ-НОЛИКИ"
PRINT
PRINT "Начать игру (Start)"
PRINT
PRINT "Выйти (Exit)"
PRINT
INPUT " ", act$
SELECT CASE act$
CASE "Start"
GOTO game
CASE "Exit"
END
CASE ELSE
END
END SELECT
game:
CLS
PRINT "                               КРЕСТИКИ-НОЛИКИ"
PRINT
PRINT "                                     " + sqr1$; " " + sqr2$; " " + sqr3$
PRINT "                                     " + sqr4$; " " + sqr5$; " " + sqr6$
PRINT "                                     " + sqr7$; " " + sqr8$; " " + sqr9$
code:
IF turn = 1 THEN
102 IF k$ = "" THEN GOTO 102
IF k$ = "1" THEN
sqr1$ = "X"
turn = 0
END IF
END IF
IF turn = 0 THEN
103 IF k$ = "" THEN GOTO 103
IF k$ = "2" THEN
sqr1$ = "O"
turn = 1
END IF
END IF
GOTO code