home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / systempatch / sysi2 / test.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1997-02-11  |  352 b   |  33 lines
  1. /* */
  2.  
  3. owidth=24
  4. oheight=11
  5.  
  6. dispx=22.0
  7. dispy=11.0
  8.  
  9. dy=dispx/dispy
  10. dx=dispy/dispx
  11.  
  12. height=owidth*dy
  13. width=oheight*dx
  14.  
  15. if(height>oheight) then 
  16.   height=oheight
  17. else
  18.   width=owidth 
  19.   
  20. /*
  21. if(height>width) then 
  22.   do
  23.     width=width*(height/oheight)
  24.     height=oheight
  25.   end
  26. else
  27.   do
  28.     width=owidth
  29.   end
  30. */
  31.  
  32. say width height width*dispx height*dispy
  33.