Atari 65XE, Owner'S Manual

Page: 91 / 135

UNITED STATES FLAG
This program involves switching colors to set up the stripes. It uses
graphics mode 7 plus 16 so that the display appears as a full screen.
Note the correspondence of the COLOR statements with the
SETCOLOR statements. For fun and experimentation purposes, add a
SOUND statement and use a READ/DATA combination to add "The
Star Spangled Banner" after line 470.
10 REM D R A W THE UNITED STATES FLAG
20 REM HIGH RESOLUTION 4-COLOR G R A P H I C S , NO T E X T W I N D O W
30 GRAPHICS 7+16
40 REM SETCOLOR 0 CORRESPONDS TO COLOR 1
50 SETCOLOR 0 , 4 , 4 : R E D = 1
60 REM SETCOLOR 1 CORRESPONDS TO C O L O R 2
70 SETCOLOR 1,0,14:WHITE=2
80 REM SETCOLOR 2 CORRESPONDS TO COLOR 3
90 BLUE=3:REM DEFAULTS TO BLUE
100 REM DRAW 13 RED & WHITE STRIPES
110 C = R E D
120 FOR 1=0
TO 12
130 COLOR C
140 REM EACH STRIPE HAS S E V E R A L HORIZONTAL LINES
150 FOR J=0
TO 6
160 PLOT 0,I*7+J
170 D R A W T O 159,I*7+J
180 N E X T J
190 REM S W I T C H COLORS
200 C=C+1:IF C>WHITE THEN C=RED
210 N E X T I
300 REM D R A W B L U E R E C T A N G L E
310 COLOR B L U E
320 FOR I=0
TO 48
330 PLOT 0,I
340 D R A W T O 79,I
350 NEXT I
360 REM D R A W 9 ROWS OF WHITE STARS
370 COLOR WHITE
380 K=0:REM START WITH ROW OF 6 STARS
390 FOR I=0 TO 8
395 Y=4+I*5
400 FOR J=0 TO 4:REM 5 STARS IN A ROW
410 X=K+5+J*14:GOSUB 1000
420 NEXT J
430 IF K < > 0 THEN K=0:GOTO 470
86