-- 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.