home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / dc054c.zip / convert.cmd < prev    next >
OS/2 REXX Batch file  |  1998-03-29  |  1KB  |  27 lines
  1. /* CONVERT from or to  ALT(CP866), WIN(CP1251), KOI-8R, MAC, ISO 8859-5 */
  2. /* (ß) ¡áp«ñ¡δ⌐ ;-) */
  3.  
  4. ALT = "ÇüéâäàåçêëèïîìÄÅÉæÆôöòûùÿÖÜ¢£¥₧ƒáíóúñѪº¿⌐¬½¼¡«»░▒▓│┤╡╢╖╕╣║╗╝╜╛┐└┴┬├─┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀αßΓπΣσµτΦΘΩδ∞φε∩≡±≥≤⌠⌡÷≈°∙·√ⁿ²■ "
  5. WIN = "└┴┬├─┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀αßΓπΣσµτΦΘΩδ∞φε∩░▒▓│┤╡╢╖╕╣║╗╝╜╛┐└┴┬├ù┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀≡±≥≤⌠⌡÷≈°∙·√ⁿ²■ ¿╕≥≤⌠⌡÷≈°∙·√ⁿ²■⌐"
  6. KOI = "ßΓ≈τΣσ÷·ΘΩδ∞φε∩≡≥≤⌠⌡µΦπ■√² ∙°ⁿα±┴┬╫╟─┼╓┌╔╩╦╠═╬╧╨ÉæÆüç▓┤ºª╡í¿«¡¼âäëêåÇè»░½Ñ╗╕▒á╛╣║╢╖¬⌐óñ╜╝àéìîÄÅï╥╙╘╒╞╚├▐█▌▀┘╪▄└╤│úÖÿô¢ƒù£₧òûÜ¥ö┐"
  7. MAC = "ÇüéâäàåçêëèïîìÄÅÉæÆôöòûùÿÖÜ¢£¥₧ƒαßΓπΣσµτΦΘΩδ∞φε∩░▒▓│┤╡╢╖╕╣║╗╝╜╛┐└┴┬├─┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀≡±≥≤⌠⌡÷≈°∙·√ⁿ²■▀▌▐≥≤⌠⌡÷≈°∙·√ⁿ²■ "
  8. ISO = "░▒▓│┤╡╢╖╕╣║╗╝╜╛┐└┴┬├─┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀░▒▓│┤╡╢╖╕╣║╗╝╜╛┐└┴┬├¡┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀αßΓπΣσµτΦΘΩδ∞φε∩í±ñ⌠º≈«■°∙·√ⁿ²■á"
  9.  
  10.  
  11. parse upper arg from to
  12. from = strip(from)
  13. to = strip(to)
  14.  
  15. if (symbol(from) <> "VAR") | (symbol(to) <> "VAR") then do
  16.   say "Usage: CONVERT from to <infile >outfile"
  17.   say "       from,to = WIN,ALT,KOI,MAC,ISO"
  18.   exit
  19. end
  20.  
  21. interpret 'from = ' from
  22. interpret 'to = ' to
  23.  
  24. do while lines() <> 0 
  25.   say translate(linein(),to,from)
  26. end
  27.