for a=1 to 3
for i=1 to a
c=a(i,ubound(a,2))
for k=ubound(a,2)-1 to 1 step-1
a(i,k+1)=a(i,k)
next
a(i,1)=c