$
$*********************************************      basics
$
&device      -g_default device -oecho no
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
&picture iso -type str
&picture side
&picture top
&picture front
struc
   lc_doit little #1001.00
   lc_doit big    #1001.00  2
   s_rest ~re
   ssolve
end
strpost
   beam loads
   &select :node -select *j222
   joint code -node :node -detail -summary  -standard
end
medit
   ed_point *j222 -jntclass .1 .1 .9
end
&title After ed_point
strpost
   &select :node -select *j222 *J322
   joint code -node :node -standard
end
$
$*********************************************      all done
$
&finish
