.;
.;  KOMMANDOFIL F\R STOPP AV PUB,TAX OCH VFS P] LABAN
.;
;   VERSION 88-08-18
.;
.;
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.IFNDF $PROUT .SETF $PROUT		!KAN [NDRA F\R FELS\KNING
	.IFF $PROUT .ENABLE QUIET
	.IFDF $SHUT .GOTO NAMNOK
.;
	.IFNDF $BACKU .ASK $BACKU SKA UTK-BEVAKNING UNDANTAS FR]N STOPP
.;
.;**************************************TESTA ATT FILEN K\RS R[TT ********
.;
	'IF'.IF <UIC> NE "[1,2]"
		.DISABLE QUIET
		; EJ TILL]TET K\RA UNDER ANNAT UIC [N 1,2
		.STOP
	'ENDIF'
.;
	.IFNDF $XSPC .SETS $XSPC "USER"
	'IF'.IF $XSPC NE "930BTA"
		.TESTDEVICE TI:
		.PARSE <EXSTRI> "," VAR1 VAR2
		'IF'.IF VAR1 NE "TT0:"
			'IF'.IF VAR1 NE "TT2:"
				.DISABLE QUIET
			; EJ TILL]TET K\RA FR]N ANNAT H]LL [N FR]N KONSOLEN
				.STOP
			'ENDIF'
		'ENDIF'
	'ENDIF'
.;
.;
	'IF'.IFNACT VFSACP
		.DISABLE QUIET
		;VFSACP [R INTE IG]NG/INSTALLERAD !!!
		.ASK GO GOON
		.IFF GO .STOP
	'ENDIF'
.;
	'IF'.IFNACT LIO
		.DISABLE QUIET
		;LIO [R INTE I IG]NG/INSTALLERAD !!!
		.ASK GO GOON
		.IFF GO .STOP
	'ENDIF'
.;
	'IF'.IF $XSPC NE "930BTA"
	.ASK GO Du vet v{l att det {r mycket farligt f|r registren att k|ra detta
		.IFF GO .STOP
		.ASK GO Tar Du p} Ditt ansvar att k|ra {nd}
		.IFF GO .STOP
	'ENDIF'
.;
.NAMNOK:
	.IFNDF $BACKU .SETF $BACKU
	.IFNINS ...LIU INS $LIU/IOP=NO
	.IFNINS ...VFU INS $VFU
	.IFACT LIO LIU /TS:1:60/FU
	.ASK GO [r det OK att k|ra ?
	.IFF GO .STOP
	.IFF $PROUT .ENABLE QUIET
;
;******************* F\RS\K TA NED TAX
;
	.IFNACT LIO .GOTO LIOREM
	LIU /TE:1:OF
	.WAIT LIU
	LIU /TE:2:OF
	.WAIT LIU
	LIU /TE:3:OF
	.WAIT LIU
	LIU /TE:4:OF
	.WAIT LIU
	LIU /TE:5:OF
	.WAIT LIU
	LIU /TE:11:OF
	.WAIT LIU
	LIU /TE:12:OF
	.WAIT LIU
	LIU /TE:13:OF
	.WAIT LIU
	LIU /TE:14:OF
	.WAIT LIU
	LIU /TE:15:OF
	.WAIT LIU
	;LIU /TE:16:OF
	;.WAIT LIU
	LIU /TE:20:OF
	.WAIT LIU
	LIU /TE:21:OF
	.WAIT LIU
	LIU /TE:22:OF
	.WAIT LIU
	LIU /TE:23:OF
	.WAIT LIU
	LIU /TE:24:OF
	.WAIT LIU
	LIU /TE:25:OF
	.WAIT LIU
	LIU /TE:31:OF
	.WAIT LIU
	LIU /TE:32:OF
	.WAIT LIU
	LIU /TE:33:OF
	.WAIT LIU
	LIU /TE:34:OF
	.WAIT LIU
	LIU /TE:35:OF
	.WAIT LIU
	LIU /TE:41:OF
	.WAIT LIU
	LIU /TE:42:OF
	.WAIT LIU
	LIU /TE:43:OF
	.WAIT LIU
	LIU /TE:44:OF
	.WAIT LIU
	LIU /TE:45:OF
	.WAIT LIU
	LIU /TE:50:OF
	.WAIT LIU
	LIU /TE:51:OF
	.WAIT LIU
	LIU /TE:52:OF
	.WAIT LIU
	LIU /TE:53:OF
	.WAIT LIU
;
	.IFNINS BRO INS $BRO
	BRO ALL: OM DU BLEV AVBRUTEN UNDER K\RNING - RING 120 eller 125 !
	REM BRO
.LIOREM:
	.IFNINS LIO .GOTO VFSREM
	@LB:[1,2]TAXSTOP
	.IF <EXSTAT> NE 1 .GOSUB FEL
;
;******** ABORTERA BATCHARNA MED TEST
;
.VFSREM:
	.IFINS LIU REM ...LIU
	.IFNINS VFSACP .GOTO VFSRE1
	VFU /CL
	.WAIT VFU
.;
.VFSRE1:
.;
	.IFF $BACKU @LB:[1,2]UTKSTOP		!STOPPA UTK\RNINGSBEVAKNING
.;
	@LB:[1,2]BATREM
.;
	.IFNINS VFSACP .GOTO VFSRE3
	VFU /CL
	.WAIT VFU
	.SETT $OVRRD
	@LB:[1,2]PUBREGREM
	@LB:[1,2]EXTRAREM
	.IFT $BACKU .GOTO VFSRE3
	@LB:[1,2]UTKREGREM
	.DELAY 1.S
	VFU /EX
	.DELAY 2.S
	UNF VFSACP
	REM VFSACP
	REM VFSERR
.;
.VFSRE3:
	REM ...VFU
	.IFF $PROUT .ENABLE QUIET
	.EXIT
;
.FEL:
	;FEL I PUBSTOP.CMD
	LRM 220
	.PAUSE
	.RETURN
;
; <EOF> PUBSTOP.SAT
;