Listing 4.  "OK Accounts" Global Routine



    1 *************
    2 * Global routine "OK Accounts"
    3   WorkWithDocument "Accounts"
    4   MoveCursorTo STARTOF DOCUMENT 
    5   Let NumAccounts = LinesInDocument-1
    6   Let Budget.NumAccounts = NumAccounts
    7   Let I = 1
    8   While I <= NumAccounts
    9     Let AccountName = TheLine
   10     Let Budget.Account[I].Name = AccountName
   11     WorkWithDocument "Categories."||AccountName
   12     MoveCursorTo STARTOF DOCUMENT 
   13     Let NumCategories = LinesInDocument-1
   14     Let Budget.Account[I].NumCategories = NumCategories
   15     Let J = 1
   16     While J <= NumCategories
   17        Let CategoryName = TheLine
   18        Let Budget.Account[I].Category[J].Name = CategoryName
   19        Let Budget.Account[I].Category[J].BegBal.Dollars = 0
   20        Let Budget.Account[I].Category[J].BegBal.Cents = 0
   21        Let Budget.Account[I].Category[J].EndBal.Dollars = 0
   22        Let Budget.Account[I].Category[J].EndBal.Cents = 0
   23        MoveCursor DOWN 
   24        Let J = J+1
   25     EndLoop
   26     WorkWithDocument "Accounts"
   27     MoveCursor DOWN 
   28     Let I = I+1
   29   EndLoop
   30   GotoCard "Intro"
   31 * End of routine "OK Accounts"
   32 *************