;
;
; KOMMANDOFIL LB:[1,2]PUBREGREM.CMD -- G\R REMOVE P] ALLA REGISTER
;
;
;	VERSION 87-10-12 B-E TAPPER
;
	.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
.;
	.IFNDF $PROUT .ASK $PROUT Utskrivna kommandon
	.IFT $PROUT .DISABLE QUIET
	.IFF $PROUT .ENABLE QUIET
	.IFDF $OVRRD .GOTO OK2
.;
.;**************************************TESTA ATT FILEN K\RS R[TT ********
.;
	.IF <UIC> EQ "[1,2]" .GOTO OK1
	.DISABLE QUIET
	; EJ TILL]TET K\RA UNDER ANNAT UIC [N 1,2
	.STOP
.;
.OK1:
	.TESTDEVICE TI:
	.PARSE <EXSTRI> "," VAR1 VAR2
.IF VAR1 EQ "TT0:" .GOTO OK2
	.IF VAR1 EQ "TT2:" .GOTO OK2
	.DISABLE QUIET
	; EJ TILL]TET K\RA FR]N ANNAT H]LL [N FR]N KONSOLEN
	.IF $XSPC NE "930BTA" .STOP
.;
.;
.OK2:
;
;
;	G\R REMOVE P] VTS GEMENSAMMA REGISTER
;
	VFU @LB:[1,2]PUBREGREM.VFU
	.IF <EXSTAT> NE 1 .DISABLE QUIET
	.IF <EXSTAT> NE 1 ;VISSA REGISTER HADE MAN INTE GJORT ENTER P]
.WAIAG:
	.WAIT VFU
	.WAIT ...VFU
	.WAIT VFUT0
	.IFACT VFU .GOTO WAIAG
	.IFACT ...VFU .GOTO WAIAG
	.IFACT VFUT0 .GOTO WAIAG
	.IFACT VFSERR .GOTO WAIAG
	.EXIT