10 KEY 1, ""
20 A$=INKEY$: IF A$="z" THEN END
30 IF A$=CHR$(0)+CHR$(&H3B) THEN PRINT "f1"
40 IF A$<>"" THEN PRINT HEX$(ASC(A$));
45 IF LEN(A$)>1 THEN PRINT HEX$(ASC(RIGHT$(A$,1)));
46 IF A$<>"" THEN PRINT"#"
50 GOTO 20
