Changes for MF.CH by Andreas Scherer, April 4, 1995.

This is a workaround to the assumption of MF.CH.

@x l.51
@d banner=='This is METAFONT, Version 2.71' {printed when \MF\ starts}
@y
@d banner=='This is METAFONT, Version 2.718' {printed when \MF\ starts}
@z

@x l.53
@d banner=='This is METAFONT, Version 2.71' {more is printed later}
@y
@d banner=='This is METAFONT, Version 2.718' {more is printed later}
@z

@x l.730
@=#include "texmfmem.h";@>
@y
@=#include "andytexmfmem.h";@>
@z

The following change is to be handled with care.  Exclude it if you get
problems with the extra `:' path delimiter.  This is necessary for the
Amiga version, but shouldn't hurt the UNIX syntax.

@x l.942
following structure:  If the name contains `\./', the file area
consists of all characters up to and including the final such character;
otherwise the file area is null.  If the remaining file name contains
`\..', the file extension consists of all such characters from the first
remaining `\..' to the end, otherwise the file extension is null.
@^system dependencies@>

We can scan such file names easily by using two global variables that keep
track of the occurrences of area and extension delimiters:

@<Glob...@>=
@!area_delimiter:pool_pointer; {the most recent `\./', if any}
@y
following structure:  If the name contains `\./' or `\.:', the file area
consists of all characters up to and including the final such character;
otherwise the file area is null.  If the remaining file name contains
`\..', the file extension consists of all such characters from the first
remaining `\..' to the end, otherwise the file extension is null.
@^system dependencies@>

We can scan such file names easily by using two global variables that keep
track of the occurrences of area and extension delimiters:

@<Glob...@>=
@!area_delimiter:pool_pointer; {the most recent `\./' or `\.:', if any}
@z

@x l.978
else  begin if (c="/") then
@y
else  begin if (c="/")or(c=":") then
@z