Atari 800

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),Y C J) , COLR(3)
128 ·{
11
USE JO\'STICf:S TO DF.:A~ ·J F'ICTUF : E:;"
129 7 "PRE :: s BUTTO t-4 :3 TO CHA r· iGE C OLO~ ~ : :;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 "BLA CK LOCATIOi·i IS H iD ICATED 8\' A
BR I EFFLASH OF ~ : ED . II
136 ? II Ui GF.:APH!C3 8 .. . _i Q'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:: ; (32 t1 >=: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: 'itt Y :=-=:=96: C~C IT O 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 · 1A:{,..2+ I : t·iE)::T I: REt-1 ~:TAIH H EAR CH F 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 SETCOL O F.: L 9, 14: ~~Et-1 LT . BLUE
165 GOTO 1:3t1
166 FOR I=0 TO 2: CO L R(! >=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