misc/TYPE.PAS
program type_;
uses crt,dos,mkavatar,gensubs;
var t : text;
b : char;
begin
if not exist(paramStr(1)) then halt;
assign(t,paramStr(1));
reset(t);
repeat
read(t,b);
parse_avt1(b);
until (eof(t)=true);
close(t);
end.