DIM X[3] FOR I=0 TO 2 X[I]=0 SPSET I,I NEXT @LOOP X[0]=X[0]+1 X[1]=X[1]+2 X[2]=X[2]+3 FOR I=0 TO 2 SPOFS I,X[I],I*16 NEXT VSYNC GOTO @LOOP