.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
.;
.;  START AV VOLVO-SYSTEMET (VFS, TAX OCH PUB)--- LB:[1,2]PUBSTART.CMD
.;
	;   VERSION 88-08-12 - LABAN M+
.;
.;
	.IFNDF $BACKU .SETF $BACKU
.;
.;
	.TESTDEVICE TI:
	.PARSE <EXSTRI> "," VAR1 VAR2
	.IF VAR1 EQ "TT0:" .GOTO ACCOK
	.DISABLE QUIET
	; EJ TILL]TET K\RA FR]N ANNAT H]LL [N FR]N KONSOLEN
	.STOP
.;
.ACCOK:
.;
.;
	.IFF $BACKU .IFINS VFSACP ;VFS [R REDAN I G]NG ! F\RESL]R BOOT !
	.IFF $BACKU .IFINS VFSACP .GOSUB FEL
.;
.; - KOLLA OM START VIA BTA EL. MOTSV
.;
	.IF <STRLEN> NE 2 .GOTO NIXSPC
	.IF P1 NE "BOOT" .GOTO NIXSPC
.;
	.SETT $ALLO
	.SETT $PUB
	.SETT $TERON
	.SETT $VFS
	.SETT $TAX
	.SETF $DYNS
	.SETF $PROUT
	.SETF $REO	!SER TILL ATT LOGGNINGEN KOMMER P] I PUBREGENT
.;
.;
.;
.NIXSPC:
	.IFNDF $VFS .ASK $VFS SKA VFS STARTAS
	.IFNDF $TAX .ASK $TAX SKA TAX STARTAS
	.IFNDF $PUB .ASK $PUB Ska PUB startas (NEJ)
	.IFNDF $DYNS .ASK $DYNS Ska DYNINS g|ras p} PUB-taskarna (NEJ)
	.IFNDF $ALLO .ASK $ALLO Ska PUB-disken allokeras (NEJ)
	.IFNDF $PROUT .ASK $PROUT Utskrivna kommandon (NEJ)
	.IFF $PUB .IFNDF $REO .ASK $REO Ska Du REO-starta (NEJ)
	.IFT $PUB .IFNDF $REO .SETF $REO
	.IFT $PUB .IFNDF $TERON .ASK $TERON Ska terminalerna startas (NEJ)
.;
	;PDISP START
.;
	.IFF $PROUT .ENABLE QUIET
.;
	TIM
	;
.;
	;
	;**************************************************** DRA I G]NG VFS
	;
	;
	.IFT $VFS @LB:[1,2]VFSSTART
	.IFT $VFS .IF <EXSTAT> NE 1 .GOSUB FEL
	;
	;
	;***************************************************** DRA I G]NG TAX
	;
	.IFINS VFSACP .IFT $TAX @LB:[1,2]TAXSTART
	.IFINS VFSACP .IFT $TAX .IF <EXSTAT> NE 1 .GOSUB FEL
	;
	;
	;****************************************************** DRA I G]NG PUB
	;
	;         -------------------- 1. Ev. DYNS P] TASKAR
	;
	.IFNINS XCP INS LB:[3,54]ICMFSL/TASK=...XCP !OBS ATT NATFIL ANV[NDER ICP
	.IFINS VFSACP .IFINS LIO .IFT $TAX .IFT $DYNS .XQT XCP @LB:[1,2]DYNINS
	;
	;         -------------------- 2. ENTER P] REGISTER
	;
	.IFINS VFSACP .IFT $PUB @LB:[1,2]PUBREGENT
	.IFINS VFSACP .IFT $PUB .IF <EXSTAT> NE 1 .GOSUB FEL
	.IFT $VFS @LB:[1,2]UTKREGENT
	.IFT $VFS .IF <EXSTAT> NE 1 .GOSUB FEL
	;
	;         -------------------- 3. INSTALL OCH ev. RUN P] BATCHAR
	;
	.IFINS VFSACP .IFT $PUB @LB:[1,2]PUBBAT
	.IFINS VFSACP .IFT $PUB .IF <EXSTAT> NE 1 .GOSUB FEL
	;
	;         -------------------- 4. S[TT P] TAXTERMINALERNA
	;
	.WAIT XCP
	.IFF $PUB .GOTO SLUT
	.IFF $TERON .GOTO SLUT
.LIUINS:
	.IFNINS LIU INS $LIU/IOP=NO
	.IFNINS LIU .DELAY 1.S
	.IFNINS LIU .GOTO LIUINS
.;
	LIU /TE:11:ON		!PERSONALBEORDRARE, CITY
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:12:ON		!TIDSSKRIVNING, CITY
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:13:ON		!RUBY
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:14:ON		!PLANERINGS- & UTREDNINGSAVDELNINGEN (TERMINAL)
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:15:ON		!TIDSSKRIVNING HK
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:21:ON		!VX
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:22:ON		!VX
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:23:ON		!MARTIN
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:24:ON		!CHRIS (ABC1600...)
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:25:ON		!CHARTER
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:31:ON		!ANNIKA
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:32:ON		!HASSE LERNE
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:33:ON		!BRUNO
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:34:ON		!UTKBEV CITY
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:35:ON		!STAFFAN
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:36:ON
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:37:ON
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:40:ON
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:41:ON		!CILLA
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:42:ON		!SKAF
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:43:ON		!TILLF[LLIG CITY
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:44:ON		!RESERV
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:45:ON		!RESERV
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:46:ON
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:47:ON
	.WAIT LIU
	.DELAY 1.S
	LIU /TE:50:ON
	.WAIT LIU
	.DELAY 1.S
.;
.; 60-63 = RT0 - RT3
.;
;
.SLUT:
	.WAIT ...ICP
	.WAIT ICPT0
	.WAIT ICP
	.WAIT BYTDAG
	.IFINS ICP REM ICP
	.IFINS XNS REM XNS
	.IFINS LIU REM LIU
	.IFINS VFU REM VFU
	.IFINS XCP REM XCP
	.EXIT
.FEL:
	.DISABLE QUIET
	;FEL I PUBSTART.CMD ENLIGT OVAN
	LRM 221
	.PAUSE
;
;	<EOF> LB:[1,2]PUBSTART.CMD
;