Atari 600XL

• Program One:
10 GRAPHICS 11
20 LL= 191
30 RL= 79
40 FOR ZEBRA=O to 48
50 REM GTIA HIW Ay* FAST LANE*
60 COLOR ZEBRA
70 PLOT RL,LL
80 DRA WTO 0, °
90.RL=RL-1
100 NEXT ZEBRA
110 GOTO 110
120 END
Type RUN, press RETURN, and watch it go!
• Program Two
10 GRAPHICS 7 + 16: SETCOLOl.{ 4, 0, 0: SET COLOR
1, 0, 4 .
20 COLOR 2
30 PLOT 2, 2: DRAWTO 30, 34: DRAWTO 78, 40:
DRAWTO 100,57: DRAWTO 110,50: DRAWTO 140,76
40 FOR LIGSOU = 1 TO 255
50 SOUND 0, LIGSOU, 8, 10
60 IF LIGSOU =8 THEN SETCOLOR 1,0,14
70 NEXT LIGSOU
80 SETCOLOR 1,0,0
90 FOR DE = 1 TO 200: NEXT DE
100 GOTO 10
• Program Three
To get the arrow) in this program, press ESCAPE
once, then hold down CONTROL and press CLEAR.
Then close the quote.
10 PRINT ")": DIM NAME$ (20) : POSITION 2,7
20 PRINT "TYPE IN YOUR NAME AND PRESS THE
RETURN KEY"
30 POSITION 4, 12: PRINT "NAME";: INPUT NAME$
40 GRAPHICS 2+16
50 POSITION (20-LEN (NAME$))/2,4: REM CENTERS
THE NAME
60 PRINT #6; NAME$ .
70 POSITION 1, 7: PRINT #6; "IS A FLASHY PERSON":
REM TYPE "IS A FLASHY PERSON" 1N INVERSE
VIDEO
80 FOR FLIP=O TO 20
90 FOR FLASH=O TO 14
100 SETCOLOR 0, 0, FLASH: SOUND 0, FLASH, 10, 10
110 NEXT FLASH '
120 FOR DELAY = 1 TO 20: NEXT DELAY
130 NEXT FLIP
140 SETCOLOR 0, 0, 14: SOUND 0, 0, 0, °
150 FOR DELAY = 1 TO 1000: NEXT DELAY
160 SETCOLORO, 0, 0: SETCOLOR 2,·0, °
. 170 FOR DELAY = 1 TO 800: NEXT DELAY
) 180 RUN
190 END
Type RUN again and press RETURN.
.16