$! This command procedure will compile and link the image
$! loader needed to load IP_VCM.EXE.  
$
$ ON WARNING THEN GOTO CLEANUP
$
$ SAVE_DEFAULT  = F$ENVIRONMENT("DEFAULT")
$ NEW_DEFAULT   = F$ENVIRONMENT("PROCEDURE")
$ NEW_DEFAULT   = F$PARSE(NEW_DEFAULT,,,"DEVICE") + -
                  F$PARSE(NEW_DEFAULT,,,"DIRECTORY")
$ SET DEFAULT 'NEW_DEFAULT'
$
$ CC LOAD_IP_VCM + -
  SYS$LIBRARY:SYS$LIB_C.TLB/LIB + -
  SYS$LIBRARY:SYS$STARLET_C.TLB/LIB
$
$ LINK/SYSEXE/EXE=LOAD_IP_VCM LOAD_IP_VCM
$
$ DELETE LOAD_IP_VCM.OBJ;*
$
$ CLEANUP:
$
$ SET DEFAULT 'SAVE_DEFAULT'