.ENABLE SUBSTITUTION
	.IFNINS MET .GOTO FEL
	.IFNINS FOR .GOTO FEL
	.IFNINS TKB .GOTO FEL
	.TESTFILE SAT.OLB
	.IF <FILERR> NE 1 .GOTO FEL
	.ASK LISTA :VILL DU HA LISTOR
	.SETS DEV "LB0"
	.ASKS [::DEV] DEV : P] VILKET DEVICE LIGGER SPP-PRODUKTERNA ..
	.SETS VOLVO "[110,302]VOLVOLIB"
	.ASKS [::VOLVO] VOLVO : VAD HETER BIBLIOTEKET ..
	.GOSUB TKBFIL
	.GOSUB HUVUD
	.SETS MODUL "SATDEF"
	.GOSUB SUBRUT
	.SETS MODUL "SAT000"
	.GOSUB SUBRUT
	.SETS MODUL "SAT001"
	.GOSUB SUBRUT
	.SETS MODUL "SAT002"
	.GOSUB SUBRUT
	.SETS MODUL "SAT003"
	.GOSUB SUBRUT
	.SETS MODUL "SAT004"
	.GOSUB SUBRUT
	.SETS MODUL "SAT005"
	.GOSUB SUBRUT
	.SETS MODUL "SAT006"
	.GOSUB SUBRUT
	.SETS MODUL "SAT007"
	.GOSUB SUBRUT
	.SETS MODUL "SAT008"
	.GOSUB SUBRUT
	.SETS MODUL "SAT009"
	.GOSUB SUBRUT
	.SETS MODUL "SAT010"
	.GOSUB SUBRUT
	.SETS MODUL "SAT011"
	.GOSUB SUBRUT
	.SETS MODUL "SAT012"
	.GOSUB SUBRUT
	TKB @SATTKB
;	SAT [R GENERERAD P] UIC '<UIC>'!
	.GOTO XIT
.FEL:
;	F\R ATT K\RA SATGEN M]STE MET, FOR OCH TKB VARA INSTALLERAD
;	DESSUTOM M]STE SAT.OLB LIGGA P] '<UIC>'!
.XIT:
	.EXIT
.TKBFIL:
.;	SKAPAR EN TKB-FIL F\R L[NKNING AV SAT
.;
	.OPEN SATTKB.CMD
	.DATA SAT/PR:0,SAT/-SP/SH=SAT
	.DATA SAT/LB
	.DATA 'DEV':'VOLVO'/LB
	.DATA /
	.DATA TASK=...SAT
	.DATA FMTBUF=300
	.DATA MAXBUF=300
	.DATA /
	.CLOSE
.;
	.RETURN
.HUVUD:
.;	KOMPIERAR HUVUDMODUL OCH TRYCKER EV. LISTOR
.;
	MET SAT,SAT/TM/-SP=SAT
	FOR SAT/-SN,SATF/LI:MAP/-WR/-SP=SAT
	PIP SAT.FTN;*/DE
	PIP SAT.OBJ/PU
	.IFT LISTA PRI SAT.LST/DE
	.IFT LISTA PRI SATF.LST/DE
	.IFF LISTA PIP SAT.LST;*/DE
	.IFF LISTA PIP SATF.LST;*/DE
.;
	.RETURN
.SUBRUT:
.;	KOMPILERAR SUBMODUL OCH TRYCKER EV. LISTOR
.;
	MET 'MODUL','MODUL'/TM/-SP='MODUL'
	FOR 'MODUL'/-SN,'MODUL'F/LI:MAP/-WR/-SP='MODUL'
	PIP 'MODUL'.FTN;*/DE
	LBR SAT/RP='MODUL'
	PIP 'MODUL'.OBJ;*/DE
	.IFT LISTA PRI 'MODUL'.LST/DE
	.IFT LISTA PRI 'MODUL'F.LST/DE
	.IFF LISTA PIP 'MODUL'.LST;*/DE
	.IFF LISTA PIP 'MODUL'F.LST;*/DE
.;
	.RETURN