TYPE BMDescriptor = RECORD f, g, h, k: CARDINAL END;

VAR BMD: BMDescriptor;

PROCEDURE BuildBMD(bma: FramePointer; wid, height: CARDINAL; VAR bmd: BMDescriptor);

PROCEDURE ScreenWidth (): CARDINAL;

PROCEDURE MapHeight (): CARDINAL;

PROCEDURE LineHeight (): CARDINAL;

PROCEDURE CharWidth (): CARDINAL;

PROCEDURE DFF (): CARDINAL;