home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / PROGRAMM / LADYBUG.ZIP / CCIRCLE.BUG < prev    next >
Text File  |  1983-10-10  |  384b  |  25 lines

  1. to "rcp  :r 
  2. right 5
  3. forward :r * 3.14159 / 18
  4. right 5
  5. end
  6. to "ccircle   :r
  7. make "pen? pendown?
  8. make "shown? show?
  9. hidebug
  10. penup
  11. forward :r
  12. right 90
  13. pendown
  14. repeat 36 [rcp :r]
  15. left 90
  16. penup
  17. back :r
  18. if :pen? then pendown
  19. if :shown? then showbug
  20. end
  21. make "description [CCIRCLE -- from "Learning With LOGO"]
  22. penup
  23. back :r
  24. if :pen? then pendown
  25. if :shown? then sh