home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / Tutorial / Prg5.2 < prev    next >
Encoding:
Text File  |  1993-04-09  |  808 b   |  55 lines
  1. // Program 5.2
  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.   triangle
  18. ELIF choice=4 THEN  // Square
  19.   square
  20. ELIF choice=5 THEN  // Pentagon
  21.   pentagon
  22. ELIF choice=6 THEN  // Hexagon
  23.   hexagon
  24. ELSE
  25.   PRINT AT 12,10: "I don't know that figure!"
  26. ENDIF
  27.  
  28. WAIT 4
  29. textscreen
  30.  
  31. // ************* end of main program **********
  32.  
  33. PROC triangle
  34.   Polygon(3)
  35. ENDPROC triangle
  36.  
  37. PROC square
  38.   Polygon(4)
  39. ENDPROC square
  40.  
  41. PROC pentagon
  42.   Polygon(5)
  43. ENDPROC pentagon
  44.  
  45. PROC hexagon
  46.   Polygon(6)
  47. ENDPROC hexagon
  48.  
  49. PROC Polygon(n)
  50.   LOOP n TIMES
  51.     forward(50)
  52.     right(360/n)
  53.   ENDLOOP
  54. ENDPROC Polygon
  55.