rm(list=ls())
#######################################
Caricalibreria = function ()
{for (x in dir("Libreria",
  full.names=T,recursive=T))
  source(x)}

# Sotto Windows "alfa.txt"
# e "programma.txt".
Alfa = function ()
{if (exists('TABELLA')) Db.salva()
source("alfa")
Caricalibreria()
source("programma")}

# Ridefinizione della funzione
# di uscita.
q = function ()
{A.q()
quit(save='no')}

# Bisogna modificare i nomi dei files.
CARTELLADATI = '~/Datenbank/Didattica/Statistica/Dati/R/'
CARTELLAWRITE = '~/Datenbank/Didattica/Statistica/Dati/Write/'
CARTELLACOMM = '~/Datenbank/Didattica/Statistica/Dati/Informazioni/'