home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / CWAIT.BAS < prev    next >
BASIC Source File  |  1994-02-01  |  234b  |  13 lines
  1. SUB CWAIT
  2.   LET dropout# = TIMER + 300
  3.   StartCwaitLoop:
  4.   CALL DVPAUSE
  5.   IF LEN(PROZOINKEY$) THEN EXIT SUB
  6.   if comline and direct$="" then
  7.   IF TIMER > dropout# THEN CALL TIMEOUT
  8.   end if
  9.   GOTO StartCwaitLoop
  10.  
  11. END SUB
  12.  
  13.