home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac_os2 / fmcrd151.zip / NORSK.CMD < prev    next >
OS/2 REXX Batch file  |  1994-08-02  |  4KB  |  135 lines
  1. /********************************************************************/
  2. /*                                                                  */
  3. /* Kortspill för OS/2                                               */
  4. /*                                                                  */
  5. /* Norsk Installasjon, 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. /* load REXXUTIL */
  17.  
  18. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  19. Call SysLoadFuncs
  20.  
  21.  
  22. /* Initialisation */
  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 'Installasjon av CARDS 1.51...'
  30. Say ''
  31.  
  32.  
  33. /* Check... */
  34.  
  35. Result = SysFileTree( "CARDS.EXE", 'Files', 'F' )
  36. If Files.0 = 0 Then
  37.   Do
  38.   Say 'FEIL: CARDS.EXE ikke funnet!'
  39.   Signal DONE
  40.   End
  41.  
  42. Result = SysFileTree( "PICTURES.DLL", 'Files', 'F' )
  43. If Files.0 = 0 Then
  44.   Do
  45.   Say 'FEIL: PICTURES.DLL ikke funnet!'
  46.   Signal DONE
  47.   End
  48.  
  49. Result = SysFileTree( "CARDSNOR.HLP", 'Files', 'F' )
  50. If Files.0 = 0 Then
  51.   Do
  52.   Say 'FEIL: CARDSNOR.HLP ikke funnet!'
  53.   Signal DONE
  54.   End
  55.  
  56. Result = SysFileTree( "CARDSNOR.DLL", 'Files', 'F' )
  57. If Files.0 = 0 Then
  58.   Do
  59.   Say 'FEIL: CARDSNOR.DLL ikke funnet!'
  60.   Signal DONE
  61.   End
  62.  
  63. /* Zielverzeichnis erfragen. */
  64.  
  65. Say 'Vennligst skriv in hvor du ¢nsker CARDS installert'
  66. Say '  Enter gir: C:\CARDS: '
  67. Pull Directory
  68. If Directory = "" Then Directory = 'C:\CARDS'
  69.  
  70.  
  71. /* create target-path. */
  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 'FEIL: Klarer ikke å opprette ' Directory '.'
  83.     Signal DONE
  84.     End
  85.   End
  86. Say '';
  87.  
  88. /* Create desktop object */
  89.  
  90. Folder = '<WP_DESKTOP>'
  91.  
  92. /* Install */
  93.  
  94. Say 'Kopierer CARDS til ' 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 'Oppretter ikon på arbeidsområdet...'
  109. Type = 'WPProgram'
  110. Title = 'Kortspill'
  111. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CARDS.EXE;PARAMETERS=CARDSNOR;STARTUPDIR='Directory';OBJECTID=<CARDS>;NOPRINT=YES;'
  112. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  113.  
  114. If Result = 1 Then
  115.   Say 'Ikon opprettet! Klar til bruk.'
  116. Else             
  117.   Say 'FEIL: Klarte ikke å opprette ikon!'
  118.  
  119. Signal DONE
  120.  
  121. FAILURE:
  122. Say 'En feil oppstod under kj¢ring av REXX.'
  123. Signal DONE
  124.  
  125. HALT:
  126. Say 'REXX-Halt.'
  127. Signal DONE
  128.  
  129. SYNTAX:
  130. Say 'REXX-Syntaxerror.'
  131. Signal DONE
  132.  
  133. DONE:
  134. Exit
  135.