$ IF F$GETSYI("HW_MODEL") .LT. 1024
$ THEN VAX=1
$ ELSE VAX=0
$ ENDIF
$ AXP=1-VAX
$ VMSVERS=F$EXTRACT(1,3,F$GETSYI("VERSION"))
$ IF VAX
$ THEN
$  IF VMSVERS .GES. "5.0"
$  THEN LINK/NOTRACE/EXEC=EXECSYMB'P1' EXECSYMB,EXPSYMBDEF,ENTREM,SYS$INPUT:/OPT
EXECSYMB_KM/SHARE
SYS$SYSTEM:SYS.STB/SEL
$  ELSE
$   IF VMSVERS .LTS. "4.0"
$   THEN WRITE SYS$OUTPUT "Unsupported VAX VMS version!"
$   ELSE LINK/NOTRACE/EXEC=EXECSYMB'P1' EXECSYMB,EXPSYMBDEF,ENTREM,SETUSER,-
          LIBFIDNAM,SYS$SYSTEM:SYS.STB/SEL
$   ENDIF
$  ENDIF
$ ENDIF
$ IF AXP
$ THEN
$  IF VMSVERS .NES. "1.5" .AND. VMSVERS .LTS. "6.1"
$  THEN WRITE SYS$OUTPUT "Unsupported AXP VMS version!"
$  ELSE LINK/NOTRACE/EXEC=EXECSYMB/SYSEXE=SEL'P1' EXECSYMB,EXPSYMBDEF,ENTREM,-
         SYS$INPUT:/OPT
EXECSYMB_KM/SHARE
$  ENDIF
$ ENDIF
$ EXIT