Sea Gull Over Ocean - Atari 130XE Owner's Manual

SEA GULL OVER OCEAN
This program combines graphics and sounds. The sounds are not
" pure " sounds; they simu late the roar of the ocean and the gull 's cry.
To get the symbols in line 20 , use
rconI!OIJ
[Q],
I
Cantral l
[f] ,
I
Cantrall
[B],
I
Control]
[B].
1.9 DIM BIRD$ (4)
29 BIRD$="'/--"
39FLAG=1.:ROW=1.9:COL=1.9
49 GRAPHICS 1. : POKE 756 .. 226: POKE 752 .. 1.
59 SETCOLOR 9 .. 9 .. 9: SETCOLOR 1. .. 8 •• 1.4
69 PRINT U6; " "the ocean"
79 R=INT(RND(9)*1.1.)
89 POSITION 1.7 .. 1.7
'39 FOR T=9 TO 1.9
1.99 SOUND 9 .. T .. 8 .. 4
1.1.9 FOR A=1. TO 59: NEXT A
1.29 IF RND(9)9.8 THEN FOR D=1.9 TO 5 STEP -1.:S0UND
1. .. 9 .. 1.9 .. INT(RND(9)*1.9) :NEXT D: SOUND 1. .. 9 .. 9 .. 9
1.39 GOSUB 299
1.49 NEXT T
1.59 FOR T=1.9 TO 9 STEP -1.
1.69 SOUND 9 .. T .. 8 .. 4
1. 79 FOR A=1. TO 59: NEXT A
1. 75 IF RND (9)9.8 THEN FOR D=1.9 TO 5 STEP
-1.:S0UND 1. .. D .. 1.9 .. 8:NEXT D:SOUND 1. .. 9 .. 9 .. 9
1.89 FOR H=1. TO 1.9: NEXT H
1.85 GOSUB 299
1. '39 NEXT T
1. '35 GOTO 79
299 GOSUB 399
21.9 POSITION COL .. ROW
229 PRINT U6;BIRD$(FLAG .. FLAG+1.)
239 FLAG=FLAG+2 : IF FLAG=5 THEN FLAG=1.
249 RETURN
399 IF RND (9)9.5 THEN RETURN
31.9 POSITION COL .. ROW
329 PRINT U6; "
339 A=INT(RND(9)*3)-1.
349 B=INT(RND(9)*3)-1.
350 ROW=ROW+A
369 IF ROW=9 THEN ROW=1.
379 IF ROW=29 THEN ROW=1. '3
389 COL=COL+B
3'39 IF COL=9 THEN COL=1.
499 IF COL)1.8 THEN COL=1.8
41.0 RETURN
Note: Two spaces are required between the quotation marks in
line 320.
90