home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / TIMEWAIT.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  805 b   |  18 lines
  1. *****************************************************************
  2. *     * 09/92               POPUP1.PRG                          *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates WAIT TIMEOUT command           *
  8. *****************************************************************
  9. WAIT "Enter Spacebar to stop" WINDOW TIMEOUT 3.25 TO CHAR
  10. IF ASC(CHAR) = 32  && Was spacebar pressed?
  11.     ? "You entered a Spacebar"
  12. ELSE
  13.     IF LEN(CHAR) = 0 && Null string?
  14.        ? "You did not type a Spacebar for 3-1/4 seconds"
  15.     ENDIF
  16. ENDIF    
  17. RETURN
  18.