1 LET m=VAL"18":FOR x=-m TO m:FOR y=x TO m:PRINT AT y,x;"*"AND COS((x+y)*PI/INT PI)=COS PI:NEXT y:NEXT x