home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / Tutorial / Prg6.2 < prev    next >
Encoding:
Text File  |  1993-04-09  |  506 b   |  31 lines
  1. // Program 6.2
  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.