Random demo
Random demo
Random demo
GTIA Part 1 - Listing 2 GTIA Part 1 - Listing 2 GTIA Part 1 - Listing 2 GTIA Part 1 - Listing 2 GTIA Part 1 - Listing 2 GTIA Part 1 - Listing 2 GTIA Part 1 - Listing 2 GTIA Part 1 - Listing 2
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  

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!