Forums Scripts & Popups Line too long

/SortDemo {
  ; The h switch hides the window from the user, s for sort
  window -hs @SortWin

  ; Add unsorted lines to window:
  aline @SortWin Betty
  aline @SortWin Zippy
  aline @SortWin Nancy
  aline @SortWin Alice
  aline @SortWin Quark
  aline @SortWin Chirp

  ; How to display the sorted list to another window:
  window -s @Display
  aline @Display The sorted list of words:
  filter -ww @SortWin @Display *

  ; How to save the list to a file:
  savebuf @SortWin SortedWords.txt

  ; for testing look at the hidden window:
  window -a @SortWin

  ; close window unless it's a display window:
  ; window -c @SortWin
} 

alias SortInWindow {
  window -hs @SortWin

  var %n = $hget(0)
  while (%n) {
    aline @SortWin $hfind($hget(%n),*,0,w) $+ $hget(%n)
    dec %n
  }

  var %l = $line(@SortWin,0)
  while (%l) {
    echo -a $right($line(@SortWin,%l),-1)
    dec %l
  }

  window -c @SortWin
}

alias LeftPadNum {
  ; Call:  $LeftPadNum(Number2BePadded, WidthAfterPadding)
  return $str(0,$calc($2 - $len($1))) $+ $1
}

alias test.LeftPadNum {
  ; In this example the number is padded to 5 didgets wide, 654321 shows
  ; that a longer number will simply be returned
  echo -a $LeftPadNum(2,5)
  echo -a $LeftPadNum(47,5)
  echo -a $LeftPadNum(2947,5)
  echo -a $LeftPadNum(41879,5)
  echo -a $LeftPadNum(654321,5)
}