home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / sysutils / edit_cs / csedit / install.cmd < prev    next >
Encoding:
Text File  |  1993-08-02  |  1.2 KB  |  38 lines
  1. /* Install for CS-Edit/2 */
  2. Arg Drive
  3.  
  4. If Drive = '' Then Do
  5.     Say 'The install program needs a drive to install onto.'
  6.     Say 'Please enter the drive you would like CS-Edit/2 installed on,'
  7.     Say '<Default C:>'
  8.     valid = 0
  9.     Parse Pull Drive
  10.     If Drive = '' Then Drive = 'C:'
  11.     Drive = STRIP(Drive)
  12.     If RIGHT(Drive, 1) <> ':' Then Drive = Drive || ':'
  13. End
  14. Else Drive = STRIP(Drive)
  15. Directory = '\CSEDIT2'
  16.  
  17. Say 'Making the CS-Edit/2 Directory...'
  18. Say
  19. 'MD 'Drive||Directory
  20. Say
  21. Say "PKUNZIP2'ing the CSEDIT.ZIP file. If this step fails, edit this .CMD file"
  22. Say 'and Change all occurrences of PKUNZIP2 to your unzip program.'
  23. Say
  24. 'PKUNZIP2 CSEDIT.ZIP 'Drive||Directory
  25. Say
  26. Say 'Removing CS-Edit/2 INI File entries'
  27. Call RxFuncAdd 'SysIni', 'REXXUTIL', 'SysIni'
  28. Call SysIni 'USER', 'CSEDIT2', 'DELETE:'
  29. Say
  30. Say 'Creating a program object for CS-Edit/2 on your desktop...'
  31. Call RxFuncAdd 'SysCreateObject', 'REXXUTIL', 'SysCreateObject'
  32. Call SysCreateObject 'WPProgram', 'CS-Edit/2', '<WP_DESKTOP>', 'EXENAME='Drive||Directory||'\CSEDIT.EXE; STARTUPDIR='Drive||Directory, 'R'
  33. If result = 1 Then 
  34.   Say 'CS-Edit/2 installed!'
  35. Else
  36.   Say 'Problem in CS-Edit/2 installation...'
  37.  
  38. Exit