WELCOME TO  MOSES Rev DEVLOP
                         ============================
 
              This Program is licensed for the exclusive use of
 
                               Ultramarine, Inc
 
              Copying of this program or use  by  anyone  other
              than  an  employee  of  the  above  firm  without
              written  consent  of  Ultramarine   is   strictly
                                 prohibited.
 
 
 
                               +++ M A I N +++
                               ===============
 
 
>&dimen -dimen feet kips
>&device -g_default devi
>&set sodia  = 63
>&set sdep   = 300
>&set nps    = 9
>&set sidia  = 58
>&set hdis   = 100
>&set plot = .true.
>&m_act column block
>&surface
                            +++ S U R F A C E +++
                            =====================
 
 
>column so 0 0 -height 300 -npoin 9 -dia 63
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>column si 0 0 -height 100 -100 -npoin 9 -dia 58
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>suplot
>difference so si spar
>suplot spar
>rename spar
>emit spar -body
>emit spar  -piece "-diftype 3ddif -desc 'Spar Exterior' -cs_wind 1 1 1  \
       -cs_curr 1 1 1"
>end
                               +++ M A I N +++
                               ===============
 
 
                          MOSES   Finished Normally
                          =========================
                           CP Time             0.16
                           ========================
                           Total Units         0.16
                           ========================