C+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        LOGICAL*1 FUNCTION      SAT012(IBYTE)
C
C       STRUKTURERAD AT.!
C
C       HISTORIK:
C       DATUM           NAMN                    ORSAK
C       01-JAN-83       LARS-G\RAN OLSSON       URUPPF\RANDE
C
C       FUNKTION:
C       KOLLAR OM TECKEN KAN ANV[NDAS I SECTION-NAMN
C
C       INDATA:
C       IBYTE   -       TECKEN SOM SKALL TESTAS
C       UTDATA:
C       SAT012  -       TRUE = KAN ANV[NDAS
C                       FALSE= KAN EJ ANV[NDAS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       INTERNA VARIABLER
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       LOGICAL*1       IBYTE(1)        < TESTBYTE
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       STYRSEKTION
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      IF(.NOT.    (IBYTE(1) .GE. 48 .AND. IBYTE(1) .LE. 57))GOTO 30016
        SAT012 = .TRUE.
      GOTO 30079
30016  IF(.NOT. (IBYTE(1) .GE. 65 .AND. IBYTE(1) .LE. 90))GOTO 30017
        SAT012 = .TRUE.
      GOTO 30079
30017  CONTINUE
        SAT012 = .FALSE.
30078  CONTINUE
30079  CONTINUE
        RETURN
        END