home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib27b.dsk / RAIN.BASIC.bas < prev    next >
BASIC Source File  |  2023-02-26  |  739b  |  19 lines

  1. 10  REM  **********************  
  2. 20  REM  *     RAIN.BASIC     * 
  3. 30  REM  * BY SCOTT ZIMMERMAN *
  4. 40  REM  * COPYRIGHT (C) 1986 *
  5. 50  REM  * By MICROSPARC, Inc *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************  
  8. 80  REM 
  9. 90  HOME : HGR : HCOLOR= 3
  10. 100 N = 18:M = N: DIM XR(N),YR(N),RF(N)
  11. 110  FOR I = 1 TO N: READ XR(I),YR(I): HPLOT XR(I),YR(I): NEXT I
  12. 120  FOR I = 1 TO M
  13. 130  IF RF(I)  THEN 170
  14. 140  HCOLOR= 0: HPLOT XR(I),YR(I): HCOLOR= 3
  15. 150 YR(I) = YR(I) +1: IF YR(I) >159  THEN RF(I) = 1:N = N -1: ON N = 0 GOTO 180: GOTO 170
  16. 160  HPLOT XR(I),YR(I)
  17. 170  NEXT I: GOTO 120
  18. 180  TEXT : HOME : END 
  19. 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