 $! (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 $! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 $!
-$ ON CONTROL_Y THEN GOTO MMK_CONTROL_Y
-$ ON WARNING THEN GOTO MMK_FAIL
-$!
-$ DELETE_SYMBOL := DELETE/SYMBOL
-$!
-$ IF P1 .EQS. "VMI$_INSTALL" THEN GOTO MMK_INSTALL
-$ EXIT VMI$_UNSUPPORTED
+$ on control_y then goto mmk_control_y
+$ on warning then goto mmk_fail
+$!
+$ if (p1 .eqs. "VMI$_INSTALL") then goto mmk_install
+$ if (f$element(0,"_",p1) .eqs. "HELP") then goto 'p1'
+$ exit VMI$_UNSUPPORTED
 $!
 $MMK_CONTROL_Y:
 $ VMI$CALLBACK CONTROL_Y

        (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
        OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

$!
$ mmk_do_doc = 0
$ mmk_do_source = 0
$ mmk_dir = F$TRNLNM("MMK_DIR")
$!
$ IF mmk_dir .NES. ""
$ THEN
$   VMI$CALLBACK MESSAGE W OLD_MMK "An older version of MMK was found in ''mmk_dir'."
$   TYPE SYS$INPUT:
 
    ** WARNING **
    The installation procedure has detected a non-VMSINSTAL
    installation of MMK.  This may be a pre-V5.0 release of MMK or
    a locally built version.  Please make sure that after completing
    this software installation the previous installation is removed
    or disabled.

    Note that this installation will not change any existing installation
    that was not installed with VMSINSTAL or PCSI.

$   VMI$CALLBACK ASK mmk_ok "Do you want to continue this installation anyway" "YES" B
$   IF .NOT. mmk_ok THEN EXIT VMI$_FAILURE
$ ENDIF
$!
$ VMI$CALLBACK ASK mmk_ok "Do you want to install the MMK documentation set" "YES" B
$ IF mmk_ok THEN mmk_do_doc = 1
$!
$ VMI$CALLBACK ASK mmk_ok "Do you want to install the MMK source code" "NO" B
$ IF mmk_ok THEN mmk_do_source = 1
$!
$ VMI$CALLBACK MESSAGE I INSTALL "Installing MMK software..."
$!
$ VMI$CALLBACK PROVIDE_DCL_COMMAND MMK_CLD.CLD
$ VMI$CALLBACK PROVIDE_DCL_HELP MMK_HELP.HLP
$!
$ VMI$CALLBACK RESTORE_SAVESET 'base_saveset'
$ VMI$CALLBACK PROVIDE_IMAGE MMK_TMP MMK.EXE VMI$ROOT:[SYSEXE] K
$!
$ IF mmk_do_doc
$ THEN
$   VMI$CALLBACK MESSAGE I INSTALL_DOC "Installing documentation files..."
$   VMI$CALLBACK CREATE_DIRECTORY COMMON SYSHLP.MMK "/PROTECTION=W:R"
$   VMI$CALLBACK PROVIDE_FILE "" MMK_DOC_LIST.DAT "" T
$ ENDIF
$!
$ IF mmk_do_source
$ THEN
$   VMI$CALLBACK MESSAGE I INSTALL_SOURCE "Installing source kit..."
$   VMI$CALLBACK CREATE_DIRECTORY COMMON SYSHLP.MMK "/PROTECTION=W:R"
$   VMI$CALLBACK RESTORE_SAVESET E
$   VMI$CALLBACK PROVIDE_FILE MMK_TMP MMK'mmk_kit_version'_SOURCE.ZIP VMI$ROOT:[SYSHLP.MMK]
$ ENDIF
$!
$ EXIT VMI$_SUCCESS

$ IF tmp .GT. 0 .AND. tmp .LT. 1024
$ THEN
$   mmk_arch = "VAX"
$   mmk_system_type = 1
$   mmk_system_name = mmk_arch
$ ELSE
$   mmk_system_type = F$GETSYI ("ARCH_TYPE")
$   mmk_system_name = F$ELEMENT(mmk_system_type, ",", "OTHER,VAX,AXP,I64") - ","
$   mmk_arch = F$EDIT (F$GETSYI ("ARCH_NAME"), "TRIM,UPCASE")
$ ENDIF
$ IF mmk_arch .EQS. "VAX"
$ THEN
