home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Educate / Educate.zip / pmlotto.zip / install.cmd next >
OS/2 REXX Batch file  |  1998-09-17  |  431b  |  18 lines
  1. /* PM-Lotto Installation */
  2.  
  3. call RXFUNCADD "LoadFuncs","REXXUTIL","SysLoadFuncs"
  4. call LoadFuncs
  5.  
  6. PARSE SOURCE . . pgmname .
  7. teila=filespec("D",pgmname)
  8. teilb=filespec("P",pgmname)
  9. pfname=teila||teilb
  10.  
  11. say pfname
  12.  
  13. if syscreateobject("WPProgram" , "PM-Lotto 1.1" , "<WP_DESKTOP>" , "EXENAME="||pfname||"\pmlotto.exe" , "R") = 1 then do 
  14.     say "Installation completed"
  15. end
  16. else do
  17.     say "Installation failed"
  18. end