home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Educate / Educate.zip / lotto102.zip / LottoWPS.cmd < prev   
OS/2 REXX Batch file  |  1999-07-06  |  900b  |  34 lines
  1. /* LOTTOWPS - Install Lotto */
  2.  
  3. IF RxFuncQuery('SysLoadFuncs') THEN DO
  4.       CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5.       CALL SysLoadFuncs
  6. END
  7. CALL SysCls
  8. SAY ' '
  9. SAY 'This program will create Program Object for Lotto.exe on your Desktop,'
  10. SAY 'Press 'Y' (and Enter) to start Installation, any other key to exit...'
  11. PULL answer
  12. IF answer <> "Y" THEN DO
  13.     Exit
  14. END
  15. SAY ' '
  16. ProgramTitle = 'Lotto 1.02'
  17. EXE = 'Lotto.exe'
  18. ICO = 'Lotto.ico'
  19. InstallDir = DIRECTORY()
  20. WorkDir = DIRECTORY()
  21. Setup = 'EXENAME='InstallDir'\'EXE';ICONFILE='InstallDir'\'ICO';STARTUPDIR='WorkDir''
  22. Action = 'U'
  23. SAY 'Creating Program object - LOTTO'
  24. CALL SysCreateObject 'WPProgram',ProgramTitle,'<WP_DESKTOP>',Setup,Action
  25. SAY ' '
  26. SAY 'Program object created!'
  27. SAY ' '
  28. SAY 'Installation complete. You can start LOTTO now.'
  29. SAY 'Press any key to exit...'
  30. PULL answer
  31. Exit
  32.  
  33. /* End */
  34.