macro_command main()
bool a[32]={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
short iIndex=0,I
GetData(iIndex,"5UPLC",D,510,1)
for I= 0 to iIndex step 1
    GetData(a[0],"Local",LB,iIndex*32,32)
next I
SetData(a[0],"5UPLC",M,700,32)

end macro_command