Atari 800 Basic Reference Manual

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 FLA I ~=FLAi~+ 2: IF FLA1~=5 THEf·~ FLA(.;= 1
240 ~~ETUr;!:ll
300 IF F.~f·iD( f1 > > (~ . 5 THEf · ~ ~~E T U F ~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 CO L= 1 ;::
410 RETURt ·l
Appendix H-11

Atari 800 Specifications

General

Processor	MOS Technology 6502
Processor Speed	1.79 MHz
ROM	10 KB
Graphics	ANTIC and GTIA chips
Release Year	1979
Display Resolution	up to 320 x 192
Colors	128 colors
Sound	4 channels
Storage	Cartridge, cassette, floppy disk
Ports	Cartridge, serial, monitor
Operating System	Atari OS