home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib27b.dsk
/
RAIN.BASIC.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
739b
|
19 lines
10 REM **********************
20 REM * RAIN.BASIC *
30 REM * BY SCOTT ZIMMERMAN *
40 REM * COPYRIGHT (C) 1986 *
50 REM * By MICROSPARC, Inc *
60 REM * CONCORD, MA 01742 *
70 REM **********************
80 REM
90 HOME : HGR : HCOLOR= 3
100 N = 18:M = N: DIM XR(N),YR(N),RF(N)
110 FOR I = 1 TO N: READ XR(I),YR(I): HPLOT XR(I),YR(I): NEXT I
120 FOR I = 1 TO M
130 IF RF(I) THEN 170
140 HCOLOR= 0: HPLOT XR(I),YR(I): HCOLOR= 3
150 YR(I) = YR(I) +1: IF YR(I) >159 THEN RF(I) = 1:N = N -1: ON N = 0 GOTO 180: GOTO 170
160 HPLOT XR(I),YR(I)
170 NEXT I: GOTO 120
180 TEXT : HOME : END
190 DATA 22,0,28,18,224,5,56,3,182,24,238,17,210,20,112,14,196,14,140,42,154,5,168,2,70,10,126,16,98,4,17,10,84,21,252,0