diff --git a/ba/ba0100a.uml b/ba/ba0100a.uml
index dc2443b27..b22a22bfb 100755
--- a/ba/ba0100a.uml
+++ b/ba/ba0100a.uml
@@ -1,35 +1,35 @@
-#include "ba0100a.h"
-
-PAGE "Configurazione utente" -1 -1 35 7
-
-STRING F_USER 8
-BEGIN
-  PROMPT 1 1 "Utente   "
-  HELP "Inserire il nome dell'utente"
-  FLAGS "U"
-  USE LF_USER
-  INPUT USERNAME F_USER
-  DISPLAY "Utente" USERNAME
-  DISPLAY "Descrizione@50" USERDESC
-  OUTPUT F_USER USERNAME
-END
-
-STRING F_PASSWORD 8 0
-BEGIN
-  PROMPT 1 3 "Password "
-  HELP "Inserire la password"
-END
-
-BUTTON DLG_OK 9 2
-BEGIN
-  PROMPT -12 -1 ""
-END
-
-BUTTON DLG_CANCEL 9 2
-BEGIN
-  PROMPT -22 -1 ""
-END
-
-ENDPAGE
-
-ENDMASK
+#include "ba0100a.h"
+
+PAGE "Selezione utente" -1 -1 35 7
+
+STRING F_USER 8
+BEGIN
+  PROMPT 1 1 "Utente   "
+  HELP "Inserire il nome dell'utente"
+  FLAGS "U"
+  USE LF_USER
+  INPUT USERNAME F_USER
+  DISPLAY "Utente" USERNAME
+  DISPLAY "Descrizione@50" USERDESC
+  OUTPUT F_USER USERNAME
+END
+
+STRING F_PASSWORD 8 0
+BEGIN
+  PROMPT 1 3 "Password "
+  HELP "Inserire la password"
+END
+
+BUTTON DLG_OK 9 2
+BEGIN
+  PROMPT -12 -1 ""
+END
+
+BUTTON DLG_CANCEL 9 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK
diff --git a/ba/ba1.cpp b/ba/ba1.cpp
index b8feb9516..cf47fb548 100755
--- a/ba/ba1.cpp
+++ b/ba/ba1.cpp
@@ -1,44 +1,35 @@
 #include <xvt.h>
 
 #include <applicat.h>
-#include <stdtypes.h>
 #include <checks.h>
 
 #include "ba1.h"
 
-#define usage   "Errore - uso : ba1 [-{0|1|2|3|4}]"
+#define usage "Errore - uso : ba1 [-{0|1|2|3|4}]"
 
 int main(int argc,char** argv)
 {
-  int             rt = 0 ;
-  
-  check_parameters(argc, argv);
+  TApplication::check_parameters(argc, argv);
 
-  if (argc == 1) 
-    rt = ba1100(argc,argv);
-  else
-    if (argc >= 2)
-    {
-      const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
+  const int r = (argc > 1) ? atoi(&argv[1][1]) : 0;
 
-      switch (r)
-      {
-      case 0:
-        rt = ba1100(argc,argv); break;
-      case 1: 
-        rt = ba1200(argc,argv); break;
-      case 2:
-        rt = ba1300(argc,argv); break;
-      case 3:
-        rt = ba1400(argc,argv); break;
-      case 4:
-        rt = ba1500(argc,argv); break;
-      default:
-        error_box(usage); break;
-      }
-    }
-    else fatal_box(usage);
-  return rt;
+  switch (r)
+  {
+  case 0:
+    ba1100(argc,argv); break;
+  case 1: 
+    ba1200(argc,argv); break;
+  case 2:
+    ba1300(argc,argv); break;
+  case 3:
+    ba1400(argc,argv); break;
+  case 4:
+    ba1500(argc,argv); break;
+  default:
+    error_box(usage); break;
+  }
+
+  return 0;
 }
 
 
