Не работает тестовый курсор

CLS
GOTO DESKTOP
DESKTOP:
CLS
Color 11, 1
CLS
LOCATE 25, 1: Color 11
LOCATE 25, 1: PRINT "MENU                                                                                "
DO
    x = 1
    y = 1
    k$ = INKEY$
    IF k$ = "s" THEN
        CLS
        x = x + 1
        CLS
    END IF
    IF k$ = "a" THEN
        CLS
        y = y - 1
        CLS
    END IF
    IF k$ = "d" THEN
        CLS
        y = y + 1
        CLS
    END IF
 
    IF k$ = "w" THEN
        CLS
        x = x - 1
        CLS
    END IF
    IF k$ = "x" THEN
        Color 4, 0
        CLS
        LOCATE 2, 1: Color 0, 4
        CLS
        LOCATE 1, 1: PRINT "MENU                                                                         "
    END IF
    IF k$ = "z" THEN
        CLS
        Color 0, 0
        END
    END IF
    IF x = 0 THEN
        x = x + 1
        CLS
    END IF
    IF y = 0 THEN
        y = y + 1
        CLS
    END IF
 
 
    CLS
    LOCATE x, y: PRINT "*"
 
 
LOOP

DEFINT A-Z
' ставим начальную позицию курсора в центр экрана
x = 41: y = 13
' запоминаем положение курсора
oldx = x: oldy = y
' стираем экран
CLS
' цикл
DO
' стираем старое положение курсора
COLOR 7, 0: LOCATE oldy, oldx: PRINT " ";
' пишем что хотим
COLOR 11: LOCATE 25, 1: PRINT "MENU";
' ставим курсор в новое положение
COLOR 14, 0: LOCATE y, x: PRINT "*";
' ставим цвет в какой хотим по умолчанию
COLOR 7, 0
' опрашиваем клавишу (см хэлп почему не inkey$)
k$ = INPUT$(1)
' запоминаем положение курсора
oldx = x: oldy = y
' если нажата ESC или z то выход
IF k$ = CHR$(27) OR k$ = "z" THEN END
' вычисляем новые x y
x = x + (k$ = "a") - (k$ = "d")
y = y + (k$ = "w") - (k$ = "s")
' проверяем выход за границы экрана
IF x < 1 THEN x = 1
IF y < 1 THEN y = 1
IF x > 80 THEN x = 80
IF y > 25 THEN y = 25
LOOP
END

DEFINT A-Z
save0 = 0: save1 = 1
' ставим начальную позицию курсора в центр экрана
x = 41: y = 13
' запоминаем положение курсора
oldx = x: oldy = y
' стираем экран
CLS
' пишем что хотим
COLOR 11: LOCATE 25, 1: PRINT "MENU";
t$ = "Hello, world!"
FOR i = 1 TO LEN(t$)
    COLOR 10 + (i MOD 3): LOCATE 12, 35 + i
    PRINT MID$(t$, i, 1);
NEXT i
' ставим цвет в какой хотим по умолчанию
COLOR 7, 0
' Запоминаем символ в позиции
save0 = SCREEN(oldy, oldx, 0)
' Запоминаем атрибут цвета в позиции
save1 = SCREEN(oldy, oldx, 1)
' цикл
DO
' стираем старое положение курсора
COLOR save1 MOD 16, INT(save1 / 16): LOCATE oldy, oldx: PRINT CHR$(save0);
' ставим курсор в новое положение
save0 = SCREEN(y, x, 0)
save1 = SCREEN(y, x, 1)
COLOR 14, 0: LOCATE y, x: PRINT "*";
' ставим цвет в какой хотим по умолчанию
COLOR 7, 0
' опрашиваем клавишу (см хэлп почему не inkey$)
k$ = INPUT$(1)
' запоминаем положение курсора
oldx = x: oldy = y
' если нажата ESC или z то выход
IF k$ = CHR$(27) OR k$ = "z" THEN END
' вычисляем новые x y
x = x + (k$ = "a") - (k$ = "d")
y = y + (k$ = "w") - (k$ = "s")
' проверяем выход за границы экрана
IF x < 1 THEN x = 1
IF y < 1 THEN y = 1
IF x > 80 THEN x = 80
IF y > 25 THEN y = 25
LOOP
END

FUNCTION xinkey
DO: q$ = INKEY$: LOOP WHILE q$ = ""
IF LEN(q$) = 1 THEN d = ASC(q$) ELSE d = 256 + ASC(MID$(q$, 2, 1))
xinkey = d
END FUNCTION