Easy Bugs

[Wolfgang]

Here is a routine HMS>H:


#pragma mode( separator(., integer(h32) )
// HMSH(decimal degrees)
EXPORT HMSH(ddeg)
BEGIN
LOCAL H,M,S;
H:=IP(ddeg);
M:=IP(((ddeg-H)*60));
S:=(((ddeg-H)*60)-M)*60;
RETURN H+M/100+S/10000;
END;