Atari 800

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.'Et-iT :3G!UA PE 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"1E r· lT
342 COLOF.: COL F. :< I ) : RH1 t"1At<E :3UPE CO LOP 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 · 1A>:: THEJ.,~ \\ I )=
0 : REt1 t·101..JE DOi·lr · ~
460 GOTO 500
470 IF .JO'lW < >6 AHD .JO'/H~ < > ltl Al · iD . _iO' /It · V:
> 14 THHi ~.00
480 'r'( I >='r'( I )-1 : IF ' l( I )( 0 THEt·~ '/( I >= ' r'I'1A:::;
-1 : REM r· 10 !..J E UP
500 PLOT ::·::( I >) ''l( i )
530 NE::<T I
535 t· iE: h :T .J
540 GOTO 295
Appendix H-13