home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32b.dsk / RNDGEN.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  456b  |  15 lines
  1. 1  REM  **********************
  2. 2  REM  * RNDGEN.DEMO        *
  3. 3  REM  * BY ROGER WAGNER    *
  4. 4  REM  * COPYRIGHT (C) 1987 *
  5. 5  REM  * BY MICROSPARC, INC *
  6. 6  REM  * CONCORD, MA  01742 *
  7. 7  REM  **********************
  8. 10  PRINT  CHR$(4);"BLOAD RND.GENERATOR,A$300"
  9. 20 R = 159: DIM N(R): POKE 8,R
  10. 30  HGR : HCOLOR= 3
  11. 40  CALL 768
  12. 50 RN =  PEEK(6) +1: REM  ROUND UP, ELIMINATE ZERO
  13. 60 N(RN) = N(RN) +1: IF N(RN) >279  THEN  END 
  14. 70  HPLOT N(RN),RN
  15. 80  GOTO 40