//-----------------------------------------------------------------------------
// FORMAT:  SUB PARMS     Requires X.C SPFSE macro routines
// Mark McDonald 2008
//-----------------------------------------------------------------------------
void sub(void) {
  char *tbrowser   = "H:\\U\\IE.EXE";                     //My Copy of Internet Explorer
  char *TDBASE     = "H:\\U\\DBASE\\DBASE ";              //dBASE Interpreter
  char *TDOCREADER = "H:\\U\\DOCREADER.EXE ";             //PALM DOCReader
  char *TJBASIC    = "H:\\U\\JBASIC\\JBASIC.EXE ";        //JUST BASIC Interpreter
  char *TLBASIC    = "C:\\LIBERTY\\LIBERTY.EXE -R ";      //LIBERTY BASIC Interpreter
  char *TOOREXX    = "C:\\OOREXX\\rexx.exe ";             //OOREXX Interpreter
  char *TPHP       = "H:\\U\\PHP\\PHP.EXE ";              //PHP Interpreter
  char *TR4        = "H:\\U\\R4\\R4.EXE";                 //R4 REXX Interpreter
  char *TREXX      = "H:\\U\\PCDOS\\REXX.EXE ";           //Classic REXX Interpreter
  char *tfile;
  char *texnt;
  char *tcmd;
  char *tparms = " ";
  int   i;
  //--- Get Filename, File Exnt, Passed Parms ---
    tfile = spfservice("query","FILESPEC");
    texnt = xupper(xfilespec(tfile,"E"));
    i = 2; while (i < argc) { strcat(tparms,StrCompose(" ",argv[i])); ++i; }
  //--- Execute the Compiled Version of Source Code? ---
    if(xpos(texnt,"ASM CS CPP PBS ZBS",1) > 0 ){ tcmd = strcompose("system ",xfilespec(tfile,"DPN")," ",tparms); SPFservice("cmd",tcmd); return; }
  //--- Execute DOS Batch?  ---
    if(texnt == "BAT" > 0 ){ tcmd = strcompose("system ",tfile," ",tparms); SPFservice("cmd",tcmd); return; }
  //--- Execute BASIC - Liberty?  ---
    if(texnt == "LBS" > 0 ){ tcmd = strcompose("system ",TLBASIC," ",tfile," ",tparms); SPFservice("cmd",tcmd); return; }
  //--- Execute BASIC - JBASIC?  ---
    if(texnt == "BAS" > 0 ){ tcmd = strcompose("system ",TJBASIC," ",tfile," ",tparms); SPFservice("cmd",tcmd); return; }
  //--- dBase? ---
    if(texnt == "PRG" > 0) { tcmd = strcompose("system ",TDBASE," ",tfile," ",tparms); SPFservice("cmd",tcmd); return; }
  //--- Executing a FTP Script? ---
    if(texnt == "FTP" > 0) { tcmd = strcompose("FTP -s:",tfile); SPFservice("cmd",tcmd); return;}
  //--- Use Internet Explorer? ---
    if(xpos(texnt,"HTML HTM PDF SWF JS JPG JPEG GIF",1) > 0){
      tcmd = strcompose("system NOINTERP NOBATCH NOSTOP ",tbrowser," ",tfile);
      SPFservice("cmd",tcmd);
      return;
    }
  //--- PalmDOC? ---
    if(texnt == "PDB" > 0) { tcmd = strcompose("system NOINTERP ",TDOCREADER," ",tfile," ",tparms); SPFservice("cmd",tcmd); return; }
  //--- PHP? ---
    if(texnt == "PHP" > 0) { tcmd = strcompose("system ",TPHP," ",tfile," ",tparms); SPFservice("cmd",tcmd); return; }
  //--- REXX Classic? ---
    if(texnt == "CMD" > 0) { tcmd = strcompose("system ",TREXX," ",tfile," ",tparms); SPFservice("cmd",tcmd); return; }
  //--- REXX OO? ---
    if(xpos(texnt,"REX REXX",1) > 0) { tcmd = strcompose("system ",TOOREXX," ",tfile," ",tparms); SPFservice("cmd",tcmd); return; }
  //--- Execute a Visual BASIC Module? ---
    if(texnt == "VBS" > 0 ) {
      tcmd = strcompose("system NOINTERP NOBATCH NOSTOP ","C:\\PROGRAM FILES\\MICROSOFT VISUAL STUDIO\\VB98\\VB6.EXE ",tfile," /runexit");
      if(xwords(tparms) > 0) { strcat(tcmd, " /cmd"); }
      SPFservice("cmd",tcmd);
      return;
    }
} //SUB.C
#include "x.c"