;      ************************************************
;      *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 01:58:47 *
;      *FROM BACKUP.SAT
;      ************************************************

       LB:[1,2]BACKUP.SAT

;
;      VERSION 88-08-02 B-E TAPPER; BACKUP P] 11M+
;
;
       .ENABLE ESCAPE
       .ENABLE SUBSTITUTION
       .ENABLE TIMEOUT
       .ENABLE GLOBAL
       .DISABLE DISPLAY
       .DISABLE QUIET
       .ENABLE DECIMAL
;
L0001:
       .IFT <TRUE> .GOTO L0002
       .GOTO L0003
L0002:
;
       ;
       ;       MENY
       ;       ====
       ;
       ;       <RET>   ]TERG]/AVSLUTA
       ;       <ESC>   SE BACKUPL[GE
       ;       0       BACKUP 0 - SYSTEMKONTON P] SYSTEMDISKEN
       ;       1       BACKUP 1 - PDISP REGISTER
       ;       2       BACKUP 2 - MIMER REGISTER OCH -96 ANV[NDARKONTON, RADIODRIFT
       ;       3       BACKUP 3 - PLAN.-AVD. REGISTER F\R TRAFIKLEDNINGSSYSTEMET
       ;       4       BACKUP 4 - K[LLKOD RADIOSYS - FORTRAN (RD:)
       ;       5       BACKUP 5 - K[LLKOD VOLVO,VOLYVA,VOLTRE (VO:,VT:,VR:)
       ;       6       BACKUP 6 - DRIFTSPROGRAM, VFS-SYSTEMET, TAX/LIO-SYSTEMET SAMT
       ;                          APPL-BIBLIOTEK (166,300),(110,60),(110,231),(200,147)
       ;
;
       .ASKN [0:6:0:10S] KOD DIT VAL :
;
       .IFT <DEFAUL> .GOTO L0004
       .GOTO L0005
L0004:
;
       ; BACKUP - INITIERING AVSLUTAD
       .GOTO L0003
;
       .GOTO L0006
L0005:
       .IFT <ESCAPE> .GOTO L0008
       .GOTO L0007
L0008:
;
       .DISABLE QUIET
       ;
       ;BACKUP 0
       ;
       .ENABLE QUIET
       TYP LB:[1,54]BACKUP0.LBL
       .DISABLE QUIET
       ;
       ;BACKUP 1
       ;
       .ENABLE QUIET
       TYP LM:[166,301]BACKUP1.LBL
       .DISABLE QUIET
       ;
       ;BACKUP 2
       ;
       .ENABLE QUIET
       TYP LB:[1,300]BACKUP2.LBL
       .DISABLE QUIET
       ;
       ;BACKUP 3
       ;
       .ENABLE QUIET
       TYP RA:[200,120]BACKUP3.LBL
       .DISABLE QUIET
       ;
       ;BACKUP 4
       ;
       .ENABLE QUIET
       TYP RB:[200,120]BACKUP4RB.LBL
       .DISABLE QUIET
       ;
       ;BACKUP 5
       ;
       .ENABLE QUIET
       TYP VO:[200,142]BACKUP5VO.LBL
       TYP VT:[200,142]BACKUP5VT.LBL
       TYP VR:[200,142]BACKUP5VR.LBL
       .DISABLE QUIET
       ;
       ;BACKUP 6
       ;
       .ENABLE QUIET
       TYP WI:[200,147]BACKUP6.LBL
       .DISABLE QUIET
;
       .GOTO L0006
L0007:
       .IFACT BACKUP .GOTO L0010
       .GOTO L0009
L0010:
;
       ;BACKUP - BACKUP P]G]R, F\RS\K SENARE
;
       .GOTO L0006
L0009:
;
       .SETS $XSPC ""
       .TEST $XSPC
L0011:
       .IF <STRLEN> LT 2 .GOTO L0012
       .GOTO L0013
L0012:
       .ASKS $XSPC Dina initialer, tack >
       .TEST $XSPC
       .GOTO L0011
L0013:
;
       .IF <UIC> NE "[1,2]" .GOTO L0014
       .GOTO L0015
L0014:
       ; EJ TILL]TET K\RA UNDER ANNAT UIC [N 1,2
       .GOTO L0003
L0015:
L0016:
;
       .TESTDEVICE TI:
       .PARSE <EXSTRI> "," VAR1 VAR2
       .IF VAR1 NE "TT0:" .GOTO L0017
       .GOTO L0018
L0017:
       ; EJ TILL]TET K\RA FR]N ANNAT H]LL [N FR]N KONSOLEN
       .IF $XSPC NE "930BTA" .GOTO L0003
L0018:
L0019:
;
       .IF $XSPC EQ "930BTA" .GOTO L0020
       .GOTO L0021
L0020:
       .SETF XPLA
       .GOTO L0022
L0021:
       .SETT XPLA
L0022:
;
       .GOSUB SETDAT
       .ENABLE QUIET
;
       .GOSUB BACKAU
       .GOTO L0003
;
L0006:
;
       .GOTO L0001
L0003:
;
       .EXIT
;

;;;;   # BACKAUPP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

BACKAU:
;
       .ENABLE QUIET
       .XQT RUN $ICP/TASK=BACKUP/CMD="@LB:[1,2]BACKUP'KOD' '$XSPC' 'KOD' 'DAT'"/EST=NO
;
       .RETURN

;;;;   # SETDATE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

SETDAT:
;
       .SETS DATD <DATE>
       .SETS DAT03 DATD[8:9]           !OBS -- DECIMALT
       .SETS DAT01 DATD[1:2]
       .SETS DAT02 DATD[4:6]
       .IF DAT02 EQ "JAN" .SETS DAT00 "01"
       .IF DAT02 EQ "FEB" .SETS DAT00 "02"
       .IF DAT02 EQ "MAR" .SETS DAT00 "03"
       .IF DAT02 EQ "APR" .SETS DAT00 "04"
       .IF DAT02 EQ "MAY" .SETS DAT00 "05"
       .IF DAT02 EQ "JUN" .SETS DAT00 "06"
       .IF DAT02 EQ "JUL" .SETS DAT00 "07"
       .IF DAT02 EQ "AUG" .SETS DAT00 "08"
       .IF DAT02 EQ "SEP" .SETS DAT00 "09"
       .IF DAT02 EQ "OCT" .SETS DAT00 "10"
       .IF DAT02 EQ "NOV" .SETS DAT00 "11"
       .IF DAT02 EQ "DEC" .SETS DAT00 "12"
       .SETS DATD DAT03+DAT00+DAT01            !DEFAULT DATE
;
L0023:
       .IFT <TRUE> .GOTO L0024
       .GOTO L0025
L0024:
       .IFT XPLA .GOTO L0026
       .GOTO L0027
L0026:
       ;ANGE NEDAN \NSKAT DATUM (6 SIFFROR, T.EX. 880615)
       ;ELLER <RETURN> OM 'DATD' DUGER. ANGE NORMALT <RETURN>.
L0027:
L0028:
       .ASKS DAT BACKUP-DATUM ('DATD')
       .TEST DAT
       .IF <STRLEN> EQ 0 .GOTO L0029
       .GOTO L0030
L0029:
       .SETS DAT DATD
L0030:
L0031:
       .TEST DAT
       .IF <STRLEN> EQ 6 .GOTO L0032
       .GOTO L0033
L0032:
       .SETF SJUKT                     !ANTAG EJ SJUKT
       .IF DAT00 NE DAT[3:4] .SETT SJUKT
       .IF DAT03 NE DAT[1:2] .SETT SJUKT
       .SETT GO
       .IFT SJUKT .GOTO L0035
       .GOTO L0036
L0035:
       ;ANGIVET DATUM 'DAT' VERKAR SJUKT
       .ASK GO [R DET OK
L0036:
L0037:
       .IFT GO .GOTO L0025
L0033:
L0034:
;
       .GOTO L0023
L0025:
;
       .RETURN
;

       <EOF> LB:[1,2]BACKUP.SAT