#!/usr/local/bin/perl -w
our $VERSION = "0.5b";
use strict;
use TapeChanger::MTX;
my @problems = TapeChanger::MTX->cannot_run();
if (scalar @problems) {
print "Unable to run program:\n ", join("\n ", @problems), "\n";
exit 0;
}
my $tape = TapeChanger::MTX->loadtape('next');
print TapeChanger::MTX->reportstatus, "\n";
exit ($tape && $tape =~ /^\d+$/) ? 0 : 1;
exit(0);
##### Version History
# v0.5 Fri Nov 9 15:39:15 CST 2001
### Initial version, based off old mtx-changer code (also self-written).
### Documentation and such are written.