/* CONVERT from or to  ALT(CP866), WIN(CP1251), KOI-8R, MAC, ISO 8859-5, CYR */
/* (�) ��p���� ;-) */

ALT = "��������������������������������������������������������������������������������������������������������������������������������"
WIN = "�����������������������������������������������ﰱ�����������������×�����������������������������������������������������������"
KOI = "�����������������������������������������������А��������������������������������������������������������������ѳ���������������"
MAC = "�����������������������������������������������ﰱ������������������������������������������������������������������������������"
ISO = "�����������������������������������������������߰������������������í���������������������������������������������������������"
CYR = "ABVGDEXZIYKLMNOPRSTUFHQCWJ]\[_^`abvgdexziyklmnop������������������������������������������������rstufhqcwj}|{~<>����������������"


parse upper arg from to
from = strip(from)
to = strip(to)

if (symbol(from) <> "VAR") | (symbol(to) <> "VAR") then do
  say "Usage: CONVERT from to <infile >outfile"
  say "       from,to = WIN,ALT,KOI,MAC,ISO"
  exit
end

interpret 'from = ' from
interpret 'to = ' to

do while lines() <> 0 
  say translate(linein(),to,from)
end