home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / c / cilogo11.zip / SHAPES < prev    next >
Text File  |  1980-01-01  |  564b  |  45 lines
  1. TO BOX
  2. FORWARD 30
  3. RIGHT 90
  4. FORWARD 30
  5. RIGHT 90
  6. FD 30
  7. RT 90
  8. FD 30
  9. RT 90
  10. END
  11. TO RECTANGL
  12. REPEAT 2 [ FD 100 RT 90 FD 20 RT 90 ]
  13. PU RT 45 FD 15 FILL 1 BACK 15 LT 45 PD
  14. END
  15. TO STAR
  16. REPEAT 5 [ FD 30 RT 144 ]
  17. END
  18. TO CIRCLE
  19. REPEAT 36 [ FD 10 RT 10 ]
  20. RT 90 PU
  21. FD 15
  22. FILL 2
  23. BACK 15
  24. LT 90 PENDOWN
  25. END
  26. TO HEXAGON
  27. REPEAT 6 [ FORWARD 20 RIGHT 60 ]
  28. PU RT 45 FD 20 FILL 3 BACK 20
  29. LT 45 PD
  30. END
  31. TO RUN
  32. RECTANGL
  33. PU RT 90 FD 50 PD
  34. STAR
  35. PENUP FD 50 PENDOWN
  36. CIRCLE
  37. PU FD 99 RT 22 PD
  38. BOX
  39. PU FD 50 PD
  40. HEXAGON
  41. COUNT UP
  42. COUNT IF> 5 STOP
  43. RUN
  44. END
  45.