Yup, that should do the trick, although I would put braces around the I+1, just for clarity (and I like to use brackets for array indices rather than normal braces

)
FORI=2TO8:T=SGN(5-I):AX[I]=T:AY[((I+1)AND7)+1]=T:NEXT
[edit: tested on MSX and found to be OK

]