diff --git a/ba/ba0.cpp b/ba/ba0.cpp
index 1e7422192..9b1d6d2ba 100755
--- a/ba/ba0.cpp
+++ b/ba/ba0.cpp
@@ -96,7 +96,7 @@ class TMenu_application : public TApplication
 {
   const char* _name;
 
-  enum { MAXLEVEL = 512 };
+  enum { MAXLEVEL = 1024 };
   int _first[MAXLEVEL];
   TArray _menu;         // TAG|DESCRIPTION|ACTION
   TBit_array _enabled;
@@ -379,7 +379,7 @@ int TMenu_application::do_level()
   TToken_string& row = (TToken_string&)_menu[first];
   const TString80 head(row.get(1));
 
-  const int width = 74;
+  const int width = 78;
   const int height = 18;
   const int bwidth = 20;
   const int x = width-bwidth-12;
diff --git a/ba/batbage.uml b/ba/batbage.uml
index d22a406ab..9331c553f 100755
--- a/ba/batbage.uml
+++ b/ba/batbage.uml
@@ -10,32 +10,31 @@ PAGE "Tabella Codici Agenti" -1 -1 78 8
 
 STRING F_CODICE 5
 BEGIN
-PROMPT 4 2 "Codice      "
-FIELD CODTAB
-FLAGS "U"
-KEY 1
-USE %AGE
-INPUT CODTAB F_CODICE
-DISPLAY "Codice" CODTAB
-DISPLAY "Descrizione @30" S0
-OUTPUT F_CODICE CODTAB
-OUTPUT F_DESCR S0
-CHECKTYPE REQUIRED
+  PROMPT 4 2 "Codice      "
+  FIELD CODTAB
+  FLAGS "UZ"
+  KEY 1
+  USE %AGE
+  INPUT CODTAB F_CODICE
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione @50" S0
+  OUTPUT F_CODICE CODTAB
+  OUTPUT F_DESCR S0
+  CHECKTYPE REQUIRED
 END
 
-STRING F_DESCR 30
+STRING F_DESCR 50
 BEGIN
-PROMPT 4 4 "Descrizione "
-FIELD LF_TABCOM->S0
-KEY 2
-USE %AGE KEY 2
-INPUT CODTAB F_CODICE
-INPUT S0 F_DESCR
-DISPLAY "Descrizione @30" S0
-DISPLAY "Codice" CODTAB
-OUTPUT F_CODICE CODTAB
-OUTPUT F_DESCR S0
-CHECKTYPE REQUIRED
+  PROMPT 4 4 "Descrizione "
+  FIELD LF_TABCOM->S0
+  KEY 2
+  USE %AGE KEY 2
+  INPUT CODTAB F_CODICE
+  INPUT S0 F_DESCR
+  DISPLAY "Descrizione 530" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODICE
+  CHECKTYPE REQUIRED
 END
 
 ENDPAGE
diff --git a/ba/batbcpg.uml b/ba/batbcpg.uml
index 7438b5508..3d64c90ea 100755
--- a/ba/batbcpg.uml
+++ b/ba/batbcpg.uml
@@ -37,10 +37,9 @@ BEGIN
 	KEY 2
 END 
 
-LIST F_TIPO 18
+LIST F_TIPO 2 32
 BEGIN
   PROMPT 4 5 "Tipo            "
-  HELP "Inserire il tipo"
   FIELD LF_TABCOM->I0
   ITEM "1|Rimessa Diretta"
   ITEM "2|Tratta"
@@ -49,6 +48,9 @@ BEGIN
   ITEM "5|Paghero'"
   ITEM "6|Lettera di credito"
   ITEM "7|Tratta accettata"
+  ITEM "8|Rapporti interbancari diretti"
+  ITEM "9|Bonifico"
+  ITEM "10|Altro"
 END 
 
 LIST F_INIZIOSCAD 12