Forums Scripts & Popups write problem

dialog xsys {
  title "[SysInfo]"
  size -1 -1 259 175
  option dbu
  box "", 1, 4 56 253 38
  button "&Reporte", 2, 66 69 37 12, flat
  edit "", 5, 54 70 11 10
  edit "", 6, 41 70 11 10
  edit "", 7, 28 70 11 10
  edit "", 8, 16 70 11 10
  edit "", 9, 4 70 11 10
  tab "---Sysinfo----", 10, 3 5 251 46
}

on *:dialog:xsys:init:*:{
  did -a $dname 24 info:
  did -a $dname 24 info:
  did -a $dname 24 info:
}

on *:dialog:xsys:sclick:2:{ gbx }

alias gbx {
  var %i = 1 | while (%i <= 22) { set %impr_report $did($dname,24,%i) | inc %i }
  write c:\x\c\sysinfo $+ - $+ $rand(0,2000) $+ .rtx %impr_report
}