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:Hungry Hawks
-
Category:Games
-
Publisher/Developer:BELLCOM - Public Domain Library
Listing 1
10 ? "":DIM A$(5),B$(5),C$(5),D$(5),AN$(1),Z$(5):Z$=" " 20 POKE 710,196:POKE 709,14:?:? ,"":?:? "THIS IS A ONE OR TWO PLAYER GAME." 25 ?:? "EACH PERSON CONTROLS A HAWK :-":? " CONTROLS HENRY CHICKEN HAWK" 26 ? " CONTROLS HARRY HAWK-EYE":?:? "HENRY IS BLUE & HARRY IS BROWN" 30 POKE 752,1:?:? " USES JOYSTICK 1":? " USES JOYSTICK 2":?:? "USE THE JOYSTICK TO MOVE SIDEWAYS" 35 ? "AND PRESS THE FIRE BUTTON TO SWOOP":? "DOWN ON THE PREY." 40 ?:? "PRESS THE BUTTON TO START GAME":?:? ""; 70 IF PEEK(53279)<>6 THEN 70 75 A$=" wvx ":B$=" yvz ":C$=" ":D$=" ":POKE 106,PEEK(106)-2 80 GRAPHICS 2:POKE 710,0:POKE 708,14:POKE 709,40:POKE 711,222 90 ? #6;"ANIMAL":? #6;"frog 3":? #6;"rabbit 5":? #6;"turtle 1":? #6;"chicken 2" 91 ? #6;"grub 2" 101 POKE 710,0:POKE 708,14:POKE 709,40:POKE 711,222:A=PEEK(106)*256:FOR B=0 TO 511 102 IF B>431 THEN READ D:POKE A+B,D:NEXT B:GOTO 110 106 POKE A+B,PEEK(57344+B):NEXT B 110 POSITION 0,8:? #6;"PRESS START BUTTON" 111 IF PEEK(53279)<>6 THEN 110 112 POSITION 0,0:? #6;"":POKE 710,140:POKE 756,PEEK(106) 190 V1=1:V2=1:H1=1:H2=14:C1=0:C2=0:S1=0:S2=0:NA=0 195 POKE 709,142:POKE 711,24:POKE 712,128:POKE 710,200:POSITION 0,0:? #6;"score0 0" 199 GOSUB 550 200 S=STICK(0):IF S=11 AND H1>0 THEN H1=H1-1 201 IF S=7 AND H1<15 THEN H1=H1+1 202 IF STRIG(0)=0 THEN C1=1 205 POSITION H1,V1:? #6;A$; 210 ON R GOSUB 500,510,520,530,540 223 IF C2=1 THEN GOSUB 400:GOTO 235 224 IF C2=2 THEN GOSUB 450:GOTO 235 225 S=STICK(1):IF S=11 AND H2>0 THEN H2=H2-1 226 IF S=7 AND H2<15 THEN H2=H2+1 227 IF STRIG(1)=0 THEN C2=1 230 POSITION H2,V2:? #6;C$;; 235 ON R GOSUB 500,510,520,530,540 248 IF C1=1 THEN GOSUB 300:GOTO 260 249 IF C1=2 THEN GOSUB 350:GOTO 260 250 S=STICK(0):IF S=11 AND H1>0 THEN H1=H1-1 251 IF S=7 AND H1<15 THEN H1=H1+1 252 IF STRIG(0)=0 THEN C1=1 255 POSITION H1,V1:? #6;B$;;; 260 ON R GOSUB 500,510,520,530,540 273 IF C2=1 THEN GOSUB 400:GOTO 285 274 IF C2=2 THEN GOSUB 450:GOTO 285 275 S=STICK(1):IF S=11 AND H2>0 THEN H2=H2-1 276 IF S=7 AND H2<15 THEN H2=H2+1 277 IF STRIG(1)=0 THEN C2=1 280 POSITION H2,V2:? #6;D$; 285 ON R GOSUB 500,510,520,530,540 297 IF C1=1 THEN GOSUB 300:GOTO 210 298 IF C1=2 THEN GOSUB 350:GOTO 210 299 GOTO 200 300 POSITION H1,V1:? #6;Z$:V1=V1+1:POSITION H1,V1:? #6;A$:IF V1<8 THEN RETURN 305 C1=2:LOCATE H1+2,V1+1,Z1:IF Z1=32 THEN RETURN 310 AC=1 350 POSITION H1,V1:? #6;Z$:V1=V1-1:POSITION H1,V1:? #6;B$:COLOR Z1:PLOT H1+2,V1+1:COLOR 32:PLOT H1+2,V1+2:IF V1>1 THEN RETURN 355 C1=0:IF AC<>1 THEN RETURN 356 SOUND 0,255,10,14:COLOR 32:PLOT H1+2,V1+1:FOR W=1 TO 21:NEXT W:SOUND 0,0,0,0 359 S1=S1+AS:POSITION 7,0:? #6;S1;:AC=0:GOTO 550 400 POSITION H2,V2:? #6;Z$:V2=V2+1:POSITION H2,V2:? #6;C$:IF V2<8 THEN RETURN 405 C2=2:LOCATE H2+2,V2+1,Z2:IF Z2=32 THEN RETURN 410 AC=2 450 POSITION H2,V2:? #6;Z$:V2=V2-1:POSITION H2,V2:? #6;D$:COLOR Z2:PLOT H2+2,V2+1:COLOR 32:PLOT H2+2,V2+2:IF V2>1 THEN RETURN 455 C2=0:IF AC<>2 THEN RETURN 456 SOUND 0,123,10,14:COLOR 32:PLOT H2+2,V2+1:FOR W=1 TO 21:NEXT W:SOUND 0,0,0,0 459 S2=S2+AS:POSITION 17,0:? #6;S2;:AC=0:GOTO 550 500 IF AC<>0 THEN RETURN 501 IF X>19 THEN 550 502 IF FC=0 THEN POSITION X,9:? #6;AN$ 503 FC=FC+1:IF FC/9<>INT(FC/9) THEN RETURN 504 SOUND 0,255,10,14:FOR W=1 TO 10:NEXT W:SOUND 0,0,0,0 505 COLOR 32:PLOT X,9:X=FC/3 506 IF X<20 THEN POSITION X,9:? #6;AN$:RETURN 509 COLOR 32:PLOT X-3,9 510 IF AC<>0 THEN RETURN 511 IF X>19 THEN 550 512 IF X=0 THEN POSITION X,9:? #6;AN$:X=X+1:RETURN 513 XX=INT(RND(0)*3):IF XX=2 THEN XX=0 514 IF XX=1 THEN SOUND 0,14,10,10:FOR W=1 TO 5:NEXT W:SOUND 0,0,0,0 515 POSITION X-1,9:? #6;" ";:POSITION X,9:? #6;AN$:X=X+XX:RETURN 520 IF AC<>0 THEN RETURN 521 IF X>19 THEN 550 522 IF X=0 THEN POSITION X,9:? #6;AN$:X=X+1:RETURN 525 POSITION X-1,9:? #6;" ";:POSITION X,9:? #6;AN$:X=X+0.25:RETURN 530 IF AC<>0 THEN RETURN 531 IF X>19 THEN 550 532 IF X=0 THEN POSITION X,9:? #6;AN$:X=X+1:RETURN 533 SOUND 0,7,8,10:FOR W=1 TO 3:NEXT W:SOUND 0,0,0,0 535 POSITION X-1,9:? #6;" ";:POSITION X,9:? #6;AN$:X=X+0.5:RETURN 540 IF AC<>0 THEN RETURN 541 IF X>19 THEN 550 542 IF X=0 THEN POSITION X,9:? #6;AN$:X=X+1:RETURN 545 POSITION X-1,9:? #6;" ";:POSITION X,9:? #6;AN$:X=X+0.5:RETURN 550 SOUND 0,0,0,0:NA=NA+1:IF NA=51 THEN 600 551 POKE 77,0:FC=0:COLOR 32:PLOT 19,9:X=0:AC=0:R=INT(RND(0)*5)+1:ON R GOTO 556,552,553,554,555 552 AS=5:POKE 708,10:AN$="\":RETURN 553 SOUND 0,255,8,14:AS=1:POKE 708,22:AN$="]":RETURN 554 AS=2:POKE 708,222:AN$="^":RETURN 555 SOUND 0,7,8,8:AS=2:POKE 708,56:AN$="_":RETURN 556 AS=3:POKE 708,188:AN$="[":RETURN 600 POSITION 6,5:? #6;"THE END":? #6:? #6;" ":? #6:? #6;" [ \ ] ^ _ " 605 IF PEEK(53279)<>6 THEN 605 609 GOTO 111 1000 DATA 28,42,255,227,247,42,65,162,6,15,31,61,48,32,64,0,48,120,252,222,134,2,1,128 1005 DATA 0,0,0,3,7,79,62,24,0,0,128,224,240,121,62,140 1010 DATA 0,4,10,63,126,252,226,121,0,0,30,135,124,124,130,97,0,0,0,48,123,254,72,132 1020 DATA 4,11,4,252,124,56,8,20,10,14,21,142,138,206,254,124
References
Listing downloads
Downloads
Copyright holder