.;	PDISP UPPSALA!
.;	REORGANISATION AV REGISTREN!
.;
.;	HISTORIK
.;	DATUM		NAMN			ORSAK
.;	830307		LARS-G\RAN OLSSON	URUPPF\RANDE
.;	830601		B-E TAPPER		MERA KOLL + VFSINS +PUBREGENT
.;	830807		B-E TAPPER		ANPASAD F\R TABACKUP.CMD-START
.;	830811		B-E TAPPER		B[TTRE VFS-KOLL
.;	830820		B-E TAPPER		M\JLIGG\R ]TERSTART
.;	830824		B-E TAPPER		STRUNTAR I ON\DIGA REG.
.;	830920		B-E TAPPER		TAR EJ MED 1341,1345	
.;	830924		B-E TAPPER		K\R ZE P] 410,411 IST[LLET
.;	840303		B-E TAPPER		TAR EJ MED 282
.;	840405		B-E TAPPER		[VEN 2001
.;	840412		B-E TAPPER		[VEN 395, EJ 391, ZE P] 1350
.;	840803		B-E TAPPER		F[RRE REG VID BEGR. REORGAN.
.;	841022		B-E TAPPER		AUTOMATSTART OM S] BEG[RES
.;	841202		B-E TAPPER		TEST P] FILATTRIBUT
.;	850408		B-E TAPPER		F\RB[TTRAD TEST
.;	850619		B-E TAPPER		540 [R ETT ISF-REGISTER
.;	851113		B-E TAPPER		415,416 INTRODUCERADE
.;	860331		B-E TAPPER		LOGGA INTE
.;	860804		B-E TAPPER		EJ S] MYCKET TEST
.;	861008		B-E TAPPER		226 INTRODUCERAT
.;	861116		B-E TAPPER		417,418 INTRODUCERADE
.;	861231		B-E TAPPER		VFU NU MED EXIT STATUS
.;						REORG P] WI: UTOM 395 (EJ PLATS)
.;	870103		B-E TAPPER		BUG FIXAD
.;	870119		B-E TAPPER		FLER BUGGAR
.;	870122		B-E TAPPER		FIX AV AKTIVA ANV[NDARE
.;	870124		B-E TAPPER		B[TTRE FIX AV AKTIVA ANV[NDARE
.;	870125		B-E TAPPER		REG UB2010,2011,2012 INTROD.
.;	870201		B-E TAPPER		[NNU B[TTRE FIX AV AKT.ANV[NDARE
.;	870508		B-E TAPPER		ST\RRE VMDRV
.;	870521		B-E TAPPER		NGT MINDRE VMDRV + REG-NR SKRIVS
.;	871112		B-E TAPPER		4100,4101,4102,4103
.;	871116		B-E TAPPER		414,419
.;	880119		B-E TAPPER		M-PLUS
.;	880120		B-E TAPPER		UTKBEV IG]NG PARALELLT
.;	880717		B-E TAPPER		3010,3020, .SAT INF\RD
.;	880723		B-E TAPPER		BUG FIXAD + .TMP P] DR1:
.;	880814		B-E TAPPER		-220,400,800,810,820
.;	880823		B-E TAPPER		3010->590,3020->580
.;
.;	OBS !!! .SAT-FIL !!!
.;
.;	BESKRIVNING:
.;	DENNA KOMMANDOFIL REORGANISERAR PDISP:S ISF-REGISTER.
.;	EFTERSOM DEN UNDER REORGANISERINGEN NOLLST[LLER ISF-
.;	REGISTREN B\R KOPIOR TAS P] REGISTREN INNAN REORGANISERING.
.;
	.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.DISABLE QUIET
.;
	.IFNDF $BACKU .SETF $BACKU
.;
.;
	.SETT $REO		!F\R ATT MEDDELA UTK&PUB-REGENT VAD DET G[LLER
	.SETT $OVRRD		!F\R ATT MEDDELA UTK&PUB-REGREM VAD DET G[LLER
	.SETF CREATR		!F\R FELHANTERING
.;
	'IF'.IFINS LIO
		; LIO [R INSTALLERAD
		.EXIT
	'ENDIF'
.;
	'IF'.IFINS NAA760
		;PDISP BATCHAR [R INSTALLERADE
		.EXIT
	'ENDIF'
.;
	'IF'.IFINS VFSACP
		'IF'.IFF $BACKU
			;VFSACP [R INSTALLERAD
			.EXIT
		'ENDIF'
	'ENDIF'
.;
	.TESTDEVICE TI:
	.PARSE <EXSTRI> "," VAR1 VAR2
	'IF'.IF VAR1 NE "TT0:"
		; EJ TILL]TET K\RA FR]N ANNAT H]LL [N FR]N KONSOLEN
		'IF'.IFNDF $XSPC
			.STOP
		'ELSIF'.IF $XSPC NE "930BTA"
			.STOP
		'ENDIF'
	'ENDIF'
.;
	'IF'.IFNDF $BACKU
		.ASK SURE [R DU STENS[KER ATT INGEN K\R
		.IFF SURE .EXIT
	'ENDIF'
.;
	'IF'.IFNDF $FULL
		 .ASK $FULL FULL REORGANISERING
	'ENDIF'
	.SETS UIC <UIC>
	SET /UIC=[1,2]
.;
	'IF'.IFNDF $AUTO
		.ASK $AUTO AUTOMATSTART
	'ENDIF'
	.SETF $PROUT
;
	'IF'.IFF $BACKU
		 @LB:[1,2]VFSSTART	!STARTA VFS
	'ENDIF'
	@PUBREGENT	!G\R ENTER P] REGISTER UTAN LOGGNING
.;
	'IF'.IFNINS VFU
		INS $VFU
	'ENDIF'
	'IF'.IFNINS VFU
		;VFU EJ INSTALLERBART
		.EXIT
	'ENDIF'
	'IF'.IFNINS PIP
		INS $PIP
	'ENDIF'
	'IF'.IFNINS PIP
		;PIP EJ INSTALLERBART
		.EXIT
	'ENDIF'
.;
	PIP WN:[200,142]REG*.REO;*/DE/LD
.;
	SET /UIC=[200,142]
	'IF'.IF <EXSTAT> NE 1
		 .GOSUB FEL
	'ENDIF'
	.SETS RGD "WN:"
.;
.;
.;
	'IF'.IFT $FULL
		;
		;ID-KORTSREGISTRET! (ENDAST FULL)
		.SETN REG 226.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;FASTA TILL[GG/AVDRAGREGISTET! (ENDAST FULL)
		.SETN REG 231.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;BEFATTNINGSREGISTRET! (ENDAST FULL)
		.SETN REG 241.
		'PERFORM' REORGA
		.SETN REG 242.
		'PERFORM' REORGA
	'ENDIF'
.;
	;
	;FR]NVAROREGISTRET!
	.SETN REG 251.
	'PERFORM' REORGA
	.SETN REG 252.
	'PERFORM' REORGA
	.SETN REG 253.
	'PERFORM' REORGA
.;
	;
	;\NSKEM]LREGISTRET!
	.SETN REG 261.
	'PERFORM' REORGA
	.SETN REG 262.
	'PERFORM' REORGA
.;
	;
	;KOMMENDERINGSREGISTRET!
	.SETN REG 271.
	'PERFORM' REORGA
	.SETN REG 272.
	'PERFORM' REORGA
.;
	;
	;VAKANTA TJ[NSTPASSREGISTRET!
	.SETN REG 281.
	'PERFORM' REORGA
.;
	'IF'.IFT $FULL
		;
		;TJ[NSTPASSREGISTRET! (ENDAST FULL)
		.SETN REG 291.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;TJ[NSTG\RINGSLISTREGISTRET! (ENDAST FULL)
		.SETN REG 301.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;KALENDERREGISTRET! (ENDAST FULL)
		.SETN REG 311.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;T[TORTSTILL[GGREGISTRET! (ENDAST FULL)
		.SETN REG 330.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;RESTIDREGISTRET! (ENDAST FULL)
		.SETN REG 341.
		'PERFORM' REORGA
	'ENDIF'
.;
	;
	;DAGTJ[NSTPASSREGISTRET!
	.SETN REG 351.
	'PERFORM' REORGA
.;
	'IF'.IFT $FULL
		;
		;BEH\RIGHETSREGISTRET! (ENDAST FULL)
		.SETN REG 361.
		'PERFORM' REORGA
	'ENDIF'
.;
	.SETS RGD "WN:"
	'IF'.IFT $FULL
		;
		;BEH\RIGHET-F[LT-REGISTRET! (ENDAST FULL)
		.SETN REG 381.
		'PERFORM' REORGA
	'ENDIF'
.;
	.SETS RGD "WN:"
	'IF'.IFT $FULL
		;
		;DAGSL\NEREGISTRET! (ENDAST FULL)
		.SETN REG 395.
		'PERFORM' REORGA
	'ENDIF'
.;
	.SETS RGD "WN:"
	'IF'.IFT $FULL
		;
		;PERSONREGISTERET! (ENDAST FULL)
		.SETN REG 401.
		'PERFORM' REORGA
		.SETN REG 402.
		'PERFORM' REORGA
	'ENDIF'
.;
	.SETS RGD "WN:"
	;
	;AVL\SNINGREGISTRET!
	VFU /ZE:410
	VFU /ZE:411
.;
	'IF'.IFT $FULL
		;
		;K\RJOURNALREGISTRET! (ENDAST FULL)
		.SETN REG 421.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;M]NADSL\NEREGISTRET! (ENDAST FULL)
		.SETN REG 441.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;L\NEARTSREGISTRET! (ENDAST FULL)
		.SETN REG 451.
		'PERFORM' REORGA
		.SETN REG 452.
		'PERFORM' REORGA
	'ENDIF'
.;
	;
	;EFTERRAPPORTERINGREGISTRET!
	.SETN REG 461.
	'PERFORM' REORGA
.;
	;
	;BYTESREGISTRET!
	.SETN REG 471.
	'PERFORM' REORGA
.;
	;
	;PERSON[NDRINGREGISTRET!
	.SETN REG 480.
	'PERFORM' REORGA
.;
	'IF'.IFT $FULL
		;
		;F\RS.KASSEREGISTRET! (ENDAST FULL)
		.SETN REG 521.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;F\RS.KASSEKOPPLING! (ENDAST FULL)
		.SETN REG 525.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;TRANSAKTIONSREGISTRET! (ENDAST FULL)
		.SETN REG 540.
		'PERFORM' REORGA
		.SETN REG 541.
		'PERFORM' REORGA
		.SETN REG 542.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;TRANSAKTIONSBEH\RIGHETSREGISTRET! (ENDAST FULL)
		.SETN REG 550.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;PF-TANGENTREGISTRET! (ENDAST FULL)
		.SETN REG 561.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;SEKTIONSREGISTRET! (ENDAST FULL)
		.SETN REG 581.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;BEFATTNINGSNUMMEREGISTRET! (ENDAST FULL)
		.SETN REG 591.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;STATISTIK-REGISTRET! (ENDAST FULL)
		.SETN REG 801.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;ORDINARIE LISTPLACERINGS-REGISTRET! (ENDAST FULL)
		.SETN REG 811.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;TILLF[LLIGA LISTPLACERINGS-REGISTRET! (ENDAST FULL)
		.SETN REG 821.
		'PERFORM' REORGA
	'ENDIF'
.;
	;
	;MATCHNINGREGISTRET!
	.SETN REG 1342.
	'PERFORM' REORGA
	.SETN REG 1343.
	'PERFORM' REORGA
	.SETN REG 1344.
	'PERFORM' REORGA
.;
	'IF'.IFT $FULL
		;
		;DOKUMENTATIONSREGISTRET! (ENDAST FULL)
		.SETN REG 1371.
		'PERFORM' REORGA
	'ENDIF'
.;
	;
	;MATCHNINGS BUFFERT!
	.SETN REG 1380.
	'PERFORM' REORGA
.;
.;
.;M\NSTR. BUFFERT [R ENDAST COPYTEXT
.;
	'IF'.IFT $FULL
		;
		;SEMESTERREGISTRET! (ENDAST FULL)
		.SETN REG 2001.
		'PERFORM' REORGA
	'ENDIF'
.;
	'IF'.IFT $FULL
		;
		;SEMESTERKOPPLINGSREGISTRET! (ENDAST FULL)
		.SETN REG 2011.
		'PERFORM' REORGA
		.SETN REG 2012.
		'PERFORM' REORGA
	'ENDIF'
.;
;
	VFU /CL
	.IF <EXSTAT> NE 1 .GOSUB FEL
	.SETT $OVRRD
	@LB:[1,2]PUBREGREM
	.DELAY 1.S
.;
.;
.;
	'IF'.IFT $BACKU
.;
		.SETF $BACKU	;NU TAR VI FAKTISKT NER EL[NDET
.;
		@LB:[1,2]UTKSTOP
.;
		.SETT $OVRRD
		@LB:[1,2]UTKREGREM
.;
	'ENDIF'
.;
.;
.;
.;
	@LB:[1,2]UTKREGENT
.;
	'IF'.IFT $FULL
		;
		;UTK\RNINGSBEVAKNINGSMEDDELANDEREGISTRET! (ENDAST FULL)
		.SETN REG 4101.
		'PERFORM' REORGA
		.SETN REG 4102.
		'PERFORM' REORGA
		.SETN REG 4103.
		'PERFORM' REORGA
		;
		;UTK.BEV.REGISTRET
		.SETN REG 414.
		'PERFORM' REORGA
		.SETN REG 416.
		'PERFORM' REORGA
		.SETN REG 417.
		'PERFORM' REORGA
		.SETN REG 418.
		'PERFORM' REORGA
		.SETN REG 419.
		'PERFORM' REORGA
	'ENDIF'
.;
	VFU /CL
	.IF <EXSTAT> NE 1 .GOSUB FEL
	.SETT $OVRRD
	@LB:[1,2]UTKREGREM
	.DELAY 1.S
.;
.;
 	VFU /EX
	.IF <EXSTAT> NE 1 .GOSUB FEL
	.DELAY 1.S
	UNF VFSACP
	.IF <EXSTAT> NE 1 .GOSUB FEL
	REM VFSACP
	.IF <EXSTAT> NE 1 .GOSUB FEL
	.IFINS VFU REM ...VFU
	REM VFSERR
	.IF <EXSTAT> NE 1 .GOSUB FEL
	CHD 1 1
	.IF <EXSTAT> NE 1 .GOSUB FEL
.;
	.DISABLE QUIET
	.IFNDF $NORST .SETT $NORST
.;
.;
	'IF'.IFF $NORST
		; YES NEDAN GER ]TERSTART EFTER RENSNING
	'ELSE'
		; YES NEDAN RENSAR MEN GER INTE ]TERSTART
	'ENDIF'
.;
	.SETT GO
	.IFF $AUTO .ASK GO GICK BACKUPEN BRA
.;
	'IF'.IFF GO
		.SETT $NORST
	'ELSE'
		PIP WN:[200,142]REG*.REO;*/DE/LD/NM
;		PIP WN:[200,142]REG*.REO;*/DE/LD/NM
		.IF <EXSTAT> NE 1 .GOSUB FEL
		PIP WN:[200,142]PUBLOG.TMP;*/DE/LD
		.IF <EXSTAT> NE 1 .GOSUB FEL
	'ENDIF'
.;
.;
.;
;
	.IF <EXSTAT> NE 1 .GOSUB FEL
	SET /UIC='UIC'
	.EXIT
.;
.;
.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.;
.;
.;	REORGANISERA
.;
	'SECTION' REORGA
.;
	.ENABLE QUIET
.;
	VFU /LI:'REG'
.;
	;OUT OF 'REG'!
	VFU 'RGD'[200,142]REG'REG'.REO=/FI:'REG'
	.IF <EXSTAT> NE 1 .GOSUB FEL1
.;
	.TESTFILE 'RGD'[200,142]REG'REG'.REO
	.IF <FILERR> NE 1 .GOSUB FEL1
.;
	VFU /ZE:'REG'
	.IF <EXSTAT> NE 1 .GOSUB FEL2
.;
	;IN  TO 'REG'!
	VFU /FI:'REG'='RGD'[200,142]REG'REG'.REO
	.IF <EXSTAT> NE 1 .GOSUB FEL3
.;
	;DELETE FILE
	PIP 'RGD'[200,142]REG'REG'.REO;*/DE
	.IF <EXSTAT> NE 1 .GOSUB FEL
.;
	.DISABLE QUIET
.;
	'ENDSECT'
.;
.;
.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.;
.FEL3:
	.SETS ESTAT "'<EXSTAT>'"
	.GOSUB FEL30
	.PAUSE
	.GOSUB FEL30
	.GOTO FELS
.;
.FEL2:
	.SETS ESTAT "'<EXSTAT>'"
	.GOSUB FEL20
	.PAUSE
	.GOSUB FEL20
	.GOTO FELS
.;
.FEL1:
	.SETS ESTAT "'<EXSTAT>'"
	.GOSUB FEL10
	.PAUSE
	.GOSUB FEL10
	.GOTO FELS
.;
.FEL:
	.GOSUB FEL00
	.PAUSE
	.GOSUB FEL00
	.GOTO FELS
.;
.FEL30:
	.DISABLE QUIET
	; VFU  KUNDE INTE ]TERSKAPA REGISTER 'REG' UR 'RGD'[200,142]REG'REG'.REO
	.GOTO FELA
.;
.FEL20:
	.DISABLE QUIET
	; VFU KUNDE INTE G\RA /ZE P] REGISTER 'REG' .
	.GOTO FELA
.;
.FEL10:
	.DISABLE QUIET
	; FILEN 'RGD'[200,142]REG'REG'.REO HAR EJ SKAPATS P] R[TT S[TT AV VFU
.FELA:
	; KONTAKTA SYSTEMANSVARIG INNAN N]GOT ANNAT G\RES - BOOTA INTE
	.SETT CREATR		!FILFEL
	FRE 'RGD'
	DIR 'RGD'[200,142]*.REO
	.GOTO FELB
.;
.FEL00:
	.DISABLE QUIET
	.SETS ESTAT "'<EXSTAT>'"
.FELB:
	;TASKET HADE EXIT STATUS = 'ESTAT'
	;FEL ENLIGT OVAN, ]TERSTART SKRIVER FELET IGEN
	LRM 222
	.RETURN
.;
.FELS:
	;FEL ENLIGT OVAN, ]TERSTART FORTS[TTER BACKUPEN
	.SETF CREATR		!]TERST[LL
	.PAUSE
	.RETURN
.;
.;
;
;	TRY TO REMOVE TASKS THAT MIGHT BE INSTALLED FROM WI:
;
.REMOV:
;
	.SETF TWOTRS		!ANTAL F\RS\K
	.SETF FUND
	.GOTO STRT
.IGEN:
	.SETT TWOTRS
	.IFT FUND BRO LOG: L[MNA MASIKNEN   O M E D E L B A R T   - BACKUP P]G]R
	.IFT FUND .DELAY 15.S
	.SETF FUND
.STRT:	.IFINS 'TSKN' REM 'TSKN'
	.IFINS 'TSKN' ABO ...'TSKN'
	.DELAY 3.S
	.IFINS 'TSKN' REM 'TSKN'
	.IFINS 'TSKN' .SETT FUND
	.IFINS 'TSKN'T1 ABO 'TSKN'T1
	.IFINS 'TSKN'T1 .SETT FUND
	.IFINS 'TSKN'T2 ABO 'TSKN'T2
	.IFINS 'TSKN'T2 .SETT FUND
	.IFINS 'TSKN'T3 ABO 'TSKN'T3
	.IFINS 'TSKN'T3 .SETT FUND
	.IFINS 'TSKN'T4 ABO 'TSKN'T4
	.IFINS 'TSKN'T4 .SETT FUND
	.IFINS 'TSKN'T5 ABO 'TSKN'T5
	.IFINS 'TSKN'T5 .SETT FUND
	.IFINS 'TSKN'T6 ABO 'TSKN'T6
	.IFINS 'TSKN'T6 .SETT FUND
	.IFINS 'TSKN'T7 ABO 'TSKN'T7
	.IFINS 'TSKN'T7 .SETT FUND
	.IFINS 'TSKN'T10 ABO 'TSKN'T10
	.IFINS 'TSKN'T10 .SETT FUND
	.IFINS 'TSKN'T11 ABO 'TSKN'T11
	.IFINS 'TSKN'T11 .SETT FUND
	.IFINS 'TSKN'T12 ABO 'TSKN'T12
	.IFINS 'TSKN'T12 .SETT FUND
	.IFINS 'TSKN'T13 ABO 'TSKN'T13
	.IFINS 'TSKN'T13 .SETT FUND
	.IFINS 'TSKN'T14 ABO 'TSKN'T14
	.IFINS 'TSKN'T14 .SETT FUND
	.IFINS 'TSKN'T15 ABO 'TSKN'T15
	.IFINS 'TSKN'T15 .SETT FUND
	.IFINS 'TSKN'T16 ABO 'TSKN'T16
	.IFINS 'TSKN'T16 .SETT FUND
	.IFINS 'TSKN'T17 ABO 'TSKN'T17
	.IFINS 'TSKN'T17 .SETT FUND
	.IFINS 'TSKN'T20 ABO 'TSKN'T20
	.IFINS 'TSKN'T20 .SETT FUND
	.IFINS 'TSKN'T21 ABO 'TSKN'T21
	.IFINS 'TSKN'T21 .SETT FUND
	.IFINS 'TSKN'T22 ABO 'TSKN'T22
	.IFINS 'TSKN'T22 .SETT FUND
	.IFINS 'TSKN'T23 ABO 'TSKN'T23
	.IFINS 'TSKN'T23 .SETT FUND
	.IFINS 'TSKN'T24 ABO 'TSKN'T24
	.IFINS 'TSKN'T24 .SETT FUND
	.IFINS 'TSKN'T25 ABO 'TSKN'T25
	.IFINS 'TSKN'T25 .SETT FUND
	.IFINS 'TSKN'T26 ABO 'TSKN'T26
	.IFINS 'TSKN'T26 .SETT FUND
	.IFINS 'TSKN'T27 ABO 'TSKN'T27
	.IFINS 'TSKN'T27 .SETT FUND
	.IFINS 'TSKN'T30 ABO 'TSKN'T30
	.IFINS 'TSKN'T30 .SETT FUND
	.IFINS 'TSKN'T31 ABO 'TSKN'T31
	.IFINS 'TSKN'T31 .SETT FUND
	.IFINS 'TSKN'T32 ABO 'TSKN'T32
	.IFINS 'TSKN'T32 .SETT FUND
	.IFINS 'TSKN'T33 ABO 'TSKN'T33
	.IFINS 'TSKN'T33 .SETT FUND
	.IFINS 'TSKN'T34 ABO 'TSKN'T34
	.IFINS 'TSKN'T34 .SETT FUND
	.IFINS 'TSKN'T35 ABO 'TSKN'T35
	.IFINS 'TSKN'T35 .SETT FUND
	.IFINS 'TSKN'T36 ABO 'TSKN'T36
	.IFINS 'TSKN'T36 .SETT FUND
	.IFINS 'TSKN'T37 ABO 'TSKN'T37
	.IFINS 'TSKN'T37 .SETT FUND
	.IFINS 'TSKN'T40 ABO 'TSKN'T40
	.IFINS 'TSKN'T40 .SETT FUND
	.IFINS 'TSKN'R0 ABO 'TSKN'R0
	.IFINS 'TSKN'R0 .SETT FUND
	.IFINS 'TSKN'R1 ABO 'TSKN'R1
	.IFINS 'TSKN'R1 .SETT FUND
	.IFINS 'TSKN'R2 ABO 'TSKN'R2
	.IFINS 'TSKN'R2 .SETT FUND
	.IFINS 'TSKN'R3 ABO 'TSKN'R3
	.IFINS 'TSKN'R3 .SETT FUND
	.IFT FUND .IFF TWOTRS .GOTO IGEN
	.IFT FUND LRM 223
	.RETURN
;
;	<EOF>LB:[1,2]PUBREO.CMD
;