$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
struct
   lc_doit loadx #loadx 1
   lc_doit loady #loady 1
  ssolve
end
strpost
  joint disp
  res -detail
  beam loads -detail
  beam envel -detail
end
$
$*********************************************      all done
$
&fini
