home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / misc / jcgraph / rexx / sizey.rex < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  476b  |  20 lines
  1. /* SizeY.rex */
  2. /* --------- */
  3. /* Description: Ask for Y axis font size and set it accordingly. No     */
  4. /*              validation is done on the value entered , so, be        */
  5. /*              careful.                                                */
  6.  
  7. options results
  8.  
  9. address 'JCGRAPH'
  10.  
  11. 'GetTypeValue 21'
  12. FontSize=result
  13.  
  14. 'requestnumber Enter Y axis font size please. Actual font size is:' FontSize
  15.  
  16. FontSize=result
  17.  
  18. if RC == 0 then do
  19.   'SetTypeValue 21 ' FontSize
  20. end