require '_h2ph_pre.ph';

unless(defined(&FROMBCD)) {
    sub FROMBCD {
	local($x) = @_;
	eval q(((($x) >> 4) * 10+ (($x) & 0xf)));
    }
}
unless(defined(&TOBCD)) {
    sub TOBCD {
	local($x) = @_;
	eval q(((($x) / 10* 16) + (($x) % 10)));
    }
}
unless(defined(&SECDAY)) {
    sub SECDAY () {	86400;}
}
unless(defined(&SECYR)) {
    sub SECYR () {	( &SECDAY * 365);}
}
1;
