Atari 400 Basic Reference Manual page 109

VIDEO
GRAFFITTI
H-12 Appendi.r
This program requires
a
joystick Controller for each player. Each joystick has
one color associated with it. By maneuvering the joystick, different patterns are
created on the screen. Note the use of the STICK and STRIG commands.
1 GRAPHICS 0
2 ?
11
l)!DEO GRAFFITI"
5 REr1 ';:'•'.' · ··
..-·.c·~·H·····'C
Hl-'LO
l-.,-IfJl:•f!T
1 · 1
H···rr·:·
. , ,ij.
I Hr:.r:. l
·J
_1 _, _, , ....... •
!'1.
C, • ..;
6 REt1 FOR up TO 4
Pu~··~'H:::; •
Po:::ITIOt·E .
.,. REM
t"'QLC• ......
,r: .... '··'
Hl" j '
o· = ·
.-.,-,L· U· - r-.c
( ' . . . . . . r:.
Hl':.r- , H
I
j_
·..J
1_.-
r: ..••.
10 DIM AS(l),X(3),YC J), COLR(3)
128 ·{ 11
USE JO\'STICf:S TO DF.:A~·J F'ICTUF:E:;"
129
7
"PRE::s BUTTOt-4:3 TO CHAr·iGE COLO~~::;u
130 ?
II
HHTIAL COLOR3:
II
131 ·-;-
".JOY:3TICI< 1 IS REO'!
132 ? ".JOYSTICK 2 IS l·JHITE"
133
7
II
JO'lSTI Cl< 3 Is BLUP
134
?
".JOYSTICK 4 Is BLACK (
BACKGROUr·~D
;. "
135
7
"BLAC K LOCATIOi·i IS HiD ICATED 8\' A
BR I EFFLASH OF
~:ED
.
II
136 ?
II
Ui GF.:APH!C3 8 . . . _iQ'y':3TICKS 1 AtiD 3
ARE lJH ITE
At·iD
4 Is BLUE .
II
138 PR I t·H
II
HOW t·1Atf( PLA\'ERS (
1-4 )
II
j
139 INPUT A$: IF LHK A$ )=0 THE~-~ A$=
11
1
11
140 JO'lt1A:):::I..JAL( A$ )-1
145
IF .JO'rl1A::<<f1 OF: .JO\l1 A><>=4 THEt-i
138
14 7 PR I t·lT
H
I~F~APH I
cs
3 ( 40>~24 )
J
5 (
f:f1>::4::: )
II
I
15(t
F'Rlt·~T
u7
(16(1>::96).~
OR::; (32t1>=:192)n;
152
INPUT
A$:
IF
LEt·KA$ )=0 THEJi A$="3 11
153 A=UAL(
A$ )
154 IF A=3 THEt·i
>=:r1A::·::=4~) :
\'l1A> : : =24 : GOT!) 159
156 IF A=? THEfi >=:MA: = -::=160: 'ittY :=-=:=96:
C~CITO
15
9
157 IF A=8
TH8-~ : - ~t1A::<=320:
\'i1A::< =192: GO TD 1
59
158 GOTO
147:
F~~1
A
t·iOT !JALIO
159 GRAPHICS A+16
160 FOR !=0 TO
.JO'-r't'1A>~ :
::{(I
>=>~MA>:>'2+
I:\\ I>
=Yr· 1 A:{,..2+ I : t·iE)::T I: REt-1 ~:TAIH H EAR CHF ER 0
F SCF.:EEH
161 IF A< >:3
THEf-i 166
162 FOR I=e TO
2 :
COlR( I
)=1 : NE: : H
I
163 SETCOLO F. : L 9, 14: ~~Et-1 LT .
BLUE
165 GOTO 1:3t1
166 FOR I=0 TO 2: COLR(!
> =I
+1: HE:: O ::T I
167
SET
COLO~~
0, 4, 6 : PEt1 RED
168
SETCOLO~:
L ti..14
=
RHl
~·~HITE
180
COL~:<
3
)=~3
295
FO~:
.J=0 TO 3