@echo off
rem 
rem Batch file to enable times.sty with emtexgi, including PK
rem fonts for dviwin at 300dpi.  This procedure does only
rem the Times fonts, plus a subset of Helvetica and Courier --
rem i.e. enough to use times.sty in reasonably simple mode.
rem
rem Allin Cottrell, December 1996
rem
rem Check for prerequisites...

rem Unzipper stuff...
if exist unzip.exe goto unzipok
if not exist unz512x3.exe goto ziperr
.\unz512x3.exe
goto unzipok
:ziperr
echo Can't find either unzip.exe or the archive unz512x3.exe.
echo You need one or other of these in this directory.
goto end
:unzipok

rem Check for psfonts.zip and timestex.zip...
if not exist psfonts.zip goto errmsg
if not exist timestex.zip goto errmsg

rem Now see if dvips stuff is installed...
if exist \emtex\texinput\dvips\nul goto dvipsok
if not exist dvipsini.zip goto dvipserr
.\unzip dvipsini.zip -d \
goto dvipsok
:dvipserr
echo I don't believe that the contents of dvipsini.zip have
echo been installed.  Furthermore, I can't find dvipsini.zip
echo to install it now.  Please get this file and try again.
goto end
:dvipsok

rem And the dvipsfnt stuff...
if exist \texfonts\vf\ptmr.vf goto fntok
if not exist dvipsfnt.zip goto fnterr
.\unzip dvipsfnt.zip -d \
goto fntok
:fnterr
echo I don't believe that the contents of dvipsfnt.zip have
echo been installed.  Furthermore, I can't find dvipsfnt.zip
echo to install it now.  Please get this file and try again.
goto end
:fntok

rem Unzip times.sty and the *.fd files...
.\unzip timestex.zip -d \emtex\texinput\dvips
if exist \emtex\mytex\nul move \emtex\texinput\dvips\times.tex \emtex\mytex

rem Now do the fonts...
if not exist \texfonts\nul mkdir \texfonts
.\unzip psfonts.zip ptmb.* ptmbi.* ptmr.* ptmri.* -d \texfonts
.\unzip psfonts.zip phvb.* phvr.* pcrr.* -d \texfonts
for %%a in (150 180 210 240 270 300) do mkdir \texfonts\%%a >nul
for %%a in (329 360 432 518 622 746) do mkdir \texfonts\%%a >nul
for %%a in (150 180 210 240 270 300) do move \texfonts\*.%%a \texfonts\%%a
for %%a in (329 360 432 518 622 746) do move \texfonts\*.%%a \texfonts\%%a
rem Bloody DOS!  If anyone knows of a more efficient way
rem to do the following, please let me know!
rem First the Times fonts...
for %%a in (ptmb ptmbi ptmr ptmri) do move \texfonts\150\%%a.150 \texfonts\150\%%a.pk
for %%a in (ptmb ptmbi ptmr ptmri) do move \texfonts\180\%%a.180 \texfonts\180\%%a.pk
for %%a in (ptmb ptmbi ptmr ptmri) do move \texfonts\210\%%a.210 \texfonts\210\%%a.pk
for %%a in (ptmb ptmbi ptmr ptmri) do move \texfonts\240\%%a.240 \texfonts\240\%%a.pk
for %%a in (ptmb ptmbi ptmr ptmri) do move \texfonts\270\%%a.270 \texfonts\270\%%a.pk
for %%a in (ptmb ptmbi ptmr ptmri) do move \texfonts\300\%%a.300 \texfonts\300\%%a.pk
for %%a in (ptmb ptmbi ptmr ptmri) do move \texfonts\329\%%a.329 \texfonts\329\%%a.pk
for %%a in (ptmb ptmbi ptmr ptmri) do move \texfonts\360\%%a.360 \texfonts\360\%%a.pk
for %%a in (ptmb ptmbi ptmr ptmri) do move \texfonts\432\%%a.432 \texfonts\432\%%a.pk
for %%a in (ptmb ptmbi ptmr ptmri) do move \texfonts\518\%%a.518 \texfonts\518\%%a.pk
for %%a in (ptmb ptmbi ptmr ptmri) do move \texfonts\622\%%a.622 \texfonts\622\%%a.pk
for %%a in (ptmb ptmbi ptmr ptmri) do move \texfonts\746\%%a.746 \texfonts\746\%%a.pk
rem Then Helvetica and Courier...
for %%a in (phvb phvr pcrr) do move \texfonts\150\%%a.150 \texfonts\150\%%a.pk
for %%a in (phvb phvr pcrr) do move \texfonts\180\%%a.180 \texfonts\180\%%a.pk
for %%a in (phvb phvr pcrr) do move \texfonts\210\%%a.210 \texfonts\210\%%a.pk
for %%a in (phvb phvr pcrr) do move \texfonts\240\%%a.240 \texfonts\240\%%a.pk
for %%a in (phvb phvr pcrr) do move \texfonts\270\%%a.270 \texfonts\270\%%a.pk
for %%a in (phvb phvr pcrr) do move \texfonts\300\%%a.300 \texfonts\300\%%a.pk
for %%a in (phvb phvr pcrr) do move \texfonts\329\%%a.329 \texfonts\329\%%a.pk
for %%a in (phvb phvr pcrr) do move \texfonts\360\%%a.360 \texfonts\360\%%a.pk
for %%a in (phvb phvr pcrr) do move \texfonts\432\%%a.432 \texfonts\432\%%a.pk
for %%a in (phvb phvr pcrr) do move \texfonts\518\%%a.518 \texfonts\518\%%a.pk
for %%a in (phvb phvr pcrr) do move \texfonts\622\%%a.622 \texfonts\622\%%a.pk
for %%a in (phvb phvr pcrr) do move \texfonts\746\%%a.746 \texfonts\746\%%a.pk

echo Times.sty and font definition files are now installed
echo in \emtex\texinput\dvips.
echo PK fonts for Times, Helvetica and Courier are now
echo installed in \texfonts.  
goto end

:errmsg
echo One or both of psfonts.zip and timestex.zip not found.  
echo I can't proceed without both of these files.

:end