Message-ID: <1541@proper.UUCP>
Date: Sun, 26-Aug-84 04:48:57 EDT
Article-I.D.: proper.1541
Posted: Sun Aug 26 04:48:57 1984
Date-Received: Thu, 30-Aug-84 08:32:19 EDT
Organization: Proper UNIX, San Leandro, CA
Lines: 23

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  

		
		
		
Report message to a moderator