/* Schließt alle FiloFax Dateien */

ADDRESS DataBase
Request "_Schließen|_Abbruch" "Soll das FiloFax geschlossen werden ?"
IF RC = 0 THEN EXIT

CurrentBase
home = RC

Display Off

CALL CloseFiloFax "Adressen.db"
CALL CloseFiloFax "Termine.db"
CALL CloseFiloFax "Kalender.db"
CALL CloseFiloFax "Notizen.db"

Base home
Display On
Show New
EXIT

CloseFiloFax:
  ARG name
  FindBase name
  nr = RC
  IF nr > 0 THEN DO
    Base nr
    Close
  END
  RETURN