home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / maze.bug < prev    next >
Text File  |  1989-03-28  |  128b  |  14 lines

  1. to "poly :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "maze 
  8. if :x = 150 [ stop ]
  9. fd :x
  10. rt 90
  11. make "x :x + 5
  12. end
  13.  
  14.