+PROG   AQUA urs:1
HEAD
CTRL    REST    1
UNIT    TYPE    5   $   MM

NORM    GB 50010
STEE    NO  TYPE    CLAS    FY  FT
    1   S   Q235    215 360

SCIT    NO  1   D   100

END

+PROG   SOFIMSHC urs:2
HEAD
PAGE    UNII    0
SYST    3D  GDIR    NEGZ    GDIV    -1000
CTRL    TOLG    0.01
CTRL    MESH    1
CTRL    HMIN    -

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

SLN NO  NPA NPE SNO GRP
    1   1   2   1   100

END


+PROG   SOFILOAD urs:3
HEAD

LC  1   G
POIN    REF NO  TYPE    P   X   Y   Z
    SLN 1   PG  1   1   0   0

LC  2   G
POIN    REF NO  TYPE    P   X   Y   Z
    SLN 1   PY  1   1   0   0

END

+PROG   ASE urs:4
HEAD

LC  ALL


END

+PROG   AQB
HEAD

LC  1
LC  2
END


+PROG   WING
HEAD    Graphical   Output
CTRL    MEAS    2D
PAGE    UNII    0
SIZE    URS SC  0   MARG    NO  FORM    STAN
let#1   1
loop    2
    LC  #1  DESI    #1
    LOAD    TYPE    ALL
    NODE    TYPE    SV  SCHH    YES
    DEFO    TYPE    FULL    FAC DEFA    LC  CURR;   STRU    NUME    0   0;  DEFO    NO
    BEAM    TYPE    N;  BEAM    TYPE    MY; BEAM    TYPE    MZ; BEAM    TYPE    VZ; BEAM    TYPE    VY; BEAM    TYPE    MT
    BEAM    TYPE    SDPT;   BEAM    TYPE    SZPT;   BEAM    TYPE    STPT;   BEAM    TYPE    SVPT;
    let#1   #1+1
endloop
END