home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / proglang / ladybug1.arj / DRAGON.BUG < prev    next >
Text File  |  1991-01-13  |  403b  |  22 lines
  1. ;dragon.bug
  2. to "ldragon  :size :level
  3. if :level = 0 then  fd :size  stop
  4. ldragon :size  :level - 1
  5. left 90
  6. rdragon :size  :level - 1
  7. end
  8.  
  9. to "rdragon  :size :level
  10. if :level = 0 then  fd :size  stop
  11. ldragon :size  :level - 1
  12. right 90
  13. rdragon :size  :level - 1
  14. end
  15.  
  16. to "dragon  :size :level
  17. ldragon :size :level
  18. end
  19.  
  20. make "description [ dragon - try dragon 5 10 ]
  21. print :description
  22.