home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / ic92.zip / ICInst.cmd next >
OS/2 REXX Batch file  |  1995-03-15  |  2KB  |  47 lines
  1. /* Install INTERcomm etc. */
  2.  
  3. '@Echo off'
  4. say ''
  5. say ''
  6. say 'C┌───────────────────────────────────────────────────────────────────┐'
  7. say 'C│                INTERcomm 0.92 Installation Program                │'
  8. say 'C│   INTERcomm is copyright (c) 1995 by AdeptSoft & Gordon Zeglinski │'
  9. say 'C│                        All rights reserved                        │'
  10. say 'C├───────────────────────────────────────────────────────────────────┤'
  11. say 'C├───────────────────────────────────────────────────────────────────┤'
  12. say 'C│        By running this program, you agree to the license          │'
  13. say 'C│                  as specified in AdpXBBS.DOC.                     │'
  14. say 'C└───────────────────────────────────────────────────────────────────┘'
  15.  
  16. rc = stream('INTERCOM.DAT','c','query exists')
  17. if rc = '' then
  18. do
  19.   say 'Sorry, INTERCOM.DAT not found.  Must not be right directory. Terminating.'
  20.   exit
  21. end
  22.  
  23. curdir = directory()
  24.  
  25. do
  26.   say ''
  27.   say 'Current sub-directory: 'curdir
  28.   say 'Install INTERcomm into the current'
  29.   say 'sub-directory? (Y/N)'
  30.   parse upper pull dummy
  31.   if left(dummy,1) = 'N' then exit
  32.   say ''
  33. end
  34.  
  35. say 'Installing INTERcomm... Please wait...'
  36. '@INTERCOM.DAT /o >NUL'
  37. rc = stream('install.exe','c','query exists')
  38. if rc = '' then
  39. do
  40.   say 'Sorry, INSTALL.EXE not found.  Must not be right directory. Terminating.'
  41.   exit
  42. end
  43.  
  44. say "Starting Install phase II.."
  45.  
  46. '@start install.exe'
  47.