10 REM Receive File terminated if no characters received after 10s
   20 :
   30 file$="RXFILE.TXT" : fptr=OPENOUT(file$)
   40 port=OPENIN("COM:")
   50 TIME=0
   60 REPEAT
   70   IF (NOT EOF#port) C%=BGET#port:TIME=0:BPUT#fptr,C%:PRINT CHR$(C%);
   80 UNTIL (TIME > 1000)
   90 CLOSE#port
  100 PRINT "TIMED OUT -- FILE RECEIVED"
  110 BPUT#fptr,&1A : CLOSE#fptr
  120 STOP
  130 END