Turkey

When the relatives arrive at your house on Thanksgiving Day to the sweet aroma of cooking turkey, keep them out of your way in the kitchen. Set up your computer with totally different kind of turkey for them to feast their eyes on.

10 LET YY=8.6
20 LET XX=15
30 LET I=16
40 LET B=9
50 LET A=12
60 GOSUB 320
70 LET XX=15
80 LET I=27
90 LET B=8
100 LET A=7
110 GOSUB 320
120 LET XX=15
130 LET YY=7.7
140 LET I=8
150 LET A=2.7
160 LET B=3.4
170 GOSUB 320
180 LET YY=14
190 LET A=5.4
200 LET B=5.4
210 GOSUB 320
220 PRINT AT 12,10; CHR$ 27; AT 17,20; CHR$ 8
230 PRINT AT 19,18; CHR$ 8; AT 20,13; "I"
240 PRINT AT 20,17; "I"; AT 8,12;"."
250 PRINT AT 7,12;"."; AT 5,13;"."
260 PRINT AT 4,15;"."; AT 7,14;"*"
270 PRINT AT 7,16;"*"; AT 21,16;"I"
280 PRINT AT 21,18;"I"; AT 21,12;"I"
290 PRINT AT 21,14;"I"; AT 8,15;"+"
300 PRINT AT 9,15;"+"; AT 10,15;"+"
310 GOTO 310
320 FOR Y=YY-B TO YY+B
330 LET P=(ABS(Y-YY))**2
340 LET M=A*SQR (ABS (1-P/B**2))
350 FOR X=XX-M TO XX+M
360 PRINT AT Y,X;CHR$ I
370 NEXT X
380 NEXT Y
390 RETURN