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 +++
                               ===============
 
 
>&dimensions -dimen feet kips
>&device  -pri device
>&set ano   = -ano yes
>&set ano   =
>&set plot  = .true.
>&set one   = .true.
>&set two   = .true.
>&set three = .true.
>&set four  = .true.
>&set five  = .true.
>&surface
                            +++ S U R F A C E +++
                            =====================
 
 
>block one
                              +++ B L O C K +++
                              =================
 
 
>plane 0 100 -rect 0 20 90
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>block two
                              +++ B L O C K +++
                              =================
 
 
>plane 25 75 -rect  1  40 45
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>list_blocks
                             +++ B L O C K S +++
                             ===================
 
                               ONE      TWO
>&title one and two  before
>suplot one two
>union one two ans1
>&title union one and two
>suplot ans1
>block three
                              +++ B L O C K +++
                              =================
 
 
>plane 0 100 -rect 30 70 90
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>&title ans1 and three before
>suplot ans1 three
>union ans1 three ans2
>&title union ans1 and three
>suplot ans2
>block hole
                              +++ B L O C K +++
                              =================
 
 
>plane 40 60 -rect -10 100 20
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>list_blocks
                             +++ B L O C K S +++
                             ===================
 
             ANS1     ANS2     HOLE     ONE      THREE    TWO
>&title ans2 and hole before
>suplot ans2 hole
>difference ans2 hole ans3
>&title difference ans2 and three
>suplot ans3
>block half
                              +++ B L O C K +++
                              =================
 
 
>plane 50 110 -rect -5 200 200
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>list_blocks
                             +++ B L O C K S +++
                             ===================
 
    ANS1     ANS2     ANS3     HALF     HOLE     ONE      THREE    TWO
>&title ans3 and half before
>suplot ans3 half
>differenc ans3 half ans4
>&title difference ans3 and half
>suplot ans4
>rename_block ans4
>emit ans4 -body ans4
>emit ans4 -piece '-diftype 3ddif -cs_current 1 1 1 -cs_wind 1 1 1' -use_name  \
       yes -compartment "-description 'This is Extra '"
                          MOSES   Finished Normally
                          =========================
                           CP Time             0.17
                           ========================
                           Total Units         0.17
                           ========================