definitions pascal�sic; external;

definitions pascal←wizard𡤏iles; external;

program pascal�sic←impl; external;

program pascal←wizard𡤏iles←impl; external;

definitions no𡤏ile�s; trash;

definitions t𡤏to←p←l←private(pascal�sic*, pascal←wizard𡤏iles*); forward;

definitions t𡤏to←p←l𡤎xternals(pascal�sic*, pascal←wizard𡤏iles*, t𡤏to←p←l←private*); forward;

program t𡤏to←p←l←main(pascal�sic, pascal←wizard𡤏iles, t𡤏to←p←l←private, t𡤏to←p←l𡤎xternals); forward;

program t𡤏to←p←l𡤎xternals←impl.hint$(pascal�sic, pascal←wizard𡤏iles, t𡤏to←p←l←private, t𡤏to←p←l←main); forward;

program t𡤏to←p←l←misc←impl(pascal�sic, pascal←wizard𡤏iles, t𡤏to←p←l←private*, t𡤏to←p←l𡤎xternals, t𡤏to←p←l←main); forward;

program t𡤏to←p←l←organize←impl(pascal�sic*, pascal←wizard𡤏iles, t𡤏to←p←l←private*, t𡤏to←p←l𡤎xternals*, t𡤏to←p←l←main); forward;

program t𡤏to←p←l𡤍o←simple←impl(pascal�sic*, pascal←wizard𡤏iles, t𡤏to←p←l←private, t𡤏to←p←l𡤎xternals*, t𡤏to←p←l←main); forward;

program t𡤏to←p←l𡤍o𡤌haracters←impl(pascal�sic, pascal←wizard𡤏iles, t𡤏to←p←l←private, t𡤏to←p←l𡤎xternals*, t𡤏to←p←l←main); forward;

begin

t𡤏to←p←l𡤎xternals, t𡤏to←p←l𡤎xternals←impl := tty←rewrite, byte𡤏ile←reset, file←rewrite, file𡤌lose, byte𡤏ile𡤌lose;

t𡤏to←p←l←private, t𡤏to←p←l←misc←impl := initialize, out𡤍igs, print𡤍igs, print←octal, out←ln, left, right, out�pl, out←octal, out𡤌har, out�, out𡤏ix, check�pl;

t𡤏to←p←l←private, t𡤏to←p←l←organize←impl := organize;

t𡤏to←p←l←private, t𡤏to←p←l𡤍o←simple←impl := check←the𡤏ix←word𡤎ntries, do←simple←things;

t𡤏to←p←l←private, t𡤏to←p←l𡤍o𡤌haracters←impl := do𡤌haracters;

t𡤏to←p←l←private*, t𡤏to←p←l←main := $rest$;

no𡤏ile�s, t𡤏to←p←l←main := $other←vars$

end

) := t𡤏to←p←l.pas;