alias skaydet {
  var %x = $line(Status Window,0)),%y = 1
  while %y <= %x {
    write skayit.txt $line(Status Window,%y))
    inc %y
  }
}