alias opend {
  var %i 0
  while (%i <= 153) {
    dialog -srb inp -1 -1 %i 0
    var %t 1
    while (%t <= 80) inc %t
    inc %i
  }
  while (%i <= 177) {
    dialog -srb inp -1 -1 153 %i
    var %t 1
    while (%t <= 80) inc %t
    inc %i
  }
}