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