@d banner=='This is GFtype, Version 2.2' {printed when the program starts}

@d banner=='This is GFType 2.2 for Cedar 6.0' {printed when the program starts}

@d print←ln(#)==write←ln(#)

@d print←nl==write←ln

@d write←ln==writeln

@d read←ln==readln

@d print←ln(#)==write←ln(#)

@d print←nl==write←ln

@d max←int==maxint

var @<Globals in the outer block@>@/

procedure initialize; {this procedure gets things started properly}

var @<Globals in the outer block@>@/

@<External procedure declarations for things implemented directly in Cedar@>@/

procedure initialize; {this procedure gets things started properly}

@ The following parameters can be changed at compile time to extend or
reduce \.{GFtype}'s capacity.

The total number of bits in the main |image𡤊rray| will be
$$\hbox{$|max←row|+1\;\times\;|max𡤌ol|+1$}.$$
(\MF's full pixel range is rarely implemented, because it would require
8~megabytes of memory.)

@<Constants...@>=
@!terminal←line←length=150; {maximum number of characters input in a single
line of input from the terminal}
@!line←length=79; {\\{xxx} strings will not produce lines longer than this}
@!max←row=79; {vertical extent of pixel image array}
@!max𡤌ol=79; {horizontal extent of pixel image array}

@ The following parameters can be changed at compile time to extend or
reduce \.{GFtype}'s capacity.

The total number of bits in the main |image𡤊rray| will be
$$\hbox{$|max←row|+1\;\times\;|max𡤌ol|+1$}.$$
(\MF's full pixel range is rarely implemented, because it would require
8~megabytes of memory.)

@d max←row==79 {vertical extent of pixel image array}
@d max𡤌ol==79 {horizontal extent of pixel image array}

@<Constants...@>=
@!terminal←line←length=150; {maximum number of characters input in a single
line of input from the terminal}
@!line←length=79; {\\{xxx} strings will not produce lines longer than this}

@d last←text𡤌har=127 {ordinal number of the largest element of |text𡤌har|}

@d last←text𡤌har=255 {ordinal number of the largest element of |text𡤌har|}

begin reset(gf𡤏ile);

begin byte𡤏ile←reset(gf𡤏ile, 'gf ');

begin update←terminal; reset(term←in);

begin update←terminal; tty←reset(term←in);

begin rewrite(term←out); {prepare the terminal for output}

begin tty←rewrite(term←out); {prepare the terminal for output}

@p begin initialize; {get all variables initialized}

@p begin file←rewrite(output, 'typ '); initialize; {get all variables initialized}

final𡤎nd:end.

final𡤎nd:

file𡤌lose(output);

byte𡤏ile𡤌lose(gf𡤏ile);

end.

@* System-dependent changes.
This section should be replaced, if necessary, by changes to the program
that are necessary to make \.{GFtype} work at a particular installation.
It is usually best to design your change file so that all changes to
previous sections preserve the section numbering; then everybody's version
will be consistent with the printed program. More extensive changes,
which introduce new sections, can be inserted here; then only the index
itself will get a new section number.
@^system dependencies@>

@* Externals for things in Cedar.
Here they are:

@<External procedure declarations for things implemented directly in Cedar@>=
procedure tty←reset(var f: text); external; {set up for input from terminal}
procedure tty←rewrite(var f: text); external; {set up for output to terminal}
procedure byte𡤏ile←reset(var f: byte𡤏ile; ext: alfa); external;
{set up for input from byte file}
procedure file←rewrite(var f: text; ext: alfa); external; {set up for output to file}
procedure file𡤌lose(var f: text); external; {close a text file}
procedure byte𡤏ile𡤌lose(var f: byte𡤏ile); external; {close a byte file}

@ @<Glob...@>=
output: text𡤏ile;