home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / useful / dist / dev / lang / ace / prgs / turtle / flower.b < prev    next >
Text File  |  1994-01-10  |  393b  |  38 lines
  1. '...a flower via turtle graphics
  2.  
  3. defint i
  4.  
  5. window 1,"Flower",(0,0)-(640,200)
  6. color 2,1
  7. cls
  8.  
  9. sub fourside
  10.   for i=1 to 2
  11.     forward 40
  12.     turnright 30
  13.     forward 40
  14.     turnright 150
  15.   next
  16. end sub
  17.  
  18. sub flower
  19.   for i=1 to 18
  20.     fourside
  21.     turnright 20
  22.   next
  23. end sub
  24.  
  25. penup
  26. setxy 320,100
  27. pendown
  28.  
  29. flower
  30.  
  31. locate 21,1
  32. print "press 'q'..."
  33.  
  34. while ucase$(inkey$)<>"Q"
  35. wend
  36.  
  37. window close 1
  38.