TScreen

type TScreen = record

  NextScreen: PScreen;

  FirstWindow: PWindow;

  LeftEdge: SmallInt;

  TopEdge: SmallInt;

  Width: SmallInt;

  Height: SmallInt;

  MouseY: SmallInt;

  MouseX: SmallInt;

  Flags: Word;

  Title: PChar;

  DefaultTitle: PChar;

  BarHeight: ShortInt;

  BarVBorder: ShortInt;

  BarHBorder: ShortInt;

  MenuVBorder: ShortInt;

  MenuHBorder: ShortInt;

  WBorTop: ShortInt;

  WBorLeft: ShortInt;

  WBorRight: ShortInt;

  WBorBottom: ShortInt;

  Font: PTextAttr;

  ViewPort: TViewPort;

  RastPort: TRastPort;

  BitMap: TBitMap;

  LayerInfo: TLayer_Info;

  FirstGadget: PGadget;

  DetailPen: Byte;

  BlockPen: Byte;

  SaveColor0: Word;

  BarLayer: PLayer;

  ExtData: Pointer;

  UserData: Pointer;

end;