10 OPEN"com2:1200,n,8,1" AS #1
20 PRINT#1,"ATB2S10=255S9=0DT3611"
22 ON ERROR GOTO 600
25 COM(1) ON
30 INPUT Z$
510 IF INKEY$=CHR$(27) THEN 700
520 A=LOC(1):IF A<1 THEN 510
530 B$=INPUT$(A,#1)
540 B=ASC(B$)
550 B$=HEX$(B)
560 IF LEN(B$)=1 THEN B$="0"+B$
570 PRINT B$;" ";
580 GOTO 520
600 RESUME
700 CLOSE#1