(configuration p←lto←t𡤏(basic←time, commander, convert, f←s, i←o, rope, safe←storage, unsafe←storage);
definitions pascal�sic; external;
definitions pascal←wizard𡤏iles; external;
program pascal�sic←impl; external;
program pascal←wizard𡤏iles←impl; external;
definitions junk; trash;
definitions p←lto←t𡤏←private(pascal�sic*, pascal←wizard𡤏iles*); forward;
definitions p←lto←t𡤏𡤎xternals(pascal�sic*, pascal←wizard𡤏iles*, p←lto←t𡤏←private*); forward;
program p←lto←t𡤏←main(pascal�sic, pascal←wizard𡤏iles, p←lto←t𡤏←private, p←lto←t𡤏𡤎xternals); forward;
program p←lto←t𡤏←vars1(pascal�sic, pascal←wizard𡤏iles*, p←lto←t𡤏←private*); forward;
program p←lto←t𡤏←vars2(pascal�sic, pascal←wizard𡤏iles*, p←lto←t𡤏←private*); forward;
program p←lto←t𡤏𡤎xternals←impl.hint$(pascal�sic, pascal←wizard𡤏iles, p←lto←t𡤏←private); forward;
program p←lto←t�←impl(pascal�sic, pascal←wizard𡤏iles, p←lto←t𡤏←private, p←lto←t𡤏𡤎xternals); forward;
program p←lto←t�←impl(pascal�sic*, pascal←wizard𡤏iles, p←lto←t𡤏←private, p←lto←t𡤏𡤎xternals*); forward;
program p←lto←t�←impl(pascal�sic, pascal←wizard𡤏iles, p←lto←t𡤏←private, p←lto←t𡤏𡤎xternals*); forward;
program p←lto←t�←impl(pascal�sic, pascal←wizard𡤏iles, p←lto←t𡤏←private, p←lto←t𡤏𡤎xternals*); forward;
program p←lto←t�←impl(pascal�sic, pascal←wizard𡤏iles, p←lto←t𡤏←private, p←lto←t𡤏𡤎xternals*); forward;
begin
p←lto←t𡤏𡤎xternals, p←lto←t𡤏𡤎xternals←impl := tty←rewrite, byte𡤏ile←rewrite, file←reset, file𡤌lose, byte𡤏ile𡤌lose;
p←lto←t𡤏←private, p←lto←t�←impl := initialize, show𡤎rror𡤌ontext, fill𡤋uffer, get←letter←or𡤍igit, get←next;
p←lto←t𡤏←private, p←lto←t�←impl := skip←to𡤎nd←of←item, finish←the←property, lookup, enter←name, get←name, get𡤋yte;
p←lto←t𡤏←private, p←lto←t�←impl := get𡤏our𡤋ytes, get𡤏ix, sort←in, min𡤌over, shorten, set←indices, junk𡤎rror, read𡤏our𡤋ytes;
p←lto←t𡤏←private, p←lto←t�←impl := write𡤋yte, read�pl, check←tag, print←octal, out←scaled, param𡤎nter;
p←lto←t𡤏←private, p←lto←t�←impl := name𡤎nter, read←lig←kern, read𡤌har←info, read←input, corr𡤊nd𡤌heck;
p←lto←t𡤏←private, p←lto←t𡤏←vars1 := pl𡤏ile, tfm𡤏ile, xord, line, good←indent, indent, level;
p←lto←t𡤏←private, p←lto←t𡤏←vars2 := $other←vars$, $other←types$, $other𡤌onsts$;
junk, p←lto←t𡤏←main := $rest$;
end) := p←lto←t𡤏.pas;