8224 10 REM > KeyDOS
TINT 20 CLS
TINT
13088 0 OFF
TINT 40 REPEAT
TINT 50
21828 30
TINT 60 FOR A%=0 TO 255
TINT 70 IF INKEY(&FE00+A%):PRINT" "FNh0(A%,3); ELS
21072 INTSPC4;
TINT 80 IF (A% A
12576 5)=15:PRINT
TINT 90 NEXT
TINT 100 UNTIL FALSE
TINT 110 DEFFNh0(A%,N
21053 IGHT$("0000000"+STR$~A%,N%)
TINT