home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / talk.bug < prev    next >
Text File  |  1989-11-09  |  512b  |  24 lines
  1. to "poly    :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "talk  
  8. print [Hi! What's your name?]
  9. make "ans request
  10. make "name word :ans ".
  11. make "rep se :name [My name is LadyBug.]
  12. print sentence [I don't think we've met,] :rep
  13. print [Have you ever talked to a computer?]
  14. test request = "no
  15. iftrue print [Do you talk to trees, too?]
  16. iffalse print [Oh, Boy!  A beginner.]
  17. end
  18.  
  19. make "ans "'Jim
  20. make "rep [Jim. My name is LadyBug.]
  21. make "name "'Jim.
  22. too?]
  23. iffalse print [Oh, Boy!  A beginner.]
  24.