1 SOPEN
2 IF RXFLAG THEN
3 A=RCX:PRINT CHR(A)
4 ENDIF
5 GOTO 2
