Page    1              Licensee -  Ultramarine inc.                                      Rev DEVLOP                          Ser201
           ***************************************************************************************************************
           *                                                ***  MOSES   ***                                             *
           *                                                ----------------                         May 18, 2012        *
           *                                                                                                             *
           ***************************************************************************************************************
 
                                          +++ I M A G E S   O F   I N P U T   D A T A +++
                                          ===============================================
 
                           $
                           $*********************************************         read macros
                           $
                           &insert sfun.mac
                           $
                           $***************************************         info macro
                           $
                           &macro i_loop list
                              &loop st ( %list )
                                 &set poop = &info(%st)
                                 &type &format(a8 %st) %(poop)
                              &endloop
                           &endmacro
                           $
                           $***************************************         status macro
                           $
                           &macro s_loop list
                              &loop st ( %list )
                                 &set w = &status %st -hard
                                 &type     %w
                                 %w
                              &endloop
                           &endmacro
                           $
                           $***************************************         body macro
                           $
                           &macro b_loop list
                              &set system   = Body
                              &loop  ext ( test_bod -g )
                                 &loop type  ( %list )
                                     &set %type = &body(%type %ext)
                                     &type &format(a8 %type) &format(a8 %system) &format(f10.2 %(%(type)))
                                 &endloop
                                 &set system = Global
                              &endloop
                           &endmacro
                           $
                           $*********************************************         define
                           $
                           &describe -body check
                           *010  10  10  10
                           *100 100 100 100
                           &describe -body carl
                           *1c 0 0 0
                           *2c 1 1 1
                           &describe -body also
                           *1a 0 0 0
                           *2a 1 1 1
                           *tpor0       -20.0000        -20.0000         25.0008
                           *tstb0       -20.0000         20.0000         25.0000
                           *bpor0       -20.0000        -20.0000          0.0000
                           *bstb0       -20.0000         20.0000         00.0000
                           *tpor40       20.0000        -20.0000         25.0008
                           *tstb40       20.0000         20.0000         25.0000
                           *bpor40       20.0000        -20.0000          0.0000
                           *bstb40       20.0000         20.0000         00.0000
                           *nwt          0.0000         0.0000         -10.0000
Page    2              Licensee -  Ultramarine inc.                                      Rev DEVLOP                          Ser201
           ***************************************************************************************************************
           *                                                ***  MOSES   ***                                             *
           *                                                ----------------                         May 18, 2012        *
           *                                                                                                             *
           ***************************************************************************************************************
 
                                               +++ I N D E X   O F   O U T P U T +++
                                               =====================================
 
                                     IMAGES OF INPUT DATA . . . . . . . . . . . . . . . . .     1
 
                                     INDEX OF OUTPUT  . . . . . . . . . . . . . . . . . . .     2