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 plot = .true.
>&surface
                            +++ S U R F A C E +++
                            =====================
 
 
>&set delta = 0.01
>block jackup
                              +++ B L O C K +++
                              =================
 
 
>beamc 0 56.57 32.8 173.75 0
>plane 0            -rect 0 23.79 32.8
>beamc 0 56.57 32.8 173.75 6.56+0.01
>plane 6.56+0.01         -rect 0 23.79 49.16984
>beamc 0 56.57 32.8 173.75 27.88-0.01
>plane 27.88-0.01         -rect 0 23.79 102.241
>beamc 0 56.57 32.8 173.75 56.57+0.01
>plane 56.57+0.01        -rect 0 23.79 173.7749
>beamc 56.57 77.78 173.75  173.75 77.89-0.01
>plane 77.89-0.01        -rect 0 23.79 173.75
>beamc 77.78 181 173.75  126.3  143.5+0.01
>plane 143.5+0.01        -rect 0 23.79 143.5341
>beamc 77.78 181 173.75  126.3  164.82-0.01
>plane 164.82-0.01       -rect 0 23.79 133.7425
>plane 181          -rect 0 23.79 126.3
>end
                            +++ S U R F A C E +++
                            =====================
 
 
>cutout  6.56 0 0
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>cutout  56.57 -70.52 0
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>cutout  56.57  70.52 0
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>cutout  143.5  37.24 0
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>cutout  143.5 -37.24 0
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>rename jackup -equiv .1
>suplot jackup
>emit jackup -body
>emit jackup  -piece '-diftype 3ddif'
>end
                               +++ M A I N +++
                               ===============
 
 
 
 
                          MOSES   Finished Normally
                          =========================
                           CP Time             0.14
                           ========================
                           Total Units         0.14
                           ========================