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:Player/Missile Connection: Part I - Listing 1
-
Category:Player/Missile graphics
-
Publisher/Developer:SoftSide Publications
-
Year:1983
Listing 1
10 RESTORE:GOSUB 500 20 FOR X=0 TO 35 STEP 2 30 A=A+1:IF A=4 THEN A=1 40 COLOR A 50 PLOT 79-X,Y+6:DRAWTO 79-X,47-Y 60 PLOT 78-X,Y+6:DRAWTO 78-X,47-Y 70 DRAWTO X,47-Y:DRAWTO X,Y+6 80 PLOT X+1,47-Y:DRAWTO X+1,Y+6 90 Y=Y+1:NEXT X:GOSUB 400 100 IF Z>50 THEN GOSUB 400 110 W=INT(RND(0)*2) 120 Z=Z+1:POKE 53248,122+W 130 POKE 704,INT(RND(0)*16)*l6+10 200 AZ=PEEK(708):POKE 708,PEEK(709) 210 POKE 709,PEEK(710):POKE 710,AZ 300 FOR X=0 TO 26:NEXT X:GOTO 100 400 X=INT(RND(0)*16)*16:Z=0 410 POKE 708,X:POKE 709,X+4 420 POKE 710,X+8:RETURN 500 P=PEEK(106)-8:POKE l06,P 510 POKE 54279,P:GRAPHICS 21 520 POKE 559,46:POKE 53277,3 530 POKE 704,0:FOR X=512 TO 768 540 POKE P*256+X,0:NEXT X 550 FOR X=578 TO 584:READ D 560 POKE P*256+X,D:NEXT X 570 POKE 53248,124:FOR X=708 TO 712 580 POKE X,0: NEXT X: RETURN 700 DATA 34,65,93,119,93,65,34
References
Downloads
Copyright holder