PROG    Sofiload urs:3
    HEAD
    LC  NO  TYPE    TITL
        1   -       NLTG+
        LET#T   5   0   0
        LET#Z   0   0.25[m] 1[m]
        LOOP#i  T
            BEAM    FROM    TO  TYPE    EZA PA  REFT
                    'SLN'   1   T   #Z(#i)    #T(#i)    -Z
        ENDLOOP
        EVAL    TEIG
    LC  NO  TYPE    TITL
        2   -       NLTG-
        LET#T   -5   0   0
        LET#Z   0   0.25[m] 1[m]
        LOOP#i  T
            BEAM    FROM    TO  TYPE    EZA PA  REFT
                    'SLN'   1   T   #Z(#i)    #T(#i)    -Z
        ENDLOOP
        EVAL    TEIG

    END