Atari 130XE User Manual

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 READIDATA combination to add "The
Star Spangled Banner" after line 470.
1.0 REM DRAW THE UNITED STATES FLAG
20 REM HIGH RESOLUTION 4-COLOR GRAPHICS .. NO TEXT WINDOW
30 GRAPHICS 7+1.6
40 REM SETCOLOR 0 CORRESPONDS TO COLOR 1.
50 SETCOLOR 0 .. 4 .. 4: RED=1.
60 REM SETCOLOR 1. CORRESPONDS TO COLOR 2
70 SETCOLOR 1. .. 0 .. 1.4: WHITE=2
80 REM SETCOLOR 2 CORRESPONDS TO COLOR 3
'J0 BLUE=3 : REM DEFAUL TS TO BLUE
1.00 REM DRAW 1.3 RED & WHITE STRIPES
1.1.0 C=RED
1.20 FOR I=0 TO 1.2
1.30 COLOR C
1.40 REM EACH STRIPE HAS SEVERAL HORIZONTAL LINES
1.50 FOR J=0 TO 6
1.60 PLOT 0 .. I*7+J
1.70 DRAWTO 1.5'J .. I*7+J
1.80 NEXT J
1. 'J0 REM SWITCH COLORS
200 C=C+1.: IF C)WHITE THEN C=RED
21.0 NEXT I
300 REM DRAW BLUE RECTANGLE
31.0 COLOR BLUE
320 FOR I=0 TO 48
330 PLOT 0 .. I
340 DRAWTO 7'J .. I
350 NEXT I
360 REM DRAW 'J ROWS OF WHITE STARS
370 COLOR WHITE
380 K=0: REM START WITH ROW OF 6 STARS
3'J0 FOR I=0 TO 8
3'J5 V=4+I*5
400 FOR J=9 TO 4: REM 5 STARS IN A ROW
41.0 X=K+5+J*1.4: GOSUB 1.000
420 NEXT J
430 IF K<)0 THEN K=0: GOTO 470
86

Atari 130XE Specifications

General

Brand	Atari
Model	130XE
Category	Desktop
Language	English