Atari 400 Basic Reference Manual page 110

330 FOR I=0 TO .JO' - :-l1A>::: RH1 CHECK .JO'l:3TICK
3fJ5 REM CHECK TR I GGEk:
310 IF STF.:IG( I ) THEN 321
311 IF A< >8 THHi 320
312 COLP( I )=COLF.\ I )+1: IF
COL~\
I >=2
THH~
COLR< I )=0 : PEt·1 2-CJJLOR f'lODE
313 GOTO 321
320 COLF.:< I )=COLF.:< I
) +
1 : IF COL~\ I ) >=4
THHi
COLF.:( I >=0 : REt"1 4-COLOF.: t·10DE
321 IF .J>0 THE~-~ C:OLO~~
1::0LF.\
I):
GOTO 325
3"2"2 IF COLR( I
)=0 THEf.i
COLO~: 1 : GOTO 325
323 COLOR
(1 :
F. : Et-1 E:L WK CUF.:F.' E t-iT :3G!UAPE
Ofi
At·[! OFF
325 F'LOT
:j::(
I ) . .
'y\
I )
330 JOY I
t·~=ST
I CK( I ) : REi' 1
~:EAD
.JO'·t3T
I
CK
340 IF .JO'r' I
t·i=
15 THEt·~ 530 : F.:Ei"1 t·~O r·1Ci!.)Er"1Er·lT
342 COLOF.: COL F. : < I ) : RH1 t"1At<E :3UPE COLOP IS
0~~
344 PLOT ::·~(
I )
J
'l( I )
350 IF ..JO''l!H>=8 THEt-i 390
360
::<<
I
)=::·::(
I
>+
1 : F.:Et"1 r·10UE F.JGHT
365 F.:En IF OI.JT OF RAHGE THP.i
l·iF:AF'A~:OU~-m
370 IF ::<(I
)>=:~::t-1A::-:: T~£N
;:0::(
I )=0
380 GOTO 43~3
390 IF . . . . IO'lH-1>=12 THEH 430
400
::0::(
I )=:,::( I >-1 : F.:Et·1 t·1Ql.JE LEFT
410 IF
::·=:<
I
)<
0 THEt·i
::<(
I
)=>=:r·1A:=<
-1
430 IF .JO'l Hi<
>
5
Ar·~fi
.JC'i Hi<
>
9 AHn
._!!)'r'
IN<
>
13
THEt·i
470
443 \\ !
)=ll(
I
) +
1 : IF Y< I ) : : : ·=\'t· 1 A>::
THEJ.,~
\\ I
)=
0 : REt1 t·101..JE DOi·lr· ~
460 GOTO 500
470 IF .JO'lW< > 6 AHD
.JO'/H~<
>ltl Al· i D ._iO' / It·V:
>
14 THHi
~.00
480
'r'(
I >='r'( I )-1 : IF ' l ( I )( 0 THEt·~ '/( I
>='r' I ' 1 A:::;
-1 : REM
r· 1 0!..JE
UP
500 PLOT ::·::( I
> )
''l(
i )
530
NE::<T
I
535 t·iE:h :T
.J
540 GOTO 295
Appendix
H-13