home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / Tutorial / Prg5.1 < prev    next >
Encoding:
Text File  |  1993-04-09  |  886 b   |  60 lines
  1. // Program 5.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.   triangel
  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.   LOOP 3 TIMES
  35.     forward(50)
  36.     right(120)
  37.   ENDLOOP
  38. ENDPROC triangle
  39.  
  40. PROC square
  41.   LOOP 4 TIMES
  42.     forward(50)
  43.     right(90)
  44.   ENDLOOP
  45. ENDPROC square
  46.  
  47. PROC pentagon
  48.   LOOP 5 TIMES
  49.     forward(50)
  50.     right(72)
  51.   ENDLOOP
  52. ENDPROC pentagon
  53.  
  54. PROC hexagon
  55.   LOOP 6 TIMES
  56.     forward(50)
  57.     right(60)
  58.   ENDLOOP
  59. ENDPROC hexagon
  60.