home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pcfonts / fntutl15.zip / FONTCOMP.BTM < prev    next >
Text File  |  1993-05-24  |  466b  |  28 lines
  1. iff [%2]==[] then
  2.     echo Usage: %@name[%0] fontfile1 fontfile2
  3.     quit
  4. endiff
  5. iff not exist %1 then 
  6.     echo %@name[%0]: %1 - File doesn't exist.
  7.     quit
  8. endiff
  9. iff not exist %2 then
  10.     echo %@name[%0]: %2 - File doesn't exist.
  11.     quit
  12. endiff
  13. cls
  14. screen 8 0
  15. yes charset
  16. :start
  17. screen 0 0  
  18. screen 0 0
  19. loadfont %1
  20. inkey /W2 %1 %%key
  21. if %@upper[%%key]==Q quit
  22. screen 0 0  
  23. screen 0 0
  24. loadfont %2
  25. inkey /W2 %2 %%key
  26. if %@upper[%%key]==Q quit
  27. goto start
  28.