home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / logo / ladybug / start.bug < prev    next >
Encoding:
Text File  |  1989-12-30  |  1.0 KB  |  63 lines
  1. to "poly  :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "je  
  8. CT CURSOR 1 1
  9. end
  10.  
  11. to "jc  
  12. BG 0 CS CT
  13. end
  14.  
  15. to "jl  
  16. print "
  17. end
  18.  
  19. to "jp  
  20. REPEAT 3 [JI]
  21. end
  22.  
  23. to "ji  
  24. TYPE CHAR 32
  25. end
  26.  
  27. to "hello  
  28. JL JP print [In The Great Logo Adventure, you'll]
  29. JP print [be introduced to the fascinations]
  30. JP print [of LadyBug Logo.]
  31. JL JP print [Enjoy your adventure.]
  32. JL JP print [Then go back and see how this demo]
  33. JP print [was put together.]
  34. JL JP print [Explore each procedure.]
  35. JP print [Discover how to combine these]
  36. JP print [ideas for your own Logo video show.]
  37. JL print [Many thanks to Robs Muir, Jeff Sandys,]
  38. print [Peter Carter, and the many YPLA members]
  39. print [from around the world whose ideas made]
  40. print [this adventure possible.]
  41. jl jp jp print [When you're ready to start,]
  42. jp jp print [press any key...]
  43. end
  44.  
  45. to "start  
  46. CT HELLO
  47. IGNORE RC
  48. CLEARWS
  49. LOAD "DEMO
  50. START
  51. end
  52.  
  53. to "wait  :t 
  54. IF :T = 0 STOP
  55. WAIT :T - 1
  56. end
  57.  
  58. to "ignore  :k
  59. end
  60.  
  61. HELLO
  62. IGNORE RC
  63. CL