character c;do1 i=1,999;call fget(c);1 if(c>"@")print'(i0h $)',ichar(c);end