Before-move-command, after $\cdots$

If Online finds the symbols motorname_bmc it translates it and executes the value before the move is done. Likewise, if Online finds the symbol motorname_amc it translates it and executes it after the move is done. Online tests the return values in both cases. In the BMC case, the move is not executed, if the command returns 0. In the AMC case, the backlash is not performed, if the command returns 0. Mind that a backlash consists of two separate moves.

The corresponding symbol assignments are done in exp_ini.exp:

    mot1_bmc = "perl [online_dir]bmc.pl mot1"
    mot1_amc = "perl [online_dir]amc.pl mot1"

Here is an example script. It doesn't do anything but showing the current motor position.

#!/usr/bin/perl -w
use strict; 
use Spectra;

Spectra::cls(); 
my $status = 1; 
print "BMC: $ARGV[0] is at " . gmup( $ARGV[0]) . " \n\n\n"; 
Spectra::wait();
$status;