eh you could probably use an alias with a while loop like:

alias blah {
var %i = 1
var %end = $did(dialog,1).lines
var %results
while (%i <= %end) {
var %results = %results $did(dialog,1,%i).text
inc %i
}
set %var %results
}