$
$*********************************************      basic stuff
$
&device -g_default device -oecho no
&dimen -dimen feet kips
&default -depth 100
$
$*********************************************      read data
$
inmodel
$
$*********************************************      weight
$
&instate -con 10
&weight -compute 10 32 129 129
$
$*********************************************      date stuff
$
&cutype Checking DATE
&device -us_date no -name_fig pic -months   \
        R_JAN R_FEB R_MAR R_APR R_MAY R_JUN \
        R_JUL R_AUG R_SEP R_OCT R_NOV R_DEC
&report -hard
   cutype Hi There
end
&device -set_date '12 CINTEMBER 2007'
$
$*********************************************      pic_view
$
&pi_view -add r_top top
&pi_view -add r_side side
&pi_view -add r_iso iso
&type pi_view &names(pi_views)
&pi_view -delete r_iso
&type pi_view  &pi_views()
$
$*********************************************      out of date
$
&cutype Checking Out Of Date
&type
&type UNINAME  BFORCE   &uniname(BFORCE  )
&type UNINAME  LFORCE   &uniname(LFORCE  )
&type UNINAME  BLENGTH  &uniname(BLENGTH )
&type UNINAME  LLENGTH  &uniname(LLENGTH )
&type FILE_EX  FILE_EXI &FILE_EXI(hul_frc.cif)
&type SEVERITY SEVERITY &severity(ERROR)
$
$*********************************************      info
$
&cutype Checking &INFO
&event 3
&event 2
&type env      &info(env HOME)
&type FILE_EX  &info(FILE_EXISTS hul_frc.cif)
&type SEVERITY &info(severity Warn )
&loop cha ( LOG OUTPUT  SCREEN  GRA_DEVI DOCUMENT \
            D_FUNCTI TABLE   PPOUT   MODEL   )
   &type cha_file  %cha <&info(cha_file %cha)>
&endloop
i_loop  'TPGLEN  ' \
        'OPGLEN  ' 'FONT    ' 'PWIDTH  ' 'PHEIGHT ' 'IMARGIN ' \
        'OMARGIN ' 'TMARGIN ' 'BMARGIN ' 'DOUSIDE ' 'LPI     ' \
        'CPI     ' 'DEVICE  ' 'HOME    ' 'TITLE   ' 'SUBTITLE' \
        'FIG_NUM ' 'VERSION ' 'REVNUM  ' 'PGMPAT  ' 'OS_CLASS' \
        'ROOT    ' 'CWD     ' 'PROGRAM ' 'SILENT  ' 'C_FILE  ' \
        'C_PATH  ' 'C_IFILE ' 'C_IPATH ' 'C_CFILE ' 'C_CPATH ' \
        'T_OF_DAY' 'DATE    ' 'USER_INF' 'LFORCE  ' 'BFORCE  ' \
        'LLENGTH ' 'BLENGTH ' 'PICT_TYP' 'HAS_GL  ' 'GRA_PDV ' \
        'DOC_FIG ' 'MENU    '
$
$*********************************************      sensor
$
&loop d ( 20 10 0 -5 -10)
   &instate -con %d
   &type ==== Draft %d
   &type    h_stop alarm_sensor = &info(alarm_sensor h_stop)
   &type    h_stop value_sensor = &info(value_sensor h_stop)
   &type    wt     alarm_sensor = &info(alarm_sensor wt)
   &type    wt     value_sensor = &info(value_sensor wt)
   &type    nwt    alarm_sensor = &info(alarm_sensor nwt)
   &type    nwt    value_sensor = &info(value_sensor nwt)
&endloop
$
$*********************************************      category stuff
$
&stat cat -hard
&loop  t 'wt_categ'  'bu_categ'  'mu_categ'
   &type  info extras -   %t = &info(%t extras)
   &type  info total  -   %t = &info(%t total)
   &type  info @      -   %t = &info(%t @)
&endloop
$
$*********************************************      severity
$
&instate -con 9
&equi -iter 1  -move_max 100 200  -tol 1e-12 -omega .5
&type severity &info(severity warn)
$
$*********************************************      all done
$
&fini
