&set detail =
&device  -limerr 0
&device -pri device
&device -pri screen
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
&fini