OPEN "COM1:2400,N,8,1" FOR RANDOM AS #1

DO

 IF LOC(1) THEN
  Recieve$ = INPUT$ (1, #1)
  PRINT Recieve$;
 END IF

LOOP

CLOSE