1 LET c=VAL "5": LET o=VAL "8": FOR x=-o TO o: FOR y=-o TO o: PRINT AT y+c+c,x+PI*c;"*" AND ABS x>ABS y-c AND ABS x<ABS y+c AND (ABS x<c OR ABS y<c);: NEXT y: NEXT x
