.; LB:[1,2]BACKUP1.CMD	---	TAR BACKUP P] REGISTREN - PDISP
.;				   BACK UP TILL TAPE
.;
.;	VERSION 88-08-01 B-E TAPPER AVSEDD F\R PDISP P] LABAN+ - TAPEBACKUP
.;	BACKAR UPP F\LJANDE :
.;
.;		DU:[166,301]		PDISPS REGISTER
.;
.;
	.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.DISABLE QUIET
	.DISABLE ATTACH
	.SETS UIC <UIC>
	.SETS ERRCSE "INGET"	!FELORSAK
	.SETS $XSPC P1
	'IF'.IF P2 NE "1"
		.DISABLE QUIET
		;BACKUP - STARTAS ENDAST VIA @BACKUP
		.EXIT
	'ENDIF'
	.SETS $DAT P3
.;
.;
	.TEST $XSPC
	.IF <STRLEN> LT 2 .STOP
.;
	'IF'.IF <UIC> NE "[1,2]"
		.DISABLE QUIET
		; EJ TILL]TET K\RA UNDER ANNAT UIC [N 1,2
		.STOP
	'ENDIF'
.;
	.TESTDEVICE TI:
	.PARSE <EXSTRI> "," VAR1 VAR2
	'IF'.IF VAR1 NE "TT0:"
		.DISABLE QUIET
		; EJ TILL]TET K\RA FR]N ANNAT H]LL [N FR]N KONSOLEN
		.IF $XSPC NE "930BTA" .STOP
	'ENDIF'
.;
.;
	.SETF XPLA
	.IF $XSPC NE "930BTA" .ASK XPLA VILL DU HA INSTRUKTIONER
.;
	.SETT $BACKUP
	'IF'.IFINS VFSACP
		;	VFS [R AKTIVT
		;	JAG STOPPAR NU SYSTEMET UTOM UTKBEV
		@LB:[1,2]PUBSTOP
	'ENDIF'
;
;
	'WHILE'.IFT <TRUE>
		'IF'.IFT XPLA
			;
			;DU SKA MONTERA BANDET I BANDSTATIONEN.
			;KONTROLLERA ATT DET [R  R [ T T  TAPE OCH ATT DU TRYCKT IN PLATTAN.
			;TRYCK D[REFTER P] "LOAD/REWIND". N[R "BOT" T[NDS, TRYCK P] "ON LINE".
			;OBSERVERA ATT "FILE PRO" INTE F]R LYSA. OM DEN G\R DET, MONTERA
			;BANDET IGEN MED PLASTREMSAN P] BAKSIDAN KORREKT INLAGD.
			;(BANDET TAS I S] FALL BORT MED "RESET" F\LJT AV "UNLOAD".)
			;
			;N[R DU [R KLAR OCH "ON LINE" SAMT "BOT" LYSER SVARA "Y" NEDAN
			;
		'ENDIF'
.;
		.SETT GO
		'IF'.IFT XPLA
			.ASK GO HAR DU MONTERAT BANDET
		'ENDIF'
		'IF'.IFT GO
.;
			MOU MS:/FOR
			'BREAKIF'.IF <EXSTAT> EQ 1
.;
			.SETT XPLA
			.DISABLE QUIET
			;
			;DET [R N]T GALET MED TAPEN I BANDSTATIONEN
			;FIXA DET !!!
			;
		'ENDIF'
.;
	'ENDDO'
.;
.;
	.IFNINS PIP INS $PIP
;
	TYP LM:[166,301]BACKUP1.LBL
;
.;
	.SETF $FULL
	'IF'.IFT XPLA
		;NORMALT SKA REORGANISERING SKE - SVARA "NO" P] N[STA FR]GA
	'ENDIF'
	.ASK NOREO UNDANTA REORGANISERING
	'IF'.IFT XPLA
		;NORMALT BARA BEGR[NSAD REORGANISERING - SVARA "NO" P] N[STA FR]GA
	'ENDIF'
	'IF'.IFF NOREO
		.ASK $FULL FULL REORGANISERING
	'ENDIF'
	'IF'.IFT XPLA
		 ;NORMALT SKA ]TERSTART AV PDISP SKE - SVARA "NO" P] N[STA FR]GA
	'ENDIF'
	.ASK $NORST UNDANTA ]TERSTART
.;
	.SETF $AUTO			!INGEN AUTOMAT]TERSTART OM EJ ]TERSTART
	'IF'.IFF $NORST
		'IF'.IFT XPLA
			;NORMALT SKA AUTOMATISK ]TERSTART AV PDISP SKE - OM DU INTE SKA TA NED
			;OCH BOOTA OM SYSTTEMET. KLART P] 1-3 TIMMAR.
			;SVARA "NO" P] N[STA FR]GA NORMALT.
		'ENDIF'
		.ASK NAUTO UNDANTA AUTOMAT]TERSTART
		.SETT $AUTO
		.IFT NAUTO .SETF $AUTO
.;
	'ENDIF'
.;
	'IF'.IFF $BACKU
		'IF'.IFINS VFSACP
			;VFS AKTIV - KONTAKTA TAPPER
			.STOP
		'ENDIF'
	'ENDIF'
