Listing 7.  "Sort the Document" Global Routine



    1 *************
    2 * Global routine "Sort the Document"
    3   Nop ;The current document should be set in calling routine
    4   If LinesInDocument > 1
    5     SortDocument NOCASE 
    6     MoveCursorTo STARTOF DOCUMENT 
    7     Delete LINE 
    8     MoveCursorTo ENDOF DOCUMENT 
    9     NewLine
   10   EndIf
   11 * End of routine "Sort the Document"
   12 *************