home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / circleqix.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  1.3 KB  |  62 lines
  1. 1     scnclr
  2. 2     goto 10000
  3. 3     rem****
  4. 4     screen 1,4
  5. 6     c=1
  6. 7     nc=0
  7. 8     input "tail length";tl
  8. 9     scnclr
  9. 10    x = 24 : y = 50
  10. 11    xx=24 : yy=50
  11. 20    z = 24 : k = 100
  12. 21    zz=24 : kk=100
  13. 30    dx = 7 : dy = 5
  14. 31    ex=1 : ey=1
  15. 40    dz = 3 : dk = 3
  16. 41    ez=3 : ek=3
  17. 42    pena 0 : paint (10,10)
  18. 50    peno c
  19. 51    circle  (x,y), 7, 1
  20. 52    pena c : paint(x,y)
  21. 53    c=c+1
  22. 60    x = x + dx
  23. 70    z = z + dz
  24. 80    if x < 20 or x > 580 then dx = - dx
  25. 90    if z < 4 or z > 620 then dz = - dz
  26. 100   y = y + dy
  27. 110   k = k + dk
  28. 120   if y < 20 or y > 170 then dy = - dy
  29. 130   if k < 5 or k > 190 then dk = -dk
  30. 131   if c = 16 then c = 2
  31. 140   get a$ : if a$ = chr$ (13) then 1000
  32. 150   goto 50
  33. 1000  end
  34. 5000  cc=0 : peno cc
  35. 5001  nc=nc+1 : if nc < tl then return
  36. 5050  circle (xx,yy),10 ,1
  37. 5060  xx=xx+ex
  38. 5070  zz=zz+ez
  39. 5080  if xx < 4 or xx> 640 then ex=-ex
  40. 5090  if zz < 4 or zz> 640 then ez=-ez
  41. 5100  yy=yy+ey
  42. 5110  kk=kk+ek
  43. 5120  if yy < 5 or yy > 200 then ey=-ey
  44. 5130  if kk < 5 or kk > 200 then ek=-ek
  45. 5140  return
  46. 10000 rgb 2,0,0,2
  47. 10010 rgb 3,0,0,3
  48. 10020 rgb 4,0,0,4
  49. 10030 rgb 5,0,0,5
  50. 10040 rgb 6,0,0,6
  51. 10050 rgb 7,0,0,7
  52. 10060 rgb 8,0,0,8
  53. 10070 rgb 9,0,0,9
  54. 10080 rgb 10,0,0,10
  55. 10090 rgb 11,0,0,11
  56. 10100 rgb 12,0,0,12
  57. 10110 rgb 13,0,0,13
  58. 10120 rgb 14,0,0,14
  59. 10130 rgb 15,0,0,15
  60. 10131 rgb 0,5,5,5
  61. 10140 goto 3
  62.