home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / 32hip.bas < prev    next >
BASIC Source File  |  1988-05-22  |  846b  |  34 lines
  1. 5     scnclr
  2. 7     screen 0, 5, 0
  3. 9     cmd #0
  4. 11    rgb 16,9,9,15
  5. 13    rgb 17,7,7,7
  6. 15    rgb 18,3,3,3
  7. 17    rgb 19,3,12,8
  8. 19    rgb 20,0,3,15
  9. 21    rgb 21,15,0,0
  10. 23    rgb 22,1,6,12
  11. 25    rgb 23,7,15,2
  12. 27    rgb 24,13,0,5
  13. 29    rgb 25,7,7,7
  14. 31    rgb 26,7,3,9
  15. 33    rgb 27,0,12,7
  16. 35    rgb 28,1,2,3
  17. 37    rgb 29,6,5,4
  18. 39    rgb 30,6,8,7
  19. 41    rgb 31,0,9,12
  20. 50    pena 1
  21. 55    paint (10 , 10)
  22. 60    xc = 160 : yc = 90 : z = 0 : k =pi / 40
  23. 65    n = int(rnd(1)*31) 
  24. 70    pena n
  25. 75    for j = 0 to 1 : next : n = k
  26. 80    xd = int (rnd(1) * xc) : yd = int(rnd(1) * yc) : c = int(rnd(1)*5)
  27. 85    xa = xc + xd * cos(n) : xb = xc - xd * cos(n)
  28. 90    ya = yc + yd * sin(n) : yb = yc - yd * sin(n)
  29. 95    draw (xa,ya to xb,yb)
  30. 100   n = n + k : if n < pi then 85
  31. 101   ask mouse x%,y%,b%
  32. 102   if b% <> 0 then end
  33. 105   for j = 0 to 1 : next : goto 65
  34.