home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / d / doslogo.zip / LOGOLIB.ZIP / DEMO.LG < prev    next >
Text File  |  1992-08-03  |  620b  |  35 lines
  1. to demo
  2. d1;d1;d2; p4; f1;e1;d1;e1; d4; d1;d1;d2; d1;d1;d2;
  3. d1;f1;b1;c1; d4; e1;e1;e1;e1; e1;d1;d1;d1; d1;c1;c1;d1; c2;f2;
  4. d1;d1;d2; d1;d1;d2; d1;f1;b1;c1; d4; e1;e1;e1;e1; e1;d1;d1;d1;
  5. f1;f1;e1;c1; b4; d1;d1;d2; p4; f1;e1;d1;c1; b1;p1;b1;p1;
  6. ht
  7. cs 
  8. repeat 72 [poly 100 4;penc repcount; rt 360/72]
  9. cs
  10. rose 150 20 [fd 30]
  11. cs
  12. rose 150 20 [fd 5]
  13. cs
  14. rose 150 90 [pu; setx xcor + 5; pd]
  15. cs
  16. rose 150 30 [pu; setx xcor + 5; pd]
  17. cs
  18. rose 150 30 [pu; setx xcor + 10; pd]
  19. cs
  20. hanoi 4
  21. pd
  22. cs
  23. spiral 91 2 10
  24. cs
  25. spiral 90 2 10
  26. cs
  27. spiral 60 3 10
  28. cs
  29. spiral 61 3 10
  30. cs
  31. spiral 179 2 5
  32. cs
  33. spiral 20 10 4
  34. end
  35.