$ ON CONTROL_Y THEN GOTO DONE
$ SET PROT=(S:RWED,G:RWED,O:RWED,W:RE)/DEFAULT
$ SYSDISK = F$LOGICAL("SYS$DISK")
$ DEFUIC:='F$USER()
$ EXIT_MESSAGE = " Kermit-32 installation abnormally terminated."
$ SET NOON
$ WRITE SYS$OUTPUT " "
$ WRITE SYS$OUTPUT "                Kermit-32 Installation Procedure"
$ WRITE SYS$OUTPUT " "
$
$ INQUIRE DO_INSTALL " Rebuild from sources? (YES or NO) "
$ IF DO_INSTALL .EQS. "" THEN GOTO INS
$ IF .NOT. DO_INSTALL THEN GOTO INS
$
$LANG_QUESTION:
$ INQUIRE LANG_TYPE " Which version? (BLISS or MACRO) "
$ IF LANG_TYPE .EQS. "" THEN GOTO LANG_ERR
$ IF LANG_TYPE .EQS. "BLISS" .OR. LANG_TYPE .EQS. "bliss" THEN GOTO INS
$ IF LANG_TYPE .EQS. "MACRO" .OR. LANG_TYPE .EQS. "macro" THEN GOTO INS
$
$LANG_ERR:
$ WRITE SYS$OUTPUT " Respond with ""BLISS"" or ""MACRO"""
$ GOTO LANG_QUESTION
$
$INS:
$ INQUIRE DO_INS " Install Kermit-32 on the system?"
$
$ IF DO_INS .EQS. "" THEN GOTO INS
$ IF LANG_TYPE .EQS. "BLISS" .OR. LANG_TYPE .EQS. "bliss" THEN GOTO BLI
$ IF LANG_TYPE .EQS. "MACRO" .OR. LANG_TYPE .EQS. "macro" THEN GOTO MAR
$
$BLI:
$ WRITE SYS$OUTPUT " This may take some time"
$ BLISS KERMIT.BLI/OBJECT=KERMIT
$ BLISS KERMSG.BLI/OBJECT=KERMSG
$ BLISS KERGLB.BLI/OBJECT=KERGLB
$ BLISS KERTRM.BLI/OBJECT=KERTRM
$ BLISS KERFIL.BLI/OBJECT=KERFIL
$ BLISS KERTT.BLI/OBJECT=KERTT
$ BLISS KERSYS.BLI/OBJECT=KERSYS
$
$ GOTO BLDCOM
$
$MAR:
$ WRITE SYS$OUTPUT " This may take some time"
$ MACRO KERMIT.MAR/OBJECT=KERMIT
$ MACRO KERMSG.MAR/OBJECT=KERMSG
$ MACRO KERGLB.MAR/OBJECT=KERGLB
$ MACRO KERTRM.MAR/OBJECT=KERTRM
$ MACRO KERFIL.MAR/OBJECT=KERFIL
$ MACRO KERTT.MAR/OBJECT=KERTT
$ MACRO KERSYS.MAR/OBJECT=KERSYS
$
$BLDCOM:
$ MACRO KERGEN.MAR/OBJECT=KERGEN.OBJ
$ MESSAGE KERERR.MSG
$ LINK KERMIT, KERMSG, KERGLB, KERTRM, KERFIL, KERTT, KERERR, KERSYS, KERGEN
$
$ IF .NOT. DO_INS THEN GOTO SUCCESS
$
$
$ SET UIC [001,004]
$ COPY KERMIT.EXE SYS$SYSTEM:KERMIT.EXE
$ LIBRARY/HELP/DELETE=KERMIT SYS$HELP:HELPLIB.HLB
$ RUNOFF KERMIT.RNH/VAR=SYSTEM
$ LIBRARY/INSERT/HELP SYS$HELP:HELPLIB.HLB KERMIT.HLP
$ RUNOFF KERMIT.RNH
$ LIBRARY/CREATE/HELP SYS$HELP:KERMIT.HLB KERMIT.HLP
$
$SUCCESS:
$ EXIT_MESSAGE = " Kermit-32 installation is complete."
$
$DONE:
$ ON CONTROL_Y THEN GOTO DONE3
$ SET NOON
$
$DONE3:
$ IF "''DEFUIC'" .NES. "" THEN SET UIC 'DEFUIC'
$ WRITE SYS$OUTPUT EXIT_MESSAGE
$ SET ON
$ EXIT