ECHO OFF
CLS
BREAK ON
REM Iris-Reg.Bat  Copyright (c) 1989 Ted Husted  Do not alter!

:INVENTORY
 FOR %%f IN (CHKPRN.EXE GETKEY.EXE) DO IF NOT EXIST %%f GOTO LOGON

:CHECK
 CHKPRN
 IF ERRORLEVEL 3 GOTO OFFLINE

:ASK
 GETKEY Would you like to print the registration form now? Y
 IF ERRORLEVEL 1 GOTO SORRY

:GO
 COPY IRIS-REG. PRN:
 GOTO END

:SORRY
 ECHO Please try to run "%0" again sometime.
 GOTO END

:OFFLINE
 ECHO Your printer doesn't seem ready.
 GETKEY Would you like to continue anyway? N
 IF NOT ERRORLEVEL 1 GOTO SORRY
 GOTO ASK

:LOGON
 ECHO Please log onto the distribution disk and try again.

:END