Ребята нужен один из программистов данного языка

 DECLARE SUB KbINIT ()
 DECLARE SUB KbKILL ()
DIM SHARED Up%, Dn%, Lf%, Rg%
 
 KbINIT
    DO: Kb$ = INKEY$
       LOCATE 1, 1: PRINT Up%, Dn%, Lf%, Rg%
    LOOP UNTIL EscK%
 KbKILL
 
END
 ' Процедуры прерывания
UpOn: Up% = 1: RETURN
UpOff: Up% = 0: RETURN
DnOn: Dn% = 1: RETURN
DnOff: Dn% = 0: RETURN
LfOn: Lf% = 1: RETURN
LfOff: Lf% = 0: RETURN
RgOn: Rg% = 1: RETURN
RgOff: Rg% = 0: RETURN
EscOn: EscK% = 1: RETURN
 
SUB KbINIT
  ' Назначаем клавишу вверх
KEY 15, "АH"
KEY 16, "А" + CHR$(200)
  ' Назначаем клавишу вниз
KEY 17, "АP"
KEY 18, "А" + CHR$(208)
  ' Назначаем клавишу лево
KEY 19, "АK"
KEY 20, "А" + CHR$(203)
  ' Назначаем клавишу право
KEY 21, "АM"
KEY 22, "А" + CHR$(205)
  ' Назначаем клавишу ESC
KEY 23, CHR$(0) + CHR$(1)
  ' Назначаем процедуры прерывания
ON KEY(15) GOSUB UpOn
ON KEY(16) GOSUB UpOff
ON KEY(17) GOSUB DnOn
ON KEY(18) GOSUB DnOff
ON KEY(19) GOSUB LfOn
ON KEY(20) GOSUB LfOff
ON KEY(21) GOSUB RgOn
ON KEY(22) GOSUB RgOff
ON KEY(23) GOSUB EscOn
  ' Включаем процедуры
KEY(15) ON
KEY(16) ON
KEY(17) ON
KEY(18) ON
KEY(19) ON
KEY(20) ON
KEY(21) ON
KEY(22) ON
KEY(23) ON
END SUB
 
SUB KbKILL
' Сбрасываем векторы
KEY(15) OFF
KEY(16) OFF
KEY(17) OFF
KEY(18) OFF
KEY(19) OFF
KEY(20) OFF
KEY(21) OFF
KEY(22) OFF
KEY(23) OFF
END SUB