/* */ call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs" call SysLoadFuncs say "This utility will remove the FreeType/2 font driver and install " say "the original TRUETYPE.DLL if it exists. If you do not wish to" say "continue, please just press ENTER. Otherwise please type ""y""" pull letter if letter <> "Y" then exit /* Find drive where OS/2 is installed */ bootdrive = SysSearchPath('PATH', 'OS2.INI') bootdrive = left(bootdrive, 1) app = "PM_Font_Drivers" key = "TRUETYPE" /* look for TRUETYPE.DLL */ rc = SysFileTree(left(bootdrive,1) || ":\OS2\DLL\TRUETYPE.DLL", "file", "F") if file.0 = 1 then do say "Restoring TRUETYPE.DLL..." val = "\OS2\DLL\TRUETYPE.DLL" || d2c(0) SysIni('BOTH', app, key, val) end else do say "Uninstalling FREETYPE.DLL..." SysIni('BOTH', app, key, "DELETE:") end say "FTIFI is uninstalled. Please reboot." pause