Atari 65XE Owner's Manual page 95

SEA GULL OVER OCEAN
This program combines graphics and sounds. The sounds are not
"pure" sounds; they simulate the roar of the ocean and the gull's cry.
To get the symbols
10 DIM BIRD$(4)
20 BIRD$="\/--"
30 FLAG=1:ROW=10:COL=10
40 GRAPHICS l:POKE 756,226:POKE 752,1
50 SETCOLOR 0,0,0:SETCOLOR 1,8,14
60 PRINT #6;"
70 R=INT(RND(0)*11)
80 POSITION 17,17
90 FOR T=0 TO 10
100 SOUND 0,T,8,4
110 FOR A=1 TO 50 : NEXT A
120 IF RND(0)>0.8 THEN FOR D=10 TO 5 STEP -1:SOUND
1,0,10,INT(RND(0)*10) :NEXT D: SOUND 1,0,0,0
130 GOSUB 200
140 NEXT T
150 FOR T=10 TO 0 STEP -1
160 SOUND 0,T,8,4
170 FOR A=1 TO 50 : NEXT A
175 IF RND(0)>0.8 THEN FOR D=10 TO 5 STEP
-1:SOUND 1,D,10,8:NEXT D:SOUND 1,0,0,0
180 FOR H=1 TO 10:NEXT H
185 GOSUB 200
190 NEXT T
195 GOTO 70
200 GOSUB 300
210 POSITION C O L , R O W
220 PRINT #6;BIRD$(FLAG,FLAG+1)
230 FLAG=FLAG+2:IF FLAG=5 THEN FLAG=1
240 RETURN
300 IF RND(0)>0.5 THEN RETURN
310 POSITION C O L , R O W
320 PRINT #6;"
330 A=INT(RND(0)*3)-1
340 B=INT(RND(0)*3)-1
350 R O W = R O W + A
360 IF ROW=0 THEN ROW=1
370 IF ROW=20 THEN ROW=19
380 COL=COL+B
390 IF COL=0 THEN COL=1
400 IF COL>18 THEN COL=18
410 RETURN
Note: Two spaces are required between the quotation marks in
line 320.
in line 20, use
the ocean"
"
90