home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / GETXCHAR.BAS < prev    next >
BASIC Source File  |  1993-12-18  |  261b  |  19 lines
  1. SUB GetXChar (Ch$, toolong%, x%)
  2. $IF NOT %NOXMODEM
  3.   toolong% = 1
  4.   Ch$ = CHR$(0)
  5.   Tstart! = TIMER
  6.  
  7.  
  8.   WHILE Comchars%=0 AND TIMER - Tstart! <= x%
  9.  
  10.     WEND
  11.  
  12.   IF Comchars% THEN
  13.     Ch$ = COMINKEY$
  14.     toolong% = 0
  15.     END IF
  16. $ENDIF
  17. END SUB
  18.  
  19.