DO
    DO
        key$ = INKEY$
    LOOP WHILE key$ = ""
FOR i = 1 TO LEN(key$)
    PRINT ASC(MID$(key$, i, 1))
NEXT i
LOOP