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.