67 FOR Y=-F TO F: FOR X=F-ABS Y TO INT PI*F+ABS Y: PRINT AT Y+F+F,X;"*";AT X,Y+F+F;"*": NEXT X: NEXT Y

REM commands to save as tap-file
CLEAR
LET F=4
SAVE CHR$ 8+CHR$ 8+CHR$ 8+CHR$ 8+CHR$ 8+CHR$ 8+CHR$ 8+CHR$ 8+CHR$ 8+CHR$ 6 LINE 67
