home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / soccer.bug < prev    next >
Text File  |  1989-12-31  |  256b  |  22 lines
  1. to "poly  :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "soccer  
  8. REPEAT 6 [FD 50 RT 60]
  9. FD 60 LT 60
  10. end
  11.  
  12. to "hex  :DIS
  13. REPEAT 6 [FD :DIS RT 60]
  14. FD :DIS LT 60
  15. end
  16.  
  17. to "pent  :DIS
  18. REPEAT 6 [FD :DIS RT 60]
  19. FD :DIS LT 72
  20. end
  21.  
  22. to "hex  :DI