;      ************************************************
;      *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 03-AUG-88 06:19:03 *
;      *FROM BACKUP0.SAT
;      ************************************************
;
 LB:[1,2]BACKUP0.SAT   ---     TAR BACKUP P] SYSTEMET - LB:
;                                 BACK UP TILL TAPE
;
;      OBS ! .SAT,.CMF - ANV[ND @SAT
;
;      VERSION 88-08-03 B-E TAPPER AVSEDD F\R PDISP P] LABAN+ - TAPEBACKUP
;      BACKAR UPP F\LJANDE :
;
;      [1,1],[1,2],[1,54],[3,54],[7,54],[2,101],[2,104],[110,11],[110,60],
;      [110,231]
;
       .ENABLE GLOBAL
       .ENABLE SUBSTITUTION
       .DISABLE QUIET
       .DISABLE ATTACH
       .SETS UIC <UIC>
       .SETS ERRCSE "INGET"    !FELORSAK
       .SETS $XSPC P1
;
;
       .IF P2 NE "0" .GOTO L0003
       .GOTO L0004
L0003:
       ;BACKUP - STARTAS ENDAST VIA @BACKUP
       .GOTO L0001
L0004:
L0005:
       .SETS $DAT P3
;
       .TEST $XSPC
       .IF <STRLEN> LT 2 .GOTO L0001
;
       .IF <UIC> NE "[1,2]" .GOTO L0006
       .GOTO L0007
L0006:
       ; EJ TILL]TET K\RA UNDER ANNAT UIC [N 1,2
       .GOTO L0001
L0007:
L0008:
;
       .TESTDEVICE TI:
       .PARSE <EXSTRI> "," VAR1 VAR2
       .IF VAR1 NE "TT0:" .GOTO L0009
       .GOTO L0010
L0009:
       ; EJ TILL]TET K\RA FR]N ANNAT H]LL [N FR]N KONSOLEN
       .IF $XSPC NE "930BTA" .GOTO L0001
L0010:
L0011:
;

       .IFNINS PIP INS $PIP
       TYP LB:[1,54]BACKUP0.LBL

;
       .SETF XPLA
       .IF $XSPC NE "930BTA" .GOTO L0012
       .GOTO L0013
L0012:
       .ASK XPLA VILL DU HA INSTRUKTIONER
L0013:
L0014:
;
L0015:
       .IFT <TRUE> .GOTO L0016
       .GOTO L0017
L0016:
;
       .IFT XPLA .GOTO L0018
       .GOTO L0019
L0018:
       ;
       ;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
       ;
;
L0019:
L0020:
       .SETT GO
       .IFT XPLA .GOTO L0021
       .GOTO L0022
L0021:
       .ASK GO HAR DU MONTERAT BANDET
L0022:
L0023:
       .IFT GO .GOTO L0024
       .GOTO L0025
L0024:
;
       MOU MS:/FOR
       .IF <EXSTAT> EQ 1 .GOTO L0017
;
L0025:
L0026:
;
       .SETT XPLA
       .DISABLE QUIET
       ;
       ;DET [R N]T GALET MED TAPEN I BANDSTATIONEN
       ;FIXA DET !!!
       ;
;
       .GOTO L0015
L0017:
;
       .IFT XPLA .GOTO L0027
       .GOTO L0028
L0027:
       ;
       ;JAG KOMMER NU ATT ARBETA C:A 1/2 TIMME.
       ;
L0028:
L0029:
       ;
       ;BACKUP - INGA FLER FR]GOR
       ;
;
;
       .OPEN LB:[1,54]BACKUP0.LBL
       .DATA MAGTAPE BACKUP AV SYSTEMKONTON P] SYSTEMDISKEN
       .DATA LB:[1,1],[1,2],[1,54],[3,54],[7,54],[2,101],[2,104],[110,11],[110,231]
       .DATA BACKUP SENAST TAGEN '$DAT' AV '$XSPC' - LABEL: BACKUP0'$DAT'
       .DATA '<DATE>' '<TIME>'
       .CLOSE
;
       .OPEN LB:[1,2]BACKUP0.PIP
       .DATA WI:[200,142]BACKUP0.BRU;*/DE/NM
       .DATA WI:[200,142]BACKUP0.TMP=LB:[1,1],[1,2]/LI,[1,54],[3,54],[5,54]
       .DATA WI:[200,142]BACKUP0.TM2=LB:[2,101]/LI,[2,104],[110,11],[110,231]
       .DATA WI:[200,142]BACKUP0.TMP/AP=WI:[200,142]BACKUP0.TM2
       .DATA LB:[1,54]BACKUP0.LBL/PU/LD
       .DATA LB:[1,2]BACKUP0.PIP/PU/LD
       .CLOSE
;
       PIP @LB:[1,2]BACKUP0.PIP
       .SETS ERRCSE "PIP"
       .IF <EXSTAT> NE 1 .GOSUB FEL
;
;
       .IFNINS BRU INS $BRU
;
       .OPEN WI:[200,142]BACKUP0.BRU
       .DATA /REW/MOU/VER/BACK:BACKUP0'$DAT' DU:[1,1],[1,2],[1,54],[3,54],[7,54],[2,101],[2,104],[110,11],[110,231] MS:
       .CLOSE
;
       PRI WI:[200,142]BACKUP0.TMP/CO:2/DEL
       PIP WI:[200,142]BACKUP0.TM2;*/DE
;
       BRU @WI:[200,142]BACKUP0.BRU
       .SETS ERRCSE "BRU"
       .IF <EXSTAT> NE 1 .GOTO L0030
       .GOTO L0031
L0030:
       .IF <EXSTAT> NE 0 .GOSUB FEL
L0031:
L0032:
;
       PIP WI:[200,142]BACKUP0.BRU;*/DE
;
       DMO MS:/DEV
       ;
       ;BACKUP - BANDET F[RDIGT !
       ;
       .IFT XPLA .GOTO L0033
       .GOTO L0034
L0033:
       ;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 !
       ;
L0034:
L0035:
;
       .GOTO L0002
L0001:
       DMO MS:/DEV
L0002:
;
       SET /UIC='UIC'
;
       .IFINS BRU REM BRU
;
       .EXIT
;
;
FEL:
       ;'ERRCSE'
       ; FAILED -- EXSTAT = '<EXSTAT>'
       .PAUSE
       .RETURN
;
;      <EOF> LB:[1,2]BACKUP0.SAT
;