Problem Statement

An   ordered word   is a word in which the letters appear in alphabetic order. Examples include   abbey   and   dirt. Find and display all the ordered words in the dictionary   unixdict.txt   that have the longest word length. (Examples that access the dictionary file locally assume that you have downloaded this file yourself.)
The display needs to be shown on this page.

Let's start with the solution:

link strings

procedure main(A)
   f := open(\A[1]) | stop("Give dictionary file name on command line")
   every (maxLen := 0, maxLen <= *(w := !f), w == csort(w)) do {
      if maxLen <:= *w then maxList := []  #discard any shorter sorted words 
      put(maxList, w)
      }
   every write(!\maxList)
end