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