Code:

`:ClrHome :0→X :Prompt H,M // Hours and Minutes :ClrHome :Lbl 1 // I checked it for a memory leak and I think that it is ok :iPart(X/5.445809055→S // Number that I have come up with lots of testing :Output(4,7,": :Output(4,10,": :If H>12 :Output(4,5,H :If H<=12 :Then :Output(4,5,"0 :Output(4,6,H :End :If M>=10 :Output(4,8,M :If M<10 :Then :Output(4,8,"0 :Output(4,9,M :End :If S>=10 :Output(4,11,S :If S<10 :Then :Output(4,11,"0 :Output(4,12,S :End :If S=60 :Then :0→S :ClrHome :0→X :M+1→M :End :If M=60 :Then :0→X :0→M :0→S :H+1→H :End :If H>=24 :Then :1→H :0→M :0→S :ClrHome :End :X+1→X :Goto 1`