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 device -oecho no
>&title Sample of Sway Decay In Calm Seas
>&Subtitle Moored Barge
>inmodel
    Time To perform Inmodel                         : CP=     0.09
>&names piece
                             +++ P I E C E S +++
                             ===================
 
                                    BARGE
>&set y = 0 10 20 30 40 50 60 50 40 30 20 10 0 -10 -20 -30 -40 -50 -60
 &instate -loca 0 0 -9
 &instate -loca 0 10 -9
 &instate -loca 0 20 -9
 &instate -loca 0 30 -9
 &instate -loca 0 40 -9
 &instate -loca 0 50 -9
 &instate -loca 0 60 -9
 &instate -loca 0 50 -9
 &instate -loca 0 40 -9
 &instate -loca 0 30 -9
 &instate -loca 0 20 -9
 &instate -loca 0 10 -9
 &instate -loca 0 0 -9
 &instate -loca 0 -10 -9
 &instate -loca 0 -20 -9
 &instate -loca 0 -30 -9
 &instate -loca 0 -40 -9
 &instate -loca 0 -50 -9
 &instate -loca 0 -60 -9
>PRCPOST
            +++ P R O C E S S   P O S T - P R O C E S S I N G +++
            =====================================================
 
 
>point *s *p
                        +++ D I S P O S I T I O N +++
                        =============================
 
 
>report locat
>end
            +++ P R O C E S S   P O S T - P R O C E S S I N G +++
            =====================================================
 
 
>traj
                        +++ D I S P O S I T I O N +++
                        =============================
 
 
>report loca
>end
            +++ P R O C E S S   P O S T - P R O C E S S I N G +++
            =====================================================
 
 
>p_min_dist barge *g@
                        +++ D I S P O S I T I O N +++
                        =============================
 
 
>vlist
                  The Variables Available for Selection are:
                  ==========================================
   1 Event                   2 MIN_DIST
>report
>end
>end
            +++ P R O C E S S   P O S T - P R O C E S S I N G +++
            =====================================================
 
 
>&dcptime Time For Time Post Processing
    Time For Time Post Processing                   : CP=     0.05
 
 
                          MOSES   Finished Normally
                          =========================
                           CP Time             0.16
                           ========================
                           Total Units         0.16
                           ========================