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