home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / QBNWS102.ZIP / QEXEC.ZIP / QEXECDEM.BAS < prev   
BASIC Source File  |  1990-02-02  |  232b  |  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.