eval 'exec perl -w -S $0 ${1+"$@"}'
if 0;
use Audio::SID;
$mySID = new Audio::SID ("Ala.sid") or die "Whoops!";
@array = $mySID->getFieldNames();
print "Fieldnames = " . join(' ', @array) . "\n";
print "Name = " . $mySID->get('name') . "\n";
$mySID->set(author => 'LaLa',
name => 'Trallalala',
copyright => '1999 Hungarian Cracking Crew');
$mySID->setSpeed(1,1);
my $clock = $mySID->getClockByName();
print "Clock (video standard) before = $clock\n";
$mySID->setClockByName('PAL');
my $SIDModel = $mySID->getSIDModel();
print "SIDModel before = $SIDModel\n";
$mySID->setSIDModelByName('8580');
$mySID->alwaysValidateWrite(1);
$mySID->write("Ala2.sid") or die "Couldn't write!";
$mySID->read("Ala2.sid") or die "Couldn't open!";
$clock = $mySID->getClockByName();
print "Clock (video standard) after = $clock\n";
$SIDModel = $mySID->getSIDModelByName();
print "SIDModel after = $SIDModel\n";