home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / Tutorial / Prg4.1 < prev    next >
Encoding:
Text File  |  1993-04-09  |  675 b   |  43 lines
  1. // Program 4.1
  2.  
  3. USE Turtle
  4.  
  5. graphicscreen(0)
  6. ht
  7.  
  8. PRINT AT 6,10: "Triangle ......... 3"
  9. PRINT AT 8,10: "Square ........... 4"
  10. PRINT AT 10,10: "Pentagon ......... 5"
  11. PRINT AT 12,10: "Hexagon .......... 6"
  12.  
  13. INPUT AT 16,10: "Select figure: ": choice
  14.  
  15. PAGE
  16. IF choice=3 THEN    // Triangle
  17.   LOOP 3 TIMES
  18.     forward(50)
  19.     right(120)
  20.   ENDLOOP
  21. ELIF choice=4 THEN  // Square
  22.   LOOP 4 TIMES
  23.     forward(50)
  24.     right(90)
  25.   ENDLOOP
  26. ELIF choice=5 THEN  // Pentagon
  27.   LOOP 5 TIMES
  28.     forward(50)
  29.     right(72)
  30.   ENDLOOP
  31. ELIF choice=6 THEN  // Hexagon
  32.   LOOP 6 TIMES
  33.     forward(50)
  34.     right(60)
  35.   ENDLOOP
  36. ELSE
  37.   PRINT AT 12,10: "I don't know that figure!"
  38. ENDIF
  39.  
  40. WAIT 4
  41.  
  42. textscreen
  43.