home *** CD-ROM | disk | FTP | other *** search
- echo off
- if "%1" == "" goto NoWindows
- if "%2" == "" goto NoHJPRO
- if "%2" == "NETWORK" goto Network
- if "%2" == "Network" goto Network
- if "%2" == "network" goto Network
- REM Windows and HJPRO given
- echo Clearing all downloaded PCL Soft Fonts from the HJPRO directory (%2)
- echo and the Windows directory (%1) ...
- REM 1) Save Factory fonts ...
- ren %2\DEFAULT.TPF *.tpb
- ren %2\SIMPLEX.TPF *.tpb
- ren %2\TRIPLEX.TPF *.tpb
- ren %2\OLDENG.TPF *.tpb
- ren %2\TRUMBULL.TPF *.tpb
- ren %2\CANAAN.TPF *.tpb
- ren %2\SHERMAN.TPF *.tpb
- ren %2\IBMPC.TPF *.tpb
- ren %2\IBMPCCRS.TPF *.tpb
- ren %2\IBMPCMED.TPF *.tpb
- ren %2\IBMPCBLD.TPF *.tpb
- ren %2\CAD.TPF *.tpb
- ren %2\PLOTTER.TPF *.tpb
- ren %2\COURIER0.TPF *.tpb
- ren %2\COURIER1.TPF *.tpb
- ren %2\COURIER2.TPF *.tpb
- ren %2\COURIER3.TPF *.tpb
- ren %2\COURIER4.TPF *.tpb
- ren %2\COURIER5.TPF *.tpb
- ren %2\COURIER6.TPF *.tpb
- ren %2\COURIER7.TPF *.tpb
- ren %2\LNPRINT0.TPF *.tpb
- ren %2\LNPRINT1.TPF *.tpb
- ren %2\LNPRINT2.TPF *.tpb
- ren %2\LNPRINT3.TPF *.tpb
- ren %2\COURIER8.TPF *.tpb
- ren %2\COURIER9.TPF *.tpb
- ren %2\COURIE10.TPF *.tpb
- ren %2\COURIE11.TPF *.tpb
- ren %2\COURIE12.TPF *.tpb
- ren %2\COURIE13.TPF *.tpb
- ren %2\COURIE14.TPF *.tpb
- ren %2\COURIE15.TPF *.tpb
- ren %2\LNPRINT4.TPF *.tpb
- ren %2\LNPRINT5.TPF *.tpb
- ren %2\LNPRINT6.TPF *.tpb
- ren %2\LNPRINT7.TPF *.tpb
- REM 2) Delete the remaining downloaded fonts ...
- del %1\*.tpf
- del %2\*.tpf
- REM 3) Restore Factory fonts ...
- ren %2\*.tpb *.tpf
- REM 4) Restore Factory Font Header
- del %1\softfnt.hdr
- del %2\softfnt.hdr
- copy %2\softfnt.org %2\*.hdr
- REM 5) Adjust the set file
- if not exist %2\hjpro.set goto WinSetOnly
- cleartag PCLLF* %2\hjpro.set
- cleartag PCLSF* %2\hjpro.set
- echo PCLSFDEFAULT=COURIER0>> %2\hjpro.set
- :WinSetOnly
- if not exist %1\hjpro.set goto End
- cleartag PCLLF* %1\hjpro.set
- cleartag PCLSF* %1\hjpro.set
- echo PCLSFDEFAULT=COURIER0>> %1\hjpro.set
- goto End
- :NoHJPRO
- REM Windows given, HJPRO assumed current
- echo Clearing all downloaded PCL Soft Fonts from the HJPRO directory
- echo and the Windows directory (%1) ...
- REM 1) Save Factory fonts ...
- ren DEFAULT.TPF *.tpb
- ren SIMPLEX.TPF *.tpb
- ren TRIPLEX.TPF *.tpb
- ren OLDENG.TPF *.tpb
- ren TRUMBULL.TPF *.tpb
- ren CANAAN.TPF *.tpb
- ren SHERMAN.TPF *.tpb
- ren IBMPC.TPF *.tpb
- ren IBMPCCRS.TPF *.tpb
- ren IBMPCMED.TPF *.tpb
- ren IBMPCBLD.TPF *.tpb
- ren CAD.TPF *.tpb
- ren PLOTTER.TPF *.tpb
- ren COURIER0.TPF *.tpb
- ren COURIER1.TPF *.tpb
- ren COURIER2.TPF *.tpb
- ren COURIER3.TPF *.tpb
- ren COURIER4.TPF *.tpb
- ren COURIER5.TPF *.tpb
- ren COURIER6.TPF *.tpb
- ren COURIER7.TPF *.tpb
- ren LNPRINT0.TPF *.tpb
- ren LNPRINT1.TPF *.tpb
- ren LNPRINT2.TPF *.tpb
- ren LNPRINT3.TPF *.tpb
- ren COURIER8.TPF *.tpb
- ren COURIER9.TPF *.tpb
- ren COURIE10.TPF *.tpb
- ren COURIE11.TPF *.tpb
- ren COURIE12.TPF *.tpb
- ren COURIE13.TPF *.tpb
- ren COURIE14.TPF *.tpb
- ren COURIE15.TPF *.tpb
- ren LNPRINT4.TPF *.tpb
- ren LNPRINT5.TPF *.tpb
- ren LNPRINT6.TPF *.tpb
- ren LNPRINT7.TPF *.tpb
- REM 2) Delete the remaining downloaded fonts ...
- del %1\*.tpf
- del *.tpf
- REM 3) Restore Factory fonts ...
- ren *.tpb *.tpf
- REM 4) Restore Factory Font Header
- del %1\softfnt.hdr
- del softfnt.hdr
- copy softfnt.org *.hdr
- REM 5) Adjust the set file
- if not exist hjpro.set goto WinSet2Only
- cleartag PCLLF* hjpro.set
- cleartag PCLSF* hjpro.set
- echo PCLSFDEFAULT=COURIER0>> hjpro.set
- :WinSet2Only
- if not exist %2\hjpro.set goto End
- cleartag PCLLF* %1\hjpro.set
- cleartag PCLSF* %1\hjpro.set
- echo PCLSFDEFAULT=COURIER0>> %1\hjpro.set
- goto End
- :Network
- REM Windows given, HJPRO is on network
- echo Clearing all downloaded PCL Soft Fonts from the Windows directory (%1) ...
- REM 1) Delete the downloaded fonts ...
- del %1\*.tpf
- REM 4) Restore Factory Font Header
- del %1\softfnt.hdr
- REM 5) Adjust the set file
- if not exist %1\hjpro.set goto End
- cleartag PCLLF* %1\hjpro.set
- cleartag PCLSF* %1\hjpro.set
- echo PCLSFDEFAULT=COURIER0>> %1\hjpro.set
- goto End
- :NoWindows
- REM Windows and HJPRO not given
- echo USAGE:
- echo CLEARPCL [WindowsDirectory] {HJPRODirectory}
- echo Where:
- echo WindowsDirectory is the path where your WIN.INI file is
- echo HJPRODirectory is the path where HJPRO is installed
- echo NOTE:
- echo You must specify a WindowsDirectory, HJPRODirectory is optional.
- echo For network installations, use NETWORK as the HJPRODirectory.
- goto End
- :End
-