home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / memsz331.zip / CHINESE.CMD < prev    next >
OS/2 REXX Batch file  |  1996-11-30  |  3KB  |  154 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( 'MEMSIZE.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say '┐∙ ╗~íGºΣñú¿∞ MEMSIZE.EXE └╔íI'
  31.   Signal DONE
  32.   End
  33.  
  34. Result = SysFileTree( 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( 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. Default = SysIni('USER', 'MEMSIZE', 'INIPATH' )
  51. If Default = 'ERROR:'
  52.   Then Default = 'C:\OS2\Apps'
  53. If SUBSTR(Default,LENGTH(Default),1) <= ' '
  54.   Then Default = SUBSTR(Default,1,LENGTH(Default)-1)
  55.  
  56. Say '╜╨┐ΘñJ▒z▒Nªw╕╦ MEMSIZE ¬║║╧║╨Ñ╪┐² (ñ║⌐w¡╚¼░ 'Default'):'
  57. Parse Pull Directory
  58. If Directory = "" Then Directory = Default
  59.  
  60.  
  61. /* ¡Yª│Ñ▓¡níA½╪Ñ▀Ñ╪╝╨╕⌠«|íC*/
  62.  
  63. Result = SysFileTree( Directory, 'Dirs', 'D' )
  64. If Dirs.0 = 0 Then
  65.   Do
  66.   Result = SysMkDir( Directory )
  67.   if Result == 0 Then
  68.     Do
  69.     End
  70.   Else
  71.     Do
  72.     Say '┐∙ ╗~íG╡L¬k½╪Ñ▀Ñ╪╝╨╕⌠«|íC'
  73.     Signal DONE
  74.     End
  75.   End
  76. Say ''
  77.  
  78.  
  79. /* ╕▀░▌Ñ╪╝╨╕Ω«╞º¿íC*/
  80.  
  81. Say '▒z╖Qªw╕╦ªb▒╥░╩╕Ω«╞º¿ññ╢▄? (Y/N)'
  82. Pull YesNo
  83. If YesNo = "Y" Then
  84.   Do
  85.   Folder = '<WP_START>'
  86.   Say '¬½Ñ≤╖|│Q⌐±╕m⌐≤▒╥░╩╕Ω«╞º¿ññíC'
  87.   End
  88. Else
  89.   Do
  90.   Folder = '<WP_DESKTOP>'
  91.   Say '¬½Ñ≤╖|│Q⌐±╕m⌐≤«α¡▒ñWíC'
  92.   End
  93. Say ''
  94.  
  95.  
  96. /* ¡Yª│┬┬¬½Ñ≤ªsªbíA║R╖┤ѪíC*/
  97.  
  98. Call SysDestroyObject( '<MEMSIZE>' )
  99. Call SysSleep( 5 )
  100.  
  101.  
  102. /* ░⌡ªµªw╕╦íC*/
  103.  
  104. Say 'Ñ┐ªb▒N MEMSIZE ╜╞╗s¿∞ 'Directory' ...'
  105. Copy MEMSIZE.EXE Directory                  '1>NUL'
  106. Copy Language".DLL" Directory"\MEMSIZE.DLL" '1>NUL'
  107. Copy Language".HLP" Directory"\MEMSIZE.HLP" '1>NUL'
  108. Copy Language".DOC" Directory"\MEMSIZE.DOC" "1>NUL"
  109.  
  110. Result = SysFileTree( "HLP2INF.EXE", 'Files', 'F' )
  111. If Files.0 > 0 Then
  112.    Do
  113.    Result = SysFileTree( Directory"\MEMSIZE.INF", 'Files', 'F' )
  114.    If Files.0 > 0 Then
  115.       Do
  116.       "Erase" Directory"\MEMSIZE.INF"
  117.       End
  118.    "HLP2INF" Directory"\MEMSIZE.HLP"
  119.    End
  120.  
  121. Result = SysFileTree( "SNAPSHOT.EXE", 'Files', 'F' )
  122. If Files.0 > 0 Then
  123.    Do
  124.    Copy "SNAPSHOT.EXE" Directory"\SNAPSHOT.EXE"  '1>NUL'
  125.    End
  126.  
  127. Say '½╪Ñ▀╡{ªí¬½Ñ≤ññ...'
  128. Type = 'WPProgram'
  129. Title = '¿t▓╬╕Ω╖╜║╩╡°╛╣'
  130. Parms = 'OPEN=DEFAULT;MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  131. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  132.  
  133. If Result = 1 Then
  134.   Say '¬½Ñ≤½╪Ñ▀º╣ª¿íI ñjÑ\ºiª¿íC'
  135. Else
  136.   Say '┐∙ ╗~íG╡L¬k½╪Ñ▀¬½Ñ≤íC'
  137.  
  138. Signal DONE
  139.  
  140. FAILURE:
  141. Say 'REXX Ñó▒╤íC'
  142. Signal DONE
  143.  
  144. HALT:
  145. Say 'REXX ░▒ñεíC'
  146. Signal DONE
  147.  
  148. SYNTAX:
  149. Say 'REXX ╗y¬k┐∙╗~íC'
  150. Signal DONE
  151.  
  152. DONE:
  153. Exit
  154.