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:GTIA Part 1 - Listing 2
-
Category:Graphics
-
Publisher/Developer:SoftSide Publications
-
Year:1983
Listing 1
10 CLR:GRAPHICS 9 20 FOR X=0 TO 69 STEP 10 30 C=0:COLOR 0 40 FOR Y=90 TO 189 STEP 3 50 PLOT X,Y:DRAWTO X+10,200-Y 55 C=C+0.42000000000000004:IF C>15 THEN C=0 56 COLOR C 60 NEXT Y:NEXT X:C=0 70 GOSUB 145:C=C+1:POKE 712,C*16 80 IF C<15 THEN 70 100 CLR:GRAPHICS 9:Y=0 110 Y=Y+1:COLOR 15-INT(Y/12) 120 PLOT 0,Y:DRAWTO 79,Y 130 IF Y<191 THEN 110 140 C=0:GOTO 160 145 P=PEEK(53279):IF P=7 THEN 145 150 P=PEEK(53279):IF P=7 THEN RETURN 155 POKE 53279,0:GOTO 150 160 GOSUB 145:C=C+1:POKE 712,C*16 170 IF C<15 THEN 160 200 GRAPHICS 10:FOR X=4 TO 11:POKE X+701,X*16+6:NEXT X:CLR 210 COLOR 1 220 FOR X=0 TO 69 STEP 10:C=1 230 FOR Y=80 TO 190 STEP 3 240 PLOT X,Y:DRAWTO X+10,200-Y 250 C=C+0.16:IF C>7 THEN C=1 260 COLOR C 270 NEXT Y:NEXT X 280 A=PEEK(705):FOR X=706 TO 712:POKE X-1,PEEK(X):NEXT X:POKE 712,A:IF PEEK(53279)=7 THEN 280 300 GRAPHICS 11:CLR:POKE 712,4 305 X=-1 310 X=X+1:COLOR INT(X/5) 315 IF X/5=INT(X/5) THEN COLOR 0 320 PLOT X,0:DRAWTO X,191 330 IF X<79 THEN 310 340 IF PEEK(53279)=7 THEN 340 400 GRAPHICS 11:CLR:POKE 712,2 405 Y=-1 410 Y=Y+1:COLOR INT(Y/12) 415 IF Y/12=INT(Y/12) THEN COLOR 0 420 PLOT 0,Y:DRAWTO 79,Y 430 IF Y<191 THEN 410 440 IF PEEK(53279)=7 THEN 440
References
Downloads
Copyright holder