{for(gsub(/:/,t=i=FS);$++i;d=1440-d)t+=(++d-m+(m=$i%12*60+$++i+($i~/p/)*720))%d;printf"%d:%02d\n",t/60,t%60}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page