Atari 130XE

KINETIC ART
Put colors in motion with a program that creates a rainbow of
continually moving lines.
1.9 REM KINETIC ART BV NEIL HARRIS
29 GRAPHICS 1.9
39 DIM A(3 .. 591
35 FOR L=9 TO 3:FOR M=9 TO 59:A(L .. M1=9:NEHT M:NEHT L
49 HUE=INT(RND(1.1*6+1.1: POKE
794+HUE .. INT(RND(1.1*61*1.6+INT(RND(1.1*4+41
59H1.=INT(RND(1.1*691:H2=INT(RND(1.1*691
:V1.=INT(RND(1.1*1.~21:V2=INT(RND(1.1*1.~21
69 COLOR 9: PLOT A(9 .. HHICH1 .. A(1. .. HHICH 1: DRAHTO
A(2 .. HHICH1 .. A(3 .. HHICH1
79 BOUNCE=BOUNCE-1.: IF BOUNCE}9 THEN ~9
69BOUNCE=INT(RND(1.1*1.9+1.91:BH1.=INT(RND(1.1*~-41
:BH2=INT(RND(1.1*~-41:BV1.=INT(RND(1.1*1.3-61
:BV2=INT(RND(1.1*1.3-61
~9 CHANGE=CHANGE-1.: IF CHANGE}9 THEN 1.1.9
1.99CHANGE=INT(RND(1.1*1.9+51:HUE=INT(RND(1.1*6+1.1:POKE
794+HUE .. INT(RND(1.1*2561
1.1.9 COLOR HUE: PLOT H1. .. V 1. : DRAHTO H2 .. V2
1.29A(9 .. HHICH1=H1.:A(1. .. HHICH1=V1.:A(2 .. HHICH1=H2:A
(3 .. HHICH1=V2
1.39 HHICH=HHICH+1.: IF HHICH}59 THEN HHICH=9
1.49 H1.=H1.+BH1.: IF H1.{9 OR H1.>7~ THEN BH1.=-BH1.: GOTO 1.40
1.59 H2=H2+BH2: IF H2{9 OR H2>7~ THEN BH2=-BH2: GOTO 1.59
1.69
V1.=V1.+BV1.:IF V1.{O OR V1.>1.~1. THEN BV1.=-BV1.:GOTO 1.60
1.79 V2=V2+BV2: IF V2{9 OR V2>1.~1. THEN BV2=-BV2: GOTO 1.79
1.60 GOTO 69
91