;
;	UBGEM.SAT - FLYTTAR FR]N SUBLIB TILL UBGEM
;
	.ENABLE SUBSTITUTION
	.DISABLE DISPLAY
	.SETS UIC <UIC>
	'WHILE'.IFT <TRUE>
		.ASKS MODUL MODUL>
		'BREAKIF'.IF <STRLEN> EQ 0
.;
		.TESTFILE WI:[200,304]'MODUL'.MET
		'IF'.IF <FILERR> EQ 1
			;FILEN FINNS I PDISP
			.SETT PDISP
		'ELSE'
			.SETF PDISP
		'ENDIF'
.;
		.TESTFILE WI:[270,304]'MODUL'.MET
		'IF'.IF <FILERR> EQ 1
			;FILEN FINNS I GEM
			.SETT GEM
		'ELSE'
			.SETF GEM
		'ENDIF'
.;
		.TESTFILE WI:[301,304]'MODUL'.MET
		'IF'.IF <FILERR> EQ 1
			;FILEN FINNS I BEH\RIGHET
			.SETT BEH
		'ELSE'
			.SETF BEH
		'ENDIF'
.;
		.SETS LIB "WI:[200,147]SUBLIB"
.;
		.SETT GO
		'IF'.IFT PDISP
			;JAG VISAR PDISP
			.DELAY 1.S
			EDT WI:[200,304]'MODUL'.MET
			.ASK GO SKA DEN I ALLA FALL TAGAS UR SUBLIB (Y/N)?
		'ENDIF'
		'IF'.IFT BEH
			@CMPVTS
			.ASK GEM VILL DU PLOCKA UR GEM (Y/N)?
			'IF'.IFT GEM
				.SETS LIB "WI:[270,302]VTSLIB"
			'ENDIF'
			.ASK BEH VILL DU PLOCKA UR BEH (Y/N)?
			'IF'.IFT BEH
				.SETS LIB "WI:[301,302]BEHLIB"
			'ENDIF'
		'ELSIF'.IFT GEM
			;JAG VISAR GEM
			.DELAY 1.S
			EDT WI:[270,304]'MODUL'.MET
			.ASK GEM VILL DU PLOCKA UR GEM (Y/N)?
			'IF'.IFT GEM
				.SETS LIB "WI:[270,302]VTSLIB"
			'ENDIF'
		'ENDIF'
		'IF'.IFT GO
			SET /UIC=[1,2]
			LBR VM:[200,147]'MODUL'='LIB'/EX:'MODUL'
			LBR WI:[200,147]UBGEM/RP=VM:[200,147]'MODUL'
			LBR VM:[200,147]UBGEM/RP=VM:[200,147]'MODUL'
			PIP VM:[200,147]'MODUL'.OBJ;*/DE
			SET /UIC='UIC'
		'ENDIF'
	'ENDDO'
	.EXIT