Примеры программ на языке QBASIC


REM Анализ кода нажатой клавиши
CLS
GETKEY: A$ = INKEY$: IF A$ = "" THEN GOTO GETKEY
IF ASC(A$) = 27 THEN STOP
IF LEN(A$) = 1 THEN
   IF ASC(A$) = 13 THEN
      PRINT "Нажата клавиша Enter с кодом = 13": GOTO GETKEY
   END IF
   PRINT "Нажата обычная клавиша '"; A$; "' с кодом ="; ASC(A$)
   ELSE
   PRINT "Нажата управляющая клавиша с кодом "; ASC(RIGHT$(A$, 1))
END IF
GOTO GETKEY