<> <> <> <> EGlas: CEDAR DEFINITIONS = BEGIN OverDrive: TYPE = [1..7]; Init: PROCEDURE; <> Load: PROCEDURE; <> ZUp: PROCEDURE; <> ZDown: PROCEDURE; <> TestStart: PROCEDURE; <> Seek: PROCEDURE [x, y: REAL]; <> GetDeviceCoordinates: PROCEDURE [] RETURNS [x, y: REAL]; <> SetDeviceCoordinates: PROCEDURE [x, y: REAL]; <> SetDieSize: PROCEDURE [x, y: REAL]; <> SetOverDrive: PROCEDURE [overdrive: OverDrive]; <> LampOn: PROCEDURE []; <> LampOff: PROCEDURE []; <> ManualMode: PROCEDURE []; <> <<>> END.