#!/usr/bin/perl

#`stty speed 4800 > /dev/ttyS0`;
open(BELT, "/dev/ttyS0") || print "Uhoh\n";
$|=1;
$firsttime = 1;
while(<BELT>){
    s/[\n\r]//g;
    if(/PR:(.*)/){
	$opr = $pr;
	$pr = $1;
#	print "Got a new pulse rate!\n" if ($pr ne $opr);
    }
    elsif(/CA:(.*)/){
	$ca = $1;
    }
    elsif(/BT:(.*)/){
	$bt = $1;
    }
    $pr =~ /(.)(.)/;
    
    $lv = $v;
    $v = ord(pack("H2", $pr));
    if(($v < ($lv+25)) && ($v > $lv-25)){
	print time(), " ";
	print "$v\n";
    }
    else {
       	$v = $lv unless $firsttime;
	$firsttime = 0;
    }				# 
}