home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / f / finalwriter / finalwriterv5.03a.dms / finalwriterv5.03a.adf / FWMacros.lha / TxtWidth_Incr < prev   
Text File  |  1993-10-25  |  376b  |  13 lines
  1. /* ================================================= */
  2. /* Bump current font's width up by 1 percent.        */
  3. /* FinalWriter macro written by Ric Fischer - 7/7/93 */
  4. /* $VER: TxtWidth_Incr 3.0 (22.7.93)                 */
  5. /* ================================================= */
  6.  
  7. Options Results
  8.  
  9. Status FontWidth
  10. Result = Result + 1
  11. IF (Result = 256) THEN EXIT
  12. Width Result
  13.