home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / Tutorial / Prg6.1 < prev    next >
Encoding:
Text File  |  1993-04-09  |  948 b   |  64 lines
  1. // Program 6.1
  2.  
  3. USE Turtle
  4. USE Figures
  5.  
  6. graphicscreen(0)
  7. ht
  8.  
  9. PRINT AT 6,10: "Triangle ......... 3"
  10. PRINT AT 8,10: "Square ........... 4"
  11. PRINT AT 10,10: "Pentagon ......... 5"
  12. PRINT AT 12,10: "Hexagon .......... 6"
  13.  
  14. INPUT AT 16,10: "Select figure: ": choice
  15.  
  16. PAGE
  17. IF choice=3 THEN    // Triangle
  18.   triangle
  19. ELIF choice=4 THEN  // Square
  20.   square
  21. ELIF choice=5 THEN  // Pentagon
  22.   pentagon
  23. ELIF choice=6 THEN  // Hexagon
  24.   hexagon
  25. ELSE
  26.   PRINT AT 12,10: "I don't know that figure!"
  27. ENDIF
  28.  
  29. WAIT 4
  30. textscreen
  31.  
  32. // ************* end of main program **********
  33.  
  34. MODULE Figures
  35.  
  36.   USE Turtle
  37.  
  38.   EXPORT triangle,square,pentagon,hexagon
  39.  
  40.   PROC triangle
  41.     Polygon(3)
  42.   ENDPROC triangle
  43.  
  44.   PROC square
  45.     Polygon(4)
  46.   ENDPROC square
  47.  
  48.   PROC pentagon
  49.     Polygon(5)
  50.   ENDPROC pentagon
  51.  
  52.   PROC hexagon
  53.     Polygon(6)
  54.   ENDPROC hexagon
  55.  
  56.   PROC Polygon(n)
  57.     LOOP n TIMES
  58.       forward(50)
  59.       right(360/n)
  60.     ENDLOOP
  61.   ENDPROC Polygon
  62.  
  63. ENDMODULE Figures
  64.