home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / spaceart.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  437 b   |  20 lines
  1. 10    rem *** SPACE ART 10/26/85
  2. 20    rem
  3. 30    screen 1,4,0:drawmode 1
  4. 40    graphic (1)
  5. 50    scnclr
  6. 52    rgb 0,0,0,0
  7. 54    rgb 1,0,0,0
  8. 56    rgb 2,0,0,0
  9. 60    pena 1:penb 1:paint (320,100)
  10. 70    pena (rnd*14)+2
  11. 80    x1%=319:y1%=99
  12. 90    i=0:ra=rnd*3.1416+.01
  13. 100   for i=0 to 36 step .05
  14. 110   x%=280*sin(i)+x1%
  15. 120   y%=80*cos(ra*i)+y1%
  16. 130   draw (x1%,y1% to x%,y%)
  17. 140   next i
  18. 150   sleep 3*1^6
  19. 160   goto 50
  20.