{* Движение по экрану 0 *}

REM basic

' Движение по экрану 0


SCREEN 9 {движ по экр 0
}COLOR 14, 9
CLS
x = 10
y = 40
LOCATE x, y
PRINT "o"
10 a$ = INKEY$
If a$  "{ Then
}z$ = Mid$(a$, 2, 1) {код горячей клавиши
}If z$ = "" Then z$ = "один символ"
LOCATE x, y
PRINT " "
kod = ASC(z$)
If kod = 72 And x > 1 Then x = x - 1
If kod = 77 And y < 79 Then y = y + 1
If kod = 80 And x < 22 Then x = x + 1
If kod = 75 And y > 1 Then y = y - 1
LOCATE x, y
PRINT "o"
End If
GoTo 10