考慮漏れがありました。「IF H>=24」の行の後に IF 0<H THEN H=H+24 を追加してください。