home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 25 Icons / 25-Icons.zip / ULTIMATE.ZIP / ULTIMATE.CMD < prev    next >
OS/2 REXX Batch file  |  1992-12-19  |  84KB  |  2,513 lines
  1. /***************************************************************/
  2. /*                                                             */
  3. /*                      ULTIMATE.CMD                           */
  4. /*                                                             */
  5. /*      This Rexx file recreates the Welcome Folder, the       */
  6. /*      Extended Services Program Icon, the Lan Services       */
  7. /*      Program Icon, the Toolkit icon, and any default        */ 
  8. /*      OS/2 Icon, back onto any system that previously        */
  9. /*      had these features on the Desktop.                     */
  10. /*                                                             */
  11. /*      NOTE:  ULTIMATE.CMD merely calls the EXE files that    */
  12. /*             are already located on the hard drive in the    */
  13. /*             default path.  The default path would be the    */
  14. /*             path in which OS/2 installed these files.       */
  15. /*             These EXE files must be on the hard drive in    */
  16. /*             the default path for this Utility to work       */
  17. /*             properly.                                       */
  18. /*                                                             */
  19. /*                     Shawn McAlhany                          */
  20. /*                     December 06, 1992                       */
  21. /*                     Beta:  December 09, 1992                */
  22. /*                     Completed:  December 17, 1992           */
  23. /***************************************************************/
  24.  
  25. call rxfuncadd 'sysloadfuncs', 'rexxutil', 'sysloadfuncs'
  26. call sysloadfuncs                /* register system functions */
  27. address cmd '@echo off'          /* echo is turned off */
  28.  
  29. call intro
  30.  
  31. start:
  32.  
  33. say 'What directory are the ultimate ico files located? Drive and'
  34. say 'Path Please (default> c:\ultimate) <enter> for default.'
  35. pull location
  36. if location = '' then location = ultimate
  37. else do    
  38.    say 'The location of the ico files is: ' location
  39.    say 'Is this correct (Y/N)?'
  40.    yesno = SysGetKey()
  41.    yesno = translate(yesno)
  42.    if yesno <> 'Y'  then call choice
  43.       else nop
  44.    say
  45. end  /* do */
  46. 'cd\'
  47. 'copy 'location'\*.ico'
  48.  
  49. call choice
  50. call quit
  51.  
  52. welcintro:
  53.  
  54. /***************************************************************/
  55. /*      WELCOME.CMD                                            */
  56. /*                                                             */
  57. /*      This Rexx file recreates the Welcome Folder and        */
  58. /*      all of its utilities.  If the Executable files         */
  59. /*      that are related to the Welcome Folder are             */
  60. /*      removed from the hard drive, this program will         */
  61. /*      not completely restore the Welcome Folder to           */
  62. /*      its original state.                                    */
  63. /*                                                             */
  64. /*                      Shawn McAlhany                         */
  65. /*                     November 5, 1992                        */
  66. /*                 Completed: November 10, 1992                             */
  67. /***************************************************************/
  68.  
  69. /***************************************************************/
  70. /* This procedure explains the utility to the user and calls   */
  71. /* other procedures to continue or terminate the program.      */
  72. /***************************************************************/
  73.  
  74. say
  75. say 'This portion recreates the Welcome Folder and all of its utilities.'
  76. say 'If the Executable files that are related to the Welcome Folder are'
  77. say 'removed from the hard drive, this program will not completely restore'
  78. say 'the Welcome Folder to its original state.'
  79. say
  80.  
  81. call option
  82.  
  83. say
  84. say 'Creation of Welcome Folder has been asked to continue at the users discretion. . .'
  85.  
  86. call create_welcome
  87.  
  88. end:
  89.  
  90. say
  91. say 'Creation of the Welcome Folder has been completed.'
  92. say 'The Welcome Folder that came with the preloaded system'
  93. say 'had two more folders in the Applications folder.  These folders'
  94. say 'are named Games and Productivity and are both located in'
  95. say 'the OS/2 System icon.'
  96. say
  97. 'pause'
  98.  
  99. call choice
  100.  
  101. eslsintro:
  102.  
  103. say
  104. say 'This portion recreates the Extended Services Folder, Lan Services'
  105. say 'Folder, Communications Manager Folder, and User Profile Management'
  106. say 'Services along with their associated program icons.  This utility is primarily'
  107. say 'used to recreate the icons with their associated EXE files already on the'
  108. say 'hard drive.  If these files have been moved from their default path or'
  109. say 'removed from the fixed disk, this utility may not work properly.'
  110. call option2
  111.  
  112. say
  113. say 'Creation of the Extended Services Icon and Lan Services Icon has been asked to'
  114. say 'continue at the users discretion. . .'
  115.  
  116. call mkeslan
  117.  
  118. say
  119. say 'Creation of the Extended Services Folder and Lan Services Folder'
  120. say 'has been completed.'
  121. say
  122. say 'Programmed by:'
  123. say 'Georg Haschek (61804212 at VIEVMA)'
  124. say
  125. 'pause'
  126.  
  127. call choiceb
  128.  
  129. toolintro:
  130.  
  131. say
  132. say 'This portion recreates the toolkit and all the icons and'
  133. say 'folders associated with it.  This utility is primarily'
  134. say 'used to recreate the icons with their associated EXE files' 
  135. say 'already on the hard drive.  If these files have been moved' 
  136. say 'from their default path or removed from the fixed disk,' 
  137. say 'this utility may not work properly.'
  138. call option6
  139.  
  140. say
  141. say 'Creation of the Toolkit has been asked to continue at the'
  142. say 'users discretion. . .'
  143.  
  144. call toolkit
  145.  
  146. say
  147. say 'Creation of the Toolkit has been completed.'
  148. say
  149. say 'Programmed by:'
  150. say 'Georg Haschek (61804212 at VIEVMA)'
  151. say
  152. 'pause'
  153.  
  154. call choiceb
  155.  
  156. os2sysintro:
  157.  
  158. say
  159. say 'This portion recreates the OS/2 System Icon and all of its contents'
  160. say 'that you choose to restore.'
  161. say
  162.  
  163. call option3
  164.  
  165. say
  166. say 'Creation of the OS/2 System Icon has been asked to continue at users discretion...'
  167.  
  168. call os2sys
  169.  
  170. say 'OS/2 System Folder Successfully created.'
  171. say
  172. 'pause'
  173.  
  174. call choice2
  175.  
  176. infointro:
  177.  
  178. say
  179. say 'This portion recreates the Information Icon and all of its contents'
  180. say 'that you wish to restore.'
  181. say
  182.  
  183. call option4
  184.  
  185. say
  186. say 'Creation of the Information Icon has been asked to continue at users discretion....'
  187.  
  188. call information
  189.  
  190. say 'Information Folder Successfully created.'
  191. say
  192. 'pause'
  193.  
  194. call choice3
  195.  
  196. /***************************************************************/ 
  197. /* Procedure: create_welcome                                   */
  198. /*                                                             */
  199. /* This procedure creates the icons and folders that are part  */
  200. /* of the original Welcome Folder.                             */
  201. /***************************************************************/    
  202.  
  203. create_welcome:
  204.  
  205. say
  206. say 'Creating Welcome Folder...'
  207.  
  208. /* create Welcome Folder */
  209.  
  210. rc = SysCreateObject('WPFolder','Welcome','<WP_DESKTOP>','OBJECTID=<WELCOME>')
  211. if rc = 1 then do
  212.    say 'Welcome folder was successfully installed.'
  213. end /* do */
  214.  
  215. else do
  216.    say
  217.    say 'A problem occured during the installation of the'
  218.    say 'Welcome folder.  This folder was not'
  219.    say 'created successfully.'
  220.    call reason
  221.    say
  222. end /* do */
  223.  
  224. /* create Configuration Tools in Welcome Folder */
  225.  
  226. rc = SysCreateObject('WPFolder','Configuration Tools','<WELCOME>','OBJECTID=<CONFIGURE>;ICONFILE=\OS2\INSTALL\PRELOAD\TOOLS.ICO')
  227.  
  228. if rc = 1 then do
  229.    say 'Configuration Tools folder was successfully installed.'
  230. end /* do */
  231.  
  232. else do
  233.    say
  234.    say 'A problem occured during the installation of the'
  235.    say 'Configuration Tools folder .  This folder was not'
  236.    say 'created successfully.'
  237.    call reason
  238.    say
  239. end /* do */
  240.  
  241. /* create Applications Folder in Welcome Folder */
  242.  
  243. rc = SysCreateObject('WPFolder','Applications','<WELCOME>','OBJECTID=<APPS>')
  244. if rc = 1 then do
  245.    say 'Applications folder was successfully installed.'
  246. end /* do */
  247.  
  248. else do
  249.    say
  250.    say 'A problem occured during the installation of the'
  251.    say 'Applications folder.  This folder was not'
  252.    say 'created successfully.'
  253.    call reason
  254.    say
  255. end /* do */
  256.  
  257. /* create Features Folder in Welcome Folder */
  258.  
  259. rc = SysCreateObject('WPFolder','Features','<WELCOME>','OBJECTID=<FEATURES>')
  260. if rc = 1 then do
  261.    say 'Features folder was successfully installed.'
  262. end /* do */
  263.  
  264. else do
  265.    say
  266.    say 'A problem occured during the installation of the'
  267.    say 'Features folder.  This folder was not'
  268.    say 'created successfully.'
  269.    call reason
  270.    say
  271. end /* do */
  272.  
  273. /* create Tutorials Folder in Welcome Folder */
  274.  
  275. rc = SysCreateObject('WPFolder','Tutorials','<WELCOME>','OBJECTID=<TUTORIALS>;ICONFILE=C:\OS2\INSTALL\PRELOAD\TUTFOLD.ICO')
  276. if rc = 1 then do
  277.    say 'Tutorials folder was successfully installed.'
  278. end /* do */
  279.  
  280. else do
  281.    say
  282.    say 'A problem occured during the installation of the'
  283.    say 'Tutorials folder.  This folder was not'
  284.    say 'created successfully.'
  285.    call reason
  286.    say
  287. end /* do */
  288.  
  289. /* create Welcome & Quick Tour Book in Welcome Folder */
  290.  
  291. rc = SysCreateObject('WPProgram','Welcome & Quick Tour','<WELCOME>','EXENAME=\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=QTOUR.INF WELCOME;STARTUPDIR=\OS2\INSTALL\PRELOAD\;')
  292.  
  293. if rc = 1 then do
  294.    say 'Welcome & Quick Tour icon was successfully installed.'
  295. end /* do */
  296.  
  297. else do
  298.    say
  299.    say 'A problem occured during the installation of the'
  300.    say 'Welcome & Quick Tour icon.  This icon was not'
  301.    say 'created successfully.'
  302.    call reason
  303.    say
  304. end /* do */
  305.  
  306. /* create Create Utility Diskettes in Configuration Tools folder */
  307.  
  308. rc = SysCreateObject('WPProgram','Create Utility Diskettes','<CONFIGURE>','EXENAME=\OS2\INSTALL\PRELOAD\BOOTDISK.EXE;PROGTYPE=PM;PARAMETERS=;STARTUPDIR=\OS2\INSTALL\PRELOAD\;')
  309.                                                                                                                                                                             
  310. if rc = 1 then do
  311.    say 'Create Utility Diskettes icon was successfully installed.'
  312. end /* do */
  313.  
  314. else do
  315.    say
  316.    say 'A problem occured during the installation of the'
  317.    say 'Create Utility Diskettes icon.  This icon was not'
  318.    say 'created successfully.'
  319.    call reason
  320.    say
  321. end /* do */
  322.  
  323. /* create Configure in Configuration Tools folder */
  324.  
  325. rc = SysCreateObject('WPProgram','Configure','<CONFIGURE>','EXENAME=\OS2\INSTALL\PRELOAD\CONFIG.EXE;PROGTYPE=PM;PARAMETERS=;STARTUPDIR=\OS2\INSTALL\PRELOAD\;')
  326.  
  327. if rc = 1 then do
  328.    say 'Configure icon was successfully installed.'
  329. end /* do */
  330.  
  331. else do
  332.    say
  333.    say 'A problem occured during the installation of the'
  334.    say 'Configure icon.  This icon was not'
  335.    say 'created successfully.'
  336.    call reason
  337.    say
  338. end /* do */
  339.  
  340. /* create Selective Uninstall in Configuration Tools folder */
  341.  
  342. rc = SysCreateObject('WPProgram','Selective Uninstall','<CONFIGURE>','EXENAME=\OS2\INSTALL\PRELOAD\UNINSTAL.EXE;PROGTYPE=PM;PARAMETERS=;STARTUPDIR=\OS2\INSTALL\PRELOAD\;')
  343.  
  344. if rc = 1 then do
  345.    say 'Selective Uninstall icon was successfully installed.'
  346. end /* do */
  347.  
  348. else do
  349.    say
  350.    say 'A problem occured during the installation of the'
  351.    say 'Selective Unistall icon.  This icon was not'
  352.    say 'created successfully.'
  353.    call reason
  354.    say
  355. end  /* do */
  356.  
  357. /* create Application Installation Overview in Applications folder */
  358.  
  359. rc = SysCreateObject('WPProgram','Application Installation Overview','<APPS>','EXENAME=\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=INSTALL.INF INSTALLING YOUR APPLICATIONS;STARTUPDIR=\OS2\INSTALL\PRELOAD\;')
  360.  
  361. if rc = 1 then do
  362.    say 'Application Installation Overview icon was successfully installed.'
  363. end /* do */
  364.  
  365. else do
  366.    say
  367.    say 'A problem occured during the installation of the'
  368.    say 'Application Installation Overview.  This icon was not'
  369.    say 'created successfully.'
  370.    call reason
  371.    say
  372. end /* do */
  373.  
  374. /* create Services and Support in Features folder */
  375.  
  376. rc = SysCreateObject('WPProgram','Services and Support','<FEATURES>','EXENAME=\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=SERVICES.INF SERVICES AND SUPPORT;STARTUPDIR=\OS2\INSTALL\PRELOAD\;ICONFILE=C:\OS2\INSTALL\PRELOAD\HLPWARER.ICO')
  377.  
  378. if rc = 1 then do
  379.    say 'Services and Support icon was successfully installed.'
  380. end /* do */
  381.  
  382. else do
  383.    say
  384.    say 'A problem occured during the installation of the'
  385.    say 'Services and Support.  This icon was not'
  386.    say 'created successfully.'
  387.    call reason
  388.    say
  389. end /* do */
  390.  
  391. /* Preloaded 85XX systems do not come with the System Information       */
  392. /* Utility.  This procedure prompts the user for a system of this type. */
  393. /* If the system is an 85XX Type, it will not install the System        */
  394. /* Information Utility, otherwise, it will be installed.                */
  395.  
  396. say
  397. say 'Look on or below the faceplate of the computer, where the power button'
  398. say 'is located, for a label that mentions the Type.  Use the first four digits'
  399. say 'of the Type to answer the following question:'
  400. say 'Is this computer an 8556 or 8557 Type (Y/N)?'
  401. yesno = SysGetKey()
  402. yesno = translate(yesno)
  403. say
  404. select
  405.    when yesno = "Y" then call jump
  406. otherwise nop
  407.  
  408. say 
  409.  
  410. /* create Your System in Features folder */
  411.  
  412. rc = SysCreateObject('WPProgram','Your System','<FEATURES>','EXENAME=\OS2\APPS\SYSINFO.EXE;PROGTYPE=PM;PARAMETERS=;STARTUPDIR=\OS2\APPS\;')
  413.  
  414. if rc = 1 then do
  415.    say 'Your System icon was successfully installed.'
  416. end /* do */
  417.  
  418. else do
  419.    say
  420.    say 'A problem occured during the installation of the'
  421.    say 'Your System icon.  This icon was not'
  422.    say 'created successfully.'
  423.    call reason
  424.    say
  425. end /* do */
  426.  
  427. jump:
  428.  
  429. /* create For the DOS User in Tutorials folder */
  430.  
  431. rc = SysCreateObject('WPProgram','For the DOS User','<TUTORIALS>','EXENAME=\OS2\INSTALL\PRELOAD\DOSUSER.EXE;PROGTYPE=DOSFULLSCREEN;PARAMETERS=D;STARTUPDIR=\OS2\INSTALL\PRELOAD\;')
  432.  
  433. if rc = 1 then do
  434.    say 'For the DOS User icon was successfully installed.'
  435. end /* do */
  436.  
  437. else do
  438.    say
  439.    say 'A problem occured during the installation of the'
  440.    say 'Your System icon.  This icon was not'
  441.    say 'created successfully.'
  442.    call reason
  443.    say
  444. end /* do */    
  445.  
  446. /* create System Overview in Tutorials folder */
  447.  
  448. rc = SysCreateObject('WPProgram','System Overview','<TUTORIALS>','EXENAME=\OS2\INSTALL\PRELOAD\SYSOVER.EXE;PROGTYPE=DOSFULLSCREEN;PARAMETERS=;STARTUPDIR=\OS2\INSTALL\PRELOAD\;ICONFILE=C:\OS2\INSTALL\PRELOAD\OSTUTOR.ICO')
  449.  
  450. if rc = 1 then do
  451.    say 'System Overview icon was successfully installed.'
  452. end /* do */
  453.  
  454. else do
  455.    say
  456.    say 'A problem occured during the installation of the'
  457.    say 'System Overview icon.  This icon was not'
  458.    say 'created successfully.'
  459.    call reason
  460.    say
  461. end /* do */    
  462.  
  463. /* create Application Installation Overview in Tutorials folder */
  464.  
  465. rc = SysCreateObject('WPProgram','Application Installation Overview','<TUTORIALS>','EXENAME=\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=INSTALL.INF INSTALLING YOUR APPLICATIONS;STARTUPDIR=\OS2\INSTALL\PRELOAD\;')
  466.  
  467. if rc = 1 then do
  468.    say 'Application Installation Overview icon was successfully installed.'
  469. end /* do */
  470.  
  471. else do
  472.    say
  473.    say 'A problem occured during the installation of the'
  474.    say 'Application Installation Overview.  This icon was not'
  475.    say 'created successfully.'
  476.    call reason
  477.    say
  478. end /* do */
  479.  
  480. /* create Tutorial in the Tutorials folder */
  481.  
  482. rc = SysCreateObject('WPProgram','Tutorial','<TUTORIALS>','EXENAME=\OS2\TUTORIAL.EXE;PROGTYPE=PM;PARAMETERS=D;STARTUPDIR=\OS2\HELP\;')
  483.  
  484. if rc = 1 then do
  485.    say 'Tutorial icon was successfully installed.'
  486. end /* do */
  487.  
  488. else do
  489.    say
  490.    say 'A problem occured during the installation of the'
  491.    say 'System Overview icon.  This icon was not'
  492.    say 'created successfully.'
  493.    call reason
  494.    say
  495. end /* do */   
  496.  
  497. call end
  498.  
  499. /***************************************************************/
  500. /* Procedure: option                                           */
  501. /*                                                             */
  502. /* Prompts the user for continuation of creation of the        */
  503. /* Welcome Folder.                                             */
  504. /***************************************************************/
  505.  
  506. option:
  507.  
  508. Say "Do you want to continue (Y/N)?"
  509. yesno = SysGetKey()
  510. yesno = translate(yesno)
  511. say
  512. select
  513.    when yesno = "Y" then return
  514. otherwise call choice
  515. end  /* select */
  516.  
  517. mkeslan:
  518.  
  519. /****************************************************************/
  520. /* MKESLAN.CMD                  Version 1.1; August 11, 1992    */
  521. /*                                                              */
  522. /* Function:                                                    */
  523. /*      Build the WPS entries for the following products:       */
  524. /*              Extended Services:                              */
  525. /*                      Communications Manager                  */
  526. /*                      Database Manager                        */
  527. /*              LAN Requester                                   */
  528. /* Parameters:                                                  */
  529. /*      None                                                    */
  530. /*                                                              */
  531. /* Programmed by:                                               */
  532. /*      Georg Haschek (61804212 at VIEVMA)                      */
  533. /*                                                              */
  534. /* Change history:                                              */
  535. /*      1.0  92/07/31 ... First release to OS2TOOLS             */
  536. /*      1.1  92/08/11 ... Fix lowercase problem in PATH         */
  537. /*                        processing                            */
  538. /*                                                              */
  539. /****************************************************************/
  540. Trace 'O'
  541. Address CMD
  542. '@ECHO OFF'
  543. Signal On Halt
  544. Signal On Syntax
  545.  
  546. /**************/
  547. /* Initialize */
  548. /**************/
  549. landrive = ''
  550. cmdrive = ''
  551. dbdrive = ''
  552. upmdrive = ''
  553. bootdrive = Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\OS2\SYSTEM',Value('PATH',,'OS2ENVIRONMENT'))-2,2)
  554. If Pos('\IBMLAN',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then landrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\IBMLAN',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  555. If Pos('\CMLIB',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then cmdrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\CMLIB',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  556. If Pos('\SQLLIB',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then dbdrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\SQLLIB',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  557. If Pos('\MUGLIB',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then upmdrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\MUGLIB',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  558. If landrive = '' & cmdrive = '' & dbdrive = '' Then Do
  559.   Say "No Extended Services or LAN Requester found, terminating."
  560.   'pause'
  561.   Call choiceb
  562. End
  563.  
  564. 'CLS'
  565. Say "Your system is installed on the" bootdrive "drive."
  566. Say " "
  567. Say "The following components have been found:"
  568. Say " "
  569. If landrive <> '' Then Say "     LAN Requester on drive" landrive
  570. If cmdrive <> '' Then Say "     Communications Manager on drive" cmdrive
  571. If dbdrive <> '' Then Say "     Database Manager on drive" dbdrive
  572. If upmdrive <> '' Then Say "     User Profile Management on drive" upmdrive
  573. Say " "
  574. Say "This program will now create a folder for each identified product on your"
  575. Say "desktop, which will contain the standard WPS entries."
  576. Say " "
  577. Say "Do you want to continue (Y/N)?"
  578. Parse Upper Pull yesno .
  579. If Substr(yesno,1,1) <> 'Y' Then Call choice
  580.  
  581. If landrive <> '' Then Do
  582.   Call SysCreateObject 'WPFolder','LAN Services','<WP_DESKTOP>','OBJECTID=<LAN_FOLDER>;','R'
  583.   Call SysCreateObject 'WPProgram','OS/2 LAN Services Installation/Configuration','<LAN_FOLDER>','EXENAME='||landrive||'\IBMLAN\INSTALL\LANINST.EXE;PROGTYPE=WINDOWABLEVIO;STARTUPDIR='||landrive||'\IBMLAN\INSTALL;','R'
  584.   Call SysCreateObject 'WPProgram','LAN Messaging','<LAN_FOLDER>','EXENAME='||landrive||'\IBMLAN\NETPROG\NETSEND.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||landrive||'\IBMLAN\NETPROG;','R'
  585.   Call SysCreateObject 'WPProgram','LAN Requester','<LAN_FOLDER>','EXENAME='||landrive||'\IBMLAN\NETPROG\NET.EXE;PROGTYPE=FULLSCREEN;STARTUPDIR='||landrive||'\IBMLAN\NETPROG;','R'
  586.   Call SysCreateObject 'WPProgram','OS/2 LAN Command Reference','<LAN_FOLDER>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS='||landrive||'\IBMLAN\BOOK\A3ALANCR.INF;STARTUPDIR='||bootdrive||'\OS2;','R'
  587.   Call SysCreateObject 'WPProgram','OS/2 LAN Online Reference','<LAN_FOLDER>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS='||landrive||'\IBMLAN\BOOK\A3ALANOR.INF;STARTUPDIR='||bootdrive||'\OS2;','R'
  588. End
  589.  
  590. If cmdrive <> '' | dbdrive <> '' Then Do
  591.   Call SysCreateObject 'WPFolder','Extended Services','<WP_DESKTOP>','OBJECTID=<ES_FOLDER>;','R'
  592.   Call SysCreateObject 'WPProgram','View Install History File','<ES_FOLDER>','EXENAME='||bootdrive||'\OS2\INSTALL\VIEWLOG.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||bootdrive||'\OS2\INSTALL;','R'
  593.   Call SysCreateObject 'WPProgram','Add or Remove Features','<ES_FOLDER>','EXENAME='||bootdrive||'\OS2\INSTALL\REINST.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||bootdrive||'\OS2\INSTALL;','R'
  594.   Call SysCreateObject 'WPProgram','Basic Configuration and Installation','<ES_FOLDER>','EXENAME='||bootdrive||'\OS2\INSTALL\ESCFG.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||bootdrive||'\OS2\INSTALL;','R'
  595.   Call SysCreateObject 'WPProgram','Extended Services Command Reference','<ES_FOLDER>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=ESCMDREF.INF;STARTUPDIR='||bootdrive||'\OS2\BOOK;','R'
  596.   Call SysCreateObject 'WPProgram','View Custom Build History File','<ES_FOLDER>','EXENAME='||bootdrive||'\OS2\INSTALL\VIEWBLOG.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||bootdrive||'\OS2\INSTALL;','R'
  597.   Call SysCreateObject 'WPProgram','Create Custom Install Diskette','<ES_FOLDER>','EXENAME='||bootdrive||'\OS2\INSTALL\CUSTBLD.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||bootdrive||'\OS2\INSTALL;','R'
  598. End
  599.  
  600. Call SysCreateObject 'WPFolder','User Profile Management','<WP_DESKTOP>','OBJECTID=<UPM_FOLDER>;','R'
  601. Call SysCreateObject 'WPProgram','Logoff','<UPM_FOLDER>','EXENAME='||upmdrive||'\MUGLIB\LOGOFF.EXE;PARAMETER=/L;STARTUPDIR='||upmdrive||'\OS2\INSTALL;','R'
  602. Call SysCreateObject 'WPProgram','User Profile Management','<UPM_FOLDER>','EXENAME='||upmdrive||'\MUGLIB\UPMACCTS.EXE;STARTUPDIR='||upmdrive||'\OS2\INSTALL;','R'
  603. Call SysCreateObject 'WPProgram','Logon','<UPM_FOLDER>','EXENAME='||upmdrive||'\MUGLIB\LOGON.EXE;STARTUPDIR='||upmdrive||'\OS2\INSTALL;','R'
  604.  
  605. If dbdrive <> '' Then Do
  606.   Call SysCreateObject 'WPFolder','Database Manager','<WP_DESKTOP>','OBJECTID=<DBM_FOLDER>;','R'
  607.   Call SysCreateObject 'WPProgram','Directory Tool','<DBM_FOLDER>','EXENAME='||dbdrive||'\SQLLIB\DIRECT.EXE;PROGTYPE=PM;STARTUPDIR='||dbdrive||'\SQLLIB;','R'
  608.   Call SysCreateObject 'WPProgram','Database Manager Messages','<DBM_FOLDER>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS='||dbdrive||'\SQLLIB\BOOK\DBMSG.INF;STARTUPDIR='||dbdrive||'\SQLLIB;','R'
  609.   Call SysCreateObject 'WPProgram','DBM Command Line Interface','<DBM_FOLDER>','EXENAME=CMD.EXE;PROGTYPE=WINDOWABLEVIO;PARAMETERS=/K DBM.CMD -S & STARTDBM.EXE;STARTUPDIR='||ldbdrive||'\SQLLIB;','R'
  610.   Call SysCreateObject 'WPProgram','Query Manager','<DBM_FOLDER>','EXENAME='||dbdrive||'\SQLLIB\QUERYMGR.EXE;PROGTYPE=PM;STARTUPDIR='||dbdrive||'\SQLLIB;','R'
  611.   Call SysCreateObject 'WPProgram','Configuration Tool','<DBM_FOLDER>','EXENAME='||dbdrive||'\SQLLIB\CONFIG.EXE;PROGTYPE=PM;STARTUPDIR='||dbdrive||'\SQLLIB;','R'
  612.   Call SysCreateObject 'WPProgram','Recovery Tool','<DBM_FOLDER>','EXENAME='||dbdrive||'\SQLLIB\RECOVERY.EXE;PROGTYPE=PM;STARTUPDIR='||dbdrive||'\SQLLIB;','R'
  613. End
  614.  
  615. If cmdrive <> '' Then Do
  616.   Call SysCreateObject 'WPFolder','Communications Manager','<WP_DESKTOP>','OBJECTID=<CM_FOLDER>;','R'
  617.   Call SysCreateObject 'WPProgram','Display SNA Configuration Log','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\APPNLOG2.EXE;PROGTYPE=PM;PARAMETERS=[Enter configuration log (.LOG) file name];STARTUPDIR='||cmdrive||'\CMLIB;','R'
  618.   Call SysCreateObject 'WPProgram','Display Active SNA Configuration','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\PMDSPLAY.EXE;PROGTYPE=PM;STARTUPDIR='||cmdrive||'\CMLIB\APPN;','R'
  619.   Call SysCreateObject 'WPProgram','Manage SNA Logical Links','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\APPNLINK.EXE;PROGTYPE=PM;STARTUPDIR='||cmdrive||'\CMLIB\APPN;','R'
  620.   Call SysCreateObject 'WPProgram','Verify SNA Network Definitions','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\VERIFYNS.CMD;PROGTYPE=WINDOWABLEVIO;PARAMETERS=[Enter node definitions (.NDF) file name];STARTUPDIR='||cmdrive||'\CMLIB\APPN;','R'
  621.   Call SysCreateObject 'WPProgram','SNA Network Definitions Configuration','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\APPNC2.EXE;PROGTYPE=PM;PARAMETERS=[Enter node definitions (.NDF) file name];STARTUPDIR='||cmdrive||'\CMLIB;','R'
  622.   Call SysCreateObject 'WPProgram','Communications Manager','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\STARTCM.CMD;PROGTYPE=FULLSCREEN;STARTUPDIR='||cmdrive||'\CMLIB;','R'
  623.   Call SysCreateObject 'WPProgram','Configuration File Manager','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\COPYCFG.EXE;PROGTYPE=PM;STARTUPDIR='||cmdrive||'\CMLIB;','R'
  624.   Call SysCreateObject 'WPProgram','Start/Stop CM Trace','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\CMTRACE.EXE;PROGTYPE=WINDOWABLEVIO;PARAMETERS=[Enter trace options];STARTUPDIR='||cmdrive||'\CMLIB\APPN;','R'
  625.   Call SysCreateObject 'WPProgram','Format SNA Trace Information','<CM_FOLDER>','EXENAME='||cmdrive||'\CMLIB\APPN\FMTTRACE.EXE;PROGTYPE=WINDOWABLEVIO;PARAMETERS=[Enter optional flags and trace (.TRC) file name];STARTUPDIR='||cmdrive||'\CMLIB\APPN;','R'
  626. End
  627.  
  628. /********************************/
  629. /* Notify user in case of error */
  630. /********************************/
  631. Telluser: Procedure
  632. Parse source . . tell_name .
  633. tell_name = Filespec('name',tell_name)
  634. Parse Upper Var tell_name tell_name '.' .
  635. ulogfile = tell_name
  636. If Arg(2,'e') = 0 Then Do
  637.   Say tell_name||':' Date('U') Time() Arg(1)
  638. End
  639. Else Do
  640.   If Arg(2) = 0 Then Do
  641.     Say tell_name||':' Date('U') Time() Arg(1)
  642.   End
  643.   Else Do
  644.     Say Copies(' ',15+Length(tell_name)) Arg(1)
  645.   End
  646. End
  647. Return 0
  648.  
  649. /*************************/
  650. /* Handle SIGNAL ON HALT */
  651. /*************************/
  652. Halt:
  653. Call Telluser 'Halt signalled in line' SIGL'.'
  654. Call choiceb
  655.  
  656. /***************************/
  657. /* Handle SIGNAL ON SYNTAX */
  658. /***************************/
  659. Syntax:
  660. myrc = rc
  661. errormsg ='REXX error' myrc 'in line' SIGL':' Errortext(myrc)
  662. errormsg2 = Substr('     ',1,6-Length(SIGL))(SIGL)' *-*   'Sourceline(sigl)
  663. Call Telluser errormsg
  664. Call Telluser errormsg2,1
  665. Call choiceb
  666.  
  667. /***************************************************************/
  668. /* Procedure: option2                                          */
  669. /*                                                             */
  670. /* Prompts the user for continuation of creation of the        */
  671. /* Extended Services and Lan Services.                         */
  672. /***************************************************************/
  673.  
  674. option2:
  675.  
  676. Say "Do you want to continue (Y/N)?"
  677. yesno = SysGetKey()
  678. yesno = translate(yesno)
  679. say
  680. select
  681.    when yesno = "Y" then return
  682. otherwise call choiceb
  683. end  /* select */
  684.  
  685. toolkit:
  686.  
  687. /****************************************************************/
  688. /* MKTOOLKIT.CMD                Version 1.0; September 3, 1992  */
  689. /*                                                              */
  690. /* Function:                                                    */
  691. /*      Build the WPS entries for the following products:       */
  692. /*              Toolkit                                         */
  693. /*              C Set/2                                         */
  694. /*              WorkFrame/2                                     */
  695. /* Parameters:                                                  */
  696. /*      None                                                    */
  697. /*                                                              */
  698. /* Programmed by:                                               */
  699. /*      Georg Haschek (61804212 at VIEVMA)                      */
  700. /*                                                              */
  701. /* Change history:                                              */
  702. /*      1.0  92/09/03 ... First release to OS2TOOLS             */
  703. /*                                                              */
  704. /****************************************************************/
  705. Trace 'O'
  706. Address CMD
  707. '@ECHO OFF'
  708. Signal On Halt
  709. Signal On Syntax
  710.  
  711. /**************/
  712. /* Initialize */
  713. /**************/
  714.  
  715. Parse Version v
  716. v = Translate(Word(v,5)||Right(Wordpos(Word(v,4),'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec'),2)||Right(Word(v,3),2),'0',' ')
  717. If v < 19920708 Then Do
  718.   Say "The version of REXX on your system is backlevel."
  719.   Say " "
  720.   Say "Please get the latest version from OS2TOOLS (REXX20 PACKAGE), or from"
  721.   Say "the OS2CSD disk. The success of MKTOOLKT is not guaranteed!"
  722.   'PAUSE'
  723. End
  724.  
  725. tooldrive = ''
  726. csetrive = ''
  727. workdrive = ''
  728. bootdrive = Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\OS2\SYSTEM',Value('PATH',,'OS2ENVIRONMENT'))-2,2)
  729. If Pos('\TOOLKT20',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then tooldrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\TOOLKT20',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  730. If Pos('\IBMC',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then csetdrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\IBMC',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  731. If Pos('\IBMWF',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then workdrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\IBMWF',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  732. If tooldrive = '' & csetdrive = '' & workdrive = '' Then Do
  733.   Say "No Toolkit, WorkFrame/2, or C Set/2 found, terminating."
  734.   Call choiceb
  735. End
  736.  
  737. iconfile = 'GROUP.ICO'
  738. iconparm = ''
  739. If Stream(iconfile,'C','QUERY EXISTS') = '' Then Do
  740.   Parse Source . . myname .
  741.   mydir = Filespec('D',myname)||Filespec('P',myname)
  742.   If Stream(mydir||iconfile,'C','QUERY EXISTS') = '' Then Do
  743.     If SysSearchPath('PATH',iconfile) = '' Then Do
  744.       If SysSearchPath('DPATH',iconfile) <> '' Then Do
  745.         iconparm = 'ICONFILE='||SysSearchPath('DPATH',iconfile)||';'
  746.       End
  747.     End
  748.     Else Do
  749.       iconparm = 'ICONFILE='||SysSearchPath('PATH',iconfile)||';'
  750.     End
  751.   End
  752.   Else Do
  753.     iconparm = 'ICONFILE='||mydir||iconfile||';'
  754.   End
  755. End
  756. Else Do
  757.   iconparm = 'ICONFILE='||Directory()||'\'||iconfile||';'
  758. End
  759.  
  760. 'CLS'
  761. Say "Your system is installed on the" bootdrive "drive."
  762. Say " "
  763. Say "The following components have been found:"
  764. Say " "
  765. If tooldrive <> '' Then Say "     Toolkit for OS/2 2.0 on drive" tooldrive
  766. If csetdrive <> '' Then Say "     C Set/2 on drive" csetdrive
  767. If workdrive <> '' Then Say "     WorkFrame/2 on drive" workdrive
  768. Say " "
  769. Say "This program will now create a folder for each identified product on your"
  770. Say "desktop, which will contain the default WPS entries for the listed products."
  771. Say " "
  772. Say "Do you want to continue (Y/N)?"
  773. Parse Upper Pull yesno .
  774. If Substr(yesno,1,1) <> 'Y' Then Call choiceb
  775.  
  776. If tooldrive <> '' Then Do
  777.   Call SysCreateObject 'WPFolder','Toolkit','<WP_DESKTOP>','OBJECTID=<TOOLKIT_FOLDER>;ICONFILE='||tooldrive||'\TOOLKT20\ICON\UTILS.ICO','R'
  778.   Call SysCreateObject 'WPFolder','Toolkit Information','<TOOLKIT_FOLDER>','OBJECTID=<TOOLKIT_INFO>;ICONFILE='||tooldrive||'\TOOLKT20\ICON\ICONINFO.ICO','R'
  779.   Call SysCreateObject 'WPProgram','REXX Reference','<TOOLKIT_INFO>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=REXXAPI.INF;STARTUPDIR='||tooldrive||'\TOOLKT20\BOOKS;','R'
  780.   Call SysCreateObject 'WPProgram','IPF Reference','<TOOLKIT_INFO>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=IPFC20.INF;STARTUPDIR='||tooldrive||'\TOOLKT20\BOOKS;','R'
  781.   Call SysCreateObject 'WPProgram','SOM Reference','<TOOLKIT_INFO>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=SOM.INF;STARTUPDIR='||tooldrive||'\TOOLKT20\BOOKS;','R'
  782.   Call SysCreateObject 'WPProgram','Tools Reference','<TOOLKIT_INFO>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=TOOLINFO.INF;STARTUPDIR='||tooldrive||'\TOOLKT20\BOOKS;','R'
  783.   Call SysCreateObject 'WPProgram','PM Reference','<TOOLKIT_INFO>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=PMREF;STARTUPDIR='||tooldrive||'\TOOLKT20\BOOKS;','R'
  784.   Call SysCreateObject 'WPProgram','CP Reference','<TOOLKIT_INFO>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=PROGREF20;STARTUPDIR='||tooldrive||'\TOOLKT20\BOOKS;','R'
  785.   Call SysCreateObject 'WPFolder','Sample Programs','<TOOLKIT_FOLDER>','OBJECTID=<TOOLKIT_SAMPLES>;ICONFILE='||tooldrive||'\TOOLKT20\ICON\OSTUTOR.ICO','R'
  786.   samples.1 = tooldrive||'\TOOLKT20\C\SAMPLES\ANIMALS\ANIMALS.CMD WINDOWABLEVIO ;; SOM Inheritance Sample'
  787.   samples.2 = tooldrive||'\TOOLKT20\C\SAMPLES\CLIPBRD\CLIPBRD.EXE PM ;; Clipboard Sample'
  788.   samples.3 = tooldrive||'\TOOLKT20\C\SAMPLES\CLOCK\CLOCK.EXE PM ;; Clock Sample'
  789.   samples.4 = tooldrive||'\TOOLKT20\C\SAMPLES\DIALOG\DIALOG.EXE PM ;; Introductory Dialog Box Sample'
  790.   samples.5 = tooldrive||'\TOOLKT20\C\SAMPLES\DLLAPI\DLLAPI.EXE PM ;; Dynamic Link Library Sample'
  791.   samples.6 = tooldrive||'\TOOLKT20\C\SAMPLES\DRAGDROP\DRAGDROP.EXE PM ;; Dragdrop Sample'
  792.   samples.7 = tooldrive||'\TOOLKT20\C\SAMPLES\EAS\EAS.EXE PM ;; Edit Extended Attributes Sample'
  793.   samples.8 = tooldrive||'\TOOLKT20\C\SAMPLES\GRAPHIC\GRAPHIC.EXE PM ;; Retained Graphics Sample'
  794.   samples.9 = tooldrive||'\TOOLKT20\C\SAMPLES\HANOI\HANOI.EXE PM ;; Towers of Hanoi Sample'
  795.   samples.10 = tooldrive||'\TOOLKT20\C\SAMPLES\HELLO\HELLO.EXE PM ;; Standard Window Sample'
  796.   samples.11 = tooldrive||'\TOOLKT20\C\SAMPLES\IMAGE\IMAGE32.EXE PM ;; Image Sample'
  797.   samples.12 = tooldrive||'\TOOLKT20\C\SAMPLES\JIGSAW\JIGSAW.EXE PM ;; Jigsaw Puzzle Sample'
  798.   samples.13 = tooldrive||'\TOOLKT20\C\SAMPLES\NPIPE\SVRNPIPE.EXE PM ;CLINPIPE.EXE; Tic-Tac-Toe Sample'
  799.   samples.14 = tooldrive||'\TOOLKT20\C\SAMPLES\PRINT\PRTSAMP.EXE PM ;; Print Sample'
  800.   samples.15 = tooldrive||'\TOOLKT20\C\SAMPLES\QUEUES\SVRQUEUE.EXE PM ;CLIQUEUE.EXE; Queues Sample'
  801.   samples.16 = tooldrive||'\TOOLKT20\C\SAMPLES\SEMAPH\SEMAPH.EXE PM ;; Semaphore Sample'
  802.   samples.17 = tooldrive||'\TOOLKT20\C\SAMPLES\SORT\SORT.EXE PM ;; Sorting Algorithm Sample'
  803.   samples.18 = tooldrive||'\TOOLKT20\C\SAMPLES\STYLE\STYLE.EXE PM ;; Style Sample'
  804.   samples.19 = tooldrive||'\TOOLKT20\C\SAMPLES\TEMPLATE\TEMPLATE.EXE PM ;; Application Templace Sample'
  805.   samples.20 = tooldrive||'\TOOLKT20\C\SAMPLES\TP\TP.CMD WINDOWABLEVIO ;; SOM Text Processing Sample'
  806.   samples.21 = tooldrive||'\TOOLKT20\C\SAMPLES\VMM\VMM.EXE PM ;; Virtual Memory Management Sample'
  807.   samples.22 = tooldrive||'\TOOLKT20\C\SAMPLES\WORMS\WORMS.EXE WINDOWABLEVIO ;-30; Mixed Mode Sample'
  808.   samples.23 = tooldrive||'\TOOLKT20\REXX\SAMPLES\CALLREXX\CALLREXX.CMD WINDOWABLEVIO ;; REXX Interpreter Invocation Sample'
  809.   samples.24 = tooldrive||'\TOOLKT20\REXX\SAMPLES\DEVINFO\DEVINFO.CMD WINDOWABLEVIO ;; REXX Variable Pool Interface Sample'
  810.   samples.25 = tooldrive||'\TOOLKT20\REXX\SAMPLES\PMREXX\PMREXX.EXE PM ;REXXTRY.CMD; Presentation Manager REXX Interface Sample'
  811.   samples.26 = tooldrive||'\TOOLKT20\REXX\SAMPLES\REXXUTIL\REXXUDEM.CMD WINDOWABLEVIO ;; REXX Utility Functions Sample'
  812.   samples.27 = tooldrive||'\TOOLKT20\REXX\SAMPLES\RXMACDLL\RXMACDLL.CMD WINDOWABLEVIO ;; External Functions in REXX Macrospace Sample'
  813.   samples.0 = 27
  814.   Do i = 1 to samples.0
  815.     Parse Var samples.i program type ';' parms ';' title
  816.     program = Strip(program)
  817.     type = Strip(title)
  818.     parms = Strip(parms)
  819.     title = Strip(title)
  820.     If parms = '' Then Do
  821.       Call SysCreateObject 'WPProgram',title,'<TOOLKIT_SAMPLES>','EXENAME='||program||';PROGTYPE='||type||';STARTUPDIR='||Filespec('D',program)||Substr(Filespec('P',program),1,Length(Filespec('P',program))-1)||';','R'
  822.     End
  823.     Else Do
  824.       Call SysCreateObject 'WPProgram',title,'<TOOLKIT_SAMPLES>','EXENAME='||program||';PROGTYPE='||type||';PARAMETERS='||parms||';STARTUPDIR='||Filespec('D',program)||Substr(Filespec('P',program),1,Length(Filespec('P',program))-1)||';','R'
  825.     End
  826.   End
  827.   Call SysCreateObject 'WPProgram','Information Presentation Facility Sample','<TOOLKIT_SAMPLES>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=IPF.INF;STARTUPDIR='||tooldrive||'\TOOLKT20\C\SAMPLES\IPF;','R'
  828.   Call SysCreateObject 'WPFolder','PM Development Tools','<TOOLKIT_FOLDER>','OBJECTID=<TOOLKIT_TOOLS>;ICONFILE='||tooldrive||'\TOOLKT20\ICON\FXICON.ICO','R'
  829.   Call SysCreateObject 'WPProgram','Dialog Editor','<TOOLKIT_TOOLS>','EXENAME='||tooldrive||'\TOOLKT20\OS2BIN\DLGEDIT.EXE;PROGTYPE=PM;STARTUPDIR='||tooldrive||'\TOOLKT20\OS2BIN;','R'
  830.   Call SysCreateObject 'WPProgram','Font Editor','<TOOLKIT_TOOLS>','EXENAME='||tooldrive||'\TOOLKT20\OS2BIN\FONTEDIT.EXE;PROGTYPE=PM;STARTUPDIR='||tooldrive||'\TOOLKT20\OS2BIN;','R'
  831.   Call SysCreateObject 'WPProgram','Icon Editor','<TOOLKIT_TOOLS>','EXENAME='||tooldrive||'\TOOLKT20\OS2BIN\ICONEDIT.EXE;PROGTYPE=PM;STARTUPDIR='||tooldrive||'\TOOLKT20\OS2BIN;','R'
  832.   Call SysRegisterObjectClass 'WPKlist', tooldrive||'\TOOLKT20\DLL\WPCLSLST.DLL'
  833.   Call SysCreateObject 'WPKlist', 'WP Class List','<TOOLKIT_TOOLS>'
  834. End
  835.  
  836. If csetdrive <> '' Then Do
  837.   Call SysCreateObject 'WPFolder','IBM C Set/2','<WP_DESKTOP>','OBJECTID=<CSET_FOLDER>;'||iconparm,'R'
  838.   Call SysCreateObject 'WPProgram','IBM C Set/2 Online Help','<CSET_FOLDER>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=DDE4HELP.INF;STARTUPDIR='||csetdrive||'\IBMC\HELP;','R'
  839.   Call SysCreateObject 'WPProgram','IBM C Set/2 Debugger','<CSET_FOLDER>','EXENAME='||csetdrive||'\IBMC\BIN\IPMD.EXE;PROGTYPE=PM;STARTUPDIR='||csetdrive||'\IBMC\BIN;','R'
  840. End
  841.  
  842. If workdrive <> '' Then Do
  843.   Call SysCreateObject 'WPFolder','IBM WorkFrame/2','<WP_DESKTOP>','OBJECTID=<WKFR_FOLDER>;'||iconparm,'R'
  844.   Call SysCreateObject 'WPProgram','IBM WorkFrame/2 Online Help','<WKFR_FOLDER>','EXENAME='||bootdrive||'\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=DDE3WF.INF;STARTUPDIR='||workdrive||'\IBMWF\HELP;','R'
  845.   Call SysCreateObject 'WPProgram','IBM WorkFrame/2','<WKFR_FOLDER>','EXENAME='||workdrive||'\IBMWF\BIN\WF.EXE;PROGTYPE=PM;STARTUPDIR='||workdrive||'\IBMWF;','R'
  846. End
  847.  
  848. /********************************/
  849. /* Notify user in case of error */
  850. /********************************/
  851. Telluser: Procedure
  852. Parse source . . tell_name .
  853. tell_name = Filespec('name',tell_name)
  854. Parse Upper Var tell_name tell_name '.' .
  855. ulogfile = tell_name
  856. If Arg(2,'e') = 0 Then Do
  857.   Say tell_name||':' Date('U') Time() Arg(1)
  858. End
  859. Else Do
  860.   If Arg(2) = 0 Then Do
  861.     Say tell_name||':' Date('U') Time() Arg(1)
  862.   End
  863.   Else Do
  864.     Say Copies(' ',15+Length(tell_name)) Arg(1)
  865.   End
  866. End
  867. Return 0
  868.  
  869. /*************************/
  870. /* Handle SIGNAL ON HALT */
  871. /*************************/
  872. Halt:
  873. Call Telluser 'Halt signalled in line' SIGL'.'
  874. Call choiceb
  875.  
  876. /***************************/
  877. /* Handle SIGNAL ON SYNTAX */
  878. /***************************/
  879. Syntax:
  880. myrc = rc
  881. errormsg ='REXX error' myrc 'in line' SIGL':' Errortext(myrc)
  882. errormsg2 = Substr('     ',1,6-Length(SIGL))(SIGL)' *-*   'Sourceline(sigl)
  883. Call Telluser errormsg
  884. Call Telluser errormsg2,1
  885. Call choiceb
  886.  
  887. /***************************************************************/
  888. /* Procedure: option6                                          */
  889. /*                                                             */
  890. /* Prompts the user for continuation of creation of the        */
  891. /* Toolkit.                                                    */
  892. /***************************************************************/
  893.  
  894. option6:
  895.  
  896. Say "Do you want to continue (Y/N)?"
  897. yesno = SysGetKey()
  898. yesno = translate(yesno)
  899. say
  900. select
  901.    when yesno = "Y" then return
  902. otherwise call choiceb
  903. end  /* select */
  904.  
  905. os2sys:
  906.  
  907. /***************************************************************/
  908. /* Procedure: os2sys                                           */
  909. /*                                                             */
  910. /* Recreates the OS/2 System Icon and all of its contents.     */
  911. /***************************************************************/
  912.  
  913. say
  914. say 'Creating OS/2 System Folder. . .'
  915.  
  916. /* create OS/2 System Folder */
  917.  
  918. rc = SysCreateObject('WPFolder','OS/2 System','<WP_DESKTOP>','HELPPANEL=4002;OBJECTID=<WP_OS2SYS>;ICONFILE=\OS2.ICO')
  919. if rc = 1 then do
  920.    say 'OS/2 System Folder was successfully installed.'
  921. end /* do */
  922.  
  923. else do
  924.    say
  925.    say 'A problem occured during the installation of the'
  926.    say 'OS/2 System Folder.  This folder was not'
  927.    say 'created successfully.'
  928.    call reason
  929.    say
  930. end /* do */
  931.  
  932. 'pause'
  933. call choice2
  934.  
  935. call choice
  936.  
  937.  /* Creating Command Prompts */
  938.  
  939. cmdprmts:
  940.  
  941. say
  942. say 'Creating Command Prompts. . .'
  943.  
  944. rc=SysCreateObject('WPFolder','Command Prompts','<WP_OS2SYS>','HELPPANEL=8008;OBJECTID=<WP_PROMPTS>')
  945. rc=SysCreateObject('WPProgram','OS/2 Full Screen','<WP_PROMPTS>','EXENAME=*;PROGTYPE=FULLSCREEN;HELPPANEL=8009;OBJECTID=<WP_OS2FS>')
  946. rc=SysCreateObject('WPProgram','OS/2 Window','<WP_PROMPTS>','EXENAME=*;PROGTYPE=WINDOWABLEVIO;HELPPANEL=8010;OBJECTID=<WP_OS2WIN>')
  947. rc=SysCreateObject('WPProgram','DOS Full Screen','<WP_PROMPTS>','EXENAME=*;PROGTYPE=VDM;HELPPANEL=8011;OBJECTID=<WP_DOSFS>')
  948. rc=SysCreateObject('WPProgram','DOS Window','<WP_PROMPTS>','EXENAME=*;PROGTYPE=WINDOWEDVDM;HELPPANEL=8012;OBJECTID=<WP_DOSWIN>')
  949. rc=SysCreateObject('WPProgram','WIN-OS/2 Full Screen','<WP_PROMPTS>','EXENAME=WINOS2.COM;PROGTYPE=VDM;SET KBD_ALTHOME_BYPASS=1;SET KBD_CTRL_BYPASS=CTRL_ESC;SET VIDEO_SWITCH_NOTIFICATION=0;SET VIDEO_8514A_XGA_IOTRAP=1;HELPPANEL=8022;OBJECTID=<WP_WINFS>')
  950. rc=SysCreateObject('WPProgram','DOS from Drive A:','<WP_PROMPTS>','EXENAME=*;PROGTYPE=VDM;SET DOS_STARTUP_DRIVE=A:;HELPPANEL=8529;OBJECTID=<WP_DOS_DRV_A>')
  951.  
  952. say 'Is your system setup for the Dual Boot feature?'
  953. yesno = SysGetKey()
  954. yesno = translate(yesno)
  955. say
  956. select
  957.    when (yesno = "N") & (continue <> yes) then call choice2
  958.    when (yesno = "N") & (continue = yes) then call drives
  959.    otherwise nop
  960. end  /* select */
  961. rc=SysCreateObject('WPProgram','Dual Boot','<WP_PROMPTS>','EXENAME=BOOT.COM;PROGTYPE=WINDOWABLEVIO;PARAMETERS=/DOS;HELPPANEL=8029;OBJECTID=<WP_DBOOT>')
  962.  
  963. say 'Command Prompts was successfully installed.'
  964. if continue <> yes then
  965.    do
  966.       'pause'
  967.       call choice2
  968.    end  /* do */
  969. else nop
  970.  
  971. /* Creating Drives Icon */
  972.  
  973. drives:
  974.  
  975. say
  976. say 'THE DRIVES FOLDER YOU ARE ABOUT TO INSTALL CANNOT BE'
  977. say 'REMOVED FROM THE HARD DRIVE ONCE IT IS INSTALLED.'  
  978. say 'ARE YOU SURE YOU WANT TO CONTINUE (Y/N)?'
  979. yesno = SysGetKey()
  980. yesno = translate(yesno)
  981. say
  982. select
  983.    when (yesno = "N") & (continue <> yes) then call choice2
  984.    when (yesno = "N") & (continue = yes) then call startup
  985. otherwise nop
  986. end  /* select */
  987.  
  988. say
  989. say 'Creating Drives Icon. . .'
  990.  
  991. rc=SysCreateObject('WPDrives','Drives','<WP_OS2SYS>','OBJECTID=<WP_DRIVES>')
  992.  
  993. if rc = 1 then do
  994.    say 'Drives Icon was successfully installed.'
  995. end /* do */
  996.  
  997. else do
  998.    say
  999.    say 'A problem occured during the installation of the'
  1000.    say 'Drives Icon.  This folder was not' 
  1001.    say 'created successfully.'
  1002.    call reason
  1003.    say
  1004. end /* do */
  1005.  
  1006. if continue <> yes then
  1007.    do
  1008.       'pause'
  1009.       call choice2
  1010.    end  /* do */
  1011. else nop
  1012.  
  1013.  /* create Startup Folder */
  1014.  
  1015. startup:
  1016.  
  1017. say
  1018. say 'Creating Startup Folder. . .'
  1019.  
  1020. rc=SysCreateObject('WPStartup','Startup','<WP_OS2SYS>','HELPPANEL=8002;OBJECTID=<WP_START>;ICONFILE=\STARTUP.ICO')
  1021.  
  1022. if rc = 1 then do
  1023.    say 'Startup Folder was successfully installed.'
  1024. end /* do */
  1025.  
  1026. else do
  1027.    say
  1028.    say 'A problem occured during the installation of the'
  1029.    say 'Startup Folder.  This folder was not'
  1030.    say 'created successfully.'
  1031.    call reason
  1032.    say
  1033. end /* do */
  1034.  
  1035. if continue <> yes then
  1036.    do
  1037.       'pause'
  1038.       call choice2
  1039.    end  /* do */
  1040. else nop
  1041.  
  1042. /* Games Folder */
  1043.  
  1044. games:
  1045.  
  1046. say
  1047. say 'Creating Games Folder. . .'
  1048.  
  1049. rc=SysCreateObject('WPFolder','Games','<WP_OS2SYS>','HELPPANEL=13091;OBJECTID=<WP_GAMES>;ICONFILE=')
  1050. rc=SysCreateObject('WPProgram','Solitaire - Klondike','<WP_GAMES>','EXENAME=KLONDIKE.EXE;PROGTYPE=PM;HELPPANEL=20295;OBJECTID=<WP_KLDK>')
  1051. rc=SysCreateObject('WPProgram','Reversi','<WP_GAMES>','EXENAME=REVERSI.EXE;PROGTYPE=PM;HELPPANEL=20297;OBJECTID=<WP_RVRSI>')
  1052. rc=SysCreateObject('WPProgram','Scramble','<WP_GAMES>','EXENAME=SCRAMBLE.EXE;PROGTYPE=PM;HELPPANEL=20298;OBJECTID=<WP_SCRBL>')
  1053. rc=SysCreateObject('WPProgram','Cat and Mouse','<WP_GAMES>','EXENAME=NEKO.EXE;PROGTYPE=PM;HELPPANEL=20293;OBJECTID=<WP_NEKO>')
  1054. rc=SysCreateObject('WPProgram','Jigsaw','<WP_GAMES>','EXENAME=JIGSAW.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\BITMAP;HELPPANEL=20294;OBJECTID=<WP_JIGSAW>')
  1055. rc=SysCreateObject('WPProgram','OS/2 Chess','<WP_GAMES>','EXENAME=OS2CHESS.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20296;OBJECTID=<WP_CHESS>')
  1056.  
  1057. say 'Games Folder was successfully installed.'
  1058.  
  1059. if continue <> yes then
  1060.    do
  1061.       'pause'
  1062.       call choice2
  1063.    end  /* do */
  1064. else nop
  1065.  
  1066. productivity:
  1067.  
  1068. say
  1069. say 'Creating Productivity Folder. . .'
  1070.  
  1071.  /* Productivity Folder */
  1072.  
  1073. rc=SysCreateObject('WPFolder','Productivity','<WP_OS2SYS>','HELPPANEL=13090;OBJECTID=<WP_TOOLS>;ICONFILE=')
  1074. rc=SysCreateObject('WPProgram','Enhanced Editor','<WP_TOOLS>','EXENAME=EPM.EXE;PROGTYPE=PM;HELPPANEL=20278;OBJECTID=<WP_EPM>')
  1075. rc=SysCreateObject('WPProgram','Seek and Scan Files','<WP_TOOLS>','EXENAME=PMSEEK.EXE;PROGTYPE=PM;HELPPANEL=20285;OBJECTID=<WP_SEEK>')
  1076. rc=SysCreateObject('WPProgram','Icon Editor','<WP_TOOLS>','EXENAME=ICONEDIT.EXE;PROGTYPE=PM;ASSOCFILTER=*.BMP,*.PTR,*.ICO;HELPPANEL=20279;OBJECTID=<WP_ICON>')
  1077. rc=SysCreateObject('WPProgram','PM Terminal','<WP_TOOLS>','EXENAME=SOFTERM.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20286;OBJECTID=<WP_TERM>')
  1078. rc=SysCreateObject('WPProgram','Pulse','<WP_TOOLS>','EXENAME=PULSE.EXE;PROGTYPE=PM;HELPPANEL=20284;OBJECTID=<WP_PULSE>')
  1079. rc=SysCreateObject('WPProgram','PM Chart','<WP_TOOLS>','EXENAME=PMCHART.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20283;OBJECTID=<WP_CHART>')
  1080. rc=SysCreateObject('WPProgram','Calculator','<WP_TOOLS>','EXENAME=PMDCALC.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20272;OBJECTID=<WP_DCALC>')
  1081. rc=SysCreateObject('WPProgram','Notepad','<WP_TOOLS>','EXENAME=PMDNOTE.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20281;OBJECTID=<WP_DNOTE>')
  1082. rc=SysCreateObject('WPProgram','Alarms','<WP_TOOLS>','EXENAME=PMDALARM.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20270;OBJECTID=<WP_DALARM>')
  1083. rc=SysCreateObject('WPProgram','Calendar','<WP_TOOLS>','EXENAME=PMDCALEN.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20273;OBJECTID=<WP_DCALEM>')
  1084. rc=SysCreateObject('WPProgram','Planner Archive','<WP_TOOLS>','EXENAME=PMDDARC.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20282;OBJECTID=<WP_DDARC>')
  1085. rc=SysCreateObject('WPProgram','Daily Planner','<WP_TOOLS>','EXENAME=PMDDIARY.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20275;OBJECTID=<WP_DDIARY>')
  1086. rc=SysCreateObject('WPProgram','Activities List','<WP_TOOLS>','EXENAME=PMDLIST.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20271;OBJECTID=<WP_DLIST>')
  1087. rc=SysCreateObject('WPProgram','Monthly Planner','<WP_TOOLS>','EXENAME=PMDMONTH.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20280;OBJECTID=<WP_DMNTH>')
  1088. rc=SysCreateObject('WPProgram','To-Do List Archive','<WP_TOOLS>','EXENAME=PMDTARC.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20290;OBJECTID=<WP_DTARC>')
  1089. rc=SysCreateObject('WPProgram','To-Do List','<WP_TOOLS>','EXENAME=PMDTODO.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20289;OBJECTID=<WP_TODO>')
  1090. rc=SysCreateObject('WPProgram','Tune Editor','<WP_TOOLS>','EXENAME=PMDTUNE.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20291;OBJECTID=<WP_TUNE>')
  1091. rc=SysCreateObject('WPProgram','Spreadsheet','<WP_TOOLS>','EXENAME=PMSPREAD.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20287;OBJECTID=<WP_SPREAD>')
  1092. rc=SysCreateObject('WPProgram','Sticky Pad','<WP_TOOLS>','EXENAME=PMSTICKY.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20288;OBJECTID=<WP_STICKY>')
  1093. rc=SysCreateObject('WPProgram','Database','<WP_TOOLS>','EXENAME=PMMBASE.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\APPS;HELPPANEL=20276;OBJECTID=<WP_DBASE>')
  1094. rc=SysCreateObject('WPProgram','Clipboard Viewer','<WP_TOOLS>','EXENAME=CLIPOS2.EXE;PROGTYPE=PM;HELPPANEL=20274;OBJECTID=<WP_CLIPV>')
  1095. rc=SysCreateObject('WPProgram','Picture Viewer','<WP_TOOLS>','EXENAME=PICVIEW.EXE;PROGTYPE=PM;ASSOCTYPE=Metafile,PIF file,,;ASSOCFILTER=*.MET,*.PIF,,;OBJECTID=<WP_PICV>')
  1096. rc=SysCreateObject('WPProgram','OS/2 System Editor','<WP_TOOLS>','EXENAME=E.EXE;HELPPANEL=9289;PROGTYPE=PM;ASSOCTYPE=Plain Text,OS/2 Command File,DOS Command File,,;ASSOCFILTER=*.DOC,*.TXT,,;OBJECTID=<WP_SYSED>')
  1097.  
  1098. say 'Productivity Folder was successfully installed.'
  1099.  
  1100. if continue <> yes then
  1101.    do
  1102.       'pause'
  1103.       call choice2
  1104.    end  /* do */
  1105. else nop
  1106.  
  1107.  /* System Setup */
  1108.  
  1109. system:
  1110.  
  1111. say
  1112. say 'Creating System Setup Icon. . .'
  1113.  
  1114. rc=SysCreateObject('WPFolder','System Setup','<WP_OS2SYS>','HELPPANEL=1220;ICONRESOURCE=59 PMWP;OBJECTID=<WP_CONFIG>')
  1115.  
  1116. if rc = 1 then do
  1117.    say 'System Setup Icon was successfully installed.'
  1118. end /* do */
  1119.  
  1120. else do
  1121.    say
  1122.    say 'A problem occured during the installation of the'
  1123.    say 'System Setup Icon.  This folder was not'
  1124.    say 'created successfully.'
  1125.    call reason
  1126.    say
  1127. end /* do */
  1128.  
  1129. continue = no           /* continue is reinitialized to no, for */
  1130.                                  /* any reinstallation of the icons */
  1131. 'pause'
  1132. call choice4
  1133.  
  1134. all:
  1135.  
  1136. say
  1137. say 'You have asked to recreate the entire OS/2 System Folder.'
  1138. call option3
  1139. say
  1140. say 'Please wait while the OS/2 System Folder is created. . .'
  1141.  
  1142. continue=yes                  /* continue is initialized to yes to */
  1143.                                        /* continued installation of all features */
  1144. call cmdprmts
  1145.  
  1146.  /* System Clock */
  1147.  
  1148. sysclock:
  1149.  
  1150. say
  1151. say 'THE SYSTEM CLOCK ICON YOU ARE ABOUT TO INSTALL CANNOT BE'
  1152. say 'REMOVED FROM THE HARD DRIVE ONCE IT IS INSTALLED.  ARE'
  1153. say 'YOU SURE YOU WANT TO CONTINUE (Y/N)?'
  1154. yesno = SysGetKey()
  1155. yesno = translate(yesno)
  1156. say
  1157. select
  1158.    when (yesno = "N") & (cont3 <> yes) then call choice4
  1159.    when (yesno = "N") & (cont3 = yes) then call sinstal
  1160. otherwise nop
  1161. end  /* select */
  1162.  
  1163. say
  1164. say 'Creating System Clock Icon. . .'
  1165.  
  1166. rc=SysCreateObject('WPClock','System Clock','<WP_CONFIG>','OBJECTID=<WP_CLOCK>;ICONFILE=CLOCK.ICO')
  1167.  
  1168. if rc = 1 then do
  1169.    say 'System Clock Icon was successfully installed.'
  1170. end /* do */
  1171.  
  1172. else do
  1173.    say
  1174.    say 'A problem occured during the installation of the'
  1175.    say 'System Clock Icon.  This folder was not'
  1176.    say 'created successfully.'
  1177.    call reason
  1178.    say
  1179. end /* do */
  1180.  
  1181. if cont3 <> yes then 
  1182.    do
  1183.       pause
  1184.       call choice4
  1185.    end
  1186. else nop
  1187.  
  1188.  /* Selective Install */
  1189.  
  1190. sinstal:
  1191.  
  1192. say
  1193. say 'Creating Selective Install Icon. . .'
  1194.  
  1195. rc=SysCreateObject('WPProgram','Selective Install','<WP_CONFIG>','EXENAME=\OS2\INSTALL\INSTALL.EXE;PROGTYPE=PM;HELPPANEL=12220;OBJECTID=<WP_INST>')
  1196.  
  1197. if rc = 1 then do
  1198.    say 'Selective Install Icon was successfully installed.'
  1199. end /* do */
  1200.  
  1201. else do
  1202.    say
  1203.    say 'A problem occured during the installation of the'
  1204.    say 'Selective Install Icon.  This folder was not'
  1205.    say 'created successfully.'
  1206.    call reason
  1207.    say
  1208. end /* do */
  1209.  
  1210. if cont3 <> yes then
  1211.    do
  1212.       pause
  1213.       call choice4b
  1214.    end
  1215. else nop
  1216.  
  1217.  /* Device Driver Install */
  1218.  
  1219. ddrvr:
  1220.  
  1221. say
  1222. say 'Creating Device Driver Install Icon. . .'
  1223.  
  1224. rc=SysCreateObject('WPProgram','Device Driver Install','<WP_CONFIG>','EXENAME=\OS2\INSTALL\DDINSTAL.EXE;PROGTYPE=PM;HELPPANEL=12221;OBJECTID=<WP_DDINST>')
  1225.  
  1226. if rc = 1 then do
  1227.    say 'Device Driver Install Icon was successfully installed.'
  1228. end /* do */
  1229.  
  1230. else do
  1231.    say
  1232.    say 'A problem occured during the installation of the'
  1233.    say 'Device Driver Install Icon.  This folder was not'
  1234.    say 'created successfully.'
  1235.    call reason
  1236.    say
  1237. end /* do */
  1238.  
  1239. if cont3 <> yes then
  1240.    do
  1241.       pause
  1242.       call choice4b
  1243.    end
  1244. else nop
  1245.  
  1246.  /* Migrate Applications */
  1247.  
  1248. migrate:
  1249.  
  1250. say
  1251. say 'Creating Migrate Applications Icon. . .'
  1252.  
  1253. rc=SysCreateObject('WPProgram','Migrate Applications','<WP_CONFIG>','EXENAME=\OS2\INSTALL\MIGRATE.EXE;PROGTYPE=PM;HELPPANEL=4508;OBJECTID=<WP_MIGAPP>')
  1254.  
  1255. if rc = 1 then do
  1256.    say 'Migrate Applications Icon was successfully installed.'
  1257. end /* do */
  1258.  
  1259. else do
  1260.    say
  1261.    say 'A problem occured during the installation of the'
  1262.    say 'Migrate Applications Icon.  This folder was not'
  1263.    say 'created successfully.'
  1264.    call reason
  1265.    say
  1266. end /* do */
  1267.  
  1268. if cont3 <> yes then
  1269.    do
  1270.       pause
  1271.       call choice4b
  1272.    end
  1273. else nop
  1274.  
  1275.  /* Create Scheme Palette */
  1276.  
  1277. scheme:
  1278.  
  1279. say
  1280. say 'Creating Scheme Palette. . .'
  1281.  
  1282. rc=SysCreateObject('WPSchemePalette','Scheme Palette','<WP_CONFIG>','AUTOSETUP=YES;OBJECTID=<WP_SCHPAL>;ICONFILE=\SCHEME.ICO')
  1283.  
  1284. if rc = 1 then do
  1285.    say 'Scheme Palette was successfully installed.'
  1286. end /* do */
  1287.  
  1288. else do
  1289.    say
  1290.    say 'A problem occured during the installation of the'
  1291.    say 'Scheme Palette.  This folder was not'
  1292.    say 'created successfully.'
  1293.    call reason
  1294.    say
  1295. end /* do */
  1296.  
  1297. if cont3 <> yes then
  1298.    do
  1299.       pause
  1300.       call choice4
  1301.    end
  1302. else nop
  1303.  
  1304.  /* Create Color Palette */
  1305.  
  1306. color:
  1307.  
  1308. say
  1309. say 'Creating Color Palette. . .'
  1310.  
  1311. rc=SysCreateObject('WPColorPalette','Color Palette','<WP_CONFIG>','OBJECTID=<WP_CLRPAL>;ICONFILE=\COLOR.ICO')
  1312.  
  1313. if rc = 1 then do
  1314.    say 'Color Palette was successfully installed.'
  1315. end /* do */
  1316.  
  1317. else do
  1318.    say
  1319.    say 'A problem occured during the installation of the'
  1320.    say 'Color Palette.  This folder was not'
  1321.    say 'created successfully.'
  1322.    call reason
  1323.    say
  1324. end /* do */
  1325.  
  1326. if cont3 <> yes then
  1327.    do
  1328.       pause
  1329.       call choice4
  1330.    end
  1331. else nop
  1332.  
  1333.  /* Creating Font Palette */
  1334.  
  1335. font:
  1336.  
  1337. say
  1338. say 'Creating Font Palette. . .'
  1339.  
  1340. rc=SysCreateObject('WPFontPalette','Font Palette','<WP_CONFIG>','OBJECTID=<WP_FNTPAL>;ICONFILE=\FONT.ICO')
  1341.  
  1342. if rc = 1 then do
  1343.    say 'Font Palette was successfully installed.'
  1344. end /* do */
  1345.  
  1346. else do
  1347.    say
  1348.    say 'A problem occured during the installation of the'
  1349.    say 'Font Palette.  This folder was not'
  1350.    say 'created successfully.'
  1351.    call reason
  1352.    say
  1353. end /* do */
  1354.  
  1355. if cont3 <> yes then
  1356.    do
  1357.       pause
  1358.       call choice4
  1359.    end
  1360. else nop
  1361.  
  1362.  /* Create Keyboard Icon */
  1363.  
  1364. keybd:
  1365.  
  1366. say
  1367. say 'THE KEYBOARD ICON YOU ARE ABOUT TO INSTALL CANNOT BE'
  1368. say 'REMOVED FROM THE HARD DRIVE ONCE IT IS INSTALLED.  ARE'
  1369. say 'YOU SURE YOU WANT TO CONTINUE (Y/N)?'
  1370. yesno = SysGetKey()
  1371. yesno = translate(yesno)
  1372. say
  1373. select
  1374.    when (yesno = "N") & (cont3 <> yes) then call choice4b
  1375.    when (yesno = "N") & (cont3 = yes) then call mouse
  1376. otherwise nop
  1377. end  /* select */
  1378.  
  1379. say
  1380. say 'Creating Keyboard Icon. . .'
  1381.  
  1382. rc=SysCreateObject('WPKeyboard','Keyboard','<WP_CONFIG>','OBJECTID=<WP_KEYB>;ICONFILE=\KEYBD.ICO')
  1383.  
  1384. if rc = 1 then do
  1385.    say 'Keyboard Icon was successfully installed.'
  1386. end /* do */
  1387.  
  1388. else do
  1389.    say
  1390.    say 'A problem occured during the installation of the'
  1391.    say 'Keyboard Icon.  This folder was not'
  1392.    say 'created successfully.'
  1393.    call reason
  1394.    say
  1395. end /* do */
  1396.  
  1397. if cont3 <> yes then
  1398.    do
  1399.       pause
  1400.       call choice4b
  1401.    end
  1402. else nop
  1403.  
  1404.  /* Create Mouse Icon */
  1405.  
  1406. mouse:
  1407.  
  1408. say
  1409. say 'THE MOUSE ICON YOU ARE ABOUT TO INSTALL CANNOT BE'
  1410. say 'REMOVED FROM THE HARD DRIVE ONCE IT IS INSTALLED.  ARE'
  1411. say 'YOU SURE YOU WANT TO CONTINUE (Y/N)?'
  1412. yesno = SysGetKey()
  1413. yesno = translate(yesno)
  1414. say
  1415. select
  1416.    when (yesno = "N") & (cont3 <> yes) then call choice4b
  1417.    when (yesno = "N") & (cont3 = yes) then call touch
  1418. otherwise nop
  1419. end  /* select */
  1420.  
  1421. say
  1422. say 'Creating Mouse Icon. . .'
  1423.  
  1424. rc=SysCreateObject('WPMouse','Mouse','<WP_CONFIG>','OBJECTID=<WP_MOUSE>;ICONFILE=\MOUSE.ICO')
  1425.  
  1426. if rc = 1 then do
  1427.    say 'Mouse Icon was successfully installed.'
  1428. end /* do */
  1429.  
  1430. else do
  1431.    say
  1432.    say 'A problem occured during the installation of the'
  1433.    say 'Mouse Icon.  This folder was not'
  1434.    say 'created successfully.'
  1435.    call reason
  1436.    say
  1437. end /* do */
  1438.  
  1439. if cont3 <> yes then
  1440.    do
  1441.       pause
  1442.       call choice4b
  1443.    end
  1444. else nop
  1445.  
  1446.  /* Create Touch Icon */
  1447.  
  1448. touch:
  1449.  
  1450. say
  1451. say 'Do you have a touch display?'
  1452. yesno = SysGetKey()
  1453. say
  1454. select
  1455.    when (yesno = "N") & (cont3 <> yes) then call choice4b
  1456.    when (yesno = "N") & (cont3 = yes) then call sound
  1457. otherwise nop
  1458. end  /* select */
  1459.  
  1460. say 'THE TOUCH DISPLAY ICON YOU ARE ABOUT TO INSTALL CANNOT BE'
  1461. say 'REMOVED FROM THE HARD DRIVE ONCE IT IS INSTALLED.  ARE'
  1462. say 'YOU SURE YOU WANT TO CONTINUE (Y/N)?'
  1463. yesno = SysGetKey()
  1464. yesno = translate(yesno)
  1465. say
  1466. select
  1467.    when (yesno = "N") & (cont3 <> yes) then call choice4b
  1468.    when (yesno = "N") & (cont3 = yes) then call sound
  1469. otherwise nop
  1470. end  /* select */
  1471.  
  1472. say
  1473. say 'Creating Touch Display Icon. . .'
  1474.  
  1475. rc=SysCreateObject('WPTouch','Touch','<WP_CONFIG>','OBJECTID=<WP_TOUCH>;ICONFILE=\TOUCH.ICO')
  1476.  
  1477. if rc = 1 then do
  1478.    say 'Touch Display Icon was successfully installed.'
  1479. end /* do */
  1480.  
  1481. else do
  1482.    say
  1483.    say 'A problem occured during the installation of the'
  1484.    say 'Touch Display Icon.  This folder was not'
  1485.    say 'created successfully.'
  1486.    call reason
  1487.    say
  1488. end /* do */
  1489.  
  1490. if cont3 <> yes then
  1491.    do
  1492.       pause
  1493.       call choice4b
  1494.    end
  1495. else nop
  1496.  
  1497.  /* Create Sound Icon */
  1498.  
  1499. sound:
  1500.  
  1501. say
  1502. say 'THE SOUND ICON YOU ARE ABOUT TO INSTALL CANNOT BE'
  1503. say 'REMOVED FROM THE HARD DRIVE ONCE IT IS INSTALLED.  ARE'
  1504. say 'YOU SURE YOU WANT TO CONTINUE (Y/N)?'
  1505. yesno = SysGetKey()
  1506. yesno = translate(yesno)
  1507. say
  1508. select
  1509.    when (yesno = "N") & (cont3 <> yes) then call choice4b
  1510.    when (yesno = "N") & (cont3 = yes) then call sys
  1511. otherwise nop
  1512. end  /* select */
  1513.  
  1514. say
  1515. say 'Creating Sound Icon. . .'
  1516.  
  1517. rc=SysCreateObject('WPSound','Sound','<WP_CONFIG>','OBJECTID=<WP_SOUND>;ICONFILE=\SOUND.ICO')
  1518.  
  1519. if rc = 1 then do
  1520.    say 'Sound Icon was successfully installed.'
  1521. end /* do */
  1522.  
  1523. else do
  1524.    say
  1525.    say 'A problem occured during the installation of the'
  1526.    say 'Sound Icon.  This folder was not'
  1527.    say 'created successfully.'
  1528.    call reason
  1529.    say
  1530. end /* do */
  1531.  
  1532. if cont3 <> yes then
  1533.    do
  1534.       pause
  1535.       call choice4b
  1536.    end
  1537. else nop
  1538.  
  1539.  /* Create System Icon */
  1540.  
  1541. sys:
  1542.  
  1543. say
  1544. say 'THE SYSTEM ICON YOU ARE ABOUT TO INSTALL CANNOT BE'
  1545. say 'REMOVED FROM THE HARD DRIVE ONCE IT IS INSTALLED.  ARE'
  1546. say 'YOU SURE YOU WANT TO CONTINUE (Y/N)?'
  1547. yesno = SysGetKey()
  1548. yesno = translate(yesno)
  1549. say
  1550. select
  1551.    when (yesno = "N") & (cont3 <> yes) then call choice4
  1552.    when (yesno = "N") & (cont3 = yes) then call country
  1553. otherwise nop
  1554. end  /* select */
  1555.  
  1556. say
  1557. say 'Creating System Icon. . .'
  1558.  
  1559. rc=SysCreateObject('WPSystem','System','<WP_CONFIG>','HELPPANEL=9259;OBJECTID=<WP_SYSTEM>;ICONFILE=\SYSTEM.ICO')
  1560.  
  1561. if rc = 1 then do
  1562.    say 'System Icon was successfully installed.'
  1563. end /* do */
  1564.  
  1565. else do
  1566.    say
  1567.    say 'A problem occured during the installation of the'
  1568.    say 'System Icon.  This folder was not'
  1569.    say 'created successfully.'
  1570.    call reason
  1571.    say
  1572. end /* do */
  1573.  
  1574. if cont3 <> yes then
  1575.    do
  1576.       pause
  1577.       call choice4
  1578.    end
  1579. else nop
  1580.  
  1581.  /* Create Country Icon */
  1582.  
  1583. country:
  1584.  
  1585. say
  1586. say 'THE COUNTRY ICON YOU ARE ABOUT TO INSTALL CANNOT BE'
  1587. say 'REMOVED FROM THE HARD DRIVE ONCE IT IS INSTALLED.  ARE'
  1588. say 'YOU SURE YOU WANT TO CONTINUE (Y/N)?'
  1589. yesno = SysGetKey()
  1590. yesno = translate(yesno)
  1591. say
  1592. select
  1593.    when (yesno = "N") & (cont3 <> yes) then call choice4
  1594.    when (yesno = "N") & (cont3 = yes) then call spooler
  1595. otherwise nop
  1596. end  /* select */
  1597.  
  1598. say
  1599. say 'Creating Country Icon. . .'
  1600.  
  1601. rc=SysCreateObject('WPCountry','Country','<WP_CONFIG>','OBJECTID=<WP_CNTRY>;ICONFILE=\COUNTRY.ICO')
  1602.  
  1603. if rc = 1 then do
  1604.    say 'Country Icon was successfully installed.'
  1605. end /* do */
  1606.  
  1607. else do
  1608.    say
  1609.    say 'A problem occured during the installation of the'
  1610.    say 'Country Icon.  This folder was not'
  1611.    say 'created successfully.'
  1612.    call reason
  1613.    say
  1614. end /* do */
  1615.  
  1616. if cont3 <> yes then
  1617.    do
  1618.       pause
  1619.       call choice4
  1620.    end
  1621. else nop
  1622.  
  1623.  /* Create Spooler Icon */
  1624.  
  1625. spooler:
  1626.  
  1627. say
  1628. say 'THE SPOOLER ICON YOU ARE ABOUT TO INSTALL CANNOT BE'
  1629. say 'REMOVED FROM THE HARD DRIVE ONCE IT IS INSTALLED.  ARE'
  1630. say 'YOU SURE YOU WANT TO CONTINUE (Y/N)?'
  1631. yesno = SysGetKey()
  1632. yesno = translate(yesno)
  1633. say
  1634. select
  1635.    when yesno = "N" then call choice4
  1636. otherwise nop
  1637. end  /* select */
  1638.  
  1639. say
  1640. say 'Creating Spooler Icon. . .'
  1641.  
  1642. rc=SysCreateObject('WPSpool','Spooler','<WP_CONFIG>','OBJECTID=<WP_SPOOL>;ICONFILE=\SPOOL.ICO')
  1643.  
  1644. if rc = 1 then do
  1645.    say 'Spooler Icon was successfully installed.'
  1646. end /* do */
  1647.  
  1648. else do
  1649.    say
  1650.    say 'A problem occured during the installation of the'
  1651.    say 'Spooler Icon.  This folder was not'
  1652.    say 'created successfully.'
  1653.    call reason
  1654.    say
  1655. end /* do */
  1656.  
  1657. cont3 = no                      /* continue 2 is reinitialized to no, for */
  1658.                                        /* any reinstallation of the icons */
  1659. 'pause'
  1660. call choice4
  1661.  
  1662. all3:
  1663.  
  1664. say
  1665. say 'You have asked to recreate the entire System Setup Folder.'
  1666. call option5
  1667. say
  1668. say 'Please wait while entire System Setup Folder is created. . .'
  1669.  
  1670. cont3 = yes                     /* continue 3 is initialized to yes to */
  1671.                                        /* continued installation of all features */
  1672.  
  1673. call sysclock
  1674.  
  1675. templates:
  1676.  
  1677. /***************************************************************/
  1678. /* Procedure: templates                                        */
  1679. /*                                                             */
  1680. /* Recreates the Templates Icon and all of its contents.       */
  1681. /***************************************************************/
  1682.  
  1683. say
  1684. say 'THE TEMPLATES FOLDER YOU ARE ABOUT TO INSTALL'
  1685. say 'CANNOT BE REMOVED FROM THE HARD DRIVE ONCE IT IS'
  1686. say 'INSTALLED.  ARE YOU SURE YOU WANT TO CONTINUE (Y/N)?'
  1687. yesno = SysGetKey()
  1688. yesno = translate(yesno)
  1689. say
  1690. select
  1691.    when yesno = "N" then call choice
  1692. otherwise nop
  1693. end  /* select */
  1694.  
  1695. say
  1696. say 'Creating Templates Folder. . .'
  1697.  
  1698. /* create Templates Folder */
  1699.  
  1700. rc=SysCreateObject('WPTemplates','Templates','<WP_DESKTOP>','HELPPANEL=15680;OBJECTID=<WP_TEMPS>')
  1701.  
  1702. if rc = 1 then do
  1703.    say 'Templates Folder was successfully installed.'
  1704. end /* do */
  1705.  
  1706. else do
  1707.    say
  1708.    say 'A problem occured during the installation of the'
  1709.    say 'Templates Folder.  This folder was not'
  1710.    say 'created successfully.'
  1711.    call reason
  1712.    say
  1713. end /* do */
  1714.  
  1715. 'pause'
  1716. call choice
  1717.  
  1718. minwin:
  1719.  
  1720. /***************************************************************/
  1721. /* Procedure: minintro                                         */
  1722. /*                                                             */
  1723. /* Recreates the Minimized Window Icon Viewer and all of its contents.     */
  1724. /***************************************************************/
  1725.  
  1726. say
  1727. say 'THE MINIMIZED WINDOW VIEWER YOU ARE ABOUT TO'
  1728. say 'INSTALL CANNOT BE REMOVED FROM THE HARD DRIVE'
  1729. say 'ONCE IT IS INSTALLED.  ARE YOU SURE YOU WANT TO'
  1730. say 'CONTINUE (Y/N)?'
  1731. yesno = SysGetKey()
  1732. yesno = translate(yesno)
  1733. say
  1734. select
  1735.    when yesno = "N" then call choice
  1736. otherwise nop
  1737. end  /* select */
  1738.  
  1739. say
  1740. say 'Create Minimized Window Icon Viewer. . .'
  1741.  
  1742. /* create Minimized Window Icon Viewer */
  1743.  
  1744. rc = SysCreateObject('WPMinWinViewer','Minimized^Window Viewer','<WP_DESKTOP>','ICONPOS=5 31;OBJECTID=<WP_VIEWER>')
  1745.  
  1746. if rc = 1 then do
  1747.    say 'Minimized Window Icon Viewer was successfully installed.'
  1748. end /* do */
  1749.  
  1750. else do
  1751.    say
  1752.    say 'A problem occured during the installation of the'
  1753.    say 'Minimized Window Icon Viewer.  This folder was not'
  1754.    say 'created successfully.'
  1755.    call reason
  1756.    say
  1757. end /* do */
  1758.  
  1759. 'pause'
  1760. call choice
  1761.  
  1762. information:
  1763.  
  1764. /***************************************************************/
  1765. /* Procedure: information                                      */
  1766. /*                                                             */
  1767. /* Recreates the Information Icon and all of its contents.     */
  1768. /***************************************************************/
  1769.  
  1770. say
  1771. say 'Creating Information Folder. . .'
  1772.  
  1773. /* create Information Folder */
  1774.  
  1775. rc = SysCreateObject('WPFolder','Information','<WP_DESKTOP>','HELPPANEL=13092;OBJECTID=<INFO>;ICONFILE=\INFO.ICO')
  1776. if rc = 1 then do
  1777.    say 'Information Folder was successfully installed.'
  1778. end /* do */
  1779.  
  1780. else do
  1781.    say
  1782.    say 'A problem occured during the installation of the'
  1783.    say 'Information Folder.  This folder was not'
  1784.    say 'created successfully.'
  1785.    call reason
  1786.    say
  1787. end /* do */
  1788.  
  1789. 'pause'
  1790. call choice3
  1791.  
  1792. readme:
  1793.  
  1794. /* create ReadMe File */
  1795.  
  1796. rc=SysCreateObject('WPShadow','ReadMe','<INFO>','SHADOWID=?:\readme')
  1797.  
  1798. if rc = 1 then do
  1799.    say 'Readme file was successfully installed.'
  1800. end /* do */
  1801.  
  1802. else do
  1803.    say
  1804.    say 'A problem occured during the installation of the'
  1805.    say 'Readme file.  This file was not created'
  1806.    say 'successfully.'
  1807.    call reason
  1808.    say
  1809. end /* do */
  1810.  
  1811. if cont2 <> yes then 
  1812.    do
  1813.       'pause'
  1814.       call choice3
  1815.    end
  1816. else nop
  1817.  
  1818. rexx:
  1819.  
  1820. /* create REXX Information */
  1821.  
  1822. rc = SysCreateObject('WPProgram','REXX Information','<INFO>','EXENAME=\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=REXX.INF;HELPPANEL=9301;ICONFILE=\REXX.ICO')
  1823.  
  1824. if rc = 1 then do
  1825.    say 'REXX Information was successfully installed.'
  1826. end /* do */
  1827.  
  1828. else do
  1829.    say
  1830.    say 'A problem occured during the installation of the'
  1831.    say 'REXX Information.  This icon was not'
  1832.    say 'created successfully.'
  1833.    call reason
  1834.    say
  1835. end /* do */
  1836.  
  1837. if cont2 <> yes then
  1838.    do
  1839.       'pause'
  1840.       call choice3
  1841.    end
  1842. else nop
  1843.  
  1844. cmdref:
  1845.  
  1846. /* create Command Reference */
  1847.  
  1848. rc = SysCreateObject('WPProgram','Command Reference','<INFO>','EXENAME=\OS2\VIEW.EXE;PROGTYPE=PM;PARAMETERS=CMDREF.INF;ASSOCFILTER=*.INF;HELPPANEL=9301')
  1849.  
  1850. if rc = 1 then do
  1851.    say 'Command Reference was successfully installed.'
  1852. end /* do */
  1853.  
  1854. else do
  1855.    say
  1856.    say 'A problem occured during the installation of the'
  1857.    say 'Command Reference.  This icon was not'
  1858.    say 'created successfully.'
  1859.    call reason
  1860.    say
  1861. end /* do */
  1862.  
  1863. if cont2 <> yes then
  1864.    do
  1865.       'pause'
  1866.       call choice3
  1867.    end
  1868. else nop
  1869.  
  1870. tutorial:
  1871.  
  1872. /* create Tutorial */
  1873.  
  1874. rc = SysCreateObject('WPProgram','Tutorial','<INFO>','EXENAME=\OS2\TUTORIAL.EXE;PROGTYPE=PM;PARAMETERS=;STARTUPDIR=\OS2\HELP;HELPPANEL=13093;ICONFILE=\TUTOR.ICO')
  1875.  
  1876. if rc = 1 then do
  1877.    say 'Tutorial was successfully installed.'
  1878. end /* do */
  1879.  
  1880. else do
  1881.    say
  1882.    say 'A problem occured during the installation of the'
  1883.    say 'Tutorial.  This icon was not'
  1884.    say 'created successfully.'
  1885.    call reason
  1886.    say
  1887. end /* do */
  1888.  
  1889. if cont2 <> yes then
  1890.    do
  1891.       'pause'
  1892.       call choice3
  1893.    end
  1894. else nop
  1895.  
  1896.  /* creating Glossary */
  1897.  
  1898. glossary:
  1899.  
  1900. say
  1901. say 'THE GLOSSARY YOU ARE ABOUT TO INSTALL CANNOT BE'
  1902. say 'REMOVED FROM THE HARD DRIVE ONCE IT IS INSTALLED.'
  1903. say 'ARE YOU SURE YOU WANT TO CONTINUE (Y/N)?'
  1904. yesno = SysGetKey()
  1905. yesno = translate(yesno)
  1906. say
  1907. select
  1908.    when yesno = "N" then call choice3
  1909. otherwise nop
  1910. end  /* select */
  1911.  
  1912. rc=SysCreateObject('Mindex','Glossary','<INFO>','INDEX=GLOSSARY;ICONFILE=\GLOSS.ICO')
  1913.  
  1914. if rc = 1 then do
  1915.    say 'Glossary was successfully installed.'
  1916. end /* do */
  1917.  
  1918. else do
  1919.    say
  1920.    say 'A problem occured during the installation of the'
  1921.    say 'Glossary.  This icon was not'
  1922.    say 'created successfully.'
  1923.    call reason
  1924.    say
  1925. end /* do */
  1926.  
  1927. if cont2 <> yes then
  1928.    do
  1929.       'pause'
  1930.       call choice3
  1931.    end
  1932. else nop
  1933.  
  1934. starthere:
  1935.  
  1936. /* create Start Here */
  1937.  
  1938. rc = SysCreateObject('WPProgram','Start Here','<INFO>','EXENAME=\OS2\STHR.EXE;PROGTYPE=PM;PARAMETERS=;STARTUPDIR=\OS2\HELP;HELPPANEL=9278;ICONFILE=\START.ICO')
  1939.  
  1940. if rc = 1 then do
  1941.    say 'Start Here was successfully installed.'
  1942. end /* do */
  1943.  
  1944. else do
  1945.    say
  1946.    say 'A problem occured during the installation of the'
  1947.    say 'Start Here.  This icon was not'
  1948.    say 'created successfully.'
  1949.    call reason
  1950.    say
  1951. end /* do */
  1952.  
  1953. cont2 = no              /* continue 2 is reinitialized to no, for */
  1954.                                /* any reinstallation of the icons */
  1955. 'pause'
  1956. call choice3
  1957.  
  1958. all2:
  1959.  
  1960. say
  1961. say 'You have asked to recreate the entire information folder.'
  1962. call option4
  1963. say
  1964. say 'Please wait while the entire Information Folder is created. . .'
  1965.  
  1966. cont2 = yes                     /* continue 2 is initialized to yes to */
  1967.                                        /* continued installation of all features */
  1968. call readme
  1969.  
  1970. shred:
  1971.  
  1972. /***************************************************************/
  1973. /* Procedure: Shred                                           */
  1974. /*                                                             */
  1975. /* Recreates the Shredder Icon and all of its contents.     */
  1976. /***************************************************************/
  1977.  
  1978. say
  1979. say 'THE SHREDDER YOU ARE ABOUT TO INSTALL CANNOT BE'
  1980. say 'REMOVED FROM THE HARD DRIVE ONCE IT IS INSTALLED.'
  1981. say 'ARE YOU SURE YOU WANT TO CONTINUE (Y/N)?'
  1982. yesno = SysGetKey()
  1983. yesno = translate(yesno)
  1984. say
  1985. select
  1986.    when yesno = "N" then call choice
  1987. otherwise nop
  1988. end  /* select */
  1989.  
  1990. say
  1991. say 'Creating Shredder. . .'
  1992.  
  1993. /* create Shredder */
  1994.  
  1995. rc=SysCreateObject('WPShredder','Shredder','<WP_DESKTOP>','ICONPOS=90 8;OBJECTID=<WP_SHRED>')
  1996.  
  1997. if rc = 1 then do
  1998.    say 'Shredder was successfully installed.'
  1999. end /* do */
  2000.  
  2001. else do
  2002.    say
  2003.    say 'A problem occured during the installation of the'
  2004.    say 'Shredder.  This icon was not'
  2005.    say 'created successfully.'
  2006.    call reason
  2007.    say
  2008. end /* do */
  2009.  
  2010. 'pause'
  2011. call choice
  2012.  
  2013. master:
  2014.  
  2015. /***************************************************************/
  2016. /* Procedure: masterintro                                      */
  2017. /*                                                             */
  2018. /* Recreates the Master Help Index and all of its contents.    */
  2019. /***************************************************************/
  2020.  
  2021. say
  2022. say 'Creating Master Help Index. . .'
  2023.  
  2024. rc=SysCreateObject('Mindex','Master Help Index','<WP_DESKTOP>','ICONPOS=5 44;OBJECTID=<WP_MINDEX>')
  2025.  
  2026. if rc = 1 then do
  2027.    say 'Master Help Index was successfully installed.'
  2028. end /* do */
  2029.  
  2030. else do
  2031.    say
  2032.    say 'A problem occured during the installation of the'
  2033.    say 'Master Help Index.  This icon was not'
  2034.    say 'created successfully.'
  2035.    call reason
  2036.    say
  2037. end /* do */
  2038.  
  2039. 'pause'
  2040. call choice
  2041.  
  2042. /***************************************************************/
  2043. /* Procedure: option3                                          */
  2044. /*                                                             */
  2045. /* Prompts the user for continuation of creation of the        */
  2046. /* OS/2 System Folder.                                         */
  2047. /***************************************************************/
  2048.  
  2049. option3:
  2050.  
  2051. Say "Do you want to continue (Y/N)?"
  2052. yesno = SysGetKey()
  2053. yesno = translate(yesno)
  2054. say
  2055. select
  2056.    when yesno = "Y" then return
  2057. otherwise call choice2
  2058. end  /* select */
  2059.  
  2060. /***************************************************************/
  2061. /* Procedure: option4                                          */
  2062. /*                                                             */
  2063. /* Prompts the user for continuation of creation of the        */
  2064. /* Information.                                                */
  2065. /***************************************************************/
  2066.  
  2067. option4:
  2068.  
  2069. Say "Do you want to continue (Y/N)?"
  2070. yesno = SysGetKey()
  2071. yesno = translate(yesno)
  2072. say
  2073. select
  2074.    when yesno = "Y" then return
  2075. otherwise call choice3
  2076. end  /* select */
  2077.  
  2078. /***************************************************************/
  2079. /* Procedure: option5                                          */
  2080. /*                                                             */
  2081. /* Prompts the user for continuation of creation of the        */
  2082. /* System Setup.                                               */
  2083. /***************************************************************/
  2084.  
  2085. option5:
  2086.  
  2087. Say "Do you want to continue (Y/N)?"
  2088. yesno = SysGetKey()
  2089. yesno = translate(yesno)
  2090. say
  2091. select
  2092.    when yesno = "Y" then return
  2093. otherwise call choice4
  2094. end  /* select */
  2095.  
  2096.  
  2097. /***************************************************************/
  2098. /* Procedure: reason                                           */
  2099. /*                                                             */
  2100. /* This procedure gives the user some knowledge as to why the  */
  2101. /* icon did not successfully install.                          */
  2102. /***************************************************************/
  2103.  
  2104. reason:
  2105.    say 'The icon may not have installed because:'
  2106.    say '   1.  This Feature has already been created.'
  2107.    say '   2.  This is not a feature that was preloaded on your system.'
  2108.    say '   3.  The executable file was not located on your system.  It'
  2109.    say '       may have been deleted.'
  2110. return
  2111.  
  2112. /***************************************************************/
  2113. /* Procedure: choice                                           */
  2114. /*                                                             */
  2115. /* Determine which features the user wishes to restore.        */
  2116. /***************************************************************/
  2117.  
  2118. choice:
  2119.  
  2120. call syscls
  2121.  
  2122. say
  2123. say 'Please choose from among the characters in brackets to restore'
  2124. say 'the features of your choice to the desktop <* Letter Only, No Enter Key'
  2125. say 'necessary anywhere in the program *> :'
  2126. say
  2127. say '[W]elcome Folder'
  2128. say
  2129. say '[O]S/2 System Icon'
  2130. say
  2131. say '[T]emplates Folder'
  2132. say
  2133. say '[M]inimized Window Icon'
  2134. say
  2135. say '[I]nformation Folder'
  2136. say
  2137. say '[S]hredder'
  2138. say
  2139. say 'M[A]ster Help Index'
  2140. say
  2141. say 'Page [D]own for more options'
  2142. say
  2143. say '[Q]uit'
  2144. say
  2145. say
  2146. say 'Enter your choice: '
  2147.  
  2148. do forever
  2149.    key = sysgetkey('echo')
  2150.    key = translate(key)
  2151.    say
  2152.    select
  2153.       when key = 'W' then call welcintro
  2154.       when key = 'O' then call os2sysintro
  2155.       when key = 'T' then call templates
  2156.       when key = 'M' then call minwin
  2157.       when key = 'I' then call infointro
  2158.       when key = 'S' then call shred
  2159.       when key = 'A' then call master
  2160.       when key = 'D' then call choiceb
  2161.       when key = 'Q' then call quit
  2162.    otherwise do
  2163.       say 'Invalid input. Enter your choice to restore: '
  2164.       iterate
  2165.    end /* do */
  2166.    end  /* select */
  2167. end /* do */
  2168. call choice
  2169.  
  2170. /***************************************************************/
  2171. /* Procedure: choiceb                                          */
  2172. /*                                                             */
  2173. /* Determine which features the user wishes to restore.        */
  2174. /***************************************************************/
  2175.  
  2176. choiceb:
  2177.  
  2178. call syscls
  2179.  
  2180. say
  2181. say 'Please choose from among the characters in brackets to restore'
  2182. say 'the features of your choice to the desktop <* Letter Only, No Enter Key'
  2183. say 'necessary anywhere in the program *> :'
  2184. say
  2185. say '[E]xtended Services Icon and Lan Services Icon'
  2186. say
  2187. say '[T]oolkit'
  2188. say
  2189. say 'Page [B]ack to previous page'
  2190. say
  2191. say '[Q]uit'
  2192. say
  2193. say 'Enter your choice: '
  2194.  
  2195. do forever
  2196.    key = sysgetkey('echo')
  2197.    key = translate(key)
  2198.    say
  2199.    select
  2200.       when key = 'E' then call eslsintro
  2201.       when key = 'T' then call toolintro
  2202.       when key = 'B' then call choice
  2203.       when key = 'Q' then call quit
  2204.    otherwise do
  2205.       say 'Invalid input. Enter your choice to restore: '
  2206.       iterate
  2207.    end /* do */
  2208.    end  /* select */
  2209. end /* do */
  2210. call choiceb
  2211.  
  2212. /***************************************************************/
  2213. /* Procedure: choice2                                          */
  2214. /*                                                             */
  2215. /* Determine which features the user wishes to restore.        */
  2216. /***************************************************************/
  2217.  
  2218. choice2:
  2219.  
  2220. call syscls
  2221.  
  2222. say
  2223. say 'Please choose from among the characters in brackets to restore'
  2224. say 'the features of your choice to the desktop <* Letter Only, No Enter Key'
  2225. say 'necessary anywhere in the program *>     >> OS/2 System <<:'
  2226. say
  2227. say '[C]ommand Prompts'
  2228. say
  2229. say '[D]rives'
  2230. say
  2231. say '[G]ames'
  2232. say
  2233. say '[P]roductivity'
  2234. say
  2235. say '[S]tartup'
  2236. say
  2237. say 'S[Y]stem Setup'
  2238. say
  2239. say '[A]ll'
  2240. say
  2241. say '[Q]uit to Main Menu'
  2242. say
  2243. say
  2244. say 'Enter your choice: '
  2245.  
  2246. do forever
  2247.    key = sysgetkey('echo')
  2248.    key = translate(key)
  2249.    say
  2250.    select
  2251.       when key = 'C' then call cmdprmts
  2252.       when key = 'D' then call drives
  2253.       when key = 'G' then call games
  2254.       when key = 'P' then call productivity
  2255.       when key = 'S' then call startup
  2256.       when key = 'Y' then call system
  2257.       when key = 'A' then call all
  2258.       when key = 'Q' then call choice
  2259.    otherwise do
  2260.       say 'Invalid input. Enter your choice to restore: '
  2261.       iterate
  2262.    end /* do */
  2263.    end  /* select */
  2264. end /* do */
  2265. call choice2
  2266.  
  2267. /***************************************************************/
  2268. /* Procedure: choice3                                          */
  2269. /*                                                             */
  2270. /* Determine which features the user wishes to restore.        */
  2271. /***************************************************************/
  2272.  
  2273. choice3:
  2274.  
  2275. call syscls
  2276.  
  2277. say
  2278. say 'Please choose from among the characters in brackets to restore'
  2279. say 'the features of your choice to the desktop <* Letter Only, No Enter Key'
  2280. say 'necessary anywhere in the program *>     >> Information <<:'
  2281. say
  2282. say '[R]eadme'
  2283. say
  2284. say 'Rexx [I]nformation'
  2285. say
  2286. say '[C]ommand Reference'
  2287. say
  2288. say '[T]utorial'
  2289. say
  2290. say '[G]lossary'
  2291. say
  2292. say '[S]tart Here'
  2293. say
  2294. say '[A]ll'
  2295. say
  2296. say '[Q]uit to Main Menu'
  2297. say
  2298. say
  2299. say 'Enter your choice: '
  2300.  
  2301. do forever
  2302.    key = sysgetkey('echo')
  2303.    key = translate(key)
  2304.    say
  2305.    select
  2306.       when key = 'R' then call readme
  2307.       when key = 'I' then call rexx
  2308.       when key = 'C' then call cmdref
  2309.       when key = 'T' then call tutorial
  2310.       when key = 'G' then call glossary
  2311.       when key = 'S' then call starthere
  2312.       when key = 'A' then call all2
  2313.       when key = 'Q' then call choice
  2314.    otherwise do
  2315.       say 'Invalid input. Enter your choice to restore: '
  2316.       iterate
  2317.    end /* do */
  2318.    end  /* select */
  2319. end /* do */
  2320. call choice3
  2321.  
  2322. /***************************************************************/
  2323. /* Procedure: choice4                                          */
  2324. /*                                                             */
  2325. /* Determine which features the user wishes to restore.        */
  2326. /***************************************************************/
  2327.  
  2328. choice4:
  2329.  
  2330. call syscls
  2331.  
  2332. say
  2333. say 'Please choose from among the characters in brackets to restore'
  2334. say 'the features of your choice to the desktop <* Letter Only, No Enter Key'
  2335. say 'necessary anywhere in the program *>     >> System Setup <<:'
  2336. say
  2337. say '[S]ystem Clock'
  2338. say
  2339. say 'S[P]ooler'
  2340. say
  2341. say 'Sc[H]eme Palette'
  2342. say
  2343. say '[C]olor Palette'
  2344. say
  2345. say '[F]ont Palette'
  2346. say
  2347. say 'C[O]untry'
  2348. say
  2349. say 'S[Y]stem'
  2350. say
  2351. say 'Page [D]own for more options'
  2352. say
  2353. say '[Q]uit to OS/2 System'
  2354. say
  2355. say
  2356. say 'Enter your choice: '
  2357.  
  2358. do forever
  2359.    key = sysgetkey('echo')
  2360.    key = translate(key)
  2361.    say
  2362.    select
  2363.       when key = 'S' then call sysclock
  2364.       when key = 'P' then call spooler
  2365.       when key = 'H' then call scheme
  2366.       when key = 'C' then call color
  2367.       when key = 'F' then call font
  2368.       when key = 'O' then call country
  2369.       when key = 'Y' then call sys
  2370.       when key = 'D' then call choice4b
  2371.       when key = 'Q' then call choice2
  2372.    otherwise do
  2373.       say 'Invalid input. Enter your choice to restore: '
  2374.       iterate
  2375.    end /* do */
  2376.    end  /* select */
  2377. end /* do */
  2378. call choice4
  2379.  
  2380. /***************************************************************/
  2381. /* Procedure: choice4b                                         */
  2382. /*                                                             */
  2383. /* Determine which features the user wishes to restore.        */
  2384. /***************************************************************/
  2385.  
  2386. choice4b:
  2387.  
  2388. call syscls
  2389.  
  2390. say
  2391. say 'Please choose from among the characters in brackets to restore'
  2392. say 'the features of your choice to the desktop <* Letter Only, No Enter Key'
  2393. say 'necessary anywhere in the program *>  >> System Setup <<:'
  2394. say
  2395. say '[S]ound'
  2396. say
  2397. say '[M]igrate Applications'
  2398. say
  2399. say '[D]evice Driver Install'
  2400. say
  2401. say 'M[O]use'
  2402. say
  2403. say 'S[E]lective Install'
  2404. say
  2405. say '[K]eyboard'
  2406. say
  2407. say '[T]ouch display'
  2408. say
  2409. say 'Page [B]ack to previous page'
  2410. say
  2411. say '[A]ll'
  2412. say
  2413. say '[Q]uit to OS/2 System'
  2414. say
  2415. say
  2416. say 'Enter your choice: '
  2417.  
  2418. do forever
  2419.    key = sysgetkey('echo')
  2420.    key = translate(key)
  2421.    say
  2422.    select
  2423.       when key = 'S' then call sound
  2424.       when key = 'M' then call migrate
  2425.       when key = 'D' then call ddrvr
  2426.       when key = 'O' then call mouse
  2427.       when key = 'E' then call sinstal
  2428.       when key = 'K' then call keybd
  2429.       when key = 'T' then call touch
  2430.       when key = 'B' then call choice4
  2431.       when key = 'A' then call all3
  2432.       when key = 'Q' then call choice2
  2433.    otherwise do
  2434.       say 'Invalid input. Enter your choice to restore: '
  2435.       iterate
  2436.    end /* do */
  2437.    end  /* select */
  2438. end /* do */
  2439. call choice4b
  2440.  
  2441. /***************************************************************/
  2442. /* Procedure: quit                                             */
  2443. /*                                                             */
  2444. /* This procedure terminates the program at the appropriate    */
  2445. /* time.  Determined by user or program completion             */
  2446. /***************************************************************/
  2447.  
  2448. quit:
  2449.  
  2450. 'cd\'
  2451. 'del drives.ico'
  2452. 'del shred.ico'
  2453. 'del startup.ico'
  2454. 'del disk.ico'
  2455. 'del template.ico'
  2456. 'del info.ico'
  2457. 'del sysset.ico'
  2458. 'del ult.ico'
  2459. 'del minwin.ico'
  2460. 'del tutor.ico'
  2461. 'del os2.ico'
  2462. say
  2463. say 'Program terminated.'
  2464. say
  2465. say 'Thank you for using Ultimate.'
  2466. say
  2467. say 'Any fixes or updates to this utility will be available on'
  2468. say 'the IBM Bulletin Board System.'
  2469. say
  2470. say 'Creator: Shawn McAlhany'
  2471. say
  2472. 'pause'
  2473.  
  2474. exit
  2475.  
  2476. /* Intro */
  2477.  
  2478. intro:
  2479.  
  2480. call syscls
  2481.  
  2482. say
  2483. say
  2484. say
  2485. say
  2486. say
  2487. say
  2488. say
  2489. say
  2490. say '                           ULTIMATE'
  2491. say '                          12/09/1992'
  2492. say 
  2493. say '                  Created by Shawn McAlhany'
  2494. say
  2495. say 'This is a REXX Utility that allows users to recreate any icons'
  2496. say 'or folders on the desktop that may have been lost or removed'
  2497. say 'and were on the system with the original OS/2.'
  2498. say
  2499. say 'The purpose of this utility is to allow the user to recreate'
  2500. say 'the necessary icons or folders without having to recreate the'
  2501. say 'desktop.  Customized icons may still reside on the desktop'
  2502. say 'while the lost icons are recreated unlike makeini or ALT-F1.'
  2503. say 'The F1 key on icons is implemented, so the help features of'
  2504. say 'OS/2 are also available.'
  2505. say
  2506. say 'Any Questions, Comments, or Problems can be reported to me on'
  2507. say 'the IBM Electronic BBS at 404-835-6600.  This is also where any'
  2508. say 'updates will be made available.'
  2509. say
  2510. 'pause'
  2511. return
  2512.  
  2513.