definitions pascal�sic; external;

definitions pascal←wizard𡤏iles; external;

program pascal�sic←impl; external;

program pascal←wizard𡤏iles←impl; external;

program no𡤏ile; trash;

definitions tex←types(pascal�sic*, pascal←wizard𡤏iles*); forward;

definitions tex←init(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

definitions tex←sysdep(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

definitions tex←sysdep←inline.hint$(pascal�sic, tex←types, tex←sysdep, sir←press); forward;

definitions te←x𡤎xport.hint$*(commander*); forward;

definitions tex←interaction(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

definitions tex←memory(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

definitions tex←symbols(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

definitions tex←scan(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

definitions tex𡤍vi(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

definitions tex←ops(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

definitions tex←paragraph(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

definitions tex𡤋uild←page(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

definitions tex←math(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

definitions tex←rest(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

definitions tex𡤎xtensions(pascal�sic*, pascal←wizard𡤏iles*, tex←types*); forward;

program tex←sysdep←impl.hint$(pascal�sic, pascal←wizard𡤏iles, tex←types, tex←init, tex←sysdep, tex←interaction, tex←memory, tex←symbols, tex←scan, tex𡤍vi, tex←ops, tex←paragraph, tex𡤋uild←page, tex←math, tex←rest, tex𡤎xtensions, tex←sysdep←inline, te←x𡤎xport, sir←press); forward;

program tex←sysdep←inline←impl.hint$(sir←press*, tex←memory, tex←sysdep←inline); forward;

program tex←init←impl(pascal�sic, pascal←wizard𡤏iles, tex←types, tex←init*, tex←sysdep, tex←sysdep←inline, tex←interaction, tex←memory, tex←symbols, tex←scan*, tex𡤍vi, tex←ops, tex←paragraph, tex𡤋uild←page, tex←rest); forward;

program tex←init2←impl(pascal�sic*, pascal←wizard𡤏iles, tex←types, tex←init*, tex←sysdep*, tex←sysdep←inline, tex←interaction, tex←memory, tex←symbols, tex←ops, tex←paragraph, tex←rest); forward;

program tex←interaction←impl(pascal�sic, pascal←wizard𡤏iles, tex←types, tex←interaction*, tex←scan, tex←symbols, tex←rest, tex←sysdep); forward;

program tex←memory←impl(pascal�sic, tex←types, tex←interaction, tex←memory*, tex←symbols, tex←paragraph, tex←sysdep←inline); forward;

program tex←memory2←impl(pascal�sic, tex←types*, tex←interaction, tex←memory, tex←symbols, tex𡤋uild←page*, tex←scan, tex←ops, tex𡤎xtensions, tex←rest*, tex←sysdep*, tex←sysdep←inline); forward;

program tex←memory3←impl(pascal�sic*, tex←types, tex←interaction, tex←memory, tex←symbols, tex𡤋uild←page, tex←scan*, tex←ops*, tex𡤎xtensions*, tex←rest, tex←sysdep, tex←sysdep←inline); forward;

program tex←symbols←impl(pascal�sic, tex←types, tex←interaction, tex←memory, tex←symbols, tex←ops, tex←sysdep, tex←sysdep←inline); forward;

program tex←symbols2←impl(pascal�sic, pascal←wizard𡤏iles, tex←types, tex←sysdep, tex←sysdep←inline, tex←interaction, tex←memory, tex←symbols, tex←scan, tex←ops, tex←rest); forward;

program tex←scan←impl(pascal�sic*, pascal←wizard𡤏iles*, tex←types*, tex←sysdep*, tex←sysdep←inline, tex←interaction, tex𡤋uild←page*, tex←memory, tex←symbols, tex←scan, tex←ops*, tex←rest*); forward;

program tex←scan2←impl(pascal�sic, pascal←wizard𡤏iles*, tex←sysdep*, tex←types, tex←interaction, tex𡤋uild←page, tex←memory, tex←symbols, tex←scan, tex←ops, tex←rest, tex←sysdep←inline); forward;

program tex←scan3←impl(pascal�sic*, pascal←wizard𡤏iles, tex←sysdep, tex←types, tex←interaction, tex←memory, tex←symbols, tex←scan, tex←ops, tex←rest, tex←sysdep←inline); forward;

program tex←scan4←impl(pascal�sic, pascal←wizard𡤏iles, tex←sysdep, tex←types, tex←interaction, tex←memory*, tex←symbols, tex←scan, tex←ops, tex←rest*); forward;

program tex←scan5←impl(pascal�sic, pascal←wizard𡤏iles*, tex←sysdep, tex←types, tex←interaction, tex𡤋uild←page*, tex←memory, tex←symbols, tex←scan, tex←ops, tex←rest, tex←sysdep←inline); forward;

program tex𡤍vi←impl(pascal�sic, pascal←wizard𡤏iles, tex←types*, tex←sysdep, tex←sysdep←inline, tex←interaction, tex←memory, tex←symbols, tex←scan, tex𡤍vi, tex←ops, tex𡤋uild←page, tex𡤎xtensions); forward;

program tex𡤍vi2←impl(pascal�sic, tex←types*, tex←sysdep, tex←sysdep←inline, tex←interaction, tex←memory, tex←symbols, tex𡤍vi, tex←ops, tex𡤋uild←page, tex𡤎xtensions); forward;

program tex←ops←impl(pascal�sic, tex←types, tex←interaction, tex←memory, tex←symbols, tex←scan, tex←ops, tex←rest, tex←sysdep←inline); forward;

program tex←ops2←impl(pascal�sic, tex←types, tex←interaction, tex←memory, tex←symbols, tex←scan, tex←ops, tex𡤋uild←page, tex←math, tex←rest*, tex←sysdep←inline); forward;

program tex←ops3←impl(pascal�sic, tex←types, tex←interaction, tex←memory, tex←symbols, tex←scan*, tex←ops, tex𡤋uild←page, tex←math*, tex←rest, tex←sysdep←inline); forward;

program tex←paragraph←impl(pascal�sic, tex←types, tex←interaction, tex←memory, tex←symbols, tex←ops, tex←paragraph*, tex←sysdep←inline); forward;

program tex←paragraph2←impl(pascal�sic*, tex←types, tex←interaction, tex←memory, tex←symbols, tex←ops, tex←paragraph, tex←sysdep←inline); forward;

program tex←paragraph3←impl(pascal�sic*, tex←types, tex←interaction, tex←memory, tex←symbols, tex←ops, tex←paragraph, tex←sysdep←inline); forward;

program tex←hyph←impl(pascal�sic, tex←types, tex←init, tex←interaction, tex←memory, tex←symbols, tex←scan, tex←paragraph, tex←sysdep←inline); forward;

program tex𡤊lign←impl(tex←types*, tex←interaction, tex←symbols, tex←ops, tex𡤋uild←page); forward;

program tex𡤋uild←page←impl(pascal�sic*, tex←types, tex←interaction, tex←memory, tex←symbols, tex←scan*, tex𡤍vi*, tex←ops*, tex𡤋uild←page, tex←rest, tex←sysdep←inline); forward;

program tex𡤋uild←page2←impl(pascal�sic*, tex←types, tex←interaction, tex←memory, tex←symbols, tex←ops, tex←paragraph, tex𡤋uild←page, tex←scan, tex𡤍vi, tex←rest, tex←sysdep←inline); forward;

program tex𡤋uild←page3←impl(pascal�sic, tex←types, tex←interaction, tex←memory, tex←symbols, tex←scan, tex𡤍vi, tex←ops, tex←paragraph, tex𡤋uild←page, tex←math, tex←rest, tex←sysdep←inline); forward;

program tex←math←impl(pascal�sic, tex←types*, tex←interaction, tex←memory, tex←symbols, tex←scan, tex←ops, tex←paragraph, tex𡤋uild←page, tex←math, tex←sysdep←inline); forward;

program tex←math2←impl(pascal�sic, tex←types*, tex←interaction, tex←math*, tex←memory, tex←symbols, tex←ops, tex←sysdep←inline); forward;

program tex←math3←impl(pascal�sic, tex←types, tex←interaction, tex←memory, tex←symbols, tex←ops, tex←math, tex←sysdep←inline); forward;

program tex←math4←impl(pascal�sic, tex←types, tex←interaction, tex←memory, tex←symbols, tex←scan, tex←ops, tex𡤋uild←page, tex←math, tex←rest, tex←sysdep←inline); forward;

program tex←rest←impl(pascal�sic*, pascal←wizard𡤏iles*, tex←types, tex←interaction, tex←memory, tex←symbols, tex←scan*, tex←ops*, tex←paragraph*, tex𡤋uild←page, tex←rest*, tex←sysdep←inline); forward;

program tex←rest2←impl(pascal�sic, pascal←wizard𡤏iles, tex←types, tex←sysdep, tex←sysdep←inline, tex←init, tex←interaction, tex←memory, tex←symbols, tex←scan, tex←ops, tex←paragraph, tex𡤋uild←page, tex←rest); forward;

program tex𡤏inalize←impl(pascal�sic, pascal←wizard𡤏iles, tex←types, tex←sysdep, tex←sysdep←inline, tex←interaction, tex←memory, tex←symbols, tex←scan, tex𡤍vi, tex←ops, tex←paragraph, tex𡤋uild←page, tex←rest); forward;

program tex←maincontrol←impl(pascal�sic, tex←types, tex←interaction, tex←memory, tex←symbols, tex←scan, tex←ops, tex𡤋uild←page, tex←math, tex←rest, tex𡤎xtensions, tex←sysdep←inline); forward;

program tex𡤎xtensions←impl(pascal�sic*, tex←types, tex←sysdep, tex←sysdep←inline, tex←interaction, tex←memory, tex←symbols, tex←scan, tex𡤍vi, tex𡤋uild←page, tex←rest, tex𡤎xtensions*); forward;

program tex←main(pascal�sic, pascal←wizard𡤏iles*, tex←types*, tex←init*, tex←interaction*, tex←memory*, tex←symbols*, tex←scan*, tex←ops*, tex←rest*); forward;

begin

tex←types, no𡤏ile := $other←types$, $other𡤌onsts$;

tex←init, tex←init←impl := pool←name, bad;

tex←init, tex←init←impl := initialize, init←terminal, init←pattern←memory, get←strings←started;

tex←init, tex←init2←impl := init←prim, init←strings, load𡤏mt𡤏ile;

tex←sysdep, tex←sysdep←impl := a←open←in, a←open←out, b←open←in, b←open←out, w←open←in, w←open←out, a𡤌lose, b𡤌lose, w𡤌lose, a←make←name←string, b←make←name←string, w←make←name←string, press←make←name←string, reset←term←in, rewrite←term←out, write𡤍vi, profile𡤊sks𡤏or←press, press←open←out, read←the𡤌lock, file←get←pos, set←pool←name, get←pype𡤌ode, press←set𡤏ont, press←show←rule, flush←pype, press←write←page, press𡤌lose𡤏ile, read←profile𡤏or𡤍irectories, set←normal←priority, set�kground←priority, stuff←on𡤌md←line, register←tex𡤌ommands, pack𡤋uffered←name, pack�ult𡤊rea, pack𡤊ll�ult;

tex←sysdep←inline, no𡤏ile := mem, press←set←x, press←set←y, press←show𡤌har;

tex←interaction, tex←interaction←impl := xord, xchr, name←of𡤏ile, name←length, buffer, first, last, max𡤋uf←stack, term←in, term←out, str←pool, str←start, pool←ptr, str←ptr, pool𡤏ile, log𡤏ile, selector, dig, tally, term←offset, file←offset, trick𡤋uf, trick𡤌ount, first𡤌ount, interaction, deletions𡤊llowed, spotless, error𡤌ount, help←line, help←ptr, interrupt, ok←to←interrupt, arith𡤎rror, remainder, temp←ptr, tex𡤊rea, tex𡤏ont𡤊rea;

tex←interaction, tex←interaction←impl := input←ln, make←string, str𡤎q𡤋uf, str𡤎q←str, print←ln, print𡤌har, print, slow←print, print←nl, print𡤎sc, print𡤍igs, print←int, print←two, print←hex, print𡤊scii, print←roman←int, print𡤌urrent←string, get←token, term←input, jump←out, error, int𡤎rror, fatal𡤎rror, overflow, confusion, pause𡤏or←instructions, half, round�imals, nx←plus←y, x←over←n, xn←over𡤍, print←scaled, print←word, badness, print←memory←word;

tex←memory, tex←memory←impl := var←used, dyn←used, max←var←used, avail, mem𡤎nd, rover, hi←mem←min, lo←mem←max;

tex←memory, tex←memory←impl := get𡤊vail, get←node, new←null𡤋ox, new←rule, new←ligature, new𡤍isc, new←math, new←spec, new←param←glue, new←glue, new←skip←param, new←kern, new←penalty, flush←list, free←node, sort𡤊vail, check←mem, search←mem;

tex←memory, tex←memory2←impl := short𡤍isplay, print𡤏ont𡤊nd𡤌har, print←mark, print←rule𡤍imen, print←glue, print←spec, show←node←list, show𡤋ox, delete←token←ref, delete←glue←ref, flush←node←list;

tex←memory, tex←memory3←impl := copy←node←list, print←mode, push←nest, pop←nest, show�tivities, print←skip←param, print←param, fix�te𡤊nd←time, begin𡤍iagnostic, end𡤍iagnostic;

tex←symbols, tex←symbols←impl := print←length←param, show𡤎qtb, id←lookup, print𡤌s, sprint𡤌s, primitive, new←save←level, eq�stroy, eq←save, eq�ine, eq←word�ine, geq�ine, geq←word�ine, save𡤏or�ter, unsave, restore←trace, prepare←mag, show←token←list, token←show, print←meaning, print𡤌md𡤌hr, show𡤌ur𡤌md𡤌hr;

tex←symbols, tex←symbols2←impl := font←in←short𡤍isplay, depth←threshold, breadth←max, nest, nest←ptr, max←nest←stack, cur←list, shown←mode, old←setting, eqtb, xeq←level, hash, hash←used, no←new𡤌ontrol←sequence, cur𡤌s, cs𡤌ount, save←stack, save←ptr, max←save←stack, cur←level, cur←group, cur𡤋oundary, mag←set, use←press𡤏ormat, cur𡤌md, cur𡤌hr, cur←tok, input←stack, input←ptr, max←in←stack, cur←input, in←open, input𡤏ile, line, line←stack, scanner←status, warning←index, def←ref, param←stack, param←ptr, max←param←stack, align←state, base←ptr, par←loc, par←token, cur←mark, long←state, pstack, cur←val, cur←val←level, radix, cur←order, read𡤏ile, read←open, cond←ptr, if←limit, cur←if, skip←line, cur←name, cur𡤊rea, cur𡤎xt, area�limiter, ext�limiter;

tex←symbols, tex←symbols2←impl := runaway, show𡤌ontext, push←input, pop←input, begin←token←list, end←token←list, back←input, back𡤎rror, ins𡤎rror, begin𡤏ile←reading, end𡤏ile←reading, clear𡤏or𡤎rror←prompt, check←outer←validity, firm←up←the←line, get←next, insert←relax, get←x←token, expand�lls, x←token;

tex←scan, tex←scan←impl := job←name, dvi𡤏ile, output𡤏ile←name;

tex←scan, tex←scan←impl := scan←left𡤋race, scan←optional𡤎quals, scan←keyword, mu𡤎rror, scan←the, scan←seven𡤋it←int, scan𡤎ight𡤋it←int, scan𡤏our𡤋it←int, scan𡤌har←num, scan𡤏ifteen𡤋it←int, scan←twenty←seven𡤋it←int, scan←int;

tex←scan, tex←scan2←impl := scan←something←internal, scan𡤍imen, scan←glue, scan←rule←specstr←toks;

tex←scan, tex←scan3←impl := more←name, end←name, print𡤏ile←name, pack𡤏ile←name, open𡤏mt𡤏ile, make←name←string, scan𡤏ile←name, pack←job←name, prompt𡤏ile←name, open←log𡤏ile, start←input, scan𡤏ont←ident, find𡤏ont𡤍imen, scan←tex←info, char←warning, new𡤌haracter, normalize←selector;

tex←scan, tex←scan4←impl := read𡤏ont←info;

tex←scan, tex←scan5←impl := the←toks, ins←the←toks, conv←toks, scan←toks, read←toks, pass←text, change←if←limit, conditional, begin←name, expand;

tex𡤍vi, tex𡤍vi←impl := dvi𡤋uf, half𡤋uf, dvi←limit, dvi←ptr, dvi←offset, dvi←gone, down←ptr, right←ptr, dvi←h, dvi←v, cur←h, cur←v, dvi𡤏

tex𡤍vi, tex𡤍vi←impl := dvi←swap, dvi𡤏our, dvi←pop, dvi𡤏ont�, movement, prune←movements, vlist←out, hlist←out, ship←out;

tex𡤍vi, tex𡤍vi2←impl := vlist←press←out, hlist←press←out;

tex←ops, tex←ops←impl := tfm𡤏ile, font←info, fmem←ptr, font←ptr, font←ident, font𡤌heck, font←size, font𡤍size, font←params, font←name, font𡤊rea, font�, font�, font←glue, font←used, char�se, width�se, height�se, depth�se, italic�se, lig←kern�se, kern�se, exten�se, param�se, null𡤌haracter, cur←s, total←stretch, total←shrink, par�gin←line, empty𡤏ield, null�limiter, cur←mlist, cur←style, cur←size, cur←mu, mlist←penalties, cur𡤏, cur𡤌, cur←i, magic←offset, cur𡤊lign, cur←span, align←ptr, just𡤋ox, font�mily, font�, font←pype𡤌ode;

tex←ops, tex←ops←impl := scan←spec, scan←rule←spec, hpack, vpackage, append←to←vlist, new←noad, new←style, new𡤌hoice, print�m𡤊nd𡤌har, print�limiter, show←info, print←subsidiary�ta, print←style, print←size, var�limiter, char𡤋ox;

tex←ops, tex←ops2←impl := height←plus�pth, rebox, clean𡤋ox, make←left←right, stack←into𡤋ox, flush←math, fetch, push𡤊lignment, pop𡤊lignment, init𡤊lign, get←preamble←token, align←peek, init←row, init←span, init𡤌ol, fin, fin←row, fin𡤌ol;

tex←ops, tex←ops3←impl := fin𡤊lign;

tex←paragraph, tex←paragraph←impl := passive, print←head, pass←number, active←width, cur�tive←width, background, break←width, no←shrink𡤎rror←yet, cur←p, second←pass, threshold, minimal�merits, minimum�merits, best←place, best←pl←line, disc←width, easy←line, last←special←line, first←width, second←width, first←indent, second←indent, best�t, fewest�merits, best←line, actual←looseness, line𡤍iff, hc, hn, ha, hb, hf, hu, hyf, hyphen←passed, trie, hyf𡤍istance, hyf←num, hyf←next, hyph←word, hyph←list, hyph𡤌ount, trie←op←hash, trie←op←ptr, trie𡤌, trie←o, trie←l, trie←r, trie←ptr, trie←hash, trie←taken, trie←min, trie←max;

tex←paragraph, tex←paragraph←impl := finite←shrink, reconstitute, post←line𡤋reak;

tex←paragraph, tex←paragraph2←impl := line𡤋reak;

tex←paragraph, tex←paragraph3←impl := try𡤋reak;

tex←paragraph, tex←hyph←impl := hyphenate, new←trie←op, trie←node, compress←trie, new←hyph𡤎xceptions, init←trie←memory, first𡤏it, trie←pack, trie𡤏ix, new←patterns;

tex←ops, tex𡤊lign←impl := align𡤎rror, no𡤊lign𡤎rror, omit𡤎rror, do𡤎ndv, cs𡤎rror;

tex𡤋uild←page, tex𡤋uild←page←impl := total←pages, max←v, max←h, max←push, last𡤋op, dead𡤌ycles, doing←leaders, c, f, rule←ht, rule𡤍p, rule←wd, g, lq, lr, lx;

tex𡤋uild←page, tex𡤋uild←page←impl := build←page;

tex𡤋uild←page, tex𡤋uild←page2←impl := prune←page←top, vert𡤋reak, vsplit, print←totals, freeze←page←specs, box𡤎rror, ensure←vbox, missing𡤏ont, app←space, insert𡤍ollar←sign, you�nt, report←illegal�se, privileged, its𡤊ll←over, fire←up, delete←last;

tex𡤋uild←page, tex𡤋uild←page3←impl := append←glue, append←kern, off←save, handle←right𡤋race, extra←right𡤋race, normal←paragraph, box𡤎nd, begin𡤋ox, scan𡤋ox, package, new←graf, indent←in←hmode, head𡤏or←vmode, end←graf, begin←insert←or�just, make←mark, change𡤊ux, append←penalty, delete←skip, unpackage, append←italic𡤌orrection, append𡤍iscretionary, build𡤍iscretionary, ins←the, make�nt;

tex←math, tex←math←impl := mlist←to←hlist, push←math, init←math;

tex←math, tex←math2←impl := math←glue, make←op, math←kern, fraction←rule, overbar, make←over, make←under, make←vcenter;

tex←math, tex←math3←impl := make←radical, make←math�nt, make𡤏raction, make←ord, make←scripts;

tex←math, tex←math4←impl := start𡤎q←no, scan←math, set←math𡤌har, math←limit←switch, scan�limiter, math←radical, math�, math←non←script, sub←sup, math𡤏raction, fin←mlist, math←left←right, fin←math, append𡤌hoices, build𡤌hoices, after←math;

tex←rest, tex←rest←impl := macro�ll, str←toks, resume�ter𡤍isplay;

tex←rest, tex←rest2←impl := prefixed𡤌ommand, get←r←token, trap←zero←glue, do←register𡤌ommand, alter𡤊ux, alter←prev←graf, alter←page←so�r, alter←integer, alter𡤋ox𡤍imen, new𡤏ont, new←interaction, do𡤊ssignments, open←or𡤌lose←in, issue←message, give𡤎rr←help, shift�se, show←whatever, the←real←tex;

tex←rest, tex𡤏inalize←impl := store𡤏mt𡤏ile, close𡤏iles𡤊nd←terminate, final𡤌leanup, debug←help;

tex←rest, tex←maincontrol←impl := best←height←plus�pth, page←tail, page𡤌ontents, page←size, page�pth←max, best←page𡤋reak, least←page�ness, best←size, page←so�r, cur←page�pth, last←page←glue, ins←penalties, output�tive, cur𡤋ox, err←help←seen, format←ident, fmt𡤏ile, start←like←initex, write𡤏ile, write←open, write←loc;

tex←rest, tex←maincontrol←impl := main𡤌ontrol;

tex𡤎xtensions, tex𡤎xtensions←impl := do𡤎xtension, new←whatsit, new←write←whatsit, print←write←whatsit, special←out, write←out, out←what, press←out←what;

tex←types, tex←main := $other←vars$, $other←procs$, $global←labels$, $main$

end):= tex.pas;