#!/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 >=192) || (($paraportdata >= 64)&&($paraportdata <= 127)) ){
  $newdata = $paraportdata - 64;
  `outport378 $newdata`;
}

print "set to $newdata\n";