Atari 800XL

o ram One
10 GRAPHICS 11
20 LL= 191
30 RL=79
40 FOR ZEBRA = ° TO 48
50 REM GTIA HIW AY*FAST LANE*
60 COLOR ZEBRA
70 PLOT RL,LL
80DRAWTO 0, °
90 RL=RL-l
100 NEXT ZEBRA
110 GOTO 110
120 END
Type RUN, press RETURN, and watch it go!
r.ogramTwo
10 GRAPHICS 7 + 16: SETCOLOR 4, 0, 0:
SETCOLOR 1, 0, 4
20 COLOR 2
30 PLOT 2, 2: DRA WTO 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
Type RUN, press RETURN, and watch it go!
am Three
To get the arrow ) in this program, press ESCAPE,
then hold down CONTROL and press CLEAR. Don't
forget to 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" IN
INVERSE VIDEO
80 FOR FLIP = ° TO 20
90 FOR FLASH =0 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 SETCOLOR 0, 0, 0: SETCOLOR 2, 0, °
170 FOR DELAY = 1 TO 800: NEXT DELAY
180 RUN
190 END
Type RUN again and press RETURN.