Atari 400 Basic Reference Manual page 106

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 cor-
respondence of the COLOR statements with the SETCOLOR statements. For fun
and experimentation purposes, add a SOUND statement and use a READ
IDA
T A
combination to add "The Star Spangled Banner" after line 470. (Refer to Section
10.)
10
~:Et-1
DR8l·J THE
Ut~ITED
STATE:; FLAG
20
F~EM
HIGH
F.:ESOUJTiot-~
4-COLOR GRAPHICS}
NO
TE:~T ~Ht·~OOl·l
30 GRAPHICS 7+16
40 REt1 SETCOLOR ~) CORPE~;POt-tD:; TO COLOR 1
50
SETCOLOR e,4J4=RE0=1
60
F~Ef1
SETCOLOR 1
COR~:ESFCir·m:;
TO COLOR 2
70 SET COLOR L
tL
14
=
~·JH
!TE =2
80
F~Et1
!3ETCOLOR 2
COF.:RE::;POt·~DS
TO
COLO~~
3
90
E:LUE=3
=
REt-1 DEFAULTS TO BLUE
100 F£r· 1
DRA~·J
13
~~EO :~: ~JHITE
f:TPIF'E:3
110 C=RED
120 FOR !=0 TO 12
133
COLO~:
C
140 REt1 EACH STP I PE HA:S ::;El..JERAL HOP I ZOHT
AL
Lit~E:;;
150 FOR J=0 TO 6
160 PLOT 0 . . I::;: : 7+.J
170 ORAWTO 159}I*7+J
180
~~E>~T .J
190 REt1 3mTCH COLOF.::::
200 C=C+1 =IF
C >~JHITE
THHi C=F.:EO
210 ~~E:)::T I
300
RB-1 DRAL·J BLUE PECTA!·iGLE
310
COLO~:
BLUE
320 FOR I =0 TO 48
330 PLOT
I)J
I
34(1 DRAL·JTO 79 .. I
350 ~~E:);:T I
360 REt·1 DRAl·J 9 ROl·JS OF
~·JH
I TE :3TAF.:3
370
COLOF~ ~JHITE
380 K=0=1':8· 1 START mTH
Rm·J
OF
6
STARS
390 FOR I =0 TO 8
395 Y=4+ I
:~5
400 FOF.: .J=O TO 4
=
REt-1 5 STARS I r·i A F. : Ol·J
410 :>::=K+5+J~=:14
=
G0:3UB 1€n30
420
~~E:~~T J
430 IF K< >0 THEH K=0
=
GOTO 470
440
RE~1
ADO 6TH STAP
EUE~:'r'
OTHER L HiE
450
>~=5+5:t~14:
GOSUB
l~XtO
460 K=7
470
~iE>::T
I
500 RB1 IF KEY HIT THEH :3TOP
Appendix
H-9