home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / com / fleetst / install.cmd < prev    next >
Encoding:
Text File  |  1994-01-06  |  1.6 KB  |  76 lines
  1. /* FleetStreet install */
  2. '@echo off'
  3.  
  4. call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  5.  
  6. say 'FleetStreet Install'
  7. say ''
  8. say ''
  9.  
  10. say '1 = English'
  11. say '2 = Deutsch'
  12.  
  13. say ''
  14. say 'Sprachversion auswählen/select language ->'
  15. pull eingabe
  16. select
  17.    when eingabe='1' then
  18.       do
  19.       'copy english.lng fleetlng.dll >nul'
  20.       'copy english.hlp fltstrt.hlp >nul'
  21.       say 'Ready.'
  22.       end
  23.    when eingabe='2' then
  24.       do
  25.       'copy german.lng fleetlng.dll >nul'
  26.       'copy german.hlp fltstrt.hlp >nul'
  27.       say 'Ready.'
  28.       end
  29.    otherwise
  30.       say 'Falsche Eingabe / wrong input'
  31. end
  32.  
  33. select
  34.    when eingabe='1' then
  35.       do
  36.          say ''
  37.          say 'create WPS-Object (Y/N)?'
  38.       end
  39.    when eingabe='2' then
  40.       do
  41.          say ''
  42.          say 'WPS-Objekt erzeugen (J/N)?'
  43.       end
  44. end
  45.  
  46. do until ((eingabe = 'Y') | (eingabe = 'J') | (eingabe = 'N'))
  47.   pull eingabe
  48. end
  49.  
  50. say ''
  51.  
  52. select
  53.    when eingabe='J' then
  54.       do
  55.          currdir=directory()
  56.          if SysCreateObject('WPProgram', 'FleetStreet 0.81b', '<WP_DESKTOP>', ,
  57.                       'EXENAME='||currdir||'\FLTSTRT.EXE') then
  58.             say 'Objekt erzeugt.'
  59.          else
  60.             say 'Fehler beim Erzeugen des Objekts'
  61.       end
  62.    when eingabe='Y' then
  63.       do
  64.          currdir=directory()
  65.          if SysCreateObject('WPProgram', 'FleetStreet 0.81b', '<WP_DESKTOP>', ,
  66.                       'EXENAME='||currdir||'\FLTSTRT.EXE') then
  67.             say 'Object created.'
  68.          else
  69.             say 'Error when creating object'
  70.       end
  71. end
  72.  
  73. call RxFuncDrop 'SysCreateObject'
  74.  
  75. exit
  76.