home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a066 / 1.img / TESTRECT.PRG < prev    next >
Encoding:
Text File  |  1992-03-20  |  385 b   |  17 lines
  1. // testrect.prg
  2.  
  3. procedure main
  4.     local x := Rectangle():new(5, 10, 15, 40)
  5.  
  6.     ? 'The dimensions of Rectangle x are as follows:'
  7.     ? '      width:', x:width
  8.     ? '     height:', x:height
  9.     ? '       area:', x:area
  10.     ? '        top:', x:top
  11.     ? '       left:', x:left
  12.     ? '     bottom:', x:bottom
  13.     ? '      right:', x:right
  14. return
  15.  
  16. // eof testrect.prg
  17.