;
	'IF'.IFT XPLA
		;
		;JAG KOMMER NU ATT ARBETA C:A 1 1/2 TIMME.
	'ENDIF'
	;
	;BACKUP - INGA FLER FR]GOR
	;
.;
.;
	.OPEN LM:[166,301]BACKUP1.LBL
	.DATA MAGTAPE BACKUP AV REGISTREN DU:[166,301],[167,301],[1,101],[1,102]
	.DATA BACKUP SENAST TAGEN '$DAT' AV '$XSPC' - LABEL: BACKUP1'$DAT'
	.DATA '<DATE>' '<TIME>'
	'IF'.IFT NOREO
		.DATA REORGANISERING INGICK INTE
	'ELSE'
		'IF'.IFF $FULL
			.DATA BEGR[NSAD REORGANISERING INGICK
		'ELSE'
			.DATA FULLST[NDIG REORGANISERING INGICK
		'ENDIF'
	'ENDIF'
	.CLOSE
.;
	PIP @LB:[1,2]BACKUP1.PIP
	.SETS ERRCSE "PIP"
	.IF <EXSTAT> NE 1 .GOSUB FEL
.;
	'IF'.IFT XPLA
		;
		;JAG KOMMER NU ATT ARBETA C:A 1-3 TIMMAR.
		'IF'.IFF NOREO
			;N[R JAG [R KLAR SKA DU KOLLA REORGANISERINGEN
			;INNAN DU SVARAR P] FLER FR]GOR.
			;FELUTSKRIFT FR]N REORGANISERINGEN INLEDS MED ORDEN
			;   "VFSERR" ELLER "VFSACP".
		'ENDIF'
		;
	'ENDIF'
;
.;
	.IFNINS BRU INS $BRU
.;
	.OPEN WI:[200,142]BACKUP1.BRU
	.DATA /REW/MOU/VER/INV:RSX11MPBL24/BACK:BACKUP1'$DAT' DU:[166,301] MS:
	.CLOSE
.;
	PRI WI:[200,142]BACKUP1.TMP/CO:2/DEL
.;
	BRU @WI:[200,142]BACKUP1.BRU
	.SETS ERRCSE "BRU"
	.IF <EXSTAT> NE 1 .IF <EXSTAT> NE 0 .GOSUB FEL
.;
	PIP WI:[200,142]BACKUP1.BRU;*/DE/LD
.;
	DMO MS:/DEV
	;
	;BACKUP - BANDET [R F[RDIGT !
	;
	'IF'.IFT XPLA
		;DU KAN NU DEMONTERA BANDET UR BANDSTATIONEN.
		;TRYCK F\RST P] "RESET" OCH SEDAN P] "UNLOAD".
		;GL\M INTE ATT DU SKA HA MED DEN ENA DIRECTORY-LISTNINGEN MED
		;BANDET OCH ATT DEN ANDRA SKA SPARAS -- SL[NG DE GAMLA !
		;
	'ENDIF'
.;
	SET /UIC='UIC'
.;
	.IFINS BRU REM BRU
	'IF'.IFF NOREO
		@LB:[1,2]PUBREO
		.SETT $VFS
	'ELSE'
		.SETF $VFS
	'ENDIF'
.;
	.IFT $NORST .EXIT
.;
.;
	DIR LG:[166,301]*.LAF
.;
	.IFT $AUTO .SETT LGRENS
.;
	'IF'.IFT XPLA
		;
		;SVARA P] EV. FR]GA OM RENSNING AV LOGG ENLIGT INSTRUKTION FR]N ANSVARIG
		;
	'ENDIF'
	.IFNDF LGRENS .ASK LGRENS RENSA LOGGEN
	.IFT LGRENS PIP LG:[166,301]*.LAF;*/DE/LD
.;
	.SETT $ALLO
	.SETT $PUB
	.SETT $TERON
	.;.SETT $VFS	;DEFINIERAS OVAN
	.SETT $TAX
	.SETF $DYNS
	.SETF $PROUT
	.SETF $REO	!SER TILL ATT LOGGNINGEN KOMMER P] I PUBREGENT
.;
	'IF'.IF VAR1 NE "TT0:"
		;
		;OBS - PUBSTART M]STE \VERVAKAS MANUELLT
		;EFTERSOM DEN M]STE STARTAS VIA BTA
		;]TERSTARTA MIG N[R DEN KOMMANDOFILEN GJORT EXIT
		;
		BTA 0 @PUBSTART BOOT
		.DELAY 5.S
		.WAIT AT.T0
		;HIT SKA DU KOMMA F\RST N[R DEN GJORT EXIT, OM DEN EJ R]KAR HETA ...AT.
		.GOSUB FEL
.;
	'ELSE'
		@LB:[1,2]PUBSTART
	'ENDIF'
.;
	@LB:[1,2]EXTRAENT
.;
	.IFINS VFU REM VFU
	.IFINS LIU REM LIU
	.EXIT
.;
.;
.FEL:
	;'ERRCSE'
	; FAILED -- EXSTAT = '<EXSTAT>'
	.PAUSE
.RETURN
.;
.;	<EOF> LB:[1,2]BACKUP1.CMD
.;