ECHO OFF
CLS
BREAK ON
IF ZZ == %1ZZ goto RI
ECHO DBATE004.BAT  Copyright 1990, R.H. Martin.
REM Note %1 should only be PRN, COM1, COM2, LPT1, or LPT2.
REM DBATE004.BAT, when ran with a parameter, is executed by the magazine.
GOTO CHK

:LOGON
ECHO Some files are missing.
ECHO Use a good disk & try again.
PAUSE
GOTO END

:CHK
FOR %%f IN (DBATE004.OLD DBATE004.NEW DBATE004.HDR) DO IF NOT EXIST %%f GOTO LOGON

:GO
ECHO TWO COPIES OF THE SUBSCRIPTION FORM ARE PRINTED FOR YOUR CONVENIENCE
ECHO ... 
COPY DBATE004.HDR+DBATE004.OLD+DBATE004.NEW %1
ECHO >%1
COPY DBATE004.HDR+DBATE004.OLD+DBATE004.NEW %1
ECHO >%1
GOTO END

:RI
CLS
INQUIRY Answer 'Y' if you have a Color Monitor; 'N' otherwise.
if errorlevel 1 copy *.col *.cfg
if not errorlevel 1 copy *.bw *.cfg
ECHO Loading Software & Magazine ...
IRIS DBATE004.PGE
:END