home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
QBNWS102.ZIP
/
QEXEC.ZIP
/
ASK.BAS
next >
Wrap
BASIC Source File
|
1990-02-02
|
264b
|
12 lines
DEFINT A-Z
'$INCLUDE: 'PDQDECL.BAS'
PRINT "Enter a number (0-9): ";
DO 'wait until a number key is pressed
Ask = BIOSInkey
LOOP WHILE Ask < 48 OR Ask > 57
PRINT
EndLevel (Ask - 48) 'adjust ASCII to a valid number and exit