10 GET A$:IF A$="" THEN 10
20 A=ASC(A$)
30 PRINT A$,A
40 GOTO 10