alias wc { dialog -md Word Word }
dialog Word {
  title "Word Counter"
  size -1 -1 197 120
  option dbu
  box "Information", 1, 3 100 190 18
  edit "", 2, 6 106 183 10, read
  edit "", 3, 1 7 193 77, autohs multi return
  box "Stuff you want counted", 4, 0 0 196 86
  button "Click here to count how many words are in the above!", 5, 3 87 187 12
}
on *:DIALOG:word:sclick:5: { 
  set %x 1 
  while ($did(3,%x)) { 
    tokenize 32 $did(3,%x)
    inc %words $0 
    inc %x 
  } 
  did -ra word 2 The are %words words in the above text 
  unset %words
}