1 LET g=LEN STR$ PI: PRINT TAB EXP g;" \O/": LET a$=" |-+": FOR y=-g TO g: FOR x=-g TO g: PRINT a$(SGN PI+(NOT SIN (ABS x*PI/g))+SQR PI*NOT SIN (ABS y*PI/g));: NEXT x: PRINT : NEXT y