diff --git a/ba/ba1400.cpp b/ba/ba1400.cpp
index eaec10eb9..a21e86a65 100755
--- a/ba/ba1400.cpp
+++ b/ba/ba1400.cpp
@@ -1,115 +1,114 @@
-#include <relapp.h>
-#include <stdtypes.h>
-#include <lffiles.h>
-#include <modaut.h>
-#include <utility.h>
-#include "ba1.h"
-#include "ba0100a.h"
-
-class set_users : public TRelation_application
-{
-  TMask* _msk;
-  TRelation* _rel;
-
-  virtual bool user_create() ;                         
-  virtual bool user_destroy() ;                        
-  virtual TMask* get_mask(int mode) { return _msk;}
-  virtual bool changing_mask(int mode) { return FALSE;}
-  virtual TRelation* get_relation() const { return _rel;}
-  virtual int read(TMask& m);
-  virtual int write(const TMask& m); 
-  virtual int rewrite(const TMask& m);
-  void  enable_aut(TMask& m);
-  static bool password_handler(TMask_field& f, KEY key);
-  virtual void  init_query_mode(TMask& m) { enable_aut(m);}
-  virtual void  init_insert_mode(TMask& m) { enable_aut(m);}
-  virtual void  init_modify_mode(TMask& m) { enable_aut(m);}
-
-
-public:
-  set_users() {}
-  virtual ~set_users() {}
-};
-
-bool set_users::password_handler(TMask_field& f, KEY key)
-
-{
-  if (f.mask().mode() == MODE_QUERY || key != K_ENTER) return TRUE;
-  const bool ok = f.get().len() > 3 ;
-  if (!ok) f.error_box("La password deve essere almeno 3 caratteri");
-  return ok;
-}
-
-void set_users::enable_aut(TMask& m)
-{
-  const bool prassi = (m.get(F_USER) == "PRASSI");
-
-  for (int i = 1; i < ENDAUT; i++)
-  {
-    if (i == MUAUT) continue;
-    const int pos = _msk->id2pos(F_BASE + i);
-    if (pos >= 0)
-    {
-      TMask_field& f = m.fld(pos);
-
-      f.enable(!prassi && has_module(i, CHK_DONGLE));
-      if (prassi) f.set("X");
-    }
-  }
-}
-
-bool set_users::user_create()
-{
-  const TString16  u(user());
-  
-  if (u != "PRASSI") return FALSE;
-  _msk = new TMask("ba1400a") ;
-  _rel = new TRelation(LF_USER);
-  _msk->field(F_MU).disable();
-  _msk->set_handler(F_PASSWORD, password_handler);
-  return TRUE;
-}
-
-int set_users::read(TMask& m) 
-
-{
-  TRelation_application::read(m);
-  const TRelation *r = get_relation();
-
-  m.set(F_PASSWORD, decode(r->lfile().get("PASSWORD")));
-  return NOERR;
-}
-
-int set_users::write(const TMask& m) 
-
-{
-  TRelation *r = get_relation();
-  TString16 s(encode(m.get(F_PASSWORD)));
-  
-  r->lfile().put("PASSWORD", (const char *) s);
-  return TRelation_application::write(m);
-}
-
-int set_users::rewrite(const TMask& m) 
-
-{
-  TRelation *r = get_relation();
-  TString16 s(encode(m.get(F_PASSWORD)));
-
-  r->lfile().put("PASSWORD",  s);
-  return TRelation_application::rewrite(m);
-}
-
-bool set_users::user_destroy()
-{
-  delete  _msk;
-  delete  _rel;
-  return TRUE;
-}
-
-int ba1400(int argc, char* argv[])
-{
-  set_users a ;
-  a.run(argc, argv, "Configurazione utenti");
-  return 0;
-}
+#include <relapp.h>
+#include <stdtypes.h>
+#include <modaut.h>
+#include <utility.h>
+
+#include "ba1.h"
+#include "ba0100a.h"
+
+class TSet_users : public TRelation_application
+{
+  TMask* _msk;
+  TRelation* _rel;
+
+  virtual bool user_create() ;                         
+  virtual bool user_destroy() ;                        
+  virtual TMask* get_mask(int mode) { return _msk;}
+  virtual bool changing_mask(int mode) { return FALSE;}
+  virtual TRelation* get_relation() const { return _rel;}
+  virtual int read(TMask& m);
+  virtual int write(const TMask& m); 
+  virtual int rewrite(const TMask& m);
+  void  enable_aut(TMask& m);
+  static bool password_handler(TMask_field& f, KEY key);
+  virtual void  init_query_mode(TMask& m) { enable_aut(m);}
+  virtual void  init_insert_mode(TMask& m) { enable_aut(m);}
+  virtual void  init_modify_mode(TMask& m) { enable_aut(m);}
+
+
+public:
+  TSet_users() : _msk(NULL), _rel(NULL) {}
+};
+
+bool TSet_users::password_handler(TMask_field& f, KEY key)
+
+{
+  if (f.mask().mode() == MODE_QUERY || key != K_ENTER) return TRUE;
+  const bool ok = f.get().len() > 3 ;
+  if (!ok) f.error_box("La password deve essere almeno 3 caratteri");
+  return ok;
+}
+
+void TSet_users::enable_aut(TMask& m)
+{
+  const bool prassi = (m.get(F_USER) == "PRASSI");
+
+  for (int i = 1; i < ENDAUT; i++)
+  {
+    if (i == MUAUT) continue;
+    const int pos = _msk->id2pos(F_BASE + i);
+    if (pos >= 0)
+    {
+      TMask_field& f = m.fld(pos);
+
+      f.enable(!prassi && has_module(i, CHK_DONGLE));
+      if (prassi) f.set("X");
+    }
+  }
+}
+
+bool TSet_users::user_create()
+{
+  if (user() != "PRASSI") 
+    return error_box("Utente non abilitato all'uso di questo programma");
+  _msk = new TMask("ba1400a") ;
+  _rel = new TRelation(LF_USER);
+  _msk->field(F_MU).disable();
+  _msk->set_handler(F_PASSWORD, password_handler);
+  return TRUE;
+}
+
+int TSet_users::read(TMask& m) 
+
+{
+  TRelation_application::read(m);
+  const TRelation *r = get_relation();
+
+  m.set(F_PASSWORD, decode(r->lfile().get("PASSWORD")));
+  return NOERR;
+}
+
+int TSet_users::write(const TMask& m) 
+
+{
+  TRelation *r = get_relation();
+  TString16 s(encode(m.get(F_PASSWORD)));
+  
+  r->lfile().put("PASSWORD", (const char *) s);
+  return TRelation_application::write(m);
+}
+
+int TSet_users::rewrite(const TMask& m) 
+
+{
+  TRelation *r = get_relation();
+  TString16 s(encode(m.get(F_PASSWORD)));
+
+  r->lfile().put("PASSWORD",  s);
+  return TRelation_application::rewrite(m);
+}
+
+
+bool TSet_users::user_destroy()
+{
+  if (_msk != NULL) delete  _msk;
+  if (_rel != NULL) delete  _rel;
+  return TRUE;
+}
+
+int ba1400(int argc, char** argv)
+{
+  TSet_users a ;
+  a.run(argc, argv, "Configurazione utenti");
+  return 0;
+}
diff --git a/ba/ba1400a.uml b/ba/ba1400a.uml
index 2f7df75c0..ed1dd77a2 100755
--- a/ba/ba1400a.uml
+++ b/ba/ba1400a.uml
@@ -1,116 +1,115 @@
-#include "ba0100a.h"
-
-TOOLBAR "" 0 20 0 2 
-#include <toolbar.h>
-ENDPAGE
-
-PAGE "Selezione utente" -1 -1 35 7
-
-STRING F_USER 8
-BEGIN
-  PROMPT 1 1 "Utente      "
-  HELP "Inserire il nome dell'utente"
-  FLAGS "U"
-  USE LF_USER
-  CHECKTYPE NORMAL
-  INPUT USERNAME F_USER
-  DISPLAY "Utente" USERNAME
-  DISPLAY "Descrizione@50" USERDESC
-  OUTPUT F_USER USERNAME
-	KEY 1 
-	CHECHTYPE REQUIRED
-	FIELD USERNAME
-END
-
-STRING F_USERDESC 50
-BEGIN
-  PROMPT 1 3 "Descrizione "
-	FIELD USERDESC
-	MESSAGE "X",F_BASE
-END
-
-STRING F_PASSWORD 8 0
-BEGIN
-  PROMPT 1 5 "Password    "
-  HELP "Inserire la password"
-	MESSAGE "X",F_BASE
-	MESSAGE "X",F_MU
-END
-
-GROUPBOX DLG_NULL 76 13
-BEGIN
-  PROMPT 0 7 "Moduli"
-END
-
-BOOLEAN F_BASE 
-BEGIN
-  PROMPT 1 8 "Base"
-	FLAGS "D"
-	FIELD AUTSTR[1,1]
-END
-
-BOOLEAN F_CG 
-BEGIN
-  PROMPT 31 8 "Contabilita'"
-	FIELD AUTSTR[2,2]
-END
-
-BOOLEAN F_MU 
-BEGIN
-  PROMPT 59 8 "Multiutenza"
-	FIELD AUTSTR[3,3]
-  FLAGS "D"
-END
-
-BOOLEAN F_SC 
-BEGIN
-  PROMPT 1 9 "Saldaconto"
-	FIELD AUTSTR[4,4]
-END
-
-BOOLEAN F_EF 
-BEGIN
-  PROMPT 31 9 "Portafoglio"
-	FIELD AUTSTR[5,5]
-END
-
-BOOLEAN F_VE 
-BEGIN
-  PROMPT 59 9 "Vendite"
-	FIELD AUTSTR[6,6]
-END
-
-BOOLEAN F_MG 
-BEGIN
-  PROMPT 1 10 "Magazzino"
-	FIELD AUTSTR[7,7]
-END
-
-BOOLEAN F_770 
-BEGIN
-  PROMPT 31 10 "770"
-	FIELD AUTSTR[8,8]
-END
-
-BOOLEAN F_AB 
-BEGIN
-  PROMPT 59 10 "Bilanci"
-	FIELD AUTSTR[21,21]
-END
-
-BOOLEAN F_NI 
-BEGIN
-  PROMPT 1 11 "Nota integrativa"
-  FIELD AUTSTR[22,22]
-END
-
-BOOLEAN F_NR
-BEGIN
-   PROMPT 31 11 "Nota integrativa ridotta"
-  FIELD AUTSTR[23,23]
-END
-
-ENDPAGE
-
-ENDMASK
-
+#include "ba0100a.h"
+
+TOOLBAR "" 0 20 0 2 
+#include <toolbar.h>
+ENDPAGE
+
+PAGE "Gestione utenti" -1 -1 35 7
+
+STRING F_USER 8
+BEGIN
+  PROMPT 1 1 "Utente      "
+  HELP "Inserire il nome dell'utente"
+  FLAGS "U"
+  USE LF_USER
+  CHECKTYPE NORMAL
+  INPUT USERNAME F_USER
+  DISPLAY "Utente" USERNAME
+  DISPLAY "Descrizione@50" USERDESC
+  OUTPUT F_USER USERNAME
+	KEY 1 
+	CHECHTYPE REQUIRED
+	FIELD USERNAME
+END
+
+STRING F_USERDESC 50
+BEGIN
+  PROMPT 1 3 "Descrizione "
+	FIELD USERDESC
+	MESSAGE "X",F_BASE
+END
+
+STRING F_PASSWORD 8 0
+BEGIN
+  PROMPT 1 5 "Password    "
+  HELP "Inserire la password"
+	MESSAGE "X",F_BASE
+	MESSAGE "X",F_MU
+END
+
+GROUPBOX DLG_NULL 76 13
+BEGIN
+  PROMPT 0 7 "Moduli"
+END
+
+BOOLEAN F_BASE 
+BEGIN
+  PROMPT 1 8 "Base"
+	FLAGS "D"
+	FIELD AUTSTR[1,1]
+END
+
+BOOLEAN F_CG 
+BEGIN
+  PROMPT 31 8 "Contabilita'"
+	FIELD AUTSTR[2,2]
+END
+
+BOOLEAN F_MU 
+BEGIN
+  PROMPT 59 8 "Multiutenza"
+	FIELD AUTSTR[3,3]
+  FLAGS "D"
+END
+
+BOOLEAN F_SC 
+BEGIN
+  PROMPT 1 9 "Saldaconto"
+	FIELD AUTSTR[4,4]
+END
+
+BOOLEAN F_EF 
+BEGIN
+  PROMPT 31 9 "Portafoglio"
+	FIELD AUTSTR[5,5]
+END
+
+BOOLEAN F_VE 
+BEGIN
+  PROMPT 59 9 "Vendite"
+	FIELD AUTSTR[6,6]
+END
+
+BOOLEAN F_MG 
+BEGIN
+  PROMPT 1 10 "Magazzino"
+	FIELD AUTSTR[7,7]
+END
+
+BOOLEAN F_770 
+BEGIN
+  PROMPT 31 10 "770"
+	FIELD AUTSTR[8,8]
+END
+
+BOOLEAN F_AB 
+BEGIN
+  PROMPT 59 10 "Bilanci"
+	FIELD AUTSTR[21,21]
+END
+
+BOOLEAN F_NI 
+BEGIN
+  PROMPT 1 11 "Nota integrativa"
+  FIELD AUTSTR[22,22]
+END
+
+BOOLEAN F_NR
+BEGIN
+   PROMPT 31 11 "Nota integrativa ridotta"
+  FIELD AUTSTR[23,23]
+END
+
+ENDPAGE
+
+ENDMASK
diff --git a/ba/ba1500.cpp b/ba/ba1500.cpp
index 76080871c..9b85d021a 100755
--- a/ba/ba1500.cpp
+++ b/ba/ba1500.cpp
@@ -1,371 +1,372 @@
-#include <applicat.h>
-#include <modaut.h>
-#include <mask.h>
-#include <utility.h>
-#include <urldefid.h>
-#include <extcdecl.h>
-#include "ba1.h"
-#include "ba0100a.h"
-#include "ba1500a.h"
-#define USERADR    26952
-#define AGAADR     26953
-#define PRASSIADR  26954
-#define K1         0x4500
-#define BYTEMASK   0x00FF
-#define UBYTEMASK  0xFF00
-#define MAXAUT     49
-
-enum kt { _user_key, _aga_key, _prassi_key};
-
-#define  BITTEST(w,p) (((w) & (0x0001 << (p))) != 0)
-#define  BITSET(w,p,v)  ((v) ? ((w) |= (0x0001 << (p))) : ((w) &= (~(0x0001 << (p)))))
-
-class att_moduli : public TApplication
-{
-  TMask* _msk;
-  kt _key_type;
-  word _serno;
-  word _port;
-
-  virtual bool create() ;                         
-  virtual bool destroy() ;                        
-  bool menu(MENU_TAG);
-  void generate_key();
-  void keyext(const TString16 & s, word * v);
-  static bool user_hnd(TMask_field & f, KEY k);
-  static bool decode_hnd(TMask_field & f, KEY k);
-  static bool activate_hnd(TMask_field & f, KEY k);
-
-public:
-  att_moduli() { _key_type = _user_key;}
-  virtual ~att_moduli() {}
-};
-
-void att_moduli::generate_key()
-{
-  word ud[4];
-  bool ok;
-
-#if XVT_OS == XVT_OS_SCOUNIX
-  INT_OFF();
-  HL_ON(_port, USERADR);
-  ud[0] = HL_RD(_port, 48);
-  ud[1] = HL_RD(_port, 49);
-  ud[2] = HL_RD(_port, 50);
-  ud[3] = HL_RD(_port, 51);
-  HL_OFF(_port);
-  INT_ON();
-#else
-  HL_READ(48, &ud[0]);
-  HL_READ(49, &ud[1]);
-  HL_READ(50, &ud[2]);
-  HL_READ(51, &ud[3]);
-#endif
-  int    nmod = 0;
-
-  _msk->set(F_K2, format("%04X%04X%04X%04X", ud[0], ud[1], ud[2], ud[3]));
-  for (int i = 1; i < MAXAUT; i++)
-  {
-    const int pos = _msk->id2pos(F_BASE + i);
-
-    if (pos >= 0 && has_module(i, CHK_DONGLE))
-    {
-      _msk->fld(pos).set("X");
-      nmod++;
-    }
-  }
-
-  _serno = SerNo;
-  ud[0] = _serno;
-  ud[1] = K1 | (nmod & BYTEMASK);
-  long & l = (long &) ud[2];
-  TDate d(TODAY);
-
-  l = (long) d;
-#if XVT_OS == XVT_OS_SCOUNIX
-  INT_OFF();
-  HL_ON(_port, ModAd);
-  ok = K_EYE(_port, (unsigned char *) ud, HLBLOCK);
-  HL_OFF(_port);
-  INT_ON();
-#else
-  HL_CODE(EYECAST &ud[0], HLBLOCK);
-#endif
-  _msk->set(F_K1, format("%04X%04X%04X%04X", ud[0], ud[1], ud[2], ud[3]));
-  _msk->set(F_SN, SerNo);
-  _msk->set(F_DT, d.string());
-}
-
-int hexdigit(char c)
-{
-  static char s[] = "0123456789ABCDEF";
-  int i = strlen(s);
-
-  while (i-- >= 0)
-    if (s[i] == c)
-      break;
-  return i;
-}
-
-void att_moduli::keyext(const TString16 & s, word * val)
-{
-  for (int i = 0 ; i < 4; i++)
-  {
-    const int off = i * 4;
-    word & l = val[i];
-    
-    l = 0;
-    for (int j = 0; j < 4; j++)
-      l = l * 16 + hexdigit(s[off + j]);
-  }
-}
-
-bool att_moduli::user_hnd(TMask_field & f, KEY k)
-{
-  const TString16 k4(f.get());
-  if (!f.to_check(k) || k4.empty()) return TRUE;
-  att_moduli & app = (att_moduli &) main_app();
-  TMask & m = f.mask();
-  word     ud1[4], ud2[4], port = app._port;
-  BOOLEAN  ok;
-  const TString16 k3(m.get(F_K3));
-  
-  keyext(k3, ud1);
-  keyext(k4, ud2);
-#if XVT_OS == XVT_OS_SCOUNIX
-  INT_OFF();
-  HL_ON(port, ModAd);
-  ok = K_EYE(port, (unsigned char *) ud1, HLBLOCK);
-  HL_OFF(port);
-  INT_ON();
-#else
-  HL_CODE(EYECAST ud1, HLBLOCK);
-#endif
-  const long & l = (long &) ud1[0];
-  TDate d(l), d1(TODAY);
-
-  d.addmonth(3);
-  if (d < d1)
-    return f.error_box("data non valida");
-  if ((ud1[2] & UBYTEMASK) != K1 || ud1[3] != app._serno) 
-    return f.error_box("primo codice errato");
-#if XVT_OS == XVT_OS_SCOUNIX
-  INT_OFF();
-  HL_ON(port, ModAd);
-  ok = K_EYE(port, (unsigned char *) ud2, HLBLOCK);
-  HL_OFF(port);
-  INT_ON();
-#else
-  HL_CODE(EYECAST ud2, HLBLOCK);
-#endif
-  for (int i = 0; i < 4; i++) ud2[i] ^= app._serno;
-  if (ud2[3] != 0) 
-    return f.error_box("secondo codice errato");
-  for (i = 1; i < MAXAUT; i++)
-  {
-    const int af = i - 1;
-    const int pos = m.id2pos(F_BASE + i);
-
-    if (pos >= 0)
-      m.fld(pos).set(BITTEST(ud2[af / 16], af % 16) ? "X" : " ");
-  }
-  if (k == K_ENTER)
-  {
-    keyext(k4, ud2);
-#if XVT_OS == XVT_OS_SCOUNIX
-    INT_OFF();
-    HL_ON(port, ModAd);
-    HL_ON(port, ModAd);
-    HL_WR(port, 48, ud2[0]);
-    HL_WR(port, 49, ud2[1]);
-    HL_WR(port, 50, ud2[2]);
-    HL_WR(port, 51, ud2[3]);
-    HL_OFF(port);
-    INT_ON();
-#else
-    HL_WRITE(48, ud2[0]);
-    HL_WRITE(49, ud2[1]);
-    HL_WRITE(50, ud2[2]);
-    HL_WRITE(51, ud2[3]);
-#endif
-  }
-  return TRUE;
-}
-
-bool att_moduli::decode_hnd(TMask_field & f, KEY k)
-{
-  const TString16 k2(f.get());
-  if (!f.to_check(k) || k2.empty()) return TRUE;
-  att_moduli & app = (att_moduli &) main_app();
-  TMask & m = f.mask();
-  word     ud1[4], ud2[4], port = app._port;
-  BOOLEAN  ok;
-  const TString16 k1(m.get(F_K1));
-  
-  keyext(k1, ud1);
-  keyext(k2, ud2);
-#if XVT_OS == XVT_OS_SCOUNIX
-  INT_OFF();
-  HL_ON(port, USERADR);
-  ok = K_EYE(port, (unsigned char *) ud1, HLBLOCK);
-  HL_OFF(port);
-  INT_ON();
-#else
-  HL_CODE(EYECAST ud1, HLBLOCK);
-#endif
-  long & l = (long &) ud1[2];
-  const TDate  d(l);
-  app._serno = ud1[0];
-  if ((ud1[1] & UBYTEMASK) != K1)
-    return f.error_box("primo codice errato");
-#if XVT_OS == XVT_OS_SCOUNIX
-  INT_OFF();
-  HL_ON(port, USERADR);
-  ok = K_EYE(port, (unsigned char *) ud2, HLBLOCK);
-  HL_OFF(port);
-  INT_ON();
-#else
-  HL_CODE(EYECAST ud2, HLBLOCK);
-#endif
-  for (int i = 0; i < 4; i++) ud2[i] ^= app._serno;
-  if (ud2[3] != 0)
-    return f.error_box("secondo codice errato");
-  m.set(F_SN, app._serno);
-  m.set(F_DT, d.string());
-  for (i = 1; i < MAXAUT; i++)
-  {
-    const int af = i - 1;
-    const int pos = m.id2pos(F_BASE + i);
-
-    if (pos >= 0)
-      m.fld(pos).set(BITTEST(ud2[af / 16], af % 16) ? "X" : " ");
-  }
-  return TRUE;
-}
-
-bool att_moduli::activate_hnd(TMask_field & f, KEY k)
-{
-  if (!f.to_check(k)) return TRUE;
-  att_moduli & app = (att_moduli &) main_app();
-  TMask & m = f.mask();
-  word    ud1[4], ud2[4], port = app._port;
-  BOOLEAN ok;
-  int     nmod = 0;
-  
-  for (int i = 0; i < 4; i++) ud2[i] = 0;
-  for (i = 1; i < MAXAUT; i++)
-  {
-    const int af = i - 1;
-    const int pos = m.id2pos(F_BASE + i);
-
-    if (pos >= 0 && m.get_bool(F_BASE + i))
-    {
-      BITSET(ud2[af / 16], af % 16, TRUE);
-      nmod++;
-    }
-  }
-  for (i = 0; i < 4; i++) ud2[i] ^= app._serno;
-
-  const TDate d(m.get(F_DT));
-  long & l = (long &) ud1[0];
-  
-  l = (long) d;
-  ud1[2] = K1 | (nmod & UBYTEMASK);
-  ud1[3] = app._serno;
-#if XVT_OS == XVT_OS_SCOUNIX
-  INT_OFF();
-  HL_ON(port, ModAd);
-  ok = K_EYE(port, (unsigned char *) ud1, HLBLOCK);
-  ok = K_EYE(port, (unsigned char *) ud2, HLBLOCK);
-  HL_OFF(port);
-  INT_ON();
-#else
-  HL_CODE(EYECAST ud1, HLBLOCK);
-  HL_CODE(EYECAST ud2, HLBLOCK);
-#endif
-  m.set(F_K4, format("%04X%04X%04X%04X", ud2[0], ud2[1], ud2[2], ud2[3]));
-  m.set(F_K3, format("%04X%04X%04X%04X", ud1[0], ud1[1], ud1[2], ud1[3]));
-  return TRUE;
-}
-
-bool att_moduli::create()
-{
-  const TString16  u(user());
-  
-  if (u != "PRASSI") return FALSE;
-  _msk = new TMask("ba1500a") ;
-#if XVT_OS == XVT_OS_SCOUNIX
-  if (Hl_Port(AGAADR) != 0)
-    _key_type = _aga_key;
-  else
-    if (Hl_Port(PRASSIADR) != 0)
-      _key_type = _prassi_key;
-  _port = Hl_Port(USERADR);
-#else
-  HL_LOGOUT();
-  if (HL_LOGIN(AGAADR, DONT_CARE, REFKEY, VERKEY) == STATUS_OK) 
-    _key_type = _aga_key;
-  else
-  {
-    HL_LOGOUT();
-    if (HL_LOGIN(PRASSIADR, DONT_CARE, REFKEY, VERKEY) == STATUS_OK)
-      _key_type = _prassi_key;
-  }
-  HL_LOGOUT();
-  HL_LOGIN(USERADR, DONT_CARE, REFKEY, VERKEY);
-#endif
-  switch (_key_type)
-  {
-  case _user_key:
-  {
-    _msk->disable(F_K1);
-    _msk->disable(F_K2);
-    _msk->set_handler(F_K4, user_hnd);
-    generate_key();
-    for (int i = 1; i < ENDAUT; i++)
-    {
-      const int pos = _msk->id2pos(F_BASE + i);
-      if (pos >= 0) _msk->fld(pos).disable();
-    }
-  }
-  break;
- case _aga_key:
- case _prassi_key:
-{
-  _msk->set_handler(F_K2, decode_hnd);
-  _msk->disable(F_K3);
-  _msk->disable(F_K4);
-  for (int i = 1; i < MAXAUT; i++)
-  {
-    const int pos = _msk->id2pos(F_BASE + i);
-    
-    if (pos >= 0)
-      _msk->set_handler(F_BASE + i, activate_hnd);
-  }
-}
-break;
-default:
-break;
-}
-dispatch_e_menu(BAR_ITEM(1));
-return TRUE;
-}
-
-bool att_moduli::destroy()
-{
-  delete  _msk;
-  return TRUE;
-}
-
-bool att_moduli::menu(MENU_TAG)
-{
-  _msk->run();
-  return FALSE;
-}
-
-int ba1500(int argc, char* argv[])
-{
-  att_moduli a ;
-  a.run(argc, argv, "Attivazione moduli");
-  return 0;
-}
+#include <applicat.h>
+#include <modaut.h>
+#include <mask.h>
+#include <utility.h>
+#include <urldefid.h>
+#include <extcdecl.h>
+
+#include "ba1.h"
+#include "ba0100a.h"
+#include "ba1500a.h"
+
+#define USERADR    26952
+#define AGAADR     26953
+#define PRASSIADR  26954
+#define K1         0x4500
+#define BYTEMASK   0x00FF
+#define UBYTEMASK  0xFF00
+#define MAXAUT     49
+
+enum kt { _user_key, _aga_key, _prassi_key};
+
+#define  BITTEST(w,p) (((w) & (0x0001 << (p))) != 0)
+#define  BITSET(w,p,v)  ((v) ? ((w) |= (0x0001 << (p))) : ((w) &= (~(0x0001 << (p)))))
+
+class TAttivazione_moduli : public TApplication
+{
+  TMask* _msk;
+
+  kt _key_type;
+  word _serno;
+  word _port;
+
+  virtual bool create() ;                         
+  virtual bool destroy() ;                        
+  bool menu(MENU_TAG);
+  void generate_key();
+
+  static void keyext(const TString & s, word * v);
+  static bool user_hnd(TMask_field & f, KEY k);
+  static bool decode_hnd(TMask_field & f, KEY k);
+  static bool activate_hnd(TMask_field & f, KEY k);
+
+public:
+  TAttivazione_moduli() : _msk(NULL) { _key_type = _user_key;}
+};
+
+
+HIDDEN TAttivazione_moduli& app() { return (TAttivazione_moduli &) main_app(); }
+
+
+void TAttivazione_moduli::generate_key()
+{
+#if XVT_OS == XVT_OS_SCOUNIX
+  word ud[4];
+  INT_OFF();
+  HL_ON(_port, USERADR);
+  ud[0] = HL_RD(_port, 48);
+  ud[1] = HL_RD(_port, 49);
+  ud[2] = HL_RD(_port, 50);
+  ud[3] = HL_RD(_port, 51);
+  HL_OFF(_port);
+  INT_ON();
+#else
+  int ud[4];
+  HL_READ(48, &ud[0]);
+  HL_READ(49, &ud[1]);
+  HL_READ(50, &ud[2]);
+  HL_READ(51, &ud[3]);
+#endif
+  
+  int    nmod = 0;
+
+  _msk->set(F_K2, format("%04X%04X%04X%04X", ud[0], ud[1], ud[2], ud[3]));
+  for (int i = 1; i < MAXAUT; i++)
+  {
+    const int pos = _msk->id2pos(F_BASE + i);
+
+    if (pos >= 0 && has_module(i, CHK_DONGLE))
+    {
+      _msk->fld(pos).set("X");
+      nmod++;
+    }
+  }
+
+  _serno = SerNo;
+  ud[0] = _serno;
+  ud[1] = K1 | (nmod & BYTEMASK);
+  long & l = (long &) ud[2];
+  TDate d(TODAY);
+
+  l = (long) d;
+#if XVT_OS == XVT_OS_SCOUNIX
+  INT_OFF();
+  HL_ON(_port, ModAd);
+  K_EYE(_port, (unsigned char *) ud, HLBLOCK);
+  HL_OFF(_port);
+  INT_ON();
+#else
+  HL_CODE(EYECAST &ud[0], HLBLOCK);
+#endif
+  _msk->set(F_K1, format("%04X%04X%04X%04X", ud[0], ud[1], ud[2], ud[3]));
+  _msk->set(F_SN, SerNo);
+  _msk->set(F_DT, d.string());
+}
+
+int hexdigit(char c)
+{
+  static char s[] = "0123456789ABCDEF";
+  int i = strlen(s);
+
+  while (i-- >= 0)
+    if (s[i] == c)
+      break;
+  return i;
+}
+
+void TAttivazione_moduli::keyext(const TString& s, word * val)
+{
+  for (int i = 0 ; i < 4; i++)
+  {
+    const int off = i * 4;
+    word & l = val[i];
+    
+    l = 0;
+    for (int j = 0; j < 4; j++)
+      l = l * 16 + hexdigit(s[off + j]);
+  }
+}
+
+bool TAttivazione_moduli::user_hnd(TMask_field & f, KEY k)
+{
+  const TString16 k4(f.get());
+  if (!f.to_check(k) || k4.empty()) return TRUE;
+  TMask & m = f.mask();
+  word     ud1[4], ud2[4], port = app()._port;
+  const TString16 k3(m.get(F_K3));
+  
+  keyext(k3, ud1);
+  keyext(k4, ud2);
+#if XVT_OS == XVT_OS_SCOUNIX
+  INT_OFF();
+  HL_ON(port, ModAd);
+  K_EYE(port, (unsigned char *) ud1, HLBLOCK);
+  HL_OFF(port);
+  INT_ON();
+#else
+  HL_CODE(EYECAST ud1, HLBLOCK);
+#endif
+  const long & l = (long &) ud1[0];
+  TDate d(l), d1(TODAY);
+
+  d.addmonth(3);
+  if (d < d1)
+    return f.error_box("data non valida");
+  if ((ud1[2] & UBYTEMASK) != K1 || ud1[3] != app()._serno) 
+    return f.error_box("primo codice errato");
+#if XVT_OS == XVT_OS_SCOUNIX
+  INT_OFF();
+  HL_ON(port, ModAd);
+  ok = K_EYE(port, (unsigned char *) ud2, HLBLOCK);
+  HL_OFF(port);
+  INT_ON();
+#else
+  HL_CODE(EYECAST ud2, HLBLOCK);
+#endif
+  for (int i = 0; i < 4; i++) ud2[i] ^= app()._serno;
+  if (ud2[3] != 0) 
+    return f.error_box("secondo codice errato");
+  for (i = 1; i < MAXAUT; i++)
+  {
+    const int af = i - 1;
+    const int pos = m.id2pos(F_BASE + i);
+
+    if (pos >= 0)
+      m.fld(pos).set(BITTEST(ud2[af / 16], af % 16) ? "X" : " ");
+  }
+  if (k == K_ENTER)
+  {
+    keyext(k4, ud2);
+#if XVT_OS == XVT_OS_SCOUNIX
+    INT_OFF();
+    HL_ON(port, ModAd);
+    HL_ON(port, ModAd);
+    HL_WR(port, 48, ud2[0]);
+    HL_WR(port, 49, ud2[1]);
+    HL_WR(port, 50, ud2[2]);
+    HL_WR(port, 51, ud2[3]);
+    HL_OFF(port);
+    INT_ON();
+#else
+    HL_WRITE(48, ud2[0]);
+    HL_WRITE(49, ud2[1]);
+    HL_WRITE(50, ud2[2]);
+    HL_WRITE(51, ud2[3]);
+#endif
+  }
+  return TRUE;
+}
+
+bool TAttivazione_moduli::decode_hnd(TMask_field & f, KEY k)
+{
+  const TString16 k2(f.get());
+  if (!f.to_check(k) || k2.empty()) return TRUE;
+  TMask & m = f.mask();
+  word     ud1[4], ud2[4], port = app()._port;
+  const TString16 k1(m.get(F_K1));
+  
+  keyext(k1, ud1);
+  keyext(k2, ud2);
+#if XVT_OS == XVT_OS_SCOUNIX
+  INT_OFF();
+  HL_ON(port, USERADR);
+  K_EYE(port, (unsigned char *) ud1, HLBLOCK);
+  HL_OFF(port);
+  INT_ON();
+#else
+  HL_CODE(EYECAST ud1, HLBLOCK);
+#endif
+  long & l = (long &) ud1[2];
+  const TDate  d(l);
+  app()._serno = ud1[0];
+  if ((ud1[1] & UBYTEMASK) != K1)
+    return f.error_box("primo codice errato");
+#if XVT_OS == XVT_OS_SCOUNIX
+  INT_OFF();
+  HL_ON(port, USERADR);
+  K_EYE(port, (unsigned char *) ud2, HLBLOCK);
+  HL_OFF(port);
+  INT_ON();
+#else
+  HL_CODE(EYECAST ud2, HLBLOCK);
+#endif
+  for (int i = 0; i < 4; i++) ud2[i] ^= app()._serno;
+  if (ud2[3] != 0)
+    return f.error_box("secondo codice errato");
+  m.set(F_SN, app()._serno);
+  m.set(F_DT, d.string());
+  for (i = 1; i < MAXAUT; i++)
+  {
+    const int af = i - 1;
+    const int pos = m.id2pos(F_BASE + i);
+
+    if (pos >= 0)
+      m.fld(pos).set(BITTEST(ud2[af / 16], af % 16) ? "X" : " ");
+  }
+  return TRUE;
+}
+
+bool TAttivazione_moduli::activate_hnd(TMask_field & f, KEY k)
+{
+  if (!f.to_check(k)) return TRUE;
+  TMask & m = f.mask();
+  word    ud1[4], ud2[4], port = app()._port;
+  int     nmod = 0;
+  
+  for (int i = 0; i < 4; i++) ud2[i] = 0;
+  for (i = 1; i < MAXAUT; i++)
+  {
+    const int af = i - 1;
+    const int pos = m.id2pos(F_BASE + i);
+
+    if (pos >= 0 && m.get_bool(F_BASE + i))
+    {
+      BITSET(ud2[af / 16], af % 16, TRUE);
+      nmod++;
+    }
+  }
+  for (i = 0; i < 4; i++) ud2[i] ^= app()._serno;
+
+  const TDate d(m.get(F_DT));
+  long & l = (long &) ud1[0];
+  
+  l = (long) d;
+  ud1[2] = K1 | (nmod & UBYTEMASK);
+  ud1[3] = app()._serno;
+#if XVT_OS == XVT_OS_SCOUNIX
+  INT_OFF();
+  HL_ON(port, ModAd);
+  K_EYE(port, (unsigned char *) ud1, HLBLOCK);
+  K_EYE(port, (unsigned char *) ud2, HLBLOCK);
+  HL_OFF(port);
+  INT_ON();
+#else
+  HL_CODE(EYECAST ud1, HLBLOCK);
+  HL_CODE(EYECAST ud2, HLBLOCK);
+#endif
+  m.set(F_K4, format("%04X%04X%04X%04X", ud2[0], ud2[1], ud2[2], ud2[3]));
+  m.set(F_K3, format("%04X%04X%04X%04X", ud1[0], ud1[1], ud1[2], ud1[3]));
+  return TRUE;
+}
+
+bool TAttivazione_moduli::create()
+{
+  if (user() != "PRASSI") 
+    return error_box("Utente non abilitato all'uso di questo programma");
+
+  _msk = new TMask("ba1500a") ;
+#if XVT_OS == XVT_OS_SCOUNIX
+  if (Hl_Port(AGAADR) != 0)
+    _key_type = _aga_key;
+  else
+    if (Hl_Port(PRASSIADR) != 0)
+      _key_type = _prassi_key;
+  _port = Hl_Port(USERADR);
+#else
+  HL_LOGOUT();
+  if (HL_LOGIN(AGAADR, DONT_CARE, REFKEY, VERKEY) == STATUS_OK) 
+    _key_type = _aga_key;
+  else
+  {
+    HL_LOGOUT();
+    if (HL_LOGIN(PRASSIADR, DONT_CARE, REFKEY, VERKEY) == STATUS_OK)
+      _key_type = _prassi_key;
+  }
+  HL_LOGOUT();
+  HL_LOGIN(USERADR, DONT_CARE, REFKEY, VERKEY);
+#endif
+  switch (_key_type)
+  {
+  case _user_key:
+  {
+    _msk->disable(F_K1);
+    _msk->disable(F_K2);
+    _msk->set_handler(F_K4, user_hnd);
+    generate_key();
+    for (int i = 1; i < ENDAUT; i++)
+    {
+      const int pos = _msk->id2pos(F_BASE + i);
+      if (pos >= 0) _msk->fld(pos).disable();
+    }
+  }
+  break;
+ case _aga_key:
+ case _prassi_key:
+{
+  _msk->set_handler(F_K2, decode_hnd);
+  _msk->disable(F_K3);
+  _msk->disable(F_K4);
+  for (int i = 1; i < MAXAUT; i++)
+  {
+    const int pos = _msk->id2pos(F_BASE + i);
+    
+    if (pos >= 0)
+      _msk->set_handler(F_BASE + i, activate_hnd);
+  }
+}
+break;
+default:
+break;
+}
+dispatch_e_menu(BAR_ITEM(1));
+return TRUE;
+}
+
+bool TAttivazione_moduli::destroy()
+{
+  if (_msk != NULL) delete  _msk;
+  return TRUE;
+}
+
+bool TAttivazione_moduli::menu(MENU_TAG)
+{
+  _msk->run();
+  return FALSE;
+}
+
+int ba1500(int argc, char** argv)
+{
+  TAttivazione_moduli a ;
+  a.run(argc, argv, "Attivazione moduli");
+  return 0;
+}