;
; LB:[1,2]VFSSTART.CMD
;
;	INSTALLERAR OCH STARTAR VFS ("VFSINS"+"VFSSTART"+"VFSREG")
;
;	VERSION 88-01-17 - LABAN
;
.;
.;**************************************TESTA ATT FILEN K\RS R[TT ********
.;
	.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.IFNDF $PROUT .ASK $PROUT Utskrivna kommandon
	.IFF $PROUT .ENABLE QUIET
	.IFT $PROUT .DISABLE QUIET
	.IF <UIC> EQ "[1,54]" .GOTO OK1
	.IF <UIC> EQ "[1,2]" .GOTO OK1
	.DISABLE QUIET
; EJ TILL]TET K\RA UNDER ANNAT UIC [N 1,54 ELLER 1,2
	.GOSUB FEL
.;
.OK1:
	.TESTDEVICE TI:
	.PARSE <EXSTRI> "," VAR1 VAR2
	.IF VAR1 EQ "TT0:" .GOTO OK2
	.DISABLE QUIET
; EJ TILL]TET K\RA FR]N ANNAT H]LL [N FR]N KONSOLEN
	.IFNDF $XSPC .SETS $XSPC "USER"
	.IF $XSPC NE "930BTA" .GOSUB FEL
	.IFNDF $REO .GOTO OK2
	.IFDF $REO .IFF $REO .GOSUB FEL
.OK2:
.;
.;
;
;****************** INSTALLERA VFSTASKARNA ****************************
;
	INS LB:[110,60]VFSACP/CKP=NO/PAR=GEN/PMD=YES/IOP=NO
	.IF <EXSTAT> NE 1 .DISABLE QUIET
	.IF <EXSTAT> NE 1 ; INS VFSACP FAILED
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:[110,60]VFSERR
	.IF <EXSTAT> NE 1 .DISABLE QUIET
	.IF <EXSTAT> NE 1 ; INS VFSERR FAILED
	.IF <EXSTAT> NE 1 .GOSUB FEL
.;INS [110,60]VMP
.;INS [110,60]RAFEST
.;
	ALT SHF.../PRI=231.
;
;**************************** MAKE GLOBAL ASSIGNMENTS *******************
;
.;ASN DR1:=TK:/GBL		!TASK FILES, ON-LINE, PUB
.;ASN DR1:=GE:/GBL		!TASK FILES, ON-LINE, GEM
.;ASN DR1:=BA:/GBL		!TASK FILES, BATCHAR
.;ASN DR0:=SV:/GBL		!SAVED DELETED REGISTERS (XXX.DEL)
.;ASN DR0:=LG:/GBL		!REGISTER LOG FILES, PUB
.;ASN DR1:=LM:/GBL		!REGISTER FILES, PUB
.;ASN DR1:=PB:/GBL		!PUB LISTNINGAR , P] [200,142]
.;ASN DR1:=KP:/GBL		!PUB RJE-FILER , P] [200,142]
.;
	ASN DU:=TK:/GBL		!TASK FILES, ON-LINE, PUB
	ASN DU:=GE:/GBL		!TASK FILES, ON-LINE, GEM
	ASN DU:=BA:/GBL		!TASK FILES, BATCHAR
	ASN DU:=SV:/GBL		!SAVED DELETED REGISTERS (XXX.DEL)
	ASN DU:=LG:/GBL		!REGISTER LOG FILES, PUB
	ASN DU:=LM:/GBL		!REGISTER FILES, PUB
	ASN DU:=PB:/GBL		!PUB LISTNINGAR , P] [200,142]
	ASN DU:=KP:/GBL		!PUB RJE-FILER , P] [200,142]
;
;
;***************** STARTA VFS ****************************************
;
	FIX VFSACP
	.IF <EXSTAT> NE 1 .DISABLE QUIET
	.IF <EXSTAT> NE 1 ; FIX VFSACP FAILED
	.IF <EXSTAT> NE 1 .GOSUB FEL
	RUN VFSACP 1T	!RUN FROMN CO:
	.IF <EXSTAT> NE 1 .DISABLE QUIET
	.IF <EXSTAT> NE 1 ; RUN VFSACP FAILED
	.IF <EXSTAT> NE 1 .GOSUB FEL
	.IFNACT VFSACP .DISABLE QUIET
	.IFNACT VFSACP ;VFSACP STARTADE INTE
	.IFNACT VFSACP .GOSUB FEL
;
	.SETS UIC <UIC>
	SET /UIC=[10,1]
	VFU LB:[110,60]VFSREG.TSK/IR
	.IF <EXSTAT> NE 1 .DISABLE QUIET
	.IF <EXSTAT> NE 1 ; VFU VFSREG/IR VFSACP FAILED
	.IF <EXSTAT> NE 1 .GOSUB FEL
	SET /UIC='UIC'
	.EXIT
;
.FEL:
	.DISABLE QUIET
	;VFSSTART.CMD SKET SIG
	LRM 223
	.PAUSE
	.RETURN
;
; <EOF> VFSSTART.CMD
;