A.
Sample
Programs
Your
ATARI
Computer can work miracles with a little help from your
imagination and the right programming techniques. These sample pro-
grams will show off the versatility of your
ATARI
130XE and motivate
you to try writing some programs yourself.
Just type
in
each program exactly
as
written, pressing 1 Return 1 at the
end of every
line. When you '
re
finished, type the word RUN, press
1 Return
I,
and watch your
ATARI
Computer come to life.
Note: When spacing
in
program lines
is
critical, a note at the bottom
of the program
will specify the exact number of spaces needed.
THE ATARI CHOO·CHOO
Sound effects are
an
ATARI
specialty. If you close your eyes when
you
run
ATARI
Choo-Choo, you might think you're
on
the Marrakesh
Express.
1.0
POKE
7154
..
255:
POKE
580
.•
1.
20
GRAPHICS
1.
7:
POKE
71.2
..
1.48:
POSITION
1.
..
1.0:
PRINT
~fj;
"THE
ATARI
CHOO-CHOO"
30
FOR
X=1.5
TO
0
STEP
-1.-P:
SOUND
1.
..
0
..
0
..
X
40
R=INT(RND
(0)*300)+1.
50
IF
R=30
THEN
SOUND
3
..
315
..
1.0
..
1.0:
SOUND
2
..
48
..
1.0
..
1.0:
GOSUB
~O:
SOUND
3
..
0
..
0
..
0:
SOUND
2
..
0
..
0
..
0
150
NEXT
X:
P=P+O.
03
70
IF
P}=5
THEN
P=5
80
GOTO
30
~o
POKE
77
..
0:
POSITION
8
..
1.2:
PRINT
~fj;
"1:001:":
FOR
A=1.
TO
400:
NEXT
A:
POSITION
8
..
1.2:
PRINT
~6;
"
":RETURN
Note: Line
90
requires four blank spaces between the quotation
marks.
79
To Next Page
Loading...
Need help?
General
