$
$****************************************
$
&dimen -dimen feet kips
$
$****************************************
$
inmodel
$
$****************************************
$
&instate -loc 0 0 0 0 0 0
medit
   ~fn_gspr gspr         x 1e3 1e4 y 0    z 0   -friction .1
   ~fs_gspr gspr         x 1e3 1e4 y 1e6  z 1e6 -friction .1
   ~da_gspr gspr         x 1e3 1e4 y 1  1 z 1 2 -damp 1e2
   ~te_gspr gspr tension x 1e3 1e4 y 1  1 z 1 2
   ~co_gspr gspr compre  x 1e3 1e4 y 1 .5 z 1 2
   ~2node   gspr compre  x 1e3 1e4 y 1 .5 z 1 2 -len 1.00
   connector fn_gspr     ~fn_gspr  *1
   connector fs_gspr     ~fs_gspr  *1
   connector da_gspr     ~da_gspr  *1
   connector te_gspr     ~te_gspr  *1
   connector co_gspr     ~co_gspr  *1
   connector 2node       ~2node    *1
end
$
$****************************************
$
&type class dim     = &class(name_dim ~fs_gspr)
&type class n_seg   = &class(n_seg    ~fs_gspr)
&type class section = &class(section  ~fs_gspr)
&status f_connector
&status g_connector
$
$****************************************
$
&cutype Setting Length to 0
&conne 2node -len 0
&status f_connector
&status g_connector
$
$****************************************
$
&cutype Move 1 in X
&instate -move 1 -vel 10
&event_store 0
&status f_connector
$
$****************************************
$
&cutype Move 1 in Y
&instate -move 0 1
&event_store 1
&status f_connector
$
$****************************************
$
&cutype &instate -move 0  -vel 10 
&instate -move 0  -vel 10 
&event_store 2
&status f_connector
$
$****************************************
$
&cutype &instate -move 0 -vel 10 10
&instate -move 0 -vel 10 10
&event_store 3
$
$****************************************
$
&cutype &instate -move 0 -vel 10 10 10
&instate -move 0 -vel 10 10 10
&event_store 4
$
$****************************************
$
prcpost
    point *1
       report  location
       end
    conforce
       report
       end
    cf_mag
       report
       end
    cf_total @
       report
       end
end
$
$*********************************************      all done
$
&fini
