This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Chicken
-
Category:Games
-
Publisher/Developer:Antic - The Atari Resource, BELLCOM - Public Domain Library
-
Year:1981
Listing 1
5 REM CHICKEN BY STAN OCKERS 6 REM ANTIC MAGAZINE VOL.1 NO.1 9 POKE 752,1 10 OPEN #1,4,0,"K:":DIM L$(20),S$(20),C$(20) 15 ? " CHICKEN BY STAN OCKERS":? " WITH EMBELLISHMENTS BY":? " PAUL AND RICK NOBLE" 40 FOR I=1536 TO 1587:READ A:POKE I,A:NEXT I 42 DIM VB$(210):FOR I=1 TO 210:READ A:VB$(I)=CHR$(A):NEXT I 45 DIM LD$(73):FOR I=1 TO 73:READ A:LD$(I)=CHR$(A):NEXT I 46 GOSUB 2000 47 ?:?:? " LOADING MORE DATA" 48 A=ADR(VB$):B=INT(A/256):POKE 1540,B:POKE 1538,A-256*B 50 DATA 104,160,52,162,6,169,7,76,92,228,104,160,98,162,228,169,7,76,92,228 52 DATA 120,120,120,120,30,57,81,105,15,15,15,15,0,0,0,0,52,53,54,55,2,2,3,4,12,15,15,15,15,11,11,11 56 DATA 72,138,72,152,72,162,0,189,120,2,29,44,6,160,15,24,176,32,201,15,240,28,201,14,208,2,160,13,201,13 57 DATA 208,2,160,14,201,11,208,2,160,7,201,7,208,2,160,11,192,15,240,6,61,48,6,157,28,6,152,61,44,6,157,44,6 58 DATA 232,224,4,144,195 60 DATA 162,0,189,32,6,133,203,189,36,6,133,204,189,40,6,133,209,198,209,16,7,232,224,4 65 DATA 144,232,176,91,189,28,6,133,207 70 DATA 70,207,176,26,188,24,6,192,1,240,19,208,1,200,177 75 DATA 203,240,6,136,145,203,200,208,245,136,145,203,222,24,6,70,207,176,29,188,24,6,200,192,254,176,21 80 DATA 177,203,208,247,136,177,203,240,6,200,145,203,136,208,245,200,145,203,254,24,6,70,207,176,3,222,20 85 DATA 6,70,207,176,3,254,20,6,189,20,6,157,0,208 90 DATA 24,144,154,162,4,189,11,208,240,5,169,0,157,39,6,202,208,243,104,168,104,170,104,76,98,228 100 DATA 234,234,234,104,104,104,170,189,32,6,133,186,189,36,6,133,187,104,133,213,104,133,212 110 DATA 189,24,6,133,195,169,0,168,192,255,176,35,196,195,240,5,145,186,200,208,243,162,0,161,212,240,11 120 DATA 145,186,230,212,200,192,255,176,11,208,241,169,0,145,186,200,192,255,144,249,96,234,234 160 FOR I=1 TO 20:READ A:C$(I)=CHR$(A):NEXT I 170 DATA 24,60,218,68,90,186,70,150,54,232,74,168,88,154,21,252,200,76,228,28 200 A=PEEK(106)-16:POKE 54279,A:PM=256*A 210 FOR I=4 TO 7:POKE 1568+I,A+I:NEXT I 212 FOR I=1568 TO 1571:POKE I,0:NEXT I 220 FOR I=PM TO PM+121:READ A:POKE I,A:NEXT I 230 DATA 16,56,16,56,40,16,16,16,146,254,254,124,56,56,40,40,40,40,40,108,0 232 DATA 126,195,219,219,91,219,219,219,219,91,219,219,195,126,0 234 DATA 126,195,219,219,218,219,219,219,219,218,219,219,195,126,0 236 DATA 33,34,150,84,57,30,60,123,159,30,52,86,151,36,194,193,0 238 DATA 16,56,16,56,40,16,16,56,124,254,186,56,56,40,40,40,44,32,96,0 240 DATA 16,56,16,56,40,16,16,146,214,124,56,56,40,40,40,104,8,12,0 242 DATA 126,255,173,173,239,199,199,199,199,239,173,173,255,126,0 280 RESTORE 282:FOR I=1556 TO 1563:READ A:POKE I,A:NEXT I 282 DATA 120,120,120,120,30,57,81,105 290 DIF=3:BONUS=300:POKE 704,40:CP=0:FOR I=1 TO 3:POKE 704+I,ASC(C$(CP+I)):NEXT I:CP=3:BPOS=5 300 GRAPHICS 17:FOR I=1 TO 20:L$(I)="_":NEXT I 305 FOR I=2 TO 20 STEP 2:S$(I)="-":S$(I-1)=" ":NEXT I 310 POSITION 0,2:? #6;L$:POSITION 0,11:? #6;L$:POSITION 0,13:? #6;L$:POSITION 0,22:? #6;L$ 312 POSITION 0,5:? #6;S$:POSITION 0,8:? #6;S$:POSITION 0,16:? #6;S$:POSITION 0,19:? #6;S$:POKE 710,90 350 SCORE=50:POSITION 0,1:? #6;"score time ":POSITION 0,23:? #6;"dif high"; 360 POSITION 0,0:? #6;SCORE:POSITION 15,22:? #6;HIGH:POKE 77,0:POKE 19,0:POKE 20,0 370 POKE 559,62:POKE 53277,3:I1=68:I2=88:FL=I1 380 LD=ADR(LD$):A=USR(LD,0,PM):A=USR(LD,1,PM+21):A=USR(LD,2,PM+21):A=USR(LD,3,PM+21) 385 A=USR(1536) 390 POKE 53257,1:POKE 53258,1:POKE 53259,1:POKE 623,1 395 POKE 1576,2:FOR I=1577 TO 1579:POKE I,RND(0)*DIF+1:NEXT I 398 POSITION 1,22:? #6;DIF 410 IF PEEK(1557)<15 AND PEEK(1561)=57 THEN POKE 1561,193:A=USR(LD,1,PM+36):POKE 1585,7:GOSUB 1000:POKE 705,C 420 IF PEEK(1557)>240 AND PEEK(1561)=193 THEN POKE 1561,57:A=USR(LD,1,PM+21):POKE 1585,11:GOSUB 1000:POKE 705,C 430 IF PEEK(1558)<15 AND PEEK(1562)=81 THEN POKE 1562,169:A=USR(LD,2,PM+36):POKE 1586,7:GOSUB 1000:POKE 706,C 440 IF PEEK(1558)>240 AND PEEK(1562)=169 THEN POKE 1562,81:A=USR(LD,2,PM+21):POKE 1586,11:GOSUB 1000:POKE 706,C 450 IF PEEK(1559)<15 AND PEEK(1563)=105 THEN POKE 1563,145:A=USR(LD,3,PM+36):POKE 1587,7:GOSUB 1000:POKE 707,C 460 IF PEEK(1559)>240 AND PEEK(1563)=145 THEN POKE 1563,105:A=USR(LD,3,PM+21):POKE 1587,11:GOSUB 1000:POKE 707,C 470 TIME=30-PEEK(19):POSITION 16,0:? #6;TIME;" ":IF TIME<=0 THEN 910 473 SOUND 0,0,0,0 475 IF RND(0)>0.5 THEN SOUND 1,0,0,0 480 IF RND(0)<0.05 THEN SOUND 1,7,12,10 485 P=PEEK(1564):IF P>15 OR P<13 THEN 500 490 IF P=15 THEN A=USR(LD,0,PM):GOTO 500 492 IF FL=I1 THEN FL=I2:SOUND 0,16,6,8:GOTO 496 494 IF FL=I2 THEN FL=I1:SOUND 0,22,6,8 496 A=USR(LD,0,PM+FL) 500 IF PEEK(1560)>230 THEN 810 510 IF PEEK(53260)=0 THEN 410 520 A=USR(LD,O,PM+51):FOR J=1 TO 3:SOUND 0,RND(0)*255,8,8:SOUND 1,RND(0)*255,8,8 525 POKE 704,PEEK(704)+8:FOR I=1 TO 30:NEXT I:NEXT J:SOUND 0,0,0,0:SOUND 1,0,0,0:POKE 704,40 530 SCORE=SCORE-20:POSITION 0,0:? #6;SCORE;" ":IF SCORE<=0 THEN 702 535 POKE 1560,PEEK(1560)-24:A=USR(LD,0,PM):IF DIF>1 THEN DIF=DIF-1 590 POKE 53278,0:GOTO 395 702 POSITION 3,2:? #6;"CHICKEN'S DEAD" 705 C=1 706 IF PEEK(1576+C)=0 THEN C=C+1:GOTO 706 707 IF C>3 THEN C=1 713 POKE 1576+C,1:POKE 1560+C,PEEK(1560):POKE 1556+C,220:A=USR(LD,C,PM+107) 715 FOR J=1 TO 6:FOR P=60 TO 40 STEP -2:SOUND 0,P,10,8:FOR I=1 TO 6:NEXT I 716 NEXT P:FOR P=40 TO 60 STEP 2:SOUND 0,P,10,8:FOR I=1 TO 6:NEXT I:NEXT P:NEXT J:SOUND 0,0,0,0 720 A=USR(1546):IF SCORE>HIGH THEN HIGH=SCORE:POSITION 15,22:? #6;HIGH 730 POSITION 2,6:? #6;"press FIRE button":POSITION 4,7:? #6;"to play again" 732 FOR I=53248 TO 53251:POKE I,0:NEXT I:SOUND 0,0,0,0:SOUND 1,0,0,0 740 IF STRIG(0)=1 THEN 740 750 POKE 53278,0:POKE 53277,0:A=USR(1546):GOTO 280 810 POKE 1560,30:A=USR(LD,0,PM):POKE 1576,0 820 FOR I=1 TO 5:FOR J=10 TO 5 STEP -1:SOUND 0,J,14,8:SOUND 1,J,2,8:NEXT J:SOUND 0,0,0,0:SOUND 1,0,0,0 825 A=USR(LD,0,PM+68):FOR J=1 TO RND(0)*30:NEXT J:A=USR(LD,0,PM+88) 830 SCORE=SCORE+DIF*2:POSITION 0,0:? #6;SCORE;" ":NEXT I 840 IF DIF<9 THEN DIF=DIF+1 842 IF SCORE<BONUS THEN 850 844 SOUND 0,25,10,10:BONUS=BONUS+300:P=PEEK(19):IF P<11 THEN POKE 19,0:GOTO 848 846 POKE 19,P-10 848 POSITION BPOS,13:? #6;"*":BPOS=BPOS+1 850 GOTO 390 910 POSITION 5,2:? #6;"TIME'S UP" 920 GOTO 720 1000 CP=CP+1:IF CP=20 THEN CP=1 1010 C=ASC(C$(CP)):RETURN 2000 TRAP 2000:?:?:? " 2,4 OR 8 DIRECTION MOVEMENT";:INPUT D 2010 IF D=2 THEN GOTO 2040 2020 IF D=4 THEN POKE 1580,0 2030 IF D=8 THEN POKE 1580,0:VB$(16,16)=CHR$(56) 2035 IF D<>2 AND D<>4 AND D<>8 THEN 2000 2040 RETURN
References
Listing downloads
Copyright holder