home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / SIMPLE.INPUT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  255b  |  8 lines
  1. 10 STROBE = 49168:INKEY = 49152:KEYPRESS = 0
  2. 20  POKE STROBE,0
  3. 30  FOR I = 1 TO 250
  4. 40  IF  PEEK(INKEY) > = 128  THEN I = 250:KEYPRESS = 1
  5. 50  NEXT I
  6. 60  IF KEYPRESS = 1  THEN  INPUT Z$: GOTO 80
  7. 70  PRINT : PRINT "TIME EXPIRED."
  8. 80  REM  PROGRAM CONTINUES