;      ************************************************
;      *THIS COMMAND-FILE HAS BEEN GENERATED FROM A   *
;      *STRUCTURED SAT-FILE.                          *
;      *YOU SHOULD NOT EDIT THIS FILE , BUT USE THE   *
;      *CORRESPONDING SAT-FILE.                       *
;      ************************************************
;      *THIS FILE WAS GENERATED AT 02-AUG-88 02:09:58 *
;      *FROM BACKUP2.SAT
;      ************************************************
;
; LB:[1,2]BACKUP2.SAT  ---     TAR BACKUP P] ANV[NDARNAS EDT-FILER, MIMER M.M.
;                              SAMT EXTRAREGISTER & AKTUELL DATABAS RA:
;                              BACK UP TILL TAPE
;
;      VERSION 88-01-19 B-E TAPPER AVSEDD F\R LABAN+ - TAPEBACKUP
;      BACKAR UPP F\LJANDE :
;
;              DU:[1,300]              MIMER /DB
;              DU:[2,300]              MIMER /SH
;              DU:[4,300]              MIMER /DB 3.2.8A, FM
;              DU:[2,100]              EDT-FILER, allm{n slask
;              DU:[167,301]            EXTRAREGISTREN
;              DU:[1,101]              RADIODATABAS , G[LLANDE INDEX
;              DU:[1,102]              RADIODATABAS , MIMER ATRSKARP
;              DU:[200,100]            EDT-FILER, allm{n slask
;              DU:[200,50]             EDT-FILER, cirkul{r
;              DU:[200,51]             EDT-FILER,
;              DU:[200,52]             EDT-FILER,
;              DU:[200,53]             EDT-FILER,
;              DU:[200,54]             EDT-FILER,
;              DU:[200,55]             EDT-FILER,
;              DU:[200,56]             EDT-FILER,
;              DU:[200,57]             EDT-FILER,Anna-karin L|vgren
;              DU:[200,60]             EDT-FILER,Ingemar Larsson
;              DU:[200,61]             EDT-FILER,Birgitta Eriksson
;              DU:[200,62]             EDT-FILER,u
;              DU:[200,63]             EDT-FILER,u
;              DU:[200,64]             EDT-FILER,u
;              DU:[200,65]             EDT-FILER,u
;              DU:[200,66]             EDT-FILER,u
;              DU:[200,67]             EDT-FILER,u
;              DU:[200,70]             EDT-FILER,Plan.avd, Stig & Christer
;              DU:[200,71]             EDT-FILER, - " -, Tomas Karlsson
;              DU:[200,72]             EDT-FILER,u
;              DU:[200,73]             EDT-FILER,Kjell Pettersson
;              DU:[200,74]             EDT-FILER,u
;              DU:[200,75]             EDT-FILER,Tapper
;              DU:[200,76]             EDT-FILER,u
;              DU:[200,77]             EDT-FILER,Papper
;
;
       .ENABLE GLOBAL
       .ENABLE SUBSTITUTION
       .DISABLE QUIET
       .SETS UIC <UIC>
       .SETS ERRCSE "INGET"    !FELORSAK
       .SETS $XSPC P1
       .IF P2 NE "2" .GOTO L0001
       .GOTO L0002
L0001:
       ;BACKUP - STARTAS ENDAST VIA @BACKUP
       .EXIT
L0002:
L0003:
       .SETS $DAT P3
;
       .TEST $XSPC
       .IF <STRLEN> LT 2 .STOP
;
       .IF <UIC> NE "[1,2]" .GOTO L0004
       .GOTO L0005
L0004:
       .DISABLE QUIET
       ; EJ TILL]TET K\RA UNDER ANNAT UIC [N [1,2]
       .EXIT
L0005:
L0006:
;
       .TESTDEVICE TI:
       .PARSE <EXSTRI> "," VAR1 VAR2
       .IF VAR1 NE "TT0:" .GOTO L0007
       .GOTO L0008
L0007:
       .DISABLE QUIET
       ; EJ TILL]TET K\RA FR]N ANNAT H]LL [N FR]N KONSOLEN
       .IF $XSPC NE "930BTA" .EXIT
L0008:
L0009:
;
       .IFNINS PIP INS $PIP
       TYP LB:[1,300]BACKUP2.LBL

;
       .SETF XPLA
       .IF $XSPC NE "930BTA" .ASK XPLA VILL DU HA INSTRUKTIONER
;
;
       .SETF MIMER             !PONERA ATT MIMER INTE VAR AKTIVT
       .IFINS DBIOT .GOTO L0010
       .GOTO L0011
L0010:
       .SETT MIMER             !MIMER [R AKTIVT, KOMMER ATT ]TERSTARTAS
       ;       MIMER [R AKTIVT
       ;       JAG STOPPAR NU MIMER
       ;
       @LB:[1,2]DBSTOP
L0011:
L0012:

       @LB:[1,2]EXTRAREM
;
L0013:
       .IFT <TRUE> .GOTO L0014
       .GOTO L0015
L0014:
       .IFT XPLA .GOTO L0016
       .GOTO L0017
L0016:
       ;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
L0017:
L0018:
;
       .SETT GO
       .IFT XPLA .GOTO L0019
       .GOTO L0020
L0019:
       .ASK GO HAR DU MONTERAT BANDET
L0020:
L0021:
       .IFT GO .GOTO L0022
       .GOTO L0023
L0022:
;
       MOU MS:/FOR
       .IF <EXSTAT> EQ 1 .GOTO L0015
L0023:
L0024:
;
       ;
       ; DET [R N]T GALET MED TAPEN I BANDSTATIONEN, FIXA DET !!!
       ;
;
       .SETT XPLA
       .GOTO L0013
L0015:
;
;
;
       ;
       ;BACKUP - INGA FLER FR]GOR
       .IFT XPLA .GOTO L0025
       .GOTO L0026
L0025:
       ;JAG KOMMER NU ATT ARBETA C:A 1-3 TIMMAR.
L0026:
L0027:
       ;
;
;
       .OPEN LB:[1,300]BACKUP2.LBL
       .DATA MAGTAPE BACKUP AV EDT-FILER SAMT MIMER-REGISTREN M.M.
       .DATA BACKUP SENAST TAGEN '$DAT' AV '$XSPC' - LABEL: BACKUP2'$DAT'
       .DATA BACKUP F\R EDT-FILER I GRUPPER MED /BACLABEL: GRP5, GRP6, GRP7
       .DATA BACKUP F\R EXTRAREGISTER LM:[167,301],[1,101],[1,102]. /BAC:EXTRA
       .DATA '<DATE>' '<TIME>'
       .CLOSE
;
       PIP @LB:[1,2]BACKUP2.PIP
       .SETS ERRCSE "PIP"
       .IF <EXSTAT> NE 1 .GOSUB FEL
;
;
       .IFNINS BRU INS $BRU
;
       .OPEN WI:[200,142]BACKUP2.BRU
       .DATA /REW/MOU/VER/BAC:BACKUP2'$DAT' DU0:[1,300],[2,300],[200,100],[2,100],[2,67],[2,73] MS:
       .DATA /APP/MOU/VER/BAC:GRP5 DU0:[200,50],[200,51],[200,52],[200,53],[200,54],[200,55],[200,56],[200,57] MS:
       .DATA /APP/MOU/VER/BAC:GRP6 DU0:[200,60],[200,61],[200,62],[200,63],[200,64],[200,65],[200,66],[200,67] MS:
       .DATA /APP/MOU/VER/BAC:GRP7 DU0:[200,70],[200,71],[200,72],[200,73],[200,74],[200,75],[200,76],[200,77] MS:
       .DATA /APP/MOU/VER/BAC:EXTRA DU0:[167,301],[1,101],[1,102] MS:
       .CLOSE
;
       PRI WI:[200,142]BACKUP2.TMP/CO:2/DEL
;
       BRU @WI:[200,142]BACKUP2.BRU
       .SETS ERRCSE "BRU"
       .IF <EXSTAT> NE 1 .IF <EXSTAT> NE 0 .GOSUB FEL
;
       PIP WI:[200,142]BACKUP2.BRU;*/DE/LD
;
       DMO MS:/DEV
       ;
       ;BACKUP - BANDET F[RDIGT !
       ;
       .IFT XPLA .GOTO L0028
       .GOTO L0029
L0028:
       ;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 !
L0029:
L0030:
;
       SET /UIC='UIC'
;
       @LB:[1,2]EXTRAENT       !ENTER P] REGISTER
       .IFT MIMER .GOTO L0031
       .GOTO L0032
L0031:
       .SETF $BOO              !INGEN BOOT, MEN SYMBOLEN SKA VA DEF.
       @LB:[1,2]DBSTART        !]TERSTART AV MIMER
L0032:
L0033:
;
       .IFINS BRU REM BRU
;
       .DISABLE QUIET
       ;
       ;----- BACKUP2 KLAR
       ;
       .EXIT
;
;
FEL:
       ;'ERRCSE'
       ; FAILED -- EXSTAT = '<EXSTAT>'
       .PAUSE
       .RETURN
;
;      <EOF> LB:[1,2]BACKUP2.SAT
;