REM PROGRAMMED BY: TRAVIS SCHULTZ

SCREEN 1
1920 'DRAW CHICKEN
1940 CIRCLE (171, 31), 4, 2: CIRCLE (165, 33), 4, 2: PSET (171, 31), 3: PSET (165, 33), 3: RESTORE 2040
1960 FOR Q = 1 TO 12: READ J, C, X1, Y1: PSET (X1, Y1), C: FOR I = 1 TO J: READ X2, Y2: LINE -(X2, Y2), C: NEXT I: NEXT Q
2022 FOR T = 1 TO 9: READ X, Y, Z: PAINT (X, Y), Z, 2: NEXT T'paint chicken
2023 READ X1, Y1: PSET (X1, Y1): FOR I = 1 TO 7: READ X2, Y2: LINE -(X2, Y2), 0: NEXT I
2040 'mouth and beak
2061 DATA 9,2,185,43,192,44,196,47,198,40,198,35,197,33,195,31,191,29,179,30,174,31
2100 'crest
2120 DATA 31,2,168,30,160,21,159,18,158,16,158,13,156,10,155,11,154,15,154,23,150,20,146,14,145,15,144,17,144,20,146,23,141,22,139,22,138,23,138,25,139,27,141,30,137,29,134,30,132,32,132,34,135,37,138,39,141,38,150,35,155,33,159,31,162,30
2180 'top of head
2200 DATA 5,2,179,30,176,26,174,25,172,24,166,24,164,25
2220 'back of head
2240 DATA 16,2,149,35,148,40,148,47,149,51,150,54,151,55,153,56,154,56,157,57,165,57,168,56,170,55,175,53,177,51,179,50,181,48,185,43
2261 DATA 6,2,175,52,172,50,170,49,166,45,165,43,165,38,166,36
2280 'left wing
2300 DATA 22,2,157,57,156,60,153,63,152,64,148,65,144,66,140,67,137,68,134,69,130,72,131,74,133,75,137,74,139,72,142,74,144,74,147,71,149,73,151,72,153,70,155,71,158,70,160,68
2340 'stomach
2360 DATA 15,2,149,73,148,76,148,77,149,79,150,80,152,81,155,81,160,80,161,80,165,78,169,74
2380 DATA 171,72,172,70,172,65,171,62,169,56
2400 'right wing
2420 DATA 19,2,169,57,175,59,179,58,185,55,192,51,192,53,190,57,183,59,185,60,186,62,183,65,183,66,182,67,180,67,177,65,179,67,180,69,177,71,175,71,171,70
2460 'tail
2480 DATA 18,2,148,76,126,85,125,87,126,88,130,88,134,86,130,90,131,92,133,93,140,90,138,93,140,95,141,95,145,92,146,93,149,93,150,92,151,89,151,81
2520 'legs
2540 DATA 8,2,152,81,154,86,154,99,154,86,156,81,158,86,160,80,158,86,158,100
2560 'left foot
2580 DATA 5,2,154,99,146,101,154,99,150,101,154,99,150,102
2600 'right foot
2620 DATA 5,2,158,100,164,99,158,100,162,101,158,100,162,102
2622 'paint coordinates
2623 DATA 150,30,3,168,28,3,185,37,2,155,45,3,165,70,3,180,63,3,140,85,3,154,82,3,158,82,3,169,41,174,38,172,39,172,41,173,43,175,45,178,45,185,43
2625 DATA 169,41,174,38,172,39,172,41,173,43,175,45,178,45,185,43
LOCATE 6, 27: PRINT "---MY NAME IS:"
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "            лллллллллл  л"
PRINT "            л        л  л"
PRINT "            л        л  л"
PRINT "            лллллллллл  л"
PRINT "            л        л  л"
PRINT "            л        л  л"
PRINT "            л        л  ллллллллл"

SLEEP 300