' *****************************************************************************
' *                     DOORPCH.BEG Version 3.8 for Doors                     *
' *                    By Raymond Clements, Clint Labarthe                    *
' *                Terry Shockley, Harold Thomson & Ben Perron                *
' *      Copyright (C), 1987, 1988, 1989, 1990, 1991 All Rights Reserved      *
' *                This logic begins at line number (label) 1.                *
' *                                                                           *
' *          It MUST be "$INCLUDEd" at the BEGinning of your program.         *
' *****************************************************************************

1  ON ERROR GOTO ERR.ROUTINE
   CALL INITIALIZE