home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1999 November / PCOnline_11_1999.iso / filesbbs / OS2 / MEMSZ400.ZIP / CHINESE.CMD < prev    next >
OS/2 REXX Batch file  |  1997-10-23  |  3KB  |  161 lines
  1. /* CHINESE.CMD: Ñ╬ñññσªw╕╦ MemSizeíC */
  2.  
  3. '@Echo Off'
  4. 'CHCP 950'
  5.  
  6. /* ╕ⁿñJ REXXUTIL */
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  9. Call SysLoadFuncs
  10.  
  11.  
  12. /* ¬∞⌐lñ╞ */
  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. /* └╦¼d¡╙ºOñ╕Ñ≤└╔¬║ªsªbíC*/
  24.  
  25. Language = 'CHINESE'
  26.  
  27. Result = SysFileTree( 'MEMSIZE2.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say '┐∙ ╗~íGºΣñú¿∞ MEMSIZE2.EXE └╔íI'
  31.   Signal DONE
  32.   End
  33.  
  34. Result = SysFileTree( "OBJECTS.OS2\"Language".DLL", 'Files', 'F' )
  35. If Files.0 = 0 Then
  36.   Do
  37.   Say '┐∙ ╗~íGºΣñú¿∞ 'Language'.DLL └╔íI'
  38.   Signal DONE
  39.   End
  40.  
  41. Result = SysFileTree( "OBJECTS.OS2\"Language".HLP", 'Files', 'F' )
  42. If Files.0 = 0 Then
  43.   Do
  44.   Say '┐∙ ╗~íGºΣñú¿∞ 'Language'.HLP └╔íI'
  45.   Signal DONE
  46.   End
  47.  
  48. /* ╕▀░▌Ñ╪╝╨╕⌠«|ªW║┘íC*/
  49.  
  50. BootDrive = Filespec('Drive',Value('SYSTEM_INI',,'OS2ENVIRONMENT'))
  51. Default = SysIni('USER', 'MEMSIZE', 'INIPATH' )
  52. If Default = 'ERROR:'
  53.   Then Default = BootDrive'\OS2\Apps'
  54. If SUBSTR(Default,LENGTH(Default),1) <= ' '
  55.   Then Default = SUBSTR(Default,1,LENGTH(Default)-1)
  56.  
  57. Say '╜╨┐ΘñJ▒z▒Nªw╕╦ MEMSIZE ¬║║╧║╨Ñ╪┐² (ñ║⌐w¡╚¼░ 'Default'):'
  58. Parse Pull Directory
  59. If Directory = "" Then Directory = Default
  60.  
  61.  
  62. /* ¡Yª│Ñ▓¡níA½╪Ñ▀Ñ╪╝╨╕⌠«|íC*/
  63.  
  64. Result = SysFileTree( Directory, 'Dirs', 'D' )
  65. If Dirs.0 = 0 Then
  66.   Do
  67.   Result = SysMkDir( Directory )
  68.   if Result == 0 Then
  69.     Do
  70.     End
  71.   Else
  72.     Do
  73.     Say '┐∙ ╗~íG╡L¬k½╪Ñ▀Ñ╪╝╨╕⌠«|íC'
  74.     Signal DONE
  75.     End
  76.   End
  77. Say ''
  78.  
  79.  
  80. /* Save the target directory. */
  81.  
  82. SysIni( "USER", "MEMSIZE", "INIPATH", Directory )
  83. SysIni( Directory"\MEMSIZE2.INI", "MEMSIZE", "INIPATH", Directory )
  84.  
  85.  
  86. /* ╕▀░▌Ñ╪╝╨╕Ω«╞º¿íC*/
  87.  
  88. Say '▒z╖Qªw╕╦ªb▒╥░╩╕Ω«╞º¿ññ╢▄? (Y/N)'
  89. Pull YesNo
  90. If YesNo = "Y" Then
  91.   Do
  92.   Folder = '<WP_START>'
  93.   Say '¬½Ñ≤╖|│Q⌐±╕m⌐≤▒╥░╩╕Ω«╞º¿ññíC'
  94.   End
  95. Else
  96.   Do
  97.   Folder = '<WP_DESKTOP>'
  98.   Say '¬½Ñ≤╖|│Q⌐±╕m⌐≤«α¡▒ñWíC'
  99.   End
  100. Say ''
  101.  
  102.  
  103. /* ¡Yª│┬┬¬½Ñ≤ªsªbíA║R╖┤ѪíC*/
  104.  
  105. Call SysDestroyObject( '<MEMSIZE>' )
  106. Call SysSleep( 5 )
  107.  
  108.  
  109. /* ░⌡ªµªw╕╦íC*/
  110.  
  111. Say 'Ñ┐ªb▒N MEMSIZE ╜╞╗s¿∞ 'Directory' ...'
  112. Copy MEMSIZE2.EXE Directory                  '1>NUL'
  113. Copy "OBJECTS.OS2\"Language".DLL" Directory"\MEMSIZE2.DLL" '1>NUL'
  114. Copy "OBJECTS.OS2\"Language".HLP" Directory"\MEMSIZE2.HLP" '1>NUL'
  115. Copy Language".DOC" Directory"\MEMSIZE2.DOC" "1>NUL"
  116.  
  117. Result = SysFileTree( "HLP2INF.EXE", 'Files', 'F' )
  118. If Files.0 > 0 Then
  119.    Do
  120.    Result = SysFileTree( Directory"\MEMSIZE2.INF", 'Files', 'F' )
  121.    If Files.0 > 0 Then
  122.       Do
  123.       "Erase" Directory"\MEMSIZE2.INF"
  124.       End
  125.    "HLP2INF" Directory"\MEMSIZE2.HLP"
  126.    End
  127.  
  128. Result = SysFileTree( "SNPSHOT2.EXE", 'Files', 'F' )
  129. If Files.0 > 0 Then
  130.    Do
  131.    Copy "SNPSHOT2.EXE" Directory"\SNPSHOT2.EXE"  '1>NUL'
  132.    End
  133.  
  134. Say '½╪Ñ▀╡{ªí¬½Ñ≤ññ...'
  135. Type = 'WPProgram'
  136. Title = '¿t▓╬╕Ω╖╜║╩╡°╛╣'
  137. Parms = 'OPEN=DEFAULT;MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE2.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  138. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  139.  
  140. If Result = 1 Then
  141.   Say '¬½Ñ≤½╪Ñ▀º╣ª¿íI ñjÑ\ºiª¿íC'
  142. Else
  143.   Say '┐∙ ╗~íG╡L¬k½╪Ñ▀¬½Ñ≤íC'
  144.  
  145. Signal DONE
  146.  
  147. FAILURE:
  148. Say 'REXX Ñó▒╤íC'
  149. Signal DONE
  150.  
  151. HALT:
  152. Say 'REXX ░▒ñεíC'
  153. Signal DONE
  154.  
  155. SYNTAX:
  156. Say 'REXX ╗y¬k┐∙╗~íC'
  157. Signal DONE
  158.  
  159. DONE:
  160. Exit
  161.