home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / hip5.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  509 b   |  16 lines
  1. 670   scnclr
  2. 675   pena 1
  3. 680   paint (10 , 10)
  4. 685   xc = 160 : yc = 90 : z = 0 : k =pi / 40
  5. 690   n = int(rnd(1)*17) 
  6. 695   pena n
  7. 700   for j = 0 to 1 : next : n = k
  8. 705   xd = int (rnd(1) * xc) : yd = int(rnd(1) * yc) : c = int(rnd(1)*5)
  9. 710   xa = xc + xd * cos(n) : xb = xc - xd * cos(n)
  10. 715   ya = yc + yd * sin(n) : yb = yc - yd * sin(n)
  11. 720   draw (xa,ya to xb,yb)
  12. 725   n = n + k : if n < pi then 710
  13. 730   ask mouse x% , y% , b%
  14. 735   if b% <>0 then goto 110
  15. 740   for j = 0 to 1 : next : goto 690
  16.