home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / REXXCH03.ZIP / AREAS.CMD < prev    next >
OS/2 REXX Batch file  |  1991-03-11  |  270b  |  10 lines
  1. /* area of a 3 by 5 in. rectangle */
  2. area = 3 * 5
  3. say area "sq. in."              /* displays "15 sq. in." */
  4.  
  5. /* area of a 5 in. circle */
  6. diameter = 5
  7. radius = diameter/2
  8. area = 3.14 * radius * radius
  9. say area "sq. in."      /* displays "19.6250 sq. in." */
  10.