home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / zipedsos.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1993-07-19  |  4KB  |  182 lines
  1. /*  INSTALL  -  SOS and Maxi Menu  */
  2. /* Copyright (c) 1993 Client Server Networking Inc. */
  3. ECHO OFF
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'sysLoadFuncs'
  5. call SysLoadFuncs
  6. 'mode co80,15'
  7. r=syscls()
  8. pos=SysCurPos(0,0)
  9. call logo
  10. say '  Enter drive to install to'
  11. pos=syscurpos(10,30)
  12. pull drive
  13. say
  14. if length(drive)>1 then drive=left(drive,1)
  15. rc=sysmkdir(drive||':\SOS')
  16. if rc=3 then say ' Error creating SOS directory '
  17. if rc=3 then exit
  18. rc=sysmkdir(drive||':\Maxi')
  19. if rc=3 then say ' Error creating MAXI directory '
  20. if rc=3 then exit
  21.  
  22. /* file copies */
  23. 'copy  EVAIL.DOC '||drive||':\maxi'
  24. 'copy  LICENSE.DOC '||drive||':\maxi'
  25. 'copy KL128394.CMD '||drive||':\maxi'
  26.  
  27. 'copy E001694.CMD '||drive||':\maxi'
  28.  
  29. 'copy MENU.DAT '||drive||':\maxi'
  30.  
  31. 'copy PM165594.CMD '||drive||':\maxi'
  32.  
  33. 'copy P465799.CMD '||drive||':\maxi'
  34.  
  35. 'copy P081894.CMD '||drive||':\maxi'
  36.  
  37. 'copy P441894.CMD '||drive||':\maxi'
  38.  
  39. 'copy P501994.CMD '||drive||':\maxi'
  40.  
  41. 'copy J342094.CMD '||drive||':\maxi'
  42.  
  43. 'copy P062394.CMD '||drive||':\maxi'
  44.  
  45. 'copy E282594.CMD '||drive||':\maxi'
  46.  
  47. 'copy N154594.CMD '||drive||':\maxi'
  48.  
  49. 'copy O189895.CMD '||drive||':\maxi'
  50.  
  51. 'copy MAXI.EXE '||drive||':\maxi'
  52.  
  53. 'copy MAXI.ICO '||drive||':\maxi'
  54.  
  55. 'copy MM.INF '||drive||':\maxi'
  56.  
  57. 'copy P448799.CMD '||drive||':\maxi'
  58.  
  59. 'copy P545699.CMD '||drive||':\maxi'
  60.  
  61.  
  62. 'copy  EVAIL.DOC '||drive||':\sos'
  63. 'copy  LICENSE.DOC '||drive||':\sos'
  64. 'Copy SOS.INF '||drive||':\sos'
  65.  
  66. 'Copy SOS.EXE '||drive||':\sos'
  67.  
  68. 'Copy SOS.ICO '||drive||':\sos'
  69.  
  70. 'Copy A.CMD '||drive||':\sos'
  71.  
  72. 'Copy B.CMD '||drive||':\sos'
  73.  
  74. 'Copy C.CMD '||drive||':\sos'
  75.  
  76. 'Copy D.CMD '||drive||':\sos'
  77.  
  78. 'Copy E.CMD '||drive||':\sos'
  79.  
  80. 'Copy F.CMD '||drive||':\sos'
  81.  
  82. 'Copy EDIT.PRO '||drive||':\sos'
  83.  
  84. 'Copy MINIMENU.DAT '||drive||':\sos'
  85.  
  86. 'Copy SOS.BMP '||drive||':\sos'
  87.  
  88. 'Copy OS2CMD.CMD '||drive||':\sos'
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101. /* SOS */
  102. defaultdir=drive||':\sos\'
  103. location='<WP_DESKTOP>'
  104. classname='WPProgram'
  105. title='Son of Shell'
  106. startdir='STARTUPDIR='||defaultdir||';'
  107. objectid='OBJECTID=<'sos'>;'
  108. exename='EXENAME='||defaultdir||'sos.exe;'
  109. setup=objectid||exename||startdir
  110. result = SysCreateObject(classname, title, location, setup, 'R')
  111.  
  112.  
  113. /* Maxi Menu */
  114. defaultdir=drive||':\maxi\'
  115. location='<WP_DESKTOP>'
  116. classname='WPProgram'
  117. title='Maxi Menu'
  118. startdir='STARTUPDIR='||defaultdir||';'
  119. objectid='OBJECTID=<'maxi'>;'
  120. exename='EXENAME='||defaultdir||'maxi.exe;'
  121. setup=objectid||exename||startdir
  122. result = SysCreateObject(classname, title, location, setup, 'R')
  123.  
  124. exit  /* leave program */
  125.  
  126.  
  127. logo:
  128. call setCVALUES
  129. 'ECHO ON'
  130. call setNormColors
  131. 'CLS'
  132. 'ECHO OFF'
  133.       say' ┌─────────────────────────────────────────────────────────┐'
  134.       say' │  Son of Shell and Maxi Menu will be installed in dirs:  │'
  135.       say' │       :\SOS                                             │'
  136.       say' │       :\MAXI                                            │'
  137.       say' │                                                         │'
  138.       say' │  An ICON to execute both will be placed on the desktop. │'
  139.       say' │                                                         │'
  140.       say' ├─────────────────────────────────────────────────────────┤'
  141.       say' │  Copyright (c) 1993 Client Server Networking Inc  beta  │'
  142.       say' └─────────────────────────────────────────────────────────┘'
  143. return
  144.  
  145.  
  146. docolor:
  147. ECHO On
  148. 'prompt $p$E[0;'cfore';'cback';'ifore';'iback'm]'
  149. ECHO Off
  150. return
  151.  
  152. /* set foreground & background colors */
  153. setCVALUES:
  154. fBLACK=30
  155. fRED=31
  156. fGREEN=32
  157. fYELLOW=33
  158. fBLUE=34
  159. fMAGENTA=35
  160. fCYAN=36
  161. fWHITE=37
  162. bBLACK=40
  163. bFRED=41
  164. bGREEN=42
  165. bYELLOW=43
  166. bBLUE=44
  167. bMAGENTA=45
  168. bCYAN=46
  169. bWHITE=47
  170. low=1
  171. high=5
  172. return
  173.  
  174. setNormColors:
  175. cfore=fBLUE
  176. cback=bWHITE
  177. IBACK=high
  178. ifore=high
  179. call docolor
  180. return
  181.  
  182.