Listing 5.  "Print Num Accts" Global Routine



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