10 REM Log File terminated if "^Z" input
   20 CLS
   30 L%=1000 : f$="LOG"+STR$(L%)+".TXT" : fptr=OPENOUT(f$)
   40 Z%=&1A : K%=-1 : port=OPENUP("COM:")
   60 REPEAT
   70   IF ((K%>-1) AND (EXT#port=0)) BPUT#port,K%
   80   IF (NOT EOF#port) PROCecho_log : PROCsize_log
   90   K%=INKEY(1)
  100 UNTIL (K%=Z%)
  110 CLOSE#port
  120 PRINT "EOF (^Z) input -- Closing File:";
  130 size = EXT#fptr : CLOSE#fptr
  140 PRINT "size=";size;" bytes!" : STOP
  150 END
  160 DEF PROCecho_log
  170 REPEAT:K%=BGET#port:BPUT#fptr,K%:PRINT CHR$(K%);:UNTIL(EOF#port)
  180 ENDPROC
  190 DEF PROCsize_log
  200 size=EXT#fptr : IF (size<16384) ENDPROC
  210 CLOSE#fptr:L%=L%+1:f$="LOG"+STR$(L%)+".TXT":fptr=OPENOUT(f$)
  220 ENDPROC