10 CLS:CLEAR
20 WIDTH 20,16
60 OPEN "I",#1,"COM0:(28N1F)"
70 OPEN "O",#2,"COM0:(28N1F)"
80 WIDTH "COM0:",255
100 KB$=INKEY$:IF KB$="" THEN 200
110 PRINT #2, KB$
200 IF EOF(1) THEN 100
210 C$=INPUT$(1,#1)
220 PRINT C$:GOTO 200