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 } }