<> <> DIRECTORY RoseTypes; RoseIOHacks: CEDAR DEFINITIONS = BEGIN OPEN RoseTypes; Drive: TYPE = LONG POINTER TO DriveRep; DriveRep: TYPE = ARRAY NAT OF BoolWord; BoolWord: TYPE = RECORD [fill: [0 .. 32768), bool: BOOLEAN]; DirectionInstruction: TYPE = {none, forward, backward, check, firstFoo, restFoo, udFwdLBack}; CopyIO: PROC [from, to: WordPtr, by: Ports, what: DirectionInstruction, specials, generals, simples: BOOLEAN, drive: Drive]; END.