#!/usr/bin/perl

# buzzer is on d6 (pin8) of parallel port

$paraportdata = `inport378`;
$paraportdata =~ s/Eight bit value returned form port: //;

chomp($paraportdata);
print "parallel port was $paraportdata, but is now being...";

if (($paraportdata <= 63) || (($paraportdata >= 128)&&($paraportdata <= 191)) ){
  $newdata = $paraportdata + 64;
  `outport378 $newdata`;
}

print "set to $newdata\n";