Listing 6.  "Print Num Cats" Global Routine



    1 *************
    2 * Global routine "Print Num Cats"
    3   Let CurrentDocument = DocumentName
    4   WorkWithDocument "Categories"
    5   SetPrintFont "topaz",9
    6   SetPrintStyle BOLD ,2,3
    7   SetPen 1,0
    8   SetDrawMode JAM1 
    9   PrintText "   ",595,18
   10   SetDrawMode JAM2 
   11   PrintText FormatValue(LinesInDocument-1,"000"),595,18
   12   WorkWithDocument CurrentDocument
   13 * End of routine "Print Num Cats"
   14 *************