Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Posting-Version: version B 2.10.1 6/24/83; site proper.UUCP Path: utzoo!linus!decvax!tektronix!hplabs!nsc!proper!ksj From: ksj@proper.UUCP (Kent Johnson ) Newsgroups: net.micro.apple Subject: Graphics diversion for Mac 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