News Games Software Hardware Books Demos Graphics Source code Ref. cards PC tools Links My projects Atari family Collection Guestbook Contact
Random game
Random game
Random game
Back button image

Atari 8-bit Source code
  • Entry name:
     GTIA Part 1 - Listing 2 
  • Category:
    Graphics
  • Publisher/Developer:
    SoftSide Publications
  • Year:
    1983
  • Code:
    Alan J. Zett
  • Programming language:
    Atari BASIC
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
References
https://lbaeza.neocities.org/frontier/frontier_5.html
https://atariage.com/forums/topic/338182-exploring-the-atari-frontier/
Listing downloads

Copyright holder
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!