По нажатию клавиши определить код ASCII- QBasic(Бейсик)

CLS
DO: Kb$ = INKEY$
  IF Kb$ <> "" THEN
    IF LEFT$(Kb$, 1) = CHR$(0) THEN
      LOCATE , 20
      PRINT "INKEY$ = CHR$(0) + CHR$(";
      PRINT LTRIM$(STR$(ASC(RIGHT$(Kb$, 1)))); ")"
      PRINT
    ELSE
      LOCATE , 20
      PRINT "INKEY$ = CHR$("; LTRIM$(STR$(ASC(Kb$))); ")"
      PRINT
    END IF
  END IF
LOOP UNTIL Kb$ = CHR$(27)