home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac_os2 / fmcrd151.zip / SVENSKA.CMD < prev    next >
OS/2 REXX Batch file  |  1994-08-02  |  4KB  |  135 lines
  1. /********************************************************************/
  2. /*                                                                  */
  3. /* Kortspel för OS/2                                                */
  4. /*                                                                  */
  5. /* Svensk Installation, Version 1.51                                */
  6. /*                                                                  */
  7. /* Copyright 1994 (C) by Felix Maschek, Hamburg                     */
  8. /*                                                                  */
  9. /* EMail: CompuServe 100120,1370                                    */
  10. /*                   OS2SHARE                                       */
  11. /*                                                                  */
  12. /********************************************************************/
  13.  
  14. '@Echo Off'
  15.  
  16. /* ladda REXXUTIL */
  17.  
  18. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  19. Call SysLoadFuncs
  20.  
  21.  
  22. /* Initiering */
  23.  
  24. Signal On Failure Name FAILURE
  25. Signal On Halt Name HALT
  26. Signal On Syntax Name SYNTAX
  27.  
  28. Call SysCls
  29. Say 'Installation av CARDS 1.51...'
  30. Say ''
  31.  
  32.  
  33. /* Kontrollera... */
  34.  
  35. Result = SysFileTree( "CARDS.EXE", 'Files', 'F' )
  36. If Files.0 = 0 Then
  37.   Do
  38.   Say 'FEL: CARDS.EXE finns inte!'
  39.   Signal DONE
  40.   End
  41.  
  42. Result = SysFileTree( "PICTURES.DLL", 'Files', 'F' )
  43. If Files.0 = 0 Then
  44.   Do
  45.   Say 'FEL: PICTURES.DLL finns inte!'
  46.   Signal DONE
  47.   End
  48.  
  49. Result = SysFileTree( "CARDSSWE.HLP", 'Files', 'F' )
  50. If Files.0 = 0 Then
  51.   Do
  52.   Say 'FEL: CARDSSWE.HLP finns inte!'
  53.   Signal DONE
  54.   End
  55.  
  56. Result = SysFileTree( "CARDSSWE.DLL", 'Files', 'F' )
  57. If Files.0 = 0 Then
  58.   Do
  59.   Say 'FEL: CARDSSWE.DLL finns inte!'
  60.   Signal DONE
  61.   End
  62.  
  63. /* Fråga efter målbibliotek. */
  64.  
  65. Say 'Ange fullständig sökväg för CARDS'
  66. Say '  Standard: C:\CARDS: '
  67. Pull Directory
  68. If Directory = "" Then Directory = 'C:\CARDS'
  69.  
  70.  
  71. /* Skapa målbibliotek. */
  72.  
  73. Result = SysFileTree( Directory, 'Dirs', 'D' )
  74. If Dirs.0 = 0 Then
  75.   Do
  76.   Result = SysMkDir( Directory )
  77.   if Result == 0 Then
  78.     Do
  79.     End
  80.   Else
  81.     Do
  82.     Say 'FEL: Kan inte skapa sökvägen.'
  83.     Signal DONE
  84.     End
  85.   End
  86. Say '';
  87.  
  88. /* Skapa objekt på skrivbordet */
  89.  
  90. Folder = '<WP_DESKTOP>'
  91.  
  92. /* Installera */
  93.  
  94. Say 'Kopierar CARDS till ' Directory '...'
  95. Copy "CARDS.EXE" Directory"\CARDS.EXE" '1>NUL'
  96. Copy "PICTURES.DLL" Directory"\PICTURES.DLL" '1>NUL'
  97. Copy "CARDSGER.HLP" Directory"\CARDSGER.HLP" '1>NUL'
  98. Copy "CARDSGER.DLL" Directory"\CARDSGER.DLL" '1>NUL'
  99. Copy "CARDSENG.HLP" Directory"\CARDSENG.HLP" '1>NUL'
  100. Copy "CARDSENG.DLL" Directory"\CARDSENG.DLL" '1>NUL'
  101. Copy "CARDSNOR.HLP" Directory"\CARDSNOR.HLP" '1>NUL'
  102. Copy "CARDSNOR.DLL" Directory"\CARDSNOR.DLL" '1>NUL'
  103. Copy "CARDSSWE.HLP" Directory"\CARDSSWE.HLP" '1>NUL'
  104. Copy "CARDSSWE.DLL" Directory"\CARDSSWE.DLL" '1>NUL'
  105. Copy "CARDSFRA.HLP" Directory"\CARDSFRA.HLP" '1>NUL'
  106. Copy "CARDSFRA.DLL" Directory"\CARDSFRA.DLL" '1>NUL'
  107.  
  108. Say 'Skapar objekt på skrivbordet...'
  109. Type = 'WPProgram'
  110. Title = 'Kortspel'
  111. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CARDS.EXE;PARAMETERS=CARDSSWE;STARTUPDIR='Directory';OBJECTID=<CARDS>;NOPRINT=YES;'
  112. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  113.  
  114. If Result = 1 Then
  115.   Say 'Objektet har skapats!  Klart.'
  116. Else
  117.   Say 'FEL: Kan inte skapa objekt på skrivbordet!'
  118.  
  119. Signal DONE
  120.  
  121. FAILURE:
  122. Say 'Fel i exekvering av REXX.'
  123. Signal DONE
  124.  
  125. HALT:
  126. Say 'REXX-Stopp.'
  127. Signal DONE
  128.  
  129. SYNTAX:
  130. Say 'REXX-Syntaxfel.'
  131. Signal DONE
  132.  
  133. DONE:
  134. Exit
  135.