Atari 400 Basic Reference Manual page 108

SEAGULL OVER
OCEAN
This program combines graphics and sounds. The sounds are not " pure"
sounds, but simulate the roar ofthe ocean and the gull's "tweet". The graphics
symbols used to simulate the gull could not be printed on the line printer. Enter
the following characters in line 20.
20 BIRD$
= "
V -- "
To get these symbols, use
&miG, &3F,
1!13
R,
1!13
R.
10 Dit1 BIRD$( 4)
20 BIPD$=
11
u
30 FLAG=1 :
F~Ol·J=10:
COL=10
40 GRAPHICS 1 : POKE 756 .
. 226 : FOKE 752.. 1
:.e
:3ETCOLO~:
0 ..
(1,
0 : :3ETCOLOR 1 . .
:3 .· 14
60 PR It-H #6 _ ;
11
the (u:ean"
70 R=UH(
F.:t·[!(
0 ; . : : ; : : 11)
8J.J POSIT IOt·~
17, 1 7
90 FOR T=0 TO 10
100 SOUt·iD 0 .. i, 8. 4
110 FOR A=l TO 50 :
t·JE::<T
A
120 IF F.:t-40(
~:n ::{J.
8
THE~·4
FOP D=l€1 TO 5 STE
P -1: SOUr·~D 1, 0,
1(1 ..
It-H< PhD( ~3 )::;::1 0 )
=
t·iC<T D:
:;ou~Jo 1 .. ~J ..
o . .
0
130
GO: : ;UE: 20(1
140
~iE:>=:T T
150 FOR i=10 TO 0 STEP -1
160 SOUND 0,T , 8,4
170 FOR A= 1 TO 50 : t· E =<T A
175 IF F.:t-lOOJ ) >0 . :3 THEt-4
FO~:
0= 10 TO 5 STE
P -1 : :::OUt·40 1 . . 0, 10 .. 8 : t·j£::<T 0 : SOUHD 1 .. 0 . . 0 . . 0
180 FOF.: H=l TO
1f1:
t·~E::·::T
H
185 GOSUE: 20(1
190 HE>::T T
195 GOTO 70
200 I:;OSIJ8
3(1(1
210
F·o~;
I T I
Of·~
COL ·'
ROl~J
22~~1 PF.~!t·~T
#6 . ; EIRn:t<
FLAG.~
FLAG+1 >
230 FLAI~=FLAi~+ 2: IF FLA1~=5 THEf·~ FLA(.;= 1
240 ~~ETUr;!:ll
300 IF F.~f·iD( f1
>
>
(~
.
5 THEf·~ ~~E T UF~f·~
310 F'OSI TIOf·i CCL F :Ol·l
320 PF.: I t·iT #6 _;
11
n
330 A= I t·lT(
Pr~D< ~3 >: = t3
> -1
340
E:=
It·iT(
Pf·~C~<
[1 >::;:::3 ) - .1
350 F.:Ql.J=Pm·l+A
360 IF F.:l)l.J=~:1 THH~ Rm·l= 1
370 IF
~:m·J=20
THEri
F.:m·J= 19
380 COL=COL+E:
39€1 IF COL=ra
THH~
COL=l
400 IF COL> 1 :;
THEt4
COL=
1 ;::
410 RETURt·l
Appendix
H-11