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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

MFScreen: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes;

ScreenStarted: PascalBoolean;

ScreenOk: PascalBoolean;
WindowOpen: LONG POINTER TO ARRAY WindowNumber OF  PascalBoolean;
LeftCol: LONG POINTER TO ARRAY WindowNumber OF  ScreenCol;
RightCol: LONG POINTER TO ARRAY WindowNumber OF  ScreenCol;
TopRow: LONG POINTER TO ARRAY WindowNumber OF  ScreenRow;
BotRow: LONG POINTER TO ARRAY WindowNumber OF  ScreenRow;
MWindow: LONG POINTER TO ARRAY WindowNumber OF  PascalInteger;
NWindow: LONG POINTER TO ARRAY WindowNumber OF  PascalInteger;
WindowTime: LONG POINTER TO ARRAY WindowNumber OF  PascalInteger;
RowTransition: LONG POINTER TO TransSpec;

--:568----574:
 OpenAWindow: PROCEDURE[K: WindowNumber,R0,C0,R1,C1: Scaled,X,Y: Scaled]
;

 DispEdges: PROCEDURE[K: WindowNumber];

END.