;      ************************************************
;      *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 29-JUL-88 10:04:29 *
;      *FROM USERDEF.SAT
;      ************************************************
;
;
; LB:[1,2]USERDEF.SAT F\R BER[KNING AV  $ANVND, $PUSER OCH $ID
;                     SAMT PROGRAMMERING AV TANGENTER
;
; V A R N I N G - .SAT & .CMF ANV[NDES ! K\R @SAT !
;
;
;      HISTORIK:
;      DATUM   NAMN                    ]TG[RD
;      870214  B-E TAPPER              F[RDIGST[LLT F\R ALLM[NT BRUK
;      870303  B-E TAPPER              PROGRAMMERING AV TANGENTER
;      880729  B-E TAPPER              .sat, .cmf samt NEW i ID.DEF
;
;
       .ENABLE SUBSTITUTION
       .DISABLE DISPLAY
       .ENABLE GLOBAL
       .ENABLE ESCAPE
       .DISABLE LOWERCASE
       .DISABLE DECIMAL
;
;L[S $ID OCH [NDRA EV. UIC
       @ID.DEF
;
       .IFDF $MAI11 .GOTO L0001
       .GOTO L0002
L0001:
       NEW
       .IF <EXSTAT> EQ 3 .GOTO L0004
       .GOTO L0005
L0004:
       MAI
L0005:
L0006:
L0002:
L0003:
;
       .PARSE $USER "$" $ANVND
;
       .OPEN ID.USG
       .DATA MAIL-kontot anv{nt av '$ANVND' '<DATE>' '<TIME>'
       .CLOSE
;
       .TESTFILE TNG'$PUSER'.DEF
       .IF <FILERR> EQ 1 .GOTO L0007
       .GOTO L0008
L0007:
;
       .OPENR TNG'$PUSER'.DEF
       .ENABLE LOWERCASE
       .ENABLE CONTROL-Z
       .SETF <EOF>
       ;~
;
L0010:
       .IFT <TRUE> .GOTO L0011
       .GOTO L0012
L0011:
;
       .READ DUMMY
       .IFT <EOF> .GOTO L0012
;
       .READ DUMMY
       .IFT <EOF> .GOSUB SYSFEL
;
       .READ PRKEY
       .IFT <EOF> .GOSUB SYSFEL
;
       .READ DLSTR
       .IFT <EOF> .GOSUB SYSFEL
;
       .READ DUMMY
       .IFT <EOF> .GOSUB SYSFEL
;
       .READ DPFTX
       .IFT <EOF> .GOSUB SYSFEL
;
       .SETS PRSTR "@"+PRKEY+DLSTR+DPFTX+DLSTR
       ;'PRSTR'
;
       .GOTO L0010
L0012:
;
       .CLOSE
L0008:
L0009:
;
       .DISABLE CONTROL-Z
       .DISABLE LOWERCASE
       .EXIT
;
;
SYSFEL:
       ;SYSTEMFEL - Ring 120.
       .SETF OLDF
       .SETF <EOF>
       .PAUSE
       .RETURN
;
;
;
; <EOF> LB:[1,2]USERDEF.SAT
;