home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib37b.dsk / STAR.bas < prev    next >
BASIC Source File  |  2023-02-26  |  244b  |  14 lines

  1. 5  HOME 
  2. 10 Y = 30
  3. 20  IF Y = 0  THEN 10
  4. 30  HGR2 
  5. 40  FOR T = 1 TO Y
  6. 50 C =  INT( RND(1) *7)
  7. 60  HCOLOR= C
  8. 70 U =  INT( RND(1) *279)
  9. 80 W =  INT( RND(1) *191)
  10. 90  HPLOT 139,95 TO U,W
  11. 100 R =  PEEK( -16336)
  12. 110  NEXT T
  13. 120 Y = Y -1
  14. 130  GOTO 40