$ !     BP2INS.CMD
$ !
$ !     BASIC-PLUS 2 Startup Command File
$ !
$ !     Parameters passed:
$ !
$ !             none
$ !

$ ! Set up the environment.
$	_ON ERROR THEN GOTO ERROR
$	_ON CONTROL_C THEN GOTO ABORT

$	debug = p1

$ ! Set up local symbols
$	PRINT$ = "_WRITE 0"

$ ! Set up local boolean symbols
$	false = 0
$	true = .NOT. false
$	aborting = false

$START:
$	time = F$TIME()

$	PRINT$ time, "   Starting BASIC-PLUS 2"

$	_IF debug THEN _GOTO END

$	priv = F$PRIVILEGE("INSTAL,SWCFG")
$	   _IF priv THEN _GOTO REMOVE

$		PRINT$ "Insufficient privileges"
$		_GOTO ABORT

$REMOVE:
$ ! Remove old BASIC-PLUS 2 CCLs.
$	_ON ERROR THEN _GOTO DEFINE             ! If not defined.
$	_SET NOECHO/NOWARNING
$	_REMOVE/RUNTIME BP2
$	_DELETE/COMMAND/SYSTEM BP2
$	_DELETE/COMMAND/SYSTEM B2RESEQ
$	_DELETE/COMMAND/SYSTEM B2OPTIMIZ
$	_DELETE/COMMAND/SYSTEM B2ANALYZE
$	_REMOVE/LIBRARY BP2RES
$	_REMOVE/LIBRARY BP2SML

$DEFINE:
$ ! Define BASIC-PLUS 2 CCLs.
$	_ON ERROR THEN _GOTO ERROR              ! Restore error handler.
$	_SET NOECHO/WARNING
$	_INSTALL/RUNTIME BP2
$	_DEFINE/COMMAND/SYSTEM BP2- SY:[1,2]BP2IC2.TSK
$	_DEFINE/COMMAND/SYSTEM B2RE-SEQ SY:[1,2]B2RESQ.TSK
$	_DEFINE/COMMAND/SYSTEM B2OPT-IMIZ SY:[1,2]BP2OPT.TSK
$	_DEFINE/COMMAND/SYSTEM B2ANA-LYZE SY:[1,2]BP2DA.TSK
$	_INSTALL/LIBRARY SY:[0,1]BP2RES
$	_INSTALL/LIBRARY SY:[0,1]BP2SML

$	_GOTO END

$ABORT:
$	aborting = true

$ERROR:
$	time = F$TIME()
$	PRINT$ time, " Unable to start BASIC-PLUS 2"

$END:
$	status = $SEVERITY
$	   _IF aborting THEN status = 4         ! Force fatal.

$	time = F$TIME()
$	PRINT$ time, "   The BASIC-PLUS 2 Startup Procedure is complete."

$	_EXIT status

