-- file: WeaveVarsImpl1.mesa
-- Pascal-to-Mesa translator output, translated at September 23, 1986 1:27:37 pm PDT


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  WeaveVars;

WeaveVarsImpl1: PROGRAM IMPORTS PascalBasic EXPORTS WeaveVars = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, WeaveVars;
--:202----9:--
History: PascalInteger[0..3];

--:9----13:--Xord: LONG POINTER TO ARRAY PascalChar OF AsciiCode ← PascalStaticZone.NEW[ARRAY PascalChar OF AsciiCode];
Xchr: LONG POINTER TO ARRAY AsciiCode OF PascalChar ← PascalStaticZone.NEW[ARRAY AsciiCode OF PascalChar];

--:13----20:--
TermOut: TextFile;
--:20----23:--
WebFile: TextFile;


ChangeFile: TextFile;
--:23----25:--
TexFile: TextFile;
--:25----27:
Buffer: LONG POINTER TO ARRAY PascalInteger[0..5400] OF AsciiCode ← PascalStaticZone.NEW[ARRAY PascalInteger[0..5400] OF AsciiCode];
--:27----29:--
PhaseOne: PascalBoolean;


PhaseThree: PascalBoolean;

ByteStart: LONG POINTER TO ARRAY PascalInteger[0..5000] OF SixteenBits ← PascalStaticZone.NEW[ARRAY PascalInteger[0..5000] OF SixteenBits];

Link: LONG POINTER TO ARRAY PascalInteger[0..5000] OF SixteenBits ← PascalStaticZone.NEW[ARRAY PascalInteger[0..5000] OF SixteenBits];

Ilk: LONG POINTER TO ARRAY PascalInteger[0..5000] OF SixteenBits ← PascalStaticZone.NEW[ARRAY PascalInteger[0..5000] OF SixteenBits];

Xref: LONG POINTER TO ARRAY PascalInteger[0..5000] OF SixteenBits ← PascalStaticZone.NEW[ARRAY PascalInteger[0..5000] OF SixteenBits];
--:37----39:--
NamePtr: NamePointer;

BytePtr: LONG POINTER TO ARRAY PascalInteger[0..1] OF PascalInteger[0..45000] ← PascalStaticZone.NEW[ARRAY PascalInteger[0..1] OF PascalInteger[0..45000]];
--:45----49:--Xmem: LONG POINTER TO ARRAY XrefNumber OF XmemRecord ← PascalStaticZone.NEW[ARRAY XrefNumber OF XmemRecord];

END.