$Id$
Second-level change file for MFT compilation under RISC OS

Set output filetype
@x mft.ch 134
rewrite (tex_file, tex_name);
@y
rewritebin (tex_file, tex_name, riscos_TEX_type);
@z

Because of my limited memory I cannot compile mft.c without splitting up
the main function into some smaller ones. I want a new computer.

@x
@p begin initialize; {beginning of the main program}
print (banner); {print a ``banner line''}
print_ln (version_string);
@<Store all the primitives@>;
@<Store all the translations@>;
@y
@p
procedure dummy_main_1;
begin @<Store all the primitives@>; end;

procedure dummy_main_2;
begin @<Store all the translations@>; end;

begin initialize; {beginning of the main program}
print(banner); {print a ``banner line''}
print_ln (version_string);
dummy_main_1; dummy_main_2;
@z
