&title Test of Current On A Tube
&device  -oecho n
&dimen -dimen meters tonnes
&parameter -drgtub 0 1  -api_tdrag no -af_env yes
inmodel
&dcptime
&set blurb = Using Moses Method
&loop k ( 0 1  )
   &instate -loc 0 0 -200  0 00
   doit 0
   &instate -loc 0 0 -200  0 30
   doit 0
   &instate -loc 0 0 -200  0 90
   doit &number(real 90-30)
   &parameter  -api_tdrag yes
   &set blurb = Using API Method
&endloop
&fini