{$ifndef GRAPHICS_COPPER_H}
Const GRAPHICS_COPPER_H = 77;
      COPPER_MOVE = 0;
      COPPER_WAIT = 1;
      CPRNXTBUF = 2;
      CPR_NT_LOF = $8000;
      CPR_NT_SHT = $4000;
Type p_CopIns = ^CopIns;
     p_CopList = ^CopList;
     p_cprlist = ^cprlist;
     p_UCopList = ^UCopList;
     CopIns = record
                OpCode: integer;
                u3: record
                      Case integer of
                        0: (nxtlist: p_CopList);
                        1: (u4: record
                                  u1: record
                                        Case integer of
                                          0: (VWaitPos: integer);
                                          1: (DestAddr: integer);
                                        end{u1};
                                  u2: record
                                        Case integer of
                                          0: (HWaitPos: integer);
                                          1: (DestData: integer)
                                      end {u2}
                                end {u4} )
                    end {u3};
              end;
     cprlist = record
                 Next: p_cprlist;
                 start: ^Word;
                 MaxCount: integer
               end;
     CopList = record
                 Next: p_CopList;
                 _CopList: p_CopList;
                 _ViewPort: Ptr   {p_ViewPort;}
                 CopIns: p_CopIns;
                 CopPtr: p_CopIns;
                 CopLStart,CopSStart: ^Word;
                 Count,MaxCount,DyOffset: integer
               end;
     UCopList = record
                  Next: p_UCopList;
                  FirstCopList: p_CopList;
                  CopList: p_CopList
                end;
     p_copinit = ^copinit;
     copinit = record
                 diagstrt: Array[0..3] of Word;
                 sprstrtup: Array[0..39 {(2*8*2)+2+(2*2)+2}] of Word;
                 sprstop: Array[0..1] of Word
               end;
{$endif}