1 &command_line off
 2 &goto &ec_name
 3 &label meter
 4 abs_control &2
 5 &if [equal [index "&2" " "] 0] &then &goto onearg
 6 ec meter2 &1 &3 ([index_set [substr "&2" 1 [minus [index "&2" " "] 1]]]) "&4"
 7 &quit
 8 &label onearg
 9 ec meter2 &1 &3 ([index_set &2]) "&4"
10 &quit
11 &label meter2
12 &if [equal [substr &1 [index &1 .] 3] .ec] &then &goto ectype
13 ear &1 -q &2 -of &1.&3.absout -ag &4
14 &quit
15 &label ectype
16 ear meter3 -q &2 -of &1.&3.absout -ag &1 "&4"
17 &quit
18 &label meter3
19 acceptance_test$init
20 ec &1 &2
21 acceptance_test$terminate
22 logout
23 &quit
24 &label reset_meters
25 fo trash;(tcm fsm ttm pmlm) -all -rs;dvm -rs;co;dl trash
26 &quit
27 &label print_meters
28 fsm -all;tcm -all;ttm -all;pmlm -all;dvm