home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / c / cilogo11.zip / DEMO < prev    next >
Text File  |  1980-01-01  |  2KB  |  153 lines
  1. TO SPOKE
  2. FD 60
  3. RT 90
  4. FD 5
  5. BK 10
  6. FD 5
  7. RT 90
  8. FD 60 RT 180
  9. END
  10. TO WHEEL
  11. HT
  12. COUNT UP
  13. COUNT IF> 18 STOP
  14. SPOKE
  15. RT 20
  16. WHEEL
  17. COUNT ZERO
  18. END
  19. TO BIGL
  20. PD
  21. FD 40 RT 90 FD 10 RT 90 FD 30
  22. LT 90 FD 20 RT 90 FD 10 RT 90
  23. FD 30 RT 120 PU FD 10 FILL 1
  24. BACK 10 LT 30
  25. END
  26. TO BIGO
  27. PU FD 18 PD
  28. REPEAT 18 [ FD 7 RT 20 ]
  29. PU
  30. RT 90 FD 8
  31. LT 90 PD FD 1
  32. REPEAT 18 [ FD 4 RT 20 ]
  33. LT 90 PU
  34. FD 4 FILL 3
  35. FD 4
  36. RT 90
  37. BACK 19
  38. END
  39. TO BIGG
  40. PU
  41. RT 90 FD 40 LT 90 FD 18 RT 180
  42. PD
  43. REPEAT 16 [ FD 8 RT 20 ]
  44. RT 90 FD 8
  45. RT 90
  46. REPEAT 16 [ FD 4 LT 20 ]
  47. LT 90 FD 10 RT 90 FD 5 RT 90
  48. FD 22 RT 90 FD 10 PU
  49. RT 90 FD 10 FILL 1
  50. LT 90 FD 18 LT 90 BACK 30 LT 90 FD 5
  51. END
  52. TO BANNER
  53. LT 90 PU
  54. FD 80 RT 90 BIGL
  55. PU RT 90 FD 30 LT 90 BIGO
  56. PU RT 90 FD 45 LT 90 BIGG
  57. PU RT 90 FD 40 LT 90 BIGO
  58. RT 90 FD 40 LT 90
  59. END
  60. TO BOX
  61. FORWARD 30
  62. RIGHT 90
  63. FORWARD 30
  64. RIGHT 90
  65. FD 30
  66. RT 90
  67. FD 30
  68. RT 90
  69. END
  70. TO RECTANGL
  71. REPEAT 2 [ FD 100 RT 90 FD 20 RT 90 ]
  72. PU RT 45 FD 15 FILL 1 BACK 15 LT 45 PD
  73. END
  74. TO STAR
  75. REPEAT 5 [ FD 30 RT 144 ]
  76. END
  77. TO CIRCLE
  78. REPEAT 36 [ FD 10 RT 10 ]
  79. RT 90 PU
  80. FD 15
  81. FILL 2
  82. BACK 15
  83. LT 90 PENDOWN
  84. END
  85. TO HEXAGON
  86. REPEAT 6 [ FORWARD 20 RIGHT 60 ]
  87. PU RT 45 FD 20 FILL 3 BACK 20
  88. LT 45 PD
  89. END
  90. TO DOSHAPES
  91. RECTANGL
  92. PU RT 90 FD 50 PD
  93. STAR
  94. PENUP FD 50 PENDOWN
  95. CIRCLE
  96. PU FD 99 RT 22 PD
  97. BOX
  98. PU FD 50 PD
  99. HEXAGON
  100. COUNT UP
  101. COUNT IF> 5 STOP
  102. DOSHAPES
  103. END
  104. TO RUN                                                                         
  105. PENDOWN
  106. CS
  107. WHEEL
  108. COUNT ZERO
  109. PD
  110. DOSHAPES
  111. COUNT ZERO
  112. DELAY 1000
  113. CS
  114. ST
  115. PD
  116. BANNER
  117. LOAD ABC123
  118. ST
  119. SETXY -70 60
  120. PD
  121. W
  122. E
  123. L
  124. C
  125. O
  126. M
  127. E
  128. SPACE
  129. T
  130. O
  131. SETXY -90 -50
  132. SETPC 2
  133. HT
  134. B
  135. Y
  136. SPACE
  137. M
  138. I
  139. K
  140. E
  141. SPACE
  142. C
  143. A
  144. U
  145. G
  146. H
  147. R
  148. A
  149. N
  150. SETXY 60 0
  151. END
  152.  
  153.