home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / winstall.zip / WINSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1995-05-14  |  24KB  |  632 lines
  1. /************************************************************/
  2. /* REXX - WIN-OS/2 Installation Utility for OS/2 Warp v3    */
  3. /* David J. Looney  19 November 1994                        */
  4. /*                                                          */
  5. /* OS/2 2.1 Salmon Diskette Set Code by Geoff Nussbaum      */
  6. /*              Faculty of Arts                             */
  7. /*              The University of Western Australia         */
  8. /*                                                          */
  9. /* Windows is a Trademark of Microsoft Corporation          */
  10. /* WIN-OS/2, OS/2, & OS/2 Warp v3 are Trademarks of IBM     */
  11. /*                                                          */
  12. /* This utility is distributed free into the public domain. */
  13. /* No warranty is made as the performance or suitability of */
  14. /* this code for user purposes, and no liability for damage */
  15. /* to data, equipment, loss of revenue or impairment of     */
  16. /* physical or emotional health due to use of this program  */
  17. /* is assumed.  Use at your own risk.                       */
  18. /*                                                          */
  19. /* This program should only be used by those holding valid  */
  20. /* IBM OS/2 2.10 or 2.11 AND OS/2 Warp v3 licenses.  Note   */
  21. /* that 'UPGRADE' licenses may exclude concurrent use.      */
  22. /************************************************************/
  23. '@echo OFF'
  24. /* Load Utility Functions */
  25. Call RxFuncAdd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs';
  26. Call SysLoadFuncs; 
  27.  
  28. /* Initialize Global Variables */
  29. CDROM='N';
  30. CDDRV='D';
  31. OS2DRV='C';
  32. WINDIR='\os2\mdos\winos2';
  33. WINSYS='\os2\mdos\winos2\system';
  34. DISK21COL='BLUE'
  35.  
  36. /* Main Program Logic */
  37. Call IntroScreen1
  38. Call IntroScreen2
  39. Call GetParameters
  40. Call InstallWinBase
  41. Call InstallFastLoad
  42. IF DISK21COL='BLUE' THEN Call Install21BlueEnv
  43. ELSE Call Install21PinkEnv
  44. Call Install211WinEnv
  45. Call Installv3Video
  46. Call ModifyInits
  47. Call InstallWinObjects
  48. Call InstallScreen1
  49. Call InstallScreen2
  50. EXIT
  51. /* End of Main Program Logic */
  52.  
  53. IntroScreen1: PROCEDURE;
  54. Call SysCls
  55. Say ""
  56. Say "         WIN-OS/2 Installation Utility for OS/2 Warp v3(TM)"
  57. Say ""
  58. Say "      ╔══════════════╗"
  59. Say "  ╔═══╣ WINSTALL 1.1 ╠═══════════════════════════════════════════╗"
  60. Say "  ║   ╚══════════════╝                                           ║"
  61. Say "  ║ This utility will build WIN-OS/2 under Warp v3 from the      ║"
  62. Say "  ║ 2.1 (Fullpack) AND  OS/2 2.11 CSD full version diskettes     ║"
  63. Say "  ║ or a 2.11 \os2\mdos\winos2 backup.   If you do not use       ║" 
  64. Say "  ║ the 2.11 CSD version,   you will probably not find seam-     ║"
  65. Say "  ║ less WIN-OS/2 support satisfactory. Though seamless pro-     ║"
  66. Say "  ║ grams will load and run on the desktop they can only be      ║"
  67. Say "  ║ maximized and restored, but not resized, moved, or mini-     ║"
  68. Say "  ║ mized, and can sometimes hang the system. In addition, to    ║"
  69. Say "  ║ run 'seamless' WIN-OS/2 your card must support SVGA or       ║"
  70. Say "  ║ 8514 resolution under drivers supplied by OS/2 Warp v3 to    ║"
  71. Say "  ║ function  properly --- I have not been able to get seam-     ║"
  72. Say "  ║ less VGA using my TVGA8900CL. If you have a backup of the    ║"
  73. Say "  ║ winos2 and winos2\system directories after 2.11 CSD appli-   ║"
  74. Say "  ║ cation, you may wish to skip the 2.1x disks and restore      ║"
  75. Say "  ║ your 2.11 winos2 directory and subdirectories after run-     ║"
  76. Say "  ║ ning WINSTALL.  Be aware that many programs enter data and   ║"
  77. Say "  ║ replace Windows(TM) drivers,and that restoring may not       ║"
  78. Say "  ║ lead to a successful install of WIN-OS/2.                    ║"
  79. Say "  ║                                                              ║"
  80. Say "  ╚══════════════════════════════════════════════════════════════╝"
  81. 'pause'
  82. RETURN;
  83.  
  84. IntroScreen2: PROCEDURE;
  85. Call SysCls
  86. Say ""
  87. Say ""
  88. Say "      ╔══════════════╗"
  89. Say "  ╔═══╣ WINSTALL 1.1 ╠═══════════════════════════════════════════╗"
  90. Say "  ║   ╚══════════════╝                                           ║"
  91. Say "  ║                                                              ║"
  92. Say "  ║ You will also need OS/2 Warp v3 on diskette or CD-ROM, and   ║"
  93. Say "  ║ may  wish to use Inimaint (Carey Associates) or a similar    ║"
  94. Say "  ║ utility to backup your desktop. Backup your system before    ║"
  95. Say "  ║ attempting to install WIN-OS/2 support.                      ║"
  96. Say "  ║                                                              ║"
  97. Say "  ║ WINSTALL also requires you to use ED or TEDIT to change      ║"
  98. Say "  ║ path information in the config.sys file, and autoexec.bat    ║"
  99. Say "  ║ files, as well as system.ini file, and progman.ini files.    ║"
  100. Say "  ║                                                              ║"
  101. Say "  ║ Use selective install to put your system into standard VGA   ║"
  102. Say "  ║ configuration before using WINSTALL unless you are running   ║"
  103. Say "  ║ default XGA configurations on hardware that uses the OS/2    ║"
  104. Say "  ║ standard XGA drivers (XGA default not tested by author).     ║"
  105. Say "  ║                                                              ║"
  106. Say "  ║ Press Ctrl-C or Ctrl-Break now to abort.                     ║"
  107. Say "  ║                                                              ║"
  108. Say "  ╚══════════════════════════════════════════════════════════════╝"
  109. 'pause'
  110. RETURN;
  111.  
  112. GetParameters:PROCEDURE EXPOSE CDROM CDDRV OS2DRV WINDIR WINSYS DISK21COL;
  113. Call SysCls
  114. Say ""
  115. Say ""
  116.  
  117. CurDir=directory()
  118. Result=CHAROUT( ,"Enter the drive letter on which OS/2 Warp v3 is installed: ", );
  119. PULL ANS .
  120. OS2DRV=SubStr(ANS,1,1);
  121. WINDIR=OS2DRV||":\OS2\MDOS\WINOS2"
  122. WINSYS=OS2DRV||":\OS2\MDOS\WINOS2\SYSTEM"
  123. Call SysMkDir WINDIR
  124. Call SysMkDir WINSYS
  125.  
  126. Call SysCls
  127.  
  128. Result=CHAROUT( ,"Do you have Warp v3 on CD-ROM (Y/N) ?" , );
  129. PULL ANS .
  130. CDROM=SubStr(ANS,1,1);
  131. IF CDROM="Y" THEN
  132.  DO
  133.    Result=CHAROUT( ,"Enter the CD-ROM drive letter now:",);
  134.    PULL ANS .
  135.    CDDRV=SubStr(ANS,1,1);
  136.    Say ""
  137.  END
  138. Result=CHAROUT( ,"Is your 2.1 25 diskette set blue in Color (Y/N) ?" ,  );
  139. PULL ANS .
  140. IF SubStr(ANS,1,1)="Y" THEN DISK21COL="BLUE"
  141. ELSE
  142.  DO
  143.     DISK21COL="PINK"
  144.     Say "WINSTALL is setting your 2.1 diskette set to the 20 disk Salmon set."
  145.     Say "If your OS/2 2.1 set is neither Salmon or Blue, or if WINSTALL fails"
  146.     Say "during installation of the 2.1 WIN-OS/2 environment, try shuffling "
  147.     Say "disks sequentially until WINSTALL finds the correct file.  Contact "
  148.     Say "the author if you have problems."
  149.  END
  150. RETURN;
  151.  
  152. InstallWinBase: PROCEDURE EXPOSE CDROM CDDRV OS2DRV WINDIR WINSYS DISK21COL;
  153. Say ""
  154. Say "WINSTALL now needs to install Warp WINBASE files."
  155. Say "If Warp Winbase files are installed you may skip this section."
  156. Result=CHAROUT( ,"Skip installation of Warp Winbase files (Y/N) ?", ); 
  157. PULL ANS .
  158. IF SubStr(ANS,1,1)="Y" THEN RETURN;
  159. pause
  160. Say "If files are already present ignore error messages."
  161. InsDir=directory(OS2DRV||':')
  162. IF CDROM="Y" THEN
  163.  DO UNTIL rc=0
  164.    PACKAGE=CDDRV||":\os2image\disk_2\bundle /n:wincfg.dll"
  165.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  166.    PACKAGE=CDDRV||":\os2image\disk_9\winbase"
  167.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  168.  END
  169. ELSE 
  170.  DO 
  171.   DO UNTIL rc=0
  172.    Say "Insert OS/2 Warp v3 Diskette 2 into Drive A:"
  173.    'pause'
  174.    PACKAGE="a:\bundle /n:wincfg.dll"
  175.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  176.    Say "Insert OS/2 Warp v3 Diskette 9 into Drive A:"
  177.    'pause'
  178.    PACKAGE="a:\winbase"
  179.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  180.   END
  181. END
  182. TmpDir=directory(CurDir)
  183. RETURN;
  184.  
  185. InstallFastLoad:PROCEDURE EXPOSE CDROM CDDRV OS2DRV WINDIR WINSYS DISK21COL;
  186. Say ""
  187. Say "If you do not wish to use the Win-OS/2 FASTLOAD Warp option"
  188. Say "or it is already installed, you may skip this section."
  189. Result=CHAROUT( ,"Skip installation of FASTLOAD files (Y/N) ?", );
  190. PULL ANS .
  191. IF SubStr(ANS,1,1)="Y" THEN RETURN;
  192. pause
  193. Say "If files are already present ignore error messages."
  194. InsDir=directory(OS2DRV||':\os2\mdos\winos2')
  195. IF CDROM="Y" THEN
  196.  DO UNTIL rc=0
  197.    PACKAGE=CDDRV||":\os2image\disk_12\winenv "||InsDir||" /n:fastload.exe"
  198.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  199.  END
  200. ELSE 
  201.  DO 
  202.   DO UNITL rc=0
  203.    Say "Insert OS/2 Warp v3 Diskette 2 into Drive A:"
  204.    'pause'
  205.    PACKAGE="a:\winenv "||InsDir||" /n:fastload.exe"
  206.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  207.   END
  208. END
  209. TmpDir=directory(CurDir)
  210. RETURN;
  211.  
  212. Install21BlueEnv:PROCEDURE EXPOSE CDROM CDDRV OS2DRV WINDIR WINSYS DISK21COL;
  213. Say ""
  214. Say "WINSTALL now needs the 2.1 diskettes."
  215. Say "If you have previously installed 2.1 files you may skip this section."
  216. Result=CHAROUT( ,"Skip installation of the 2.1 Environment (Y/N) ?", );
  217. PULL ANS .
  218. IF SubStr(ANS,1,1)="Y" THEN RETURN;
  219. pause
  220. Say "If files are already present ignore error messages."
  221. InsDir=directory(OS2DRV||':')
  222. DO UNTIL rc=0
  223.   '@echo Insert Diskette #6 into Drive A:'
  224.   'pause'
  225.   '@'||OS2DRV||':\os2\unpack a:winenv'
  226. END
  227. DO UNTIL rc=0
  228.   '@echo Insert Diskette #7 into Drive A:'
  229.   'pause'
  230.   '@'||OS2DRV||':\os2\unpack a:wininis'
  231. END
  232. DO UNTIL rc=0
  233.   '@echo Insert Diskette #8 into Drive A:'
  234.   'pause'
  235.   '@'||OS2DRV||':\os2\unpack a:winreadm'
  236. END
  237. DO UNTIL rc=0
  238.   '@echo Insert Diskette #9 into Drive A:'
  239.   'pause'
  240.   '@'||OS2DRV||':\os2\unpack a:winacces'
  241.   '@'||OS2DRV||':\os2\unpack a:winenv'
  242.   '@'||OS2DRV||':\os2\unpack a:wintouch'
  243. END
  244. DO UNTIL rc=0
  245.   '@echo Insert Diskette #10 into Drive A:'
  246.   'pause'
  247.   '@'||OS2DRV||':\os2\unpack a:winver'
  248. END
  249. DO UNTIL rc=0
  250.   '@echo Insert Diskette #11 into Drive A:'
  251.   'pause'
  252.   '@'||OS2DRV||':\os2\unpack a:winscrsv'
  253. END
  254. DO UNTIL rc=0
  255.   '@echo Insert Diskette #12 into Drive A:'
  256.   'pause'
  257.   '@'||OS2DRV||':\os2\unpack a:winenv'
  258. END
  259. DO UNTIL rc=0
  260.   '@echo Insert Diskette #16 into Drive A:'
  261.   'pause'
  262.   '@'||OS2DRV||':\os2\unpack a:winenv'
  263.   '@'||OS2DRV||':\os2\unpack a:winsound'
  264. END
  265. DO UNTIL rc=0
  266.   '@echo Insert Display Driver Diskette #1 into Drive A:'
  267.   'pause'
  268.   '@'||OS2DRV||':\os2\unpack a:winvga'
  269.   '@'||OS2DRV||':\os2\unpack a:winxga'
  270. END
  271. TmpDir=directory(CurDir)
  272. Say "WINSTALL has completed installing the basic WIN-OS/2 environment."
  273. RETURN;
  274.  
  275. Install21PinkEnv:PROCEDURE EXPOSE CDROM CDDRV OS2DRV WINDIR WINSYS DISK21COL;
  276. Say ""
  277. Say "WINSTALL now needs the 2.1 diskettes."
  278. Say "If you have previously installed 2.1 files you may skip this section."
  279. Result=CHAROUT( ,"Skip installation of the 2.1 Environment (Y/N) ?", );
  280. PULL ANS .
  281. IF SubStr(ANS,1,1)="Y" THEN RETURN;
  282. pause
  283. Say "If files are already present ignore error messages."
  284. InsDir=directory(OS2DRV||':')
  285.  
  286. DO UNTIL rc=0
  287.   '@echo Insert Diskette #5 into Drive A:'
  288.   'pause'
  289.   '@'||OS2DRV||':\os2\unpack a:winenv'
  290. END
  291. DO UNTIL rc=0
  292.   '@echo Insert Diskette #6 into Drive A:'
  293.   'pause'
  294.   '@'||OS2DRV||':\os2\unpack a:winenv'
  295. END
  296. DO UNTIL rc=0
  297.   '@echo Insert Diskette #9 into Drive A:'
  298.   'pause'
  299.   '@'||OS2DRV||':\os2\unpack a:winacces'
  300.   '@'||OS2DRV||':\os2\unpack a:winenv'
  301.   '@'||OS2DRV||':\os2\unpack a:winscrsv'
  302.   '@'||OS2DRV||':\os2\unpack a:winsound'
  303. END
  304. DO UNTIL rc=0  
  305.   '@echo Insert Diskette #10 into Drive A:'
  306.   'pause'
  307.   '@'||OS2DRV||':\os2\unpack a:winreadm'
  308.   '@'||OS2DRV||':\os2\unpack a:winver'
  309. END
  310. DO UNTIL rc=0
  311.   '@echo Insert Diskette #12 into Drive A:'
  312.   'pause'
  313.   '@'||OS2DRV||':\os2\unpack a:wininis'
  314. END
  315. DO UNTIL rc=0
  316.   '@echo Insert Diskette #13 into Drive A:'
  317.   'pause'
  318.   '@'||OS2DRV||':\os2\unpack a:wintouch'
  319. END
  320. DO UNTIL rc=0
  321.   '@echo Insert Display Driver Diskette #1 into Drive A:'
  322.   'pause'
  323.   rc=0
  324.   '@'||OS2DRV||':\os2\unpack a:winxga'
  325. END
  326. TmpDir=directory(CurDir)
  327. Say "WINSTALL has completed installing the basic WIN-OS/2 environment."
  328. RETURN;
  329.  
  330. Install211WinEnv:PROCEDURE EXPOSE CDROM CDDRV OS2DRV WINDIR WINSYS DISK21COL;
  331. InsDir=directory(OS2DRV||':')
  332. Say ""
  333. Say "WINSTALL now needs 2.11 CSD full version (with WIN-OS/2) Disks."
  334. Say "If you do not need seamless WIN-OS/2 or have a 2.11 winos2 and "
  335. Say "winos2\system backup you may skip installation of CSD files."
  336. Result=CHAROUT( ,"Skip 2.11 WIN-OS/2 install (Y/N) ?", );
  337. PULL ANS .
  338. IF SubStr(ANS,1,1)="Y" then RETURN;
  339. pause
  340. Say "If files are already present ignore error messages."
  341. DO UNTIL rc=0
  342.   '@echo Insert Volume SP DISK 2 in Drive A:'
  343.   'pause'
  344.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1090.___ \os2\mdos\winos2'
  345. END
  346. DO UNTIL rc=0
  347.   '@echo Insert Volume SP DISK 5 in Drive A:'
  348.   'pause'
  349.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1043.___ \os2\mdos\winos2\system'
  350.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1064.___ \os2\mdos\winos2\system'
  351. END
  352. DO UNTIL rc=0
  353.   '@echo Insert Volume SP DISK 6 in Drive A:'
  354.   'pause'
  355.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE935.___ \os2\mdos\winos2\system'
  356. END
  357. DO UNTIL rc=0
  358.   '@echo Insert Volume SP DISK 7 in Drive A:'
  359.   'pause'
  360.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE844.___ \os2\mdos\winos2'
  361.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE862.___ \os2\mdos\winos2'
  362. END
  363. DO UNTIL rc=0
  364.   '@echo Insert Volume SP DISK 8 in Drive A:'
  365.   'pause'
  366.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE993.___ \os2\mdos\winos2\system'
  367.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1084.___ \os2\mdos\winos2'
  368. END
  369. DO UNTIL rc=0
  370.   '@echo Insert Volume SP DISK 9 in Drive A:'
  371.   'pause'
  372.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1021.___ \os2\mdos\winos2\system'
  373. END
  374. DO UNTIL rc=0
  375.   '@echo Insert Volume SP DISK 10 in Drive A:'
  376.   'pause'
  377.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE849.___ \os2\mdos\winos2'
  378.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE863.___ \os2\mdos\winos2'
  379.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1095.___ \os2\mdos\winos2'
  380. END
  381. DO UNTIL rc=0
  382.   '@echo Insert Volume SP DISK 11 in Drive A:'
  383.   'pause'
  384.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE877.___ \os2\mdos\winos2'
  385.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1086.___ \os2\mdos\winos2'
  386. END
  387. DO UNTIL rc=0
  388.   '@echo Insert Volume SP DISK 12 in Drive A:'
  389.   'pause'
  390.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE830.___ \os2\mdos\winos2'
  391.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE832.___ \os2\mdos\winos2'
  392.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE835.___ \os2\mdos\winos2'
  393.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE837.___ \os2\mdos\winos2'
  394.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE841.___ \os2\mdos\winos2'
  395.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE843.___ \os2\mdos\winos2'
  396.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FINSTAL1.HL_ \os2\mdos\winos2'
  397.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE858.___ \os2\mdos\winos2'
  398.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE860.___ \os2\mdos\winos2'
  399.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1062.___ \os2\mdos\winos2\system'
  400.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1063.___ \os2\mdos\winos2\system'
  401. END
  402. DO UNTIL rc=0
  403.   '@echo Insert Volume SP DISK 13 in Drive A:'
  404.   'pause'
  405.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE927.___ \os2\mdos\winos2\system'
  406.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1089.___ \os2\mdos\winos2'
  407. END
  408. DO UNTIL rc=0
  409.   '@echo Insert Volume DISP 1 in Drive A:'
  410.   'pause'
  411.   '@'||OS2DRV||':\os2\unpack a:\WINVGA'
  412.   '@'||OS2DRV||':\os2\unpack a:\winxga'
  413. END
  414. TmpDir=directory(CurDir)
  415. Say "WINSTALL is Finished Installing 211 Win Updates !"
  416. RETURN;
  417.  
  418. Installv3Video:PROCEDURE EXPOSE CDROM CDDRV OS2DRV WINDIR WINSYS DISK21COL;
  419. Say ""
  420. Say "WINSTALL is now ready to install Warp WIN-OS/2 video drivers."
  421. Result=CHAROUT(,"Skip Warp v3 video driver installation (Y/N) ?",);
  422. PULL ANS .
  423. IF SubStr(ANS,1,1)="Y" THEN RETURN;
  424. pause
  425. Say "If files are already present ignore error messages."
  426. IF CDROM="Y" THEN
  427.  DO UNTIL rc=0
  428.    PACKAGE=CDDRV||":\os2image\disp_1\winxga "||OS2DRV||":\os2\mdos\winos2\system"
  429.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  430.    PACKAGE=CDDRV||":\os2image\disp_1\winvga "||OS2DRV||":\os2\mdos\winos2\system"
  431.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  432.  END
  433. ELSE 
  434.  DO UNTIL rc=0
  435.    Say "Insert OS/2 Warp v3 Display Driver Diskette 1 into Drive A:"
  436.    'pause'
  437.    PACKAGE="a:\winxga "||OS2DRV||":\os2\mdos\winos2\system"
  438.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  439.    PACKAGE="a:\winvga "||OS2DRV||":\os2\mdos\winos2\system"
  440.    '@'||OS2DRV||':\os2\unpack  '||PACKAGE
  441.  END
  442. Say "Finished installing video drivers."
  443. RETURN;
  444.  
  445. ModifyInits:PROCEDURE EXPOSE CDROM CDDRV OS2DRV WINDIR WINSYS DISK21COL;
  446. Say ""
  447. Say "WINSTALL now needs to update system INI files."
  448. Result=CHAROUT(,"Skip INI File Modification (Y/N) ?",);
  449. PULL ANS .
  450. IF SubStr(ANS,1,1)="Y" THEN RETURN;
  451. pause
  452.  
  453. /* Need null terminator for ASCII0 type settings */
  454. ANS0=X2C('00');
  455.  
  456. Say "Updating INSTALL.INI ....";
  457. IniFile=OS2DRV||":\os2\install\install.ini";
  458. App="WINOS2";
  459. Key="PM_GlobalWindows31Settings";
  460. KeyValue="PROGTYPE=PROG_31_STD"||ANS0;
  461. Result = SysIni(IniFile,App,Key,KeyValue);
  462. IF Result<>'' then SAY "Unable to update "||IniFile
  463. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  464.  
  465. Say "Updating REINSTAL.INI ....";
  466. IniFile=OS2DRV||":\os2\install\reinstal.ini";
  467. Key="WIN30INSTALLED";
  468. KeyValue="NO"||ANS0;
  469. Result = SysIni(IniFile,App,Key,KeyValue);
  470. IF Result<>'' then SAY "Unable to update "||IniFile
  471. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  472.  
  473. Key="WIN31INSTALLED";
  474. KeyValue=OS2DRV||":\OS2\MDOS\WINOS2"||ANS0;
  475. Result = SysIni(IniFile,App,Key,KeyValue);
  476. IF Result<>'' then SAY "Unable to update "||IniFile
  477. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  478.  
  479. Key="WINDOWSSUPPORT";
  480. KeyValue="YES"||ANS0;
  481. Result = SysIni(IniFile,App,Key,KeyValue);
  482. IF Result<>'' then SAY "Unable to update "||IniFile
  483. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  484.  
  485. /* os2.ini */
  486. Say "WINSTALL is updating OS2.INI ...."
  487. IniFile=OS2DRV||":\os2\os2.ini";
  488. Key="PM_ClipboardSupport";
  489. KeyValue="0"||ANS0;
  490. Result = SysIni(IniFile,App,Key,KeyValue);
  491. IF Result<>'' then SAY "Unable to update "||IniFile
  492. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  493.  
  494. Key="PM_DDESupport";
  495. Result = SysIni(IniFile,App,Key,KeyValue);
  496. IF Result<>'' then SAY "Unable to update "||IniFile
  497. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  498.  
  499. Key="PM_Global31FastLoad";
  500. Result = SysIni(IniFile,App,Key,KeyValue);
  501. IF Result<>'' then SAY "Unable to update "||IniFile
  502. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  503.  
  504. Key="PM_Global31SessionType"
  505. KeyValue="19"||ANS0;
  506. Result = SysIni(IniFile,App,Key,KeyValue);
  507. IF Result<>'' then SAY "Unable to update "||IniFile
  508. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  509.  
  510. Key="PM_GlobalWin31DataExchange";
  511. KeyValue="13"||ANS0;
  512. Result = SysIni(IniFile,App,Key,KeyValue);
  513. IF Result<>'' then SAY "Unable to update "||IniFile
  514. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  515.  
  516. Key="PM_GlobalWindows31Settings";
  517. KeyValue="DPMI_MEMORY_LIMIT=64"||ANS0||,
  518.          "PROGTYPE=PROG_31_STD"||ANS0||,
  519.          "KBD_ALTHOME_BYPASS=1"||ANS0||,
  520.          "VIDEO_SWITCH_NOTIFICATION=1"||ANS0||,
  521.          "VIDEO_8514A_XGA_IOTRAP=0"||ANS0;
  522. Result = SysIni(IniFile,App,Key,KeyValue);
  523. IF Result<>'' then SAY "Unable to update "||IniFile
  524. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  525. RETURN;
  526.  
  527. InstallWinObjects:PROCEDURE EXPOSE CDROM CDDRV OS2DRV WINDIR WINSYS DISK21COL;
  528. Say ""
  529. Say "WINSTALL now needs to create WIN-OS/2 Objects."
  530. Say "This section must be run from a Warp v3 boot on the target drive."
  531. Say "A seperate command, mkwinobj , can be run later to do this."
  532. Result=CHAROUT(,"Skip creation of WIN-OS/2 Objects (Y/N) ?",);
  533. PULL ANS .
  534. IF SubStr(ANS,1,1)="Y" THEN RETURN;
  535. pause
  536.  
  537. Result = SysCreateObject("WPWinConfig","WIN-OS/2 Setup","<WP_CONFIG>",,
  538.   "HELPPANEL=4203;"||,
  539.   "DEFAULTVIEW=SETTINGS;"||,
  540.   "NOCOPY=YES;"||,
  541.   "NODELETE=YES;"||,
  542.   "NOPRINT=YES;"||,
  543.   "ICONPOS=6 42;"||,
  544.   "OBJECTID=<WP_WINCFG>;",,
  545.   "Replace"); 
  546. IF Result=1 THEN SAY "WIN-OS/2 Setup Object Installed."
  547. ELSE SAY "Win-OS/2 Setup Object Installation Failed."
  548.  
  549. Result=SysCreateObject("WPProgram","WIN-OS/2 Full Screen","<WP_PROMPTS>",,
  550. "HELPPANEL=8022;"||,
  551. "DEFAULTVIEW=RUNNING;"||,
  552. "NOPRINT=YES;"||,
  553. "ICONPOS=8 22;"||,
  554. "EXENAME=*;"||,
  555. "PROGTYPE=WIN;"||,
  556. "SET KBD_ALTHOME_BYPASS=1;"||,
  557. "SET KBD_CTRL_BYPASS=CTRL_ESC;"||,
  558. "SET VIDEO_SWITCH_NOTIFICATION=1;"||,
  559. "SET VIDEO_8514A_XGA_IOTRAP=0;"||,
  560. "SET DPMI_MEMORY_LIMIT=64;"||,
  561. "OBJECTID=<WP_WINFS>;",,
  562. "Replace");
  563. If Result=1 THEN say "Object: WIN-OS/2 Full Screen created/updated."
  564. ELSE Say "WIN-OS/2 Full Screen creation Failed."
  565.  
  566. Result = SysCreateObject("WPProgram","WIN-OS/2 Window","<WP_PROMPTS>",,
  567.   "HELPPANEL=8022;"||,
  568.   "DEFAULTVIEW=RUNNING;"||,
  569.   "NOPRINT=YES;"||,
  570.   "ICONPOS=19 7;"||,
  571.   "EXENAME=PROGMAN.EXE;"||,
  572.   "PROGTYPE=PROG_31_ENHSEAMLESSCOMMON;"||,
  573.   "SET KBD_ALTHOME_BYPASS=1;"||,
  574.   "SET KBD_CTRL_BYPASS=CTRL_ESC;"||,
  575.   "SET VIDEO_SWITCH_NOTIFICATION=1;"||,
  576.   "SET VIDEO_8514A_XGA_IOTRAP=0;"||,
  577.   "SET DPMI_MEMORY_LIMIT=64;"||,
  578.   "SET WIN_DDE=0;"||,
  579.   "SET WIN_CLIPBOARD=0;"||,
  580.   "OBJECTID=<WP_WIN2WIN>;",,
  581.   "Replace");
  582. IF Result=1 THEN SAY "Win-OS/2 Command Prompt Object Created."
  583. ELSE SAY "Win-OS/2 Command Prompt Creation Failed."
  584. RETURN; 
  585.  
  586. InstallScreen1:
  587. Call SysCls
  588. Say ""
  589. Say ""
  590. Say "      ╔══════════════╗                                             "
  591. Say "  ╔═══╣ WINSTALL 1.1 ╠════════════════════════════════════════════╗"
  592. Say "  ║   ╚══════════════╝                                            ║"
  593. Say "  ║ WINSTALL has finished updating the system. You must take the  ║"
  594. Say "  ║ following steps to make WIN-OS/2 functional before reboot:    ║"
  595. Say "  ║                                                               ║"
  596. Say "  ║    Make the following changes to your config.sys file:        ║"
  597. Say "  ║ 1. Add "||OS2DRV||":\os2\mdos\winos2\system to your LIBPATH.             ║"
  598. Say "  ║ 2. Add "||OS2DRV||":\os2\mdos\winos2 to  your PATH.                      ║"
  599. Say "  ║ 3. Add "||OS2DRV||":\os2\mdos\winos2\system to your DPATH.               ║"
  600. Say "  ║ 4. Add DEVICE="||OS2DRV||":\OS2\MDOS\VWIN.SYS to the end                 ║"
  601. Say "  ║    of your config.sys.                                        ║"
  602. Say "  ║ 5. If you plan to add win32s support add DEVICE="||OS2DRV||":\OS2\MDOS\  ║"
  603. Say "  ║    VW32S.SYS to the end of your config.sys (yes, it works !)  ║"
  604. Say "  ║                                                               ║"
  605. Say "  ╚═══════════════════════════════════════════════════════════════╝"
  606. 'pause'
  607. RETURN;
  608.  
  609. InstallScreen2:
  610. CALL SysCls
  611. Say "      ╔══════════════╗ "
  612. Say "  ╔═══╣ WINSTALL 1.1 ╠════════════════════════════════════════════╗"
  613. Say "  ║   ╚══════════════╝                                            ║"
  614. Say "  ║    Make the following changes to your autoexec.bat file:      ║"
  615. Say "  ║ 6. Add "||OS2DRV||":\os2\mdos\winos2 &                                   ║"
  616. Say "  ║    "||OS2DRV||":\os2\mdos\winos2\system to your PATH                     ║"
  617. Say "  ║    (Make sure your DOS PATH is not over 128 chars !)          ║"
  618. Say "  ║    And if not using default XGA setup:                        ║"
  619. Say "  ║ 7. Edit "||OS2DRV||":\os2\mdos\winos2\system.ini and change              ║"
  620. Say "  ║    all references from 'xga' to 'vga'.                        ║"
  621. Say "  ║ 8. Edit "||OS2DRV||":\os2\mdos\winos2\progman.ini and change             ║"
  622. Say "  ║    all references from 'xga' to 'vga'.                        ║"
  623. Say "  ║ 9. Reboot.                                                    ║"
  624. Say "  ║ 10.Run selective install to change your system video to an    ║"
  625. Say "  ║    SVGA resolution supported by your equipment.               ║"
  626. Say "  ║ 11.After rebooting from selective install, WIN-OS/2 should run║"
  627. Say "  ║    fine in both seamless & full-screen modes.                 ║"
  628. Say "  ║    Comments to DJLOON@DELPHI.COM, CIS 75246.3364              ║"
  629. Say "  ╚═══════════════════════════════════════════════════════════════╝"
  630. 'pause'
  631. RETURN;
  632.