.;
.;  VMLOADFIL F\R PROGRAMUTVECKLING
.;
;   VERSION 88-08-10
.;
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.IFNDF $PROUT .SETT $PROUT
	.IFT $PROUT .DISABLE QUIET
.;
	.GOSUB VMLOAD
	.IF EXST EQ 1 .GOTO VMOK
	.SETN EXST 2
	ASN LB:=SL:/GBL		!SYSTEM LIBRARIES
	.IF <EXSTAT> NE 1 .SETN EXST 3
	ASN WI:=AL:/GBL		!APPLICATION LIBRARIES
	.IF <EXSTAT> NE 1 .SETN EXST 3
;
;*** OBS *** FASTDISK kunde inte mountas !
	.GOTO VMNEX
.VMOK:
	ASN VM:=SL:/GBL		!SYSTEM LIBRARIES
	'IF'.IF <EXSTAT> NE 1
		.SETN EXST 3
		.GOTO VMNEX
	'ENDIF'
	ASN VM:=AL:/GBL		!APPLICATION LIBRARIES
	'IF'.IF <EXSTAT> NE 1
		.SETN EXST 3
		.GOTO VMNEX
	'ENDIF'
	UFD VM:[1,1]
	'IF'.IF <EXSTAT> NE 1
		.SETN EXST 3
		.GOTO VMNEX
	'ENDIF'
	PIP VM:[1,1]=LB:[1,1]SYSLIB.OLB,FV6OTS.OLB
	'IF'.IF <EXSTAT> NE 1
		.SETN EXST 3
		.GOTO VMNEX
	'ENDIF'
	UFD VM:[200,147]
	'IF'.IF <EXSTAT> NE 1
		.SETN EXST 3
		.GOTO VMNEX
	'ENDIF'
	PIP VM:[200,147]/CO=WI:[200,147]VOLVOLIB.OLB
	'IF'.IF <EXSTAT> NE 1
		.SETN EXST 3
		.GOTO VMNEX
	'ENDIF'
	PIP VM:[200,147]/CO=WI:[200,147]NETIFCFV6.OLB
	'IF'.IF <EXSTAT> NE 1
		.SETN EXST 3
		.GOTO VMNEX
	'ENDIF'
	PIP VM:[200,147]/CO=WI:[200,147]VFSIFC.OLB
	'IF'.IF <EXSTAT> NE 1
		.SETN EXST 3
		.GOTO VMNEX
	'ENDIF'
	PIP VM:[200,147]/CO=WI:[200,147]UBGEM.OLB
	'IF'.IF <EXSTAT> NE 1
		.SETN EXST 3
		.GOTO VMNEX
	'ENDIF'
	UFD VM:[3,54]
	'IF'.IF <EXSTAT> NE 1
		.SETN EXST 3
		.GOTO VMNEX
	'ENDIF'
	PIP VM:[3,54]=LB:[3,54]LBRFSL.TSK,TKBFSL,MET,FOR,F77
	'IF'.IF <EXSTAT> NE 1
		.SETN EXST 3
		.GOTO VMNEX
	'ENDIF'
.;
.VMNEX:
	@LB:[1,2]UTLINS
	.EXIT 'EXST'
.;
.;
.VMLOAD:
	@LB:[1,2]VMCONTROL LOAD 600 Y
	.SETN EXST <EXSTAT>
	.RETURN