$
$*********************************************      basic stuff
$
&device -g_default device -auxin bod_info.dat -oecho no
&dimen -dimen feet kips
&default -depth 100
$
$*********************************************      security
$
&status security
$
$*********************************************      read model
$
inmodel
$
$*********************************************      check continue
$
&type hi there \
      - This is continued
$&type hi there \
      - This is continued
   $&type This is commented out %message
$
$*********************************************      check category summ
$
&cutype Checking CATEGORY_SUM
&apply cow 99
&instate -con 13.5
&weight -compute 0
&compart -perc @ 50
&instate -con 500
&stat
&instate -con 13.5
&summ
    cat -brief -part test_bod
end
$
$*********************************************      general status
$
&cutype Checking General Statuses
s_loop  PARAMETER SIZE B_W
$
$*********************************************      lcategory status
$
&cutype Checking LSET, CATEGORY Status
&device -cont_ent This is an entry -oecho no
s_loop M_LSET M_CATEGO CATEGORY D_CATEGO
&device -cont_ent -oecho no
$
$*********************************************      load group
$
&type
&cutype Checking the Load Group Statuses
&loop st   ( M_LOADG  F_LOADG )
   &set w = &status %st test_bod -hard
   &type     %w
   %w
&endloop
&cutype Checking the &LOADG String Function
&type
&loop action  ( -WEIGHT -PERCENT -CG -RADII )
     &set first = &format(a8 %action)
     &type %first &loadg(@ %action)
&endloop
$
$*********************************************      map status
$
&cutype Checking Map Status
s_loop MAP N_MAP
$
$*********************************************      process
$
&type
&cutype Checking PROCESS Status
s_loop  PROCESS
&cutype Checking the &PROCESS String Function
&type
&loop action  ( PROCESS ','C_EVENT ','MAX_EVEN','MIN_EVEN')
     &set first = &format(a8 %action)
     &type %first &process(%action)
&endloop
$
$*********************************************      names
$
&type
&cutype Checking the NAMES Status
s_loop NAMES
&cutype Checking the &NAMES String Function
&type
&names  names
&sele :s -sel w@
&set names = &names(names)
&loop name ( %names)
  &if %name .eq. shapes &then
     &type &format(a8 %name) = &names(%name :s )
  &else
     &type &format(a8 %name) = &names(%name)
  &endif
  &type &format(a8 %name) = &names(%name -v)
&endloop
$
$*********************************************      all done
$
&fini
