Atari 65XE, Owner'S Manual

Page: 95 / 135

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 g u l l ' s cry.
To get the symbols in line 20, use
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 P R I N T #6;" the o c e a n "
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: S O U N D 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 N E X T T
195 GOTO 70
200 GOSUB 300
210 POSITION C O L , R O W
220 PRINT #6;BIRD$(FLAG,FLAG+1)
230 F L A G = F L A G + 2 : I F F L A G = 5 THEN F L A G = 1
240 R E T U R N
300 IF RND(0)>0.5 THEN R E T U R N
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 C O L = C O L + B
390 IF COL=0 THEN COL=1
400 IF COL>18 THEN COL=18
410 R E T U R N
Note: Two spaces are required between the quotation marks in
line 320. 90