home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / sly5.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  922 b   |  38 lines
  1. 5     scnclr
  2. 6     c=1
  3. 10    x = 24 : y = 50
  4. 20    z = 24 : k = 100
  5. 30    dx = 3 : dy = 3
  6. 40    dz = 5 : dk = 5
  7. 50    circle (x,y) ,10 ,1 
  8. 51    c = c+1 : peno c
  9. 60    x = x + dx
  10. 70    z = z + dz
  11. 80    if x < 4 or x > 320 then dx = - dx
  12. 90    if z < 4 or z > 320 then dz = - dz
  13. 100   y = y + dy
  14. 110   k = k + dk
  15. 120   if y < 5 or y > 200 then dy = - dy
  16. 130   if k < 5 or k > 200 then dk = -dk
  17. 131   if c = 31 then c = 1
  18. 140   get a$ : if a$ = chr$ (13) then goto 160
  19. 141   if g=6 then goto 160
  20. 150   goto 50
  21. 160   g=6
  22. 165   c1=0
  23. 170   x1 = 24 : y1 = 50
  24. 175   z = 24 : k = 50
  25. 180   dx1 = 3 : dy1 = 3
  26. 185   dz = 5 : dk = 5
  27. 186   peno c1
  28. 190   circle (x1,y1) ,10 ,1 
  29. 200   x1 = x1 + dx
  30. 205   z = z + dz
  31. 210   if x1 < 4 or x1 > 320 then dx1 = - dx1
  32. 215   if z < 4 or z > 320 then dz = - dz
  33. 220   y1 = y1 + dy1
  34. 225   k = k + dk
  35. 230   if y1 < 5 or y1 > 200 then dy1 = - dy1
  36. 235   if k < 5 or k > 200 then dk = -dk
  37. 250   goto 50
  38.