home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / table111.zip / TableWPS.cmd < prev   
OS/2 REXX Batch file  |  2000-01-01  |  966b  |  34 lines
  1. /* TableWPS.cmd - Install procedure for Table.exe */
  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 Table v.1.11 on your Desktop,'
  10. SAY ' '
  11. SAY 'Press 'Y' (and Enter) to start Installation, any other key to exit...'
  12. PULL answer
  13. IF answer <> "Y" THEN DO
  14.     Exit
  15. END
  16. SAY ' '
  17. bld_dir = DIRECTORY()
  18. bld_title = 'Table 1.11'
  19. bld_classname = 'WPProgram' 
  20. bld_location  = '<WP_DESKTOP>'
  21. bld_mode = 'U'
  22. bld_setup = 'OBJECTID=<TABLE111_PROG>;EXENAME='bld_dir'\'Table.exe';STARTUPDIR='bld_dir''
  23. SAY 'Creating Program object - Table 1.11'
  24. dummy = SysCreateObject( bld_classname, bld_title, bld_location, bld_setup, bld_mode )
  25. SAY ' '
  26. SAY 'Program object created!'
  27. SAY ' '
  28. SAY 'Installation complete. You can start Table now.'
  29. SAY 'Press any key to exit...'
  30. PULL answer
  31. Exit
  32.  
  33. /* EOF TableWPS.cmd */
  34.