#!/usr/bin/perl

# spikes are on d7 (pin9) of parallel port, so retracted by any 80-FF to 378

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

chomp($paraportdata);
print $paraportdata."\n";

if ($paraportdata > 127) {
  $newdata = $paraportdata - 128;
  `outport378 $newdata`;
}