 {------------------------------------------------------------------------}
 { GETFIELD:                                                              }
 {    Read in a field of data into IBUF, only allowing characters found   }
 {    in LEGAL, until SIZE characters have been entered, with the last    }
 {    key code returned in KEYVAL.  The field will be placed at position  }
 {    ROW,COL with colors specified in ATTRIB.                            }
 {------------------------------------------------------------------------}
 type
   Option_Type = set of 0..7;

 procedure GetField(var KeyVal       : integer;
                    var Legal        : str255;
                    var Ibuf         : str255;
                        Atrib,
                        Row,Col,Size : integer;
                        Options      : Option_Type);

       external 'GETFIELD.BIN';
