home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1995 December / SOFM_Dec1995.bin / pc / os2 / resource / chinese.cmd < prev    next >
OS/2 REXX Batch file  |  1995-10-31  |  3KB  |  137 lines
  1. /* CHINESE.CMD: Ñ╬ñññσªw╕╦ MemSizeíC */
  2.  
  3. '@Echo Off'
  4. 'CHCP 950'
  5.  
  6. /* Load REXXUTIL */
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  9. Call SysLoadFuncs
  10.  
  11.  
  12. /* Initialize */
  13.  
  14. Signal On Failure Name FAILURE
  15. Signal On Halt Name HALT
  16. Signal On Syntax Name SYNTAX
  17.  
  18. Call SysCls
  19. Say 'ªw╕╦ MEMSIZE ññ...'
  20. Say ''
  21.  
  22.  
  23. /* Verify the existence of the various component files. */
  24.  
  25. Language = 'CHINESE'
  26.  
  27. Result = SysFileTree( 'MEMSIZE.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say '┐∙ ╗~: ºΣñú¿∞ MEMSIZE.EXE └╔!'
  31.   Signal DONE
  32.   End
  33.  
  34. Result = SysFileTree( Language".DLL", 'Files', 'F' )
  35. If Files.0 = 0 Then
  36.   Do
  37.   Say '┐∙ ╗~: ºΣñú¿∞ 'Language'.DLL └╔!'
  38.   Signal DONE
  39.   End
  40.  
  41. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  42. If Files.0 = 0 Then
  43.   Do
  44.   Say '┐∙ ╗~: ºΣñú¿∞ 'Language'.HLP └╔!'
  45.   Signal DONE
  46.   End
  47.  
  48. /* Ask for the target directory name. */
  49.  
  50. Say '╜╨┐ΘñJ▒z╖Q▒Nªw╕╦ MEMSIZE ¬║║╧║╨Ñ╪┐² (ñ║⌐w¡╚¼░ C:\OS2\APPS):'
  51. Parse Pull Directory
  52. If Directory = "" Then Directory = 'C:\OS2\APPS'
  53.  
  54.  
  55. /* Create the target directory if necessary. */
  56.  
  57. Result = SysFileTree( Directory, 'Dirs', 'D' )
  58. If Dirs.0 = 0 Then
  59.   Do
  60.   Result = SysMkDir( Directory )
  61.   if Result == 0 Then
  62.     Do
  63.     End
  64.   Else
  65.     Do
  66.     Say '┐∙ ╗~: ╡L¬k½╪Ñ▀Ñ╪╝╨Ñ╪┐²íC'
  67.     Signal DONE
  68.     End
  69.   End
  70. Say ''
  71.  
  72.  
  73. /* Ask for the target folder. */
  74.  
  75. Say '▒z╖Qªw╕╦ªb▒╥░╩╕Ω«╞º¿ññ╢▄? (Y/N)'
  76. Pull YesNo
  77. If YesNo = "Y" Then
  78.   Do
  79.   Folder = '<WP_START>'
  80.   Say '¬½Ñ≤╖|│Q⌐±╕m⌐≤▒╥░╩╕Ω«╞º¿ññíC'
  81.   End
  82. Else
  83.   Do
  84.   Folder = '<WP_DESKTOP>'
  85.   Say '¬½Ñ≤╖|│Q⌐±╕m⌐≤«α¡▒ñWíC'
  86.   End
  87. Say ''
  88.  
  89.  
  90. /* Perform the installation. */
  91.  
  92. Say 'Ñ┐ªb▒N MEMSIZE ╜╞╗s¿∞ ' Directory '...'
  93. Copy MEMSIZE.EXE Directory                  '1>NUL'
  94. Copy Language".DLL" Directory"\MEMSIZE.DLL" '1>NUL'
  95. Copy Language".HLP" Directory"\MEMSIZE.HLP" '1>NUL'
  96. Copy Language".DOC" Directory"\MEMSIZE.DOC" "1>NUL"
  97.  
  98. Result = SysFileTree( Language".INF", 'Files', 'F' )
  99. If Files.0 > 0 Then
  100.    Do
  101.    Copy Language".INF" Directory"\MEMSIZE.INF"  '1>NUL'
  102.    End
  103.  
  104. Result = SysFileTree( "SNAPSHOT.EXE", 'Files', 'F' )
  105. If Files.0 > 0 Then
  106.    Do
  107.    Copy "SNAPSHOT.EXE" Directory"\SNAPSHOT.EXE"  '1>NUL'
  108.    End
  109.  
  110. Say '½╪Ñ▀╡{ªí¬½Ñ≤ññ...'
  111. Type = 'WPProgram'
  112. Title = '¿t▓╬╕Ω╖╜║╩╡°╛╣'
  113. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  114. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  115.  
  116. If Result = 1 Then
  117.   Say '¬½Ñ≤½╪Ñ▀º╣ª¿!  ñjÑ\ºiª¿íC'
  118. Else
  119.   Say '┐∙ ╗~: ╡L¬k½╪Ñ▀¬½Ñ≤íC'
  120.  
  121. Signal DONE
  122.  
  123. FAILURE:
  124. Say 'REXX Ñó▒╤íC'
  125. Signal DONE
  126.  
  127. HALT:
  128. Say 'REXX ░▒ñεíC'
  129. Signal DONE
  130.  
  131. SYNTAX:
  132. Say 'REXX ╗y¬k┐∙╗~íC'
  133. Signal DONE
  134.  
  135. DONE:
  136. Exit
  137.