[net.micro.apple] Graphics diversion for Mac

ksj@proper.UUCP (Kent Johnson ) (08/26/84)

Here is a short MBASIC program inspired by rain falling in a puddle.
It gets better the longer you watch.  Enjoy!
	--Kent Johnson
	  { decvax!sun!amd, hplabs!nsc, ihnp4!dual } !proper!ksj
============================cut here============================
10 REM Rain, by Kent Johnson
20 REM A graphics diversion.
30 REM
40 RANDOMIZE TIMER
50 CLS
60 IF (RND>.5) THEN COLOR%=33 ELSE COLOR%=30
70 X=RND*490:Y=RND*280
80 OUTER=70*RND
90 STEPSIZE=2*RND^2
100 STEPINC=2.5*RND^2
110 IF STEPSIZE+20*STEPINC<1 THEN STEPINC=STEPINC+.25
120 INNER=(STEPSIZE+STEPINC)*RND
130 I=INNER
140 WHILE I<OUTER
150     CIRCLE (X,Y),I,COLOR%
160     I=I+STEPSIZE: STEPSIZE=STEPSIZE+STEPINC
170 WEND
180 GOTO 60