home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / Tutorial / Prg3.1 < prev    next >
Encoding:
Text File  |  1993-04-09  |  284 b   |  19 lines
  1. // Program 3.1
  2.  
  3. USE Turtle
  4.  
  5. graphicscreen(0)  // Open the graphics system
  6.  
  7. forward(50)       // Draw a square
  8. right(90)
  9. forward(50)
  10. right(90)
  11. forward(50)
  12. right(90)
  13. forward(50)
  14. right(90)
  15.  
  16. WAIT 4            // Time to look at the drawing
  17.  
  18. textscreen        // Close the graphics system
  19.