dialog test {
  title test
  option pixel
  size -1 -1 400 400
  list 1, 0 0 200 200,
  list 2, 200 0 200 200, vsbar
  list 3, 0 200 200 200, hsbar
  list 4, 200 200 200 200, vsbar hsbar
}
on *:DIALOG:test:Init:0:{
  var %x = 1
  while (%x <= 20) {
    did -a $dname 1 $str(This is list:1,10)
    inc %x
  }

  var %x = 1
  while (%x <= 20) {
    did -a $dname 2 $str(This is list:2,10)
    inc %x
  }
  var %x = 1
  while (%x <= 20) {
    did -a $dname 3 $str(This is list:3,10)
    inc %x
  }
  var %x = 1
  while (%x <= 20) {
    did -a $dname 4 $str(This is list:4,10)
    inc %x
  }
}