home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / x128v05.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1997-01-12  |  581b  |  20 lines
  1. /* REXX program to make Workplace Shell object and associations for x128 OS/2 */
  2.  
  3. 'cls'
  4.  
  5. say "Creating Workplace object for x128 OS/2 with associations"
  6.  
  7. Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  8. Call sysloadfuncs
  9. fullpath=Directory()
  10. if right(fullpath, 1) \= "\" then do
  11.    fullpath = fullpath || "\"
  12.    end
  13.  
  14. assoc = '*.Z80,*.SLT,*.SNA,*.TAP,*.VOC'
  15. progname = 'x128.exe'
  16. progtype = 'PM'
  17.  
  18. Call SysCreateObject 'WPProgram','x128 OS/2','<WP_DESKTOP>','EXENAME='||fullpath||'\x128.exe;PROGTYPE=PM;STARTUPDIR='||fullpath||';ASSOCFILTER='||assoc,'R'
  19. return
  20.