PROG    AQUA urs:1
    HEAD
    CTRL    FACE    POS
    UNIT    5
    NORM    GB 50010-2010
    CONC    NO  TYPE    FCN
        1   C   50

    SREC    NO  H       B     REF MNO
            1   1[m]    1[m]  C   1

    END

    PROG    SofimshC urs:2
    HEAD
    SYST    3D  GDIR    NEGZ    GDIV    -1000
    CTRL    MESH    1


    SPT NO  X   Z   FIX
        1   0   0   F
        2   5   0   F

    SLN NO  NPA NPE SDIV    SNO GRP
        1   1   2   1   1   1

    END

    PROG    Sofiload urs:3
    HEAD
    LC  NO  TYPE    TITL
        1   -       Positive
        LET#T_H 10    0
        LET#Z_H 0   0.5[m]
        LOOP#i  T_H
        BEAM    FROM    TO  TYPE    EZA PA  REFT
                'GRP'   1   T   #Z_H(#i)    #T_H(#i)    -Z
        ENDLOOP
        EVAL    TYPE    TEIG
    LC  NO  TYPE    TITL
        2   -       Negative
        LET#T_C -10    0
        LET#Z_C 0   0.5[m]
        LOOP#i  T_C
        BEAM    FROM    TO  TYPE    EZA PA  REFT
                'GRP'   1   T   #Z_C(#i)    #T_C(#i)    -Z
        ENDLOOP
        EVAL    TYPE    TEIG

    END

    PROG    ASE urs:4
    HEAD
    LC  ALL
    END

    PROG    AQB urs:5
    HEAD
    BEAM    GRP -
    LC  1
    STRE    E
    END