home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / misc / jcgraph / rexx / spacey.rex < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  484b  |  20 lines
  1. /* SpaceY.rex */
  2. /* ---------- */
  3. /* Description: Ask for Y axis space value 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 24'
  12. FontSpace=result
  13.  
  14. 'requestnumber Enter Y axis font space please. Actual font space is:' FontSpace
  15.  
  16. FontSpace=result
  17.  
  18. if RC == 0 then do
  19.   'SetTypeValue 24 ' FontSpace
  20. end