Random demo
Random demo
Player/Missile Connection: Part I - Listing 1 Player/Missile Connection: Part I - Listing 1 Player/Missile Connection: Part I - Listing 1 Player/Missile Connection: Part I - Listing 1 Player/Missile Connection: Part I - Listing 1
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  

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!