1 FORY=0TO18:FORX=3TO21:IFABS(SIN(π/6*Y)↑2-SIN(π/6*X)↑2)<.1THENCHAR,X,Y,"*
2 NEXT:NEXT