home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / QBNWS102.ZIP / QEXEC.ZIP / ASK.BAS next >
Encoding:
BASIC Source File  |  1990-02-02  |  264 b   |  12 lines
  1. DEFINT A-Z
  2. '$INCLUDE: 'PDQDECL.BAS'
  3.  
  4.  
  5. PRINT "Enter a number (0-9): ";
  6. DO                      'wait until a number key is pressed
  7.    Ask = BIOSInkey
  8. LOOP WHILE Ask < 48 OR Ask > 57
  9.  
  10. PRINT
  11. EndLevel (Ask - 48)     'adjust ASCII to a valid number and exit
  12.