home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25b.dsk / RANDOM.LIST.bas < prev    next >
BASIC Source File  |  2023-02-26  |  603b  |  24 lines
  1. 10  REM  **********************
  2. 20  REM  *    RANDOM.LIST     *
  3. 30  REM  *   BY PAUL RAYMER   *
  4. 40  REM  *  NIBBLE SEPT 1985  *
  5. 50  REM  * COPYRIGHT (C) 1985 *
  6. 60  REM  * BY MICROSPARC, INC *
  7. 70  REM  * CONCORD, MA  01742 *
  8. 80  REM  **********************
  9. 90 R =  INT(5 * RND(1)) +1
  10. 100  ON R GOSUB 120,150,180,210,240
  11. 110  GOTO 90
  12. 120  SPEED= 200
  13. 130  LIST  -140
  14. 140  SPEED= 255: RETURN 
  15. 150  SPEED= 150
  16. 160  LIST 150 -170
  17. 170  SPEED= 255: RETURN 
  18. 180  SPEED= 100
  19. 190  LIST 180,200
  20. 200  SPEED= 255: RETURN 
  21. 210  SPEED= 50
  22. 220  LIST 210 -
  23. 230  SPEED= 255: RETURN 
  24. 240  PRINT : PRINT  CHR$(7);"END": END