package Device
@ISA = qw()

sub OpenDevice_old
my ($App, $DeviceName, $Port) = @_;
return $dev;

sub OpenDevice
my ($App, $DeviceName, $Port) = @_;
		($DeviceName, $Port) = 
return undef;
return $dev;

sub new
my ($module, @args) = @_;
return undef;
return undef;
return undef;
return undef;
return undef;
return $dev;

sub DESTROY
my ($this) = @_;

sub Finish
my ($this) = @_;

sub SetCommObject
my ($this, $comm) = @_;
return $this->{CommObject} = $comm;

sub CommObject
return shift->{CommObject};

sub GetId
return "Undefined";

sub read
my ($this, @args) = @_;
return $this->{CommObject}->read(@args);

sub print
my ($this, @args) = @_;
return undef;
return $this->{CommObject}->print(@args);

sub printf
my ($this, @args) = @_;
return $this->{CommObject}->printf(@args);