home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / sysfont.zip / SYSFONT.CMD < prev   
OS/2 REXX Batch file  |  1995-05-30  |  693b  |  26 lines
  1. /* SYSFONT - Program to Change OS2's default system font */
  2. /* Ripped from the README file from OS2 2.1 */
  3.  
  4. call RxFuncAdd "SysIni", "RexxUtil", "SysIni"
  5. AppName = "PM_SystemFonts"
  6. KeyName = "DefaultFont"
  7.  
  8. 'cls'
  9. say 'System Font Modifier Utility 1.0'
  10. say 'Allows changing of the default "10.System Proportional"'
  11. say ''
  12. say 'Font Names must be typed *exactly* as in the Font Palette.'
  13. say 'Do not make the font too big or you will experience text clipping.'
  14. say ''
  15. call charout , 'Enter the font name: '
  16. pull font
  17. say ''
  18. call charout , 'Enter the font size: '
  19. pull size
  20. say ''
  21.  
  22. FontName=size||'.'||font
  23.  
  24. call SysIni "USER", AppName, KeyName, FontName||"0"x
  25. say 'Done'
  26.