home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / recur.bug < prev    next >
Text File  |  1989-10-27  |  896b  |  38 lines

  1. to "poly  :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "test.recursion  :n
  8. print [ Is this recursion? ]
  9. make "n :n + 1
  10. if rq = "no [ test.recursion :n ]
  11. print :n
  12. end
  13.  
  14. to "help  
  15. ct
  16. print "'Press      For a description of'
  17. print "'  1        Graphics commands  '
  18. print "'  2        Sound making commands'
  19. print "'  3        Input and Output
  20. print "'  4        Control commands'
  21. print "'  5        Workspace commands'
  22. print "'  6        Running Procedures'
  23. print "'  7        Expressions and functions'
  24. print "'  8        Tools in workspaces
  25. print "'  0        To exit from HELP
  26. print "' '
  27. type "'Press a key '
  28. local "key
  29. make "key rc
  30. if not number? :key    [erase "help  stop]
  31. if :key < 1  [if :key > 8  [erase "help  stop] ]
  32. make "key word "help :key
  33. load :key
  34. help
  35. print "' '
  36. end
  37.  
  38.