70 FOR ATT=1+2*N TO (200-DIF*20):NEXT:po(x,y)=1
70 FOR ATT=1+2*N TO (200-DIF*20):NEXT:po(x,y)=1:po(20,3)=0