$
$*********************************************      basics
$
&device -g_default device -oecho no
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
struct
    lc_doit loadx #loadx 1
    lc_doit loady #loady 1
    lc_doit loadz #loadz 1
    ssolve
end
strpost
   joint
   rest -detail
   beam load  -detail
$  bmo *1 *1m *1mm *2 *2mm *2m *3
   bmo &reverse(*1 *1m *1mm *2 *2mm *2m *3)
      view -hard -s 1 2 3 4 5 6 7  -heading 'LOAD X Moments and Shears'
      view -hard -s 1 8 9 10 11 12 13  -heading 'LOAD Y Moments and Shears'
      view -hard -s 1 14 15 16 17 18 19  -heading 'LOAD Z Moments and Shears'
      pl 1 2        -n
      pl 1  9 -rax 13  -n
      pl 1 16 -rax 18  -n
      end
$
$*********************************************      all done
$
&fini
