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