TCopIns

type TCopIns = record

  OpCode: SmallInt;

0 = move, 1 = wait

  case SmallInt of

    0: (

        NxtList: PCopList;

      );

    1: (

        DestAddr: SmallInt;

destination Pointer

        DestData: SmallInt;

data to send

      );

    2: (

        VWaitPos: SmallInt;

vertical wait position

        HWaitPos: SmallInt;

horizontal wait position

      );

end;