Developer(s): Joey Latimer
Date: 1983
Type: Program
Platform(s): TS 1000
Tags: Entertainment, Holiday
Display a Thanksgiving turkey on your screen.
Content
Image Gallery
Source Code
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