-- file: MFTypes.mesa
-- Pascal-to-Mesa translator output, translated at October 31, 1985 4:28:00 pm PST


DIRECTORY
  PascalBasic,
  PascalWizardFiles;

MFTypes: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles;
--11:--MemMax: PascalInteger =50000;
MaxInternal: PascalInteger =100;
BufSize: PascalInteger =7500;
ErrorLine: PascalInteger =64;

HalfErrorLine: PascalInteger =32;
MaxPrintLine: PascalInteger =30000;
ScreenWidth: PascalInteger =1000;

ScreenDepth: PascalInteger =700;
StackSize: PascalInteger =30;
MaxStrings: PascalInteger =2000;
StringVacancies: PascalInteger =8000;

PoolSize: PascalInteger =32000;
MoveSize: PascalInteger =5000;
MaxWiggle: PascalInteger =300;
GfBufSize: PascalInteger =800;

FileNameSize: PascalInteger =127;
PathSize: PascalInteger =300;
BistackSize: PascalInteger =785;
HeaderSize: PascalInteger =100;

LigTableSize: PascalInteger =300;
MaxFontDimen: PascalInteger =50;
--:11----18:--AsciiCode: TYPE =PascalInteger[0..127];

--:18----24:--EightBits: TYPE =PascalInteger[0..255];
AlphaFile: TYPE =   PascalTextFile;

ByteFile: TYPE =   RECORD[baseFile: PascalFile, element: EightBits ← NULL];
--:24----37:--PoolPointer: TYPE =PascalInteger[0..PoolSize];

StrNumber: TYPE =PascalInteger[0..MaxStrings];
--:37----101:--Scaled: TYPE =PascalInteger;
SmallNumber: TYPE =PascalInteger[0..63];

--:101----105:--Fraction: TYPE =PascalInteger;
--:105----106:--Angle: TYPE =PascalInteger;
--:106----156:
Quarterword: TYPE =PascalInteger[0..255];
Halfword: TYPE =PascalInteger[0..65535];
TwoChoices: TYPE ={C1of2,C2of2};

ThreeChoices: TYPE ={C1of3,C2of3,C3of3};
TwoHalves: TYPE =  -- PACKED -- RECORD [ Rh:Halfword,
  x1: SELECT OVERLAID TwoChoices  FROM C1of2=>[Lh:Halfword],C2of2=>[B0:Quarterword,
B1:Quarterword], ENDCASE];
FourQuarters: TYPE =  -- PACKED -- RECORD [ B0:Quarterword,
B1:Quarterword,B2:Quarterword,B3:Quarterword];

MemoryWord: TYPE =RECORD [   x1: SELECT OVERLAID ThreeChoices  FROM C1of3=>[Int:PascalInteger],
C2of3=>[Hh:TwoHalves],C3of3=>[Qqqq:FourQuarters], ENDCASE];

WordFile: TYPE =  RECORD[baseFile: PascalFile, element: MemoryWord ← NULL];
--:156----186:--CommandCode: TYPE =PascalInteger[1..82];
--:186
--565:--ScreenRow: TYPE =PascalInteger[0..ScreenDepth];
ScreenCol: TYPE =PascalInteger[0..ScreenWidth];

TransSpec: TYPE =ARRAY ScreenCol OF  ScreenCol;
PixelColor: TYPE =PascalInteger[0..1];
--:565----571:
WindowNumber: TYPE =PascalInteger[0..15];
--:571----626:
InStateRecord: TYPE =RECORD [ IndexField:Quarterword,
StartField,LocField,LimitField,NameField:Halfword];
--:626----1150:
GfIndex: TYPE =PascalInteger[0..GfBufSize];

Error9998: ERROR;

Error9999: ERROR;

END.