[SWEXA.WRK]BOOT.COM_SRC

$       sav_vfy = 'f$verify(0)'
$ !++
$ !
$ !  DCL command procedure:
$ !     BOOT
$ !
$ !  Purpose:
$ !     Application BOOT command procedure which is executed in batch under
$ !     the application username during system startup and disk mounts to
$ !     get the application into a runnable state.
$ !
$ !  Copyright:
$ !!    Copyright © 1987 - 1998 Corpita Pty Ltd
$ !     15 Bedford Street, Collingwood 3066, Australia
$ !
$ !  History:
$ !     21-Nov-1998 by SLJ
$ !         Standardise context handling
$ !     31-Jul-1995 by SLJ
$ !         Add multi-architecture support
$ !         Add multi-variant support
$ !         Add multi-version support
$ !     19-Feb-1994 by Simon L. Jackson
$ !         New version
$ !
$ !--
$
$       utltools fetch subcontext
$
$       say "  Booting ''dsc_ctx'"
$
$       @'dir_sft'logicals
$
$       exit 1 + 0*f$verify(sav_vfy)