home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / elephs.bug < prev    next >
Text File  |  1989-11-09  |  1KB  |  46 lines
  1. to "poly  :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "eleph1  :x
  8. SETXY :X + 25 25 SETXY :X + 30 20
  9. SETXY :X + 35 25 SETXY :X + 35 15
  10. SETXY :X + 30 0 SETXY :X + 35 -10
  11. SETXY :X + 30 -15 SETXY :X + 25 -5
  12. SETXY :X + 25 -15 SETXY :X + 15 -15
  13. SETXY :X + 5 -5 SETXY :X + 10 -15
  14. SETXY :X + 0 -15
  15. SETXY :X - 5 -5 SETXY :X - 5 -15
  16. SETXY :X - 15 -15 SETXY :X - 10 -5
  17. SETXY :X - 15 5 SETXY :X - 20 0
  18. SETXY :X - 25 -10 SETXY :X - 30 -15
  19. SETXY :X - 35 -15 SETXY :X - 40 -10
  20. SETXY :X - 40 -5 SETXY :X - 35 -10
  21. SETXY :X - 35 -10 SETXY :X - 30 -10
  22. SETXY :X - 25 0 SETXY :X - 25 10
  23. SETXY :X - 30 15 SETXY :X - 30 25
  24. SETXY :X - 20 35 SETXY :X - 15 35
  25. SETXY :X - 10 30 SETXY :X - 5 25
  26. SETXY :X - 5 30 SETXY :X + 0 30
  27. SETXY :X + 5 25 SETXY :X + 5 10
  28. SETXY :X - 5 5 SETXY :X - 10 5
  29. SETXY :X - 10 10 SETXY :X - 15 5
  30. PU HOME PD
  31. end
  32.  
  33. to "elephant  :x
  34. if :x < -140 [stop]
  35. pu setxy :x + 5 25 pd
  36. eleph1 :x
  37. make "x :x - 70
  38. elephant :x
  39. end
  40.  
  41.  HOME PD
  42. end
  43.  
  44. to "elephant  :x
  45. if :x < -140 [stop]
  46. pu setxy :x +