Copy next lines, click on altair, and paste { ctrl^v }
r65520
66
Y
10 PRINT CHR$(12);
20 FOR Y=-8 TO 8
30 FOR X=-17 TO 17
40 IF X<>0 THEN 60
50 PRINT "Y";:GOTO 110
60 IF Y<>0 THEN 80
70 PRINT "X";:GOTO 110
80 IF (Y-8*SIN(X/4))*(Y-8*SIN(X/4))<2.0 THEN 100
90 PRINT " ";:GOTO 110
100 PRINT "*";
110 NEXT X
120 PRINT
130 NEXT Y
RUN