KINETIC ART
Put colors in motion with a program that creates a rainbow of
continually moving lines.
10 REM KINETIC ART BY NEIL HARRIS
20 GRAPHICS 10
30 DIM A(3,50)
35 FOR L=0 TO 3:FOR M=0 TO 50:A(L,M)=0:NEXT M : N E X T L
40 HUE=INT(RND(1)*8+1):POKE
704+HUE,INT(RND(1)*8)*16+INT(RND(1)*4+4)
50 X1=INT(RND(1)*80):X2=INT(RND(1)*80)
:Y1=INT(RND(1)*192):Y2=INT(RND(1)*192)
60 COLOR 0:PLOT A(0,WHICH),A(1,WHICH) :DRAWTO
A ( 2 , W H I C H ) , A ( 3 , W H I C H )
70 BOUNCE=BOUNCE-1:IF BOUNCE>0 THEN 90
80 BOUNCE=INT(RND(1)*10+10):BX1=INT(RND(1)*9-4)
:BX2=INT(RND(1)*9-4):BY1=INT(RND(1)*13-6)
:BY2=INT(RND(1)*13-6)
90 CHANGE=CHANGE-1:IF C H A N G E > 0 THEN 110
100 CHANGE=INT(RND(1)*10+5):HUE=INT(RND(1)*8+1):POKE
704+HUE,INT(RND(1)*256)
110 COLOR HUE:PLOT X 1 , Y 1 : D R A W T O X2,Y2
120 A ( 0 , W H I C H ) = X 1 : A ( 1 , W H I C H ) = Y l : A ( 2 , W H I C H ) = X 2 : A
(3,WHICH)=Y2
130 WHICH=WHICH+1:IF WHICH>50 THEN WHICH=0
140 X 1 = X 1 + B X 1 : I F X1<0 OR X1>79 THEN BX1=-BX1:GOTO 140
150 X2=X2+BX2:IF X2<0 OR X2>79 THEN BX2=-BX2:GOTO 150
160 Yl=Yl+BY1:IF Y 1 < 0 OR Y1>191 THEN BY1=-BY1:GOTO 160
170 Y2=Y2+BY2:IF Y2<0 OR Y2>191 THEN BY2=-BY2:GOTO 170
180 GOTO 60
91
Содержание 65XE
Страница 1: ...ATARI 65XE PERSONAL COMPUTER OWNER S MANUAL TM...
Страница 3: ...ATARI 65XE PERSONAL COMPUTER TM...
Страница 6: ...Part 1 GettingStarted 1...
Страница 9: ...4...
Страница 23: ...18...
Страница 25: ...20...
Страница 32: ...Part 2 Programming withATARI BASIC 27...
Страница 33: ...28...
Страница 59: ...54...
Страница 69: ...64...
Страница 82: ...Part3 Appendices 77...
Страница 83: ...78...
Страница 97: ...92...
Страница 105: ...100...
Страница 125: ...120...
Страница 126: ...121 Index...
Страница 127: ...122...
Страница 134: ...ATARI 1987 Atari Corp All Rights Reserved Printed in Taiwan C072018 001 REV B K l 2 1987...
Страница 135: ......