CLS
 OPEN "COM1:2400,N,8,1,CD0,CS0,DS0" FOR RANDOM AS 1
 OPEN "REGLOG.CSV" FOR APPEND AS 2
 SCREEN 12
 WIDTH 80, 60
 WIDTH 80, 50
 WIDTH 80, 43
 'WIDTH 80, 30
 WIDTH 80, 25
 C = 15
 ON ERROR GOTO ERRORFIX
 DO
  LOCATE 1, 1
  PRINT "REGPOLL4.BAS by JOE SMALLEY 16 February 2006.        Press <ESC> to exit."
  C = (C - 14 + 1) MOD 2 + 14
  'C = (C + 1) MOD 16
  COLOR C
  'PRINT C
  OPEN "REGPOLL.CSV" FOR INPUT AS 3
  INPUT #3, TIMING
  PRINT #2, DATE$; ","; TIME$; ",";
  DO
   INPUT #3, C$
   PRINT #1, C$
   R$ = ""
   COUNT = 0
   DO
    IF LOC(1) >= 1 THEN
     CHAR$ = INPUT$(1, 1)
     CHVAL = ASC(CHAR$)
     IF CHVAL = 13 OR CHVAL = 10 THEN CHAR$ = ""
     R$ = R$ + CHAR$
     CHAR$ = ""
    END IF
    COUNT = COUNT + 1
   LOOP UNTIL COUNT > TIMING
   R$ = R$ + "            "
   R$ = MID$(R$, 1, 13)
   PRINT R$;
   PRINT #2, R$; ",";
  LOOP UNTIL EOF(3)
  PRINT #2,
  CLOSE 3
  KEY$ = INKEY$
  IF KEY$ = CHR$(27) THEN ENDFLAG = 1
  IF UCASE$(KEY$) = "H" THEN
   CLS
   INPUT "COMMAND"; C$
   PRINT #1, C$
   R$ = ""
   COUNT = 0
   DO
    IF LOC(1) >= 1 THEN
     CHAR$ = INPUT$(1, 1)
     CHVAL = ASC(CHAR$)
     IF CHVAL = 13 OR CHVAL = 10 THEN CHAR$ = ""
     R$ = R$ + CHAR$
     CHAR$ = ""
    END IF
    COUNT = COUNT + 1
   LOOP UNTIL COUNT > TIMING
   R$ = R$ + "            "
   R$ = MID$(R$, 1, 12)
   PRINT R$;

  END IF
 LOOP UNTIL ENDFLAG = 1
 END

ERRORFIX:
 PRINT "ERROR";
 RESUME NEXT