<> <> DIRECTORY Rope, ViewerClasses; TSExtras: DEFINITIONS = BEGIN PrintTiogaViewer: PROCEDURE [ viewer: ViewerClasses.Viewer, nameForSeparatorPage: Rope.ROPE, aborted: REF BOOLEAN, server: Rope.ROPE _ NIL, copies: INT _ 1, messageProc: PROC [Rope.ROPE] _ NIL ]; END.