CLS
OPEN "COM2:9600,N,8,1,lf,cs,ds,cd,op,rs" FOR RANDOM AS #1
COM(2) ON
ON COM(2) GOSUB rxflag

DO
key$ = INKEY$
IF key$ <> "" THEN PRINT #1, key$
IF rxflag = 1 THEN GOSUB getmessage
LOOP UNTIL key$ = "!"
END

rxflag:
rxflag = 1
RETURN

getmessage:
rxflag = 0
DO UNTIL EOF(1)
rxchar$ = INPUT$(1, #1)
IF ASC(rxchar$) < 32 OR ASC(rxchar$) > 128 THEN rxchar$ = ""
PRINT rxchar$;
LOOP
RETURN