1 LET q=VAL "4": LET w=q+q: FOR r=-w TO w: FOR c=-w TO w: PRINT " *"(SGN PI+((ABS c<=q OR ABS r<=q) AND ABS (ABS c-ABS r)<=q));: NEXT c: PRINT : NEXT r
