10 OPEN "com2:1200,n,8,1" AS #1
20 COM(1) ON
30 A=LOC(1):IF A<1 THEN 30
40 B$=INPUT$(A,#1)
50 B=ASC(B$)
60 B$=HEX$(B)
70 IF LEN(B$)=1 THEN B$="0"+B$
80 PRINT B$;" ";
90 GOTO 30