home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBNWS102.ZIP / QEXEC.ZIP / QEXECDEM.BAS < prev   
Encoding:
BASIC Source File  |  1990-02-02  |  232 b   |  13 lines
  1. DEFINT A-Z
  2. DECLARE FUNCTION QExec% (CmdLne$)
  3.  
  4. CLS
  5. PRINT "We will be shelling to ASK.EXE and return an errorlevel..."
  6.  
  7. FileName$="ASK.COM"+CHR$(0)
  8. RetCode = QExec(FileName$)
  9.  
  10. PRINT "You pressed the number "; RetCode
  11.  
  12. END
  13.