COUNT = 0
DIM T$(100)
CLS
DID = 0

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

WHILE 1
  WHILE LOC(1) <> 0
     IF DID = 0 THEN GOSUB PAGE
     IF DID = 1 THEN GOSUB CBUFF
  WEND
  I$ = INKEY$
  IF I$ = "Q" THEN GOTO QUITT
  IF I$ = "q" THEN GOTO QUITT
  IF I$ <> "" THEN PRINT #1, I$
WEND
CLOSE 1
QUITT:
FOR K = 1 TO COUNT
PRINT T$(K)
NEXT K
END

CBUFF:
WHILE (LOC(1) <> 0)
   G$ = INPUT$(1, 1)
WEND
M$ = TIME$
MIKEL:
  IF M$ = TIME$ THEN GOTO MIKEL
  IF LOC(1) <> 0 THEN GOTO CBUFF
DID = 0
CLS
RETURN

CONV:
T1 = VAL(RIGHT$(TIME$, 2))
T2 = VAL(MID$(TIME$, 4, 2))
T3 = VAL(LEFT$(TIME$, 2))
T = T1 + (T2 * 60) + (T3 * 360)
RETURN

PAGE:
COUNT = COUNT + 1
T$(COUNT) = "CALL#" + STR$(COUNT) + " --- " + TIME$
GOSUB CONV
M = T
WHILE (T - M < 120)
  GOSUB CONV
  LOCATE 3, 1
  PRINT "2 MINUTE PAGE DELAY: "; T - M
  G$ = INKEY$
  IF G$ <> "" THEN M = M - 120
WEND
GOSUB CBUFF
DIAL:
  Z$ = "atdt 7907162,,,,129*" + STR$(COUNT) + "#"
  PRINT #1, Z$
  PRINT "DIALING..."
  GOSUB CONV
  M = T
SEEIT:
  WHILE (T - M < 17)
  GOSUB CONV
  LOCATE 3, 1
  PRINT "17 SECOND TIMEOUT: "; T - M
WEND
PRINT #1, CHR$(13)
  GOSUB CONV
  M = T
CDEL:
  WHILE (T - M < 300)
  GOSUB CONV
  LOCATE 3, 1
  PRINT "5 MINUTE CALL-IN TIMEOUT: "; T - M
  G$ = INKEY$
  IF G$ <> "" THEN M = M - 300
  WEND
DID = 1
CLS
RETURN

WKEY:
G$ = INKEY$
IF G$ = "" THEN GOTO WKEY
RETURN