Code:
on *:DIALOG:hour_grid:INIT:*: {
  var %d = 1, %h = 20, %e = %h + 24
  while (%h < %e) {
    /did -ra $dname %d $base(%h,10,10,2) $+ :00
    /inc %h
    /inc %d
    if (%h > 23) var %e = %e - 24, %h = 0
  }
}


-KingTomato