$
$*********************************************      basics
$
&set detail =
&device  -limerr 0 -oecho no
&device -g_default device -oecho no
&device -g_default screen -oecho no
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
struct
   lc_doit load #load
   ssolve
end
strpost
   joint disp -node *@
   beam loads -node *@ -detail
   plate %detail
   rest
end
$
$*********************************************      all done
$
&fini
