PROG    AQUA urs:1
    HEAD
    CTRL    FACE    NEG
    UNIT    5   DIG 3
    ECHO    SECT    EXTR
    NORM    GB 50010-2010
    CONC    NO  TYPE    FCN
        1   C   40
    SREC    NO  H   B   MNO
        1   1[m]    2[m]    1
    END


    PROG    SOFIMSHC                             urs:2
    HEAD
    SYST    TYPE    GDIR
        3D  NEGZ
    CTRL    MESH    1
    ECHO    FULL    EXTR
    SPT NO  X   Y   Z   FIX
        1   0   0   0   PPMX
        2   10  0   0   PYPZ
        3   20  0   0   PYPZ
        4   30  0   0   PYPZ
    SLN NO  NPA NPE SDIV    STYP    SNO
        1   1   2   1   SE  1
        2   2   3   1   SE  1
        3   3   4   1   SE  1
    END


    PROG    SofiLoad                             urs:3
    HEAD

    LC  NO  TYPE    FACD
        1   -   1
    END


    PROG    ASE                          urs:4
    HEAD
    LC  ALL
    END


    PROG    ELLA                             urs:5
    GAX NO  S   X   Y   Z
        'A1'    0   0   0   0
        'A1'    100 100 0   0
    LANE    NO  WR  WL  SA  SE  YCA YCE
        A1  0.5 -0.5    0   100 0   0
    LSEL    NO  INT
        A1  0
    CALC    TYPE    LMAX    LMIN
        MY  10  11
        VZ  20  21
        MT  30  31
    LC  NO  TYPE
        100 L
    TRAI    TYPE
        USER
    TRPL    P
        1
    SAVE    LCB
        200
    CASE    NO
        300
    POSL    NO  TRAI
        A1  100
    END


    PROG    WING                             urs:6
    LC  NO
        10
    BEAM    TYPE
        MY
    LC  NO
        11
    BEAM    TYPE                            
        MY                          
    END