PROG    SOFILOAD urs:4
    HEAD

    ACT TYPE    GAMU    GAMF    SUP
        D_1 1.2 1.2 PERM
        D_2 1.2 1.2 PERM
        PS  1   1   PERM
        PB  1   1   PERM
        ZP  1   1   PERM
        CR  1   1   PERM
        B   1   1   PERM
        LL  1.4 0   EXCL
        TU  1   1   PERM
        TG  1   1   PERM

    LC  NO  TYPE    TITL
        1   TG  Positive
        LET#T_H 12.5   3.35 0
        LET#Z_H 0   0.1[m]  0.4[m]
        LOOP#i  T_H
        BEAM    FROM    TO  TYPE    EZA PA  REFT
            'GRP'   21  T   #Z_H(#i)    #T_H(#i)    -Z
            'GRP'   22  T   #Z_H(#i)    #T_H(#i)    -Z
            'GRP'   23  T   #Z_H(#i)    #T_H(#i)    -Z
        ENDLOOP
        EVAL    TYPE    TEIG

    LC  NO  TYPE    TITL
        2   TG  Negative
        LET#T_C -12.5   -3.35   0
        LET#Z_C 0   0.1[m]  0.4[m]
        LOOP#i  T_C
        BEAM    FROM    TO  TYPE    EZA PA  REFT
            'GRP'   21  T   #Z_C(#i)    #T_C(#i)    -Z
            'GRP'   22  T   #Z_C(#i)    #T_C(#i)    -Z
            'GRP'   23  T   #Z_C(#i)    #T_C(#i)    -Z
        ENDLOOP
        EVAL    TYPE    TEIG

    END