.;
.; VO:[200,140]TRANSINS.SAT (.CMF FINNS P] $)
.;	VERSION 88-08-28 F\R M+
.;
	.DISABLE DISPLAY
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.ENABLE ESCAPE
.;
	.SETS UIC <UIC>
	.SETF LOCAL
	.IFNDF $DD .SETS $DD "SY:"
	.IFNDF $ANN .SETT $ANN
	.IFT $ANN .SETT LOCAL
	.IFF LOCAL .SETS TASK $MAIN
	.SETS INDEV "'$DD'"
.;
	.PARSE INDEV ":" PAR1 PAR2
.;
	.SETS DEV PAR1
	'PERFORM' TEST
.;
	.SETS DEV "LB"
	'PERFORM' TEST
.;
	'WHILE'.IFT <TRUE>
.;
	'POSIT'		! EJ KLAR
.;
	'IF'.IFDF MORE
		.ASK MORE TRANSPORTERA MERA ,ESC=Taxon (N)?
		'IF'.IFT <ESCAPE>
			.XQT TXN
			.STOP
		'ENDIF'
		'IF'.IFF MORE
			.EXIT
		'ENDIF'
		.SETT LOCAL
	'ELSE'
		.SETF MORE
	'ENDIF'
.;
	.IFT LOCAL .ASKS TASK Tasknamn :
	.TESTFILE 'INDEV'[200,141]'TASK'.TSK
	'IF'.IF <FILERR> NE 1
		;FILEN 'INDEV'[200,141]'TASK'.TSK FINNS INTE !
		'QUIT'
	'ENDIF'
.;
	.SETT NYTT	! NYUPPL[GG SKA G\RAS
	'POSIT'		! EJ FUNNEN
.;
	.SETS DESTI "LB:[3,54]"
	.TESTFILE 'DESTI''TASK'.TSK
	'QUITIF'.IF <FILERR> EQ 1
.;
	.SETS DEV "WI"
	'PERFORM' TEST
	.SETS DESTI "'DEV':[200,141]"
	.TESTFILE 'DESTI''TASK'.TSK
	'QUITIF'.IF <FILERR> EQ 1
.;
	.SETS DEV "TK"
	'PERFORM' TEST
	.SETS DESTI "'DEV':[166,300]"	!DEFAULT
	.TESTFILE 'DESTI''TASK'.TSK
	'QUITIF'.IF <FILERR> EQ 1
.;
	.SETS DEV "RA"
	'PERFORM' TEST
	.SETS DESTI "'DEV':[200,121]"
	.TESTFILE 'DESTI''TASK'.TSK
	'QUITIF'.IF <FILERR> EQ 1
.;
	;FILEN 'TASK'.TSK FINNS INTE DRIFTINSTALLERAD F\RUT
.;
	.SETS DEV "TK"	!DEFAULT
.;
	.ASK NYTT SKA DEN NYUPPL[GGAS (N)?
	'QUITIF'.IFF NYTT
.;
	.SETF PURG
	.SETS DESTI "'DEV':[166,300]"	!DEFAULT
	.ASKS DESTI ANGE VAR ('DESTI') :
	.TEST DESTI
	.IF <STRLEN> EQ 0 .SETS DESTI "'DEV':[166,300]"
.;
	'ADMIT'
		'IF'.IFT NYTT
			.ASK PURG PURGE P] ALLA GAMLA FILER (N)?
		'ENDIF'
	'ENDPOSIT'
.;
	'QUITIF'.IFF NYTT
.;
	SET /UIC=[1,1]
	.IFNINS PIP INS $PIP
	PIP 'DESTI'/NV/CD/CO='INDEV'[200,141]'TASK'.TSK
	'IF'.IF <EXSTAT> NE 1
		;FEL ENLIGT OVAN
		SET /UIC='UIC'
		'QUIT'
	'ENDIF'
.;
	.IFT PURG PIP 'DESTI'*.*/PU/LD
	SET /UIC='UIC'
	.ASK DYN DYNTASK (N)?
	REM 'TASK'
	'IF'.IFT DYN
		INS 'DESTI''TASK'/CKP=YES
		LIU /TK:'TASK'/RE
		LIU /TK:'TASK'/IN
		REM 'TASK'
	'ELSE'
		INS 'DESTI''TASK'/CKP=YES
		.ASK REMO G\R REMOVE IGEN (N)?
		.IFT REMO REM 'TASK'
	'ENDIF'
	'IF'.IFNDF $NOD
		.ASKS $NOD VILKEN MASKIN [R DRIFTSDATOR ('<NETNOD>') :
		.TEST $NOD
		.IF <STRLEN> EQ 0 .SETS $NOD <NETNOD>
	'ENDIF'
.;
	'IF'.IF <NETNOD> NE $NOD
		.ASK TPT TRANSPORTERA [VEN TILL '$NOD' (N)?
		'IF'.IFT TPT
			.WAIT NFT
			.XQT NFT '$NOD'::'DESTI'='DESTI''TASK'.TSK
		'ENDIF'
	'ENDIF'
.;
	'ADMIT'
	'ENDPOSIT'
.;
	'ENDDO'
.;
.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.;
	'SECTION' TEST
.;
	.TESTDEVICE 'DEV':
	.PARSE <EXSTRI> "," PAR1 PAR2
	'IF'.IF PAR1 EQ "NSD"
		;ASSIGN F\R 'DEV' SAKNAS !
		.EXIT
	'ENDIF'
.;
	'ENDSECT'
.;
;
;	<EOF> TRANSINS.SAT
;