home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / DOS / 4DOS / UTILS / EZ_BTM / RMF.BTM < prev    next >
Text File  |  1992-09-20  |  2KB  |  73 lines
  1. @echo off
  2.  
  3. REM  Itamar Even-Zohar's HGC+ fonts loader
  4. REM  This is a 4dos version December 1, 1991; updated September 19, 1992
  5. REM  USAGE: RMF [0|m|k|b|s|f|r|2|<font name>]
  6. :    If you type RMF (no switches), you will get a selection menu.
  7. :    If you type a font filename, "FNT" can be omitted.
  8.  
  9. setlocal
  10. :
  11. if "%1" == "" goto SELECT
  12. :selection
  13.     iff "%1" == "0" then goto FINISHED
  14. elseiff "%1" == "m" then set ramfont=heb-med.Fnt
  15. elseiff "%1" == "k" then set ramfont=heb-ktab.Fnt
  16. elseiff "%1" == "s" then set ramfont=standard.Fnt
  17. elseiff "%1" == "f" then set ramfont=sanserIf.Fnt
  18. elseiff "%1" == "r" then set ramfont=heb-snsf.fnt
  19. elseiff "%1" == "b" then set ramfont=heb-big.Fnt
  20. elseiff "%1" == "2" then goto OTHER
  21.  else
  22. set ramfont=%1 ^ goto EXTENSIO
  23.  endiff
  24.  
  25. :CHECK
  26. if not exist %@search[%ramfont] goto ERROR
  27. ramfont %@search[%ramfont]
  28. cls
  29. screen 2 0 %@upper[%ramfont] now loaded
  30. goto FINISHED
  31.  
  32. :OTHER
  33. echo ('FNT' extension can be dropped)
  34. input Type font's name (must be in PATH) : %%ramfont
  35.  
  36. :EXTENSIO
  37. rem (Allow typing font filename without the FNT extension)
  38. iff %@index[%ramfont,.fnt] == -1 then
  39.  set ramfont=%ramfont.FNT
  40.  endiff
  41. goto check
  42.  
  43. :ERROR
  44. echo.
  45. echo %@search[%ramfont] does NOT exist
  46. echo.
  47. goto FINISHED
  48.  
  49. :SELECT
  50. cls
  51. screen 2 0
  52.  text
  53.   0  = EXIT
  54.   m  = Hebrew MEDIUM fonts (+ standard Roman)
  55.   k  = Hebrew KTAB fonts (+ standard Roman)
  56.   b  = Hebrew BIG fonts (+ standard Roman)
  57.   s  = STANDARD fonts (no Hebrew)
  58.   f  = SANSERIF fonts (no Hebrew)
  59.   r  = SANSERIF fonts + medium Hebrew fonts
  60.  
  61.   2  = User selected font
  62.  endtext
  63. drawhline 9 1 45 1 whi on bla
  64. drawbox 1 0 11 46 1 whi on bla
  65. screen 13 0
  66. inkey Type your choice: %%1
  67. goto selection
  68.  
  69. :FINISHED
  70. if %1 == 0 echo Aborted...
  71. endlocal
  72. quit
  73.