home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / TIMEOUT.BAS < prev    next >
BASIC Source File  |  1994-01-08  |  745b  |  27 lines
  1. SUB TIMEOUT
  2. IF TIMER > USERTIME# THEN PROZOCLS:PROZOPRINT "SORRY.  Your time limit has been exceeded for this session.  Please call back."+CrLf$:ERROR 1
  3. IF tty THEN
  4. PROZOPRINT CrLf$ + CrLf$
  5. PROZOPRINT CHR$(7) + "Press [ENTER] to continue, or logout in 30 seconds..." + CrLf$ + CHR$(7)
  6.   LET dropout# = TIMER + 30
  7.   DO
  8.   CALL DVPAUSE
  9.   A$=PROZOINKEY$
  10.   IF TIMER > dropout# THEN ERROR 1
  11.   LOOP WHILE A$=""
  12.  
  13. IF A$ = CHR$(3) THEN ERROR 1
  14. ELSE ' if ansi then
  15.  PROZOPRINT "^B^F^R^w@CHR(7)"
  16.  PROZOL "WINDOW 20,15,20,65;'Press [ENTER] to continue, or logout in 30 seconds...'"
  17.   LET dropout# = TIMER + 30
  18.   DO
  19.   A$=PROZOINKEY$
  20.   IF TIMER > dropout# THEN ERROR 1
  21.   LOOP WHILE A$=""
  22.  
  23. IF A$ = CHR$(3) THEN ERROR 1
  24. end if
  25. END SUB
  26.  
  27.