begin 
constshortarray  pattern(1:11)=c 
2_1111111111111111,
2_0000000000000000,
2_1111111100000000,
2_0000000000000000,
2_1111000011110000,
2_0000000000000000,
2_1100110011001100,
2_0000000000000000,
2_1010101010101010,
2_0000000000000000,
2_1111111111111111
integer  i,base
@16_fe0000 short  dest
  base = addr(pattern(1))
  cycle 
!   %for i = 1,1,11 %cycle
!     dest = pattern(i)
!   %repeat
    *move.l base,a0
    *moveq #10,d0
loop: *move.w (a0)+,dest
      *move.w dest,d1
      *dbra d0,loop
    *moveq #10,d0
wait: *dbra d0,wait
  repeat 
end