TFORM

type TFORM = record

  status: Word;

  rows: SmallInt;

  cols: SmallInt;

  currow: LongInt;

  curcol: LongInt;

  toprow: LongInt;

  begincol: LongInt;

  maxfield: SmallInt;

  maxpage: SmallInt;

  curpage: SmallInt;

  opts: Form_Options;

  win: PWINDOW;

  sub: PWINDOW;

  w: PWINDOW;

  field: PPFIELD;

  current: PFIELD;

  page: ;

  usrptr: Pointer;

  forminit: Form_Hook;

  formterm: Form_Hook;

  fieldinit: Form_Hook;

  fieldterm: Form_Hook;

end;