10 FORA=-4TO4:FORB=1TO9+2*ABS(A):VPOKE325+B-ABS(A)+40*A,42:VPOKEA+130+40*(B-ABS(A)),42:NEXTB,A