home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / bonusrus.os2 / ibmworks / ibmwdesk.cmd < prev    next >
Encoding:
Text File  |  1995-06-16  |  17.8 KB  |  494 lines
  1. /****************************************************************************/
  2. /* REXX program to rebuild IBM Works Desktop - Zhitao Zeng 06/14/94         */
  3. /****************************************************************************/
  4. Parse Arg fpwpath fpwlan calledfromSI .
  5. Trace 'O'
  6. Address CMD
  7. '@ECHO OFF'
  8. 'CLS'
  9.  
  10. Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  11. Call sysloadfuncs
  12.  
  13. badcfg = 'n'
  14. bootdrive = Substr(Translate(Value('PATH',,'OS2ENVIRONMENT')),Pos('\OS2\SYSTEM',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2)
  15. fpwdll = bootdrive||'\os2\dll'
  16.  
  17. inipath = Value('IBMWORKS_INI',,'OS2ENVIRONMENT')
  18.  
  19. If inipath = '' Then badcfg = 'y'
  20.  
  21. If fpwpath = '' Then fpwpath = inipath
  22.  
  23. fpwdrive = Substr(fpwpath,1,2)
  24.  
  25. If fpwpath <> '' & Substr(fpwdrive,2,1) = ':' Then Do
  26.  
  27.   If calledfromSI<>'y' & NeedToCopyDlls(fpwdll)='y' Then Call CopyDlls
  28.  
  29. /****************************************************************************/
  30. /* Create the WORKS desktop objects                                         */
  31. /****************************************************************************/
  32.  
  33.   Say " "
  34.   Say "櫺ñá¡¿Ñ »á»¬¿ IBM Works ..."
  35.  
  36.   If fpwlan = '' Then fpwlan = fpwpath
  37.  
  38.   Call SysRegisterObjectClass 'FpwCatalyst', fpwdll||'\FPWCAT.DLL'
  39.  
  40.   Call SysCreateObject 'WPFolder', 'IBM Works','<WP_DESKTOP>','ICONFILE='||fpwpath||'\FPWOBOX.ICO;ICONNFILE=1,'||fpwpath||'\FPWOBOX2.ICO;OBJECTID=<WP_FPWO_FOLD>','R'
  41.  
  42.   Call SysCreateObject 'FpwCatalyst', 'Footprint Catalyst','<WP_DESKTOP>','OBJECTID=<FPW_CATALYST>;NOTVISIBLE=YES','R'
  43.  
  44.   Call SysRegisterObjectClass 'FpwWPData', fpwdll||'\FPWWP.DLL'
  45.   Call SysRegisterObjectClass 'FpwSSData', fpwdll||'\FPWSS.DLL'
  46.   Call SysRegisterObjectClass 'FpwCHData', fpwdll||'\FPWCH.DLL'
  47.   Call SysRegisterObjectClass 'FpwDBData', fpwdll||'\FPWDB.DLL'
  48.   Call SysRegisterObjectClass 'FpwRWData', fpwdll||'\FPWRW.DLL'
  49.   Call SysRegisterObjectClass 'FpwGRData', fpwdll||'\FPWGR.DLL'
  50.  
  51. /****************************************************************************/
  52. /* Create the PIM desktop objects                                           */
  53. /****************************************************************************/
  54.  
  55.   Call SysCreateObject 'WPProgram','àªÑñ¡Ñ󡿬','<WP_FPWO_FOLD>','ICONFILE='||fpwpath||'\appt2.ico;HELPLIBRARY=fpwpim.hlp;HELPPANEL=12000;EXENAME='||fpwpath||'\FPWPIM.EXE;PARAMETERS=-M;PROGTYPE=PM;CCVIEW=YES;OBJECTID=<WP_FPWPIMA_EXE>','R'
  56.   Call SysCreateObject 'WPProgram','ÆѽÑΣ«¡δ/ÇñαÑßá','<WP_FPWO_FOLD>','ICONFILE='||fpwpath||'\phonebk.ico;HELPLIBRARY=fpwpim.hlp;HELPPANEL=13000;EXENAME='||fpwpath||'\FPWPIM.EXE;PARAMETERS=-P;PROGTYPE=PM;CCVIEW=YES;OBJECTID=<WP_FPWPIMP_EXE>','R'
  57.   Call SysCreateObject 'FpwGRData','è«¡Γá¬Γδ','<WP_FPWO_FOLD>','TEMPLATE=YES;OBJECTID=<WP_FPWO_GRTEMP>','R'
  58.   Call SysCreateObject 'WPProgram','ü½«¬¡«Γ','<WP_FPWO_FOLD>','ICONFILE='||fpwpath||'\notes.ico;HELPLIBRARY=fpwpim.hlp;HELPPANEL=15000;EXENAME='||fpwpath||'\FPWPIM.EXE;PARAMETERS=-N;PROGTYPE=PM;CCVIEW=YES;OBJECTID=<WP_FPWPIMN_EXE>','R'
  59.   Call SysCreateObject 'WPProgram','Ž᡿α«óΘ¿¬','<WP_FPWO_FOLD>','ICONFILE='||fpwpath||'\month.ico;HELPLIBRARY=fpwpim.hlp;HELPPANEL=12200;EXENAME='||fpwpath||'\FPWPIM.EXE;PARAMETERS=-G;PROGTYPE=PM;CCVIEW=YES;OBJECTID=<WP_FPWPIMG_EXE>','R'
  60.   Call SysCreateObject 'WPProgram','滿߫¬ ñѽ','<WP_FPWO_FOLD>','ICONFILE='||fpwpath||'\todo.ico;HELPLIBRARY=fpwpim.hlp;HELPPANEL=16000;EXENAME='||fpwpath||'\FPWPIM.EXE;PARAMETERS=-T;PROGTYPE=PM;CCVIEW=YES;OBJECTID=<WP_FPWPIMT_EXE>','R'
  61.   Call SysCreateObject 'WPProgram','èá½Ñ¡ñáα∞','<WP_FPWO_FOLD>','ICONFILE='||fpwpath||'\year.ico;HELPLIBRARY=fpwpim.hlp;HELPPANEL=11210;EXENAME='||fpwpath||'\FPWPIM.EXE;PARAMETERS=-Y;PROGTYPE=PM;CCVIEW=YES;OBJECTID=<WP_FPWPIMY_EXE>','R'
  62.   Call SysCreateObject 'WPProgram','î«¡¿Γ«α ß«íδΓ¿⌐','<WP_FPWO_FOLD>','ICONFILE='||fpwpath||'\alarm.ico;HELPLIBRARY=fpwpim.hlp;HELPPANEL=10100;EXENAME='||fpwpath||'\FPWMON.EXE;PROGTYPE=PM;CCVIEW=YES;OBJECTID=<WP_FPWPIME_EXE>','R'
  63.   Call SysCreateObject 'WPProgram','ìáßΓα«⌐¬á PIM','<WP_FPWO_FOLD>','ICONFILE='||fpwpath||'\prefer.ico;HELPLIBRARY=fpwpim.hlp;HELPPANEL=17000;EXENAME='||fpwpath||'\FPWPIM.EXE;PARAMETERS=-S;PROGTYPE=PM;CCVIEW=YES;OBJECTID=<WP_FPWPIMS_EXE>','R'
  64.  
  65.   Call SysCreateObject 'WPShadow','ÿáí½«¡δ','<WP_FPWO_FOLD>','SHADOWID='||fpwlan||'\ÿÇüïÄì¢;OBJECTID=<WP_FPWO_SAMP_FOLD>','R'
  66.  
  67.   Call SysCreateObject 'FpwRWData','ÄΓτÑΓ','<WP_FPWO_FOLD>','TEMPLATE=YES;OBJECTID=<WP_FPWO_RWTEMP>','R'
  68.   Call SysCreateObject 'FpwDBData','üáºá ñá¡¡δσ','<WP_FPWO_FOLD>','TEMPLATE=YES;OBJECTID=<WP_FPWO_DBTEMP>','R'
  69.   Call SysCreateObject 'FpwCHData','ä¿áúαá¼¼δ','<WP_FPWO_FOLD>','TEMPLATE=YES;OBJECTID=<WP_FPWO_CHTEMP>','R'
  70.   Call SysCreateObject 'FpwSSData','Æáí½¿µδ','<WP_FPWO_FOLD>','TEMPLATE=YES;OBJECTID=<WP_FPWO_SSTEMP>','R'
  71.   Call SysCreateObject 'FpwWPData','䫬π¼Ñ¡Γ','<WP_FPWO_FOLD>','TEMPLATE=YES;OBJECTID=<WP_FPWO_WPTEMP>','R'
  72.  
  73.   Call SysCreateObject 'WPShadow','ReadMe','<WP_FPWO_FOLD>','SHADOWID='||fpwpath||'\'ReadMe';OBJECTID=<WP_FPWO_README>','R'
  74.   Call SysCreateObject 'WPProgram','IBM Works','<WP_FPWO_FOLD>','HELPLIBRARY=ibmworks.hlp;HELPPANEL=1;EXENAME='||fpwpath||'\IBMWORKS.EXE;PROGTYPE=PM;CCVIEW=YES;OBJECTID=<WP_FPWO_EXE>','R'
  75.  
  76.   'ob2templ '||fpwlan||'\ÿÇüïÄì¢\æîàÆÇ '||fpwlan||'\ÿÇüïÄì¢\öÇèæ'||fpwlan||'\ÿÇüïÄì¢\ôéàäÄîïà'||fpwlan||'\ÿÇüïÄì¢\üÇïÇìæ'||fpwlan||'\ÿÇüïÄì¢\æÇï£äÄ'
  77.   'ob2templ '||fpwlan||'\ÿÇüïÄì¢\ü₧äåàÆ'||fpwlan||'\ÿÇüïÄì¢\çǃéèÇ_ì'||fpwlan||'\ÿÇüïÄì¢\ÅÉÄâìÄç'||fpwlan||'\ÿÇüïÄì¢\æùàÆ-öÇè'||fpwlan||'\ÿÇüïÄì¢\MERGELET'
  78. Rem   'ob2templ '||fpwlan||'\template\INVENTOR '||fpwlan||'\template\TAPES'
  79.  
  80.   If calledfromSI<>'y' & badcfg = 'y' Then Do
  81.      Call UpdateConfigSys
  82.      Call UpdateOS2Ini
  83.      'fpwini 'fpwpath
  84.   End
  85.  
  86.   If calledfromSI='y' Then Do
  87.      ret = SysFileTree(fpwpath||'\dllbak', 'file', 'D')
  88.      If file.0 = 0 Then Do
  89.         '@mkdir 'fpwpath||'\dllbak'
  90.      End
  91.      '@copy 'fpwdll'\fpwcat.dll 'fpwpath||'\dllbak 2>nul >nul'
  92.      '@copy 'fpwdll'\fpwpers.dll 'fpwpath||'\dllbak 2>nul >nul'
  93.      '@copy 'fpwdll'\fpwrec.dll 'fpwpath||'\dllbak 2>nul >nul'
  94.      '@copy 'fpwdll'\fen20pde.dll 'fpwpath||'\dllbak 2>nul >nul'
  95.      '@copy 'fpwdll'\fpwwp.dll 'fpwpath||'\dllbak 2>nul >nul'
  96.      '@copy 'fpwdll'\fpwss.dll 'fpwpath||'\dllbak 2>nul >nul'
  97.      '@copy 'fpwdll'\fpwch.dll 'fpwpath||'\dllbak 2>nul >nul'
  98.      '@copy 'fpwdll'\fpwdb.dll 'fpwpath||'\dllbak 2>nul >nul'
  99.      '@copy 'fpwdll'\fpwrw.dll 'fpwpath||'\dllbak 2>nul >nul'
  100.      '@copy 'fpwdll'\fpwgr.dll 'fpwpath||'\dllbak 2>nul >nul'
  101.   End
  102.  
  103.   Say " "
  104.   Say "ÅỬá IBM Works ß«ºñá¡á πß»ÑΦ¡«!"
  105.  
  106. End
  107. Else Do
  108.   Say " "
  109.   Say 'IBMWDESK.CMD - »α«µÑñπαá Rexx ñ½∩ ß«ºñá¡¿∩ »á»¬¿'
  110.   Say '               IBM Works ¡á Éáí«τѼ ßΓ«½Ñ'
  111.   Say ' '
  112.   Say 'æ¿¡Γá¬ß¿ß: IBMWDESK [ÅôÆ£]'
  113.   Say '           ÅôÆ£ - ¬áΓὫú IBM Works'
  114.  
  115.   Say 'ìá»α¿¼Ñα:'
  116.   Say '        IBMWDESK C:\IBMWORKS'
  117. End
  118.  
  119. Call Endit
  120.  
  121.  
  122. /****************/
  123. /* Exit program */
  124. /****************/
  125. Endit:
  126. Exit 0
  127.  
  128.  
  129. /***************************/
  130. /* Change the CONFIG.SYS   */
  131. /***************************/
  132.  
  133. UpdateConfigSys:   /* change the config.sys file for IBMWorks */
  134. /*
  135. '@cls'
  136. response=''
  137.  
  138. Say '    éδ σ«Γ¿ΓÑ «í¡«ó¿Γ∞ 'bootdrive'\CONFIG.SYS?(ä/ì)'
  139.   Parse Upper Pull response
  140.   If response <> 'ì' Then Do
  141.      Say '    æΓáαδ⌐ 'bootdrive'\CONFIG.SYS íπñÑΓ ß«σαá¡Ñ¡ ó 'bootdrive'\CONFIG.IW'
  142.      Say ' '
  143.      Say '    ùΓ«íδ ¿º¼Ñ¡Ñ¡¿∩ óßΓπ»¿½¿ ó ß¿½π,'
  144.      Say '    ºá¬α«⌐ΓÑ «»Ñαᵿ«¡¡πε ß¿ßΓÑ¼π ¿ »ÑαѺáúαπº¿ΓÑ ¬«¼»∞εΓÑα.'
  145.      Say ' '
  146.   End
  147.   Else
  148.      return 0
  149. */
  150.  
  151. oldconfig=bootdrive'\CONFIG.SYS'
  152. newconfig=bootdrive'\CONFIG.IW'
  153. tmpconfig=bootdrive'\IWTMP.SYS'
  154.  
  155. os2path='SET PATH'
  156. os2libpath='LIBPATH'
  157. os2help='SET HELP'
  158. os2ini='SET IBMWORKS_INI'
  159.  
  160. iniflag=0
  161.  
  162. /* get the portion of pathspec without the [drive]: */
  163. pathonly = right(fpwpath, length(fpwpath)-2)
  164.  
  165. /*
  166.  * read the file one line at a time, and write it all out, making
  167.  * changes accordingly - need to change path, libpath, help, IBMWORKS_INI
  168.  */
  169.  
  170. '@del 'newconfig ' 2>nul >nul'
  171.  
  172. Do while lines(oldconfig)
  173.     inline=linein(oldconfig)
  174.  
  175.     /******************************************/
  176.     /* parse the line into variable and value */
  177.     /******************************************/
  178.  
  179.     parse value inline with os2var '=' os2value
  180.  
  181.     /********************************************************/
  182.     /* translate the variable into uppercase for comparison */
  183.     /********************************************************/
  184.  
  185.     os2var=translate(os2var)
  186.     Select
  187.  
  188.         /********************************************************/
  189.         /*          For PATH                                    */
  190.         /********************************************************/
  191.         when os2var=os2path Then Do
  192.             ibmwline=inline
  193.  
  194.             /* see if path is already set */
  195.             k = pos(pathonly, translate(ibmwline))
  196.             If k = 0 Then Do
  197.                /*
  198.                 * see if there is a ; at the end of the value
  199.                 */
  200.                position=lastpos(';',os2value)
  201.                lenvalue=length(os2value)
  202.  
  203.                If position=lenvalue Then do
  204.                    /* ; at end of value */
  205.                    ibmwline=os2var'='os2value''fpwpath';'
  206.                End
  207.                Else Do
  208.                    /* ; NOT at end of value */
  209.                    ibmwline=os2var'='os2value';'fpwpath';'
  210.                End
  211.  
  212.             End
  213.             Else  /* see if the drive letter is not the same */
  214.               If substr(ibmwline, k-2, 1) \= fpwdrive Then
  215.                 /* change the drive letter only */
  216.                 ibmwline = overlay(fpwdrive, ibmwline, k-2)
  217.  
  218.             /*
  219.              * write the line out to the new config file
  220.              */
  221.  
  222.             result=lineout(newconfig, ibmwline)
  223.  
  224.             If result=1 Then Do
  225.                 writeerror()
  226.                 return 1
  227.             End
  228.         End
  229.  
  230.         /********************************************************/
  231.         /*          For LIBPATH                                 */
  232.         /********************************************************/
  233.         when os2var=os2libpath Then Do
  234.             ibmwline=inline
  235.  
  236.             /* see if lib path is already set */
  237.             k = pos(pathonly, translate(ibmwline))
  238.             If k = 0 Then Do
  239.                /*
  240.                 * see if there is a ; at the end of the value
  241.                 */
  242.  
  243.                position=lastpos(';',os2value)
  244.                lenvalue=length(os2value)
  245.  
  246.                If position=lenvalue Then Do
  247.                    /* ; at end of value */
  248.                    ibmwline=os2var'='os2value''fpwpath';'
  249.                End
  250.                Else Do
  251.                    /* ; NOT at end of value */
  252.                    ibmwline=os2var'='os2value';'fpwpath';'
  253.                End
  254.  
  255.             End
  256.             Else  /* see if the drive letter is not the same */
  257.               If substr(ibmwline, k-2, 1) \= fpwdrive Then
  258.                 /* change the drive letter only */
  259.                 ibmwline = overlay(fpwdrive, ibmwline, k-2)
  260.  
  261.             /*
  262.              * write the line out to the new config file
  263.              */
  264.  
  265.             result=lineout(newconfig, ibmwline)
  266.             If result=1 Then Do
  267.                 writeerror()
  268.                 return 1
  269.             End
  270.         End
  271.  
  272.         /********************************************************/
  273.         /*          For SET HELP                                */
  274.         /********************************************************/
  275.         when os2var=os2help Then Do
  276.             ibmwline=inline
  277.  
  278.             /* see if lib path is already set */
  279.             k = pos(pathonly, translate(ibmwline))
  280.             If k = 0 Then Do
  281.                /*
  282.                 * see if there is a ; at the end of the value
  283.                 */
  284.  
  285.                position=lastpos(';',os2value)
  286.                lenvalue=length(os2value)
  287.  
  288.                If position=lenvalue Then Do
  289.                    /* ; at end of value */
  290.                    ibmwline=os2var'='os2value''fpwpath';'
  291.                End
  292.                Else Do
  293.                    /* ; NOT at end of value */
  294.                    ibmwline=os2var'='os2value';'fpwpath';'
  295.                End
  296.  
  297.             End
  298.             Else  /* see if the drive letter is not the same */
  299.               If substr(ibmwline, k-2, 1) \= fpwdrive Then
  300.                 /* change the drive letter only */
  301.                 ibmwline = overlay(fpwdrive, ibmwline, k-2)
  302.  
  303.             /*
  304.              * write the line out to the new config file
  305.              */
  306.  
  307.             result=lineout(newconfig, ibmwline)
  308.             If result=1 Then Do
  309.                 writeerror()
  310.                 return 1
  311.             End
  312.         End
  313.  
  314.         /********************************************************/
  315.         /*          For SET IBMWORKS_INI                        */
  316.         /********************************************************/
  317.  
  318.         when os2var=os2ini Then Do
  319.             iniflag=1
  320.  
  321.             ibmwline=inline
  322.  
  323.             /* see if lib path is already set */
  324.             k = pos(pathonly, translate(ibmwline))
  325.             If k = 0 Then Do
  326.                /*
  327.                 * see if there is a ; at the end of the value
  328.                 */
  329.  
  330.                position=lastpos(';',os2value)
  331.                lenvalue=length(os2value)
  332.  
  333.                If position=lenvalue Then Do
  334.                    /* ; at end of value */
  335.                    ibmwline=os2var'='os2value''fpwpath';'
  336.                End
  337.                Else Do
  338.                    /* ; NOT at end of value */
  339.                    ibmwline=os2var'='os2value';'fpwpath';'
  340.                End
  341.  
  342.             End
  343.             Else  /* see if the drive letter is not the same */
  344.               If substr(ibmwline, k-2, 1) \= fpwdrive Then
  345.                 /* change the drive letter only */
  346.                 ibmwline = overlay(fpwdrive, ibmwline, k-2)
  347.  
  348.             /*
  349.              * write the line out to the new config file
  350.              */
  351.  
  352.             result=lineout(newconfig, ibmwline)
  353.             If result=1 Then Do
  354.                 writeerror()
  355.                 return 1
  356.             End
  357.         End
  358.  
  359.  
  360.         otherwise Do
  361.             /*
  362.              * write the line out to the new config file
  363.              */
  364.  
  365.             result=lineout(newconfig, inline)
  366.             If result=1 Then Do
  367.                 writeerror()
  368.                 return 1
  369.             End
  370.         End
  371.  
  372.     End  /* select */
  373.  
  374. End /* Do */
  375.  
  376.  
  377. /*********************************************************************/
  378. /* if there was no SET IBMWORKS_INI variable set in CONFIG.SYS, Then */
  379. /* put New env. variables                                            */
  380. /*********************************************************************/
  381.  
  382. If iniflag=0 Then Do
  383.  
  384.     ibmwline='SET IBMWORKS_INI='fpwpath
  385.  
  386.     /*
  387.      * write the line out to the new config file
  388.      */
  389.  
  390.     result=lineout(newconfig, ibmwline)
  391.     If result=1 Then Do
  392.         writeerror()
  393.         return 1
  394.     End
  395. End
  396.  
  397.  
  398. /*********************/
  399. /* close the files   */
  400. /*********************/
  401.  
  402. result=lineout(newconfig)
  403. result=lineout(oldconfig)
  404.  
  405. /********************************************************************/
  406. /* Copy created file(CONFIG.IW) to temporary file(IWTMP.SYS),       */
  407. /* copy original file(CONFIG.SYS) to new file(CONFIG.IW),           */
  408. /* and copy temporary file(IWTMP.SYS) to original file(CONFIG.SYS). */
  409. /********************************************************************/
  410.  
  411. '@copy 'oldconfig' 'tmpconfig' 2>nul >nul'
  412.  
  413. '@copy 'newconfig' 'oldconfig' 2>nul >nul'
  414.  
  415. '@copy 'tmpconfig' 'newconfig' 2>nul >nul'
  416.  
  417. '@del 'tmpconfig' 2>nul >nul'
  418.  
  419. /******************************************************************/
  420. /*  Finished the Update                                           */
  421. /******************************************************************/
  422.  
  423. rem Say ' '
  424. rem Say '               'bootdrive'\CONFIG.SYS «í¡«ó½Ñ¡ πß»ÑΦ¡«.'
  425. rem Say ' '
  426.  
  427. return 0
  428.  
  429.  
  430. NeedToCopyDlls: procedure
  431. ARG fpwdll
  432.    rc = 'n'
  433.  
  434.    ret = SysFileTree(fpwdll||'\fpwcat.dll', 'file', 'FO')
  435.    If file.0 > 0 Then Do
  436.       ret = SysFileTree(fpwdll||'\fpwrec.dll', 'file', 'FO')
  437.       If file.0 > 0 Then Do
  438.          ret = SysFileTree(fpwdll||'\fen20pde.dll', 'file', 'FO')
  439.          If file.0 > 0 Then Do
  440.             ret = SysFileTree(fpwdll||'\fpwpers.dll', 'file', 'FO')
  441.             If file.0 > 0 Then Do
  442.                ret = SysFileTree(fpwdll||'\fpwwp.dll', 'file', 'FO')
  443.                If file.0 > 0 Then Do
  444.                   ret = SysFileTree(fpwdll||'\fpwss.dll', 'file', 'FO')
  445.                   If file.0 > 0 Then Do
  446.                      ret = SysFileTree(fpwdll||'\fpwch.dll', 'file', 'FO')
  447.                      If file.0 > 0 Then Do
  448.                         ret = SysFileTree(fpwdll||'\fpwdb.dll', 'file', 'FO')
  449.                         If file.0 > 0 Then Do
  450.                            ret = SysFileTree(fpwdll||'\fpwrw.dll', 'file', 'FO')
  451.                            If file.0 > 0 Then Do
  452.                               ret = SysFileTree(fpwdll||'\fpwgr.dll', 'file', 'FO')
  453.                               If file.0 = 0 Then rc = 'y'
  454.                            End
  455.                            Else
  456.                               rc = 'y'
  457.                         End
  458.                         Else
  459.                            rc = 'y'
  460.                      End
  461.                      Else
  462.                         rc = 'y'
  463.                   End
  464.                   Else
  465.                      rc = 'y'
  466.                End
  467.                Else
  468.                   rc = 'y'
  469.             End
  470.             Else
  471.                rc = 'y'
  472.          End
  473.          Else
  474.             rc = 'y'
  475.       End
  476.       Else
  477.          rc = 'y'
  478.    End
  479.    Else
  480.       rc = 'y'
  481.  
  482.    return rc
  483.  
  484.  
  485. CopyDLLs:
  486.    '@copy 'fpwpath'\dllbak\*.* 'fpwdll' 2>nul >nul'
  487.    return 0
  488.  
  489.  
  490. UpdateOS2Ini:
  491.    ret=SysIni(,'IBMWORKS','DLL',fpwpath)
  492.    return ret
  493.  
  494.