campo-sirio/m770/menustq.uml

// Menu' stampe quadri
#include "menustq.h"

#define	COL1	5
#define	COL2	24
#define	COL3	5
#define	COL4	5

#define	ROW1	7
#define	ROW2	8
#define	ROW3	9
#define	ROW4	10
#define	ROW5	11
#define	ROW6	12

#define	HIDDEN	"H"
#define	MYFLAGS	"H"
#define	GRUPPO	5

// Prima colonna
TEXT T_BASE
BEGIN
  PROMPT COL1 ROW1 "Quadro Base"
  GROUP GRUPPO
  FLAGS MYFLAGS
END

BUTTON B_BASE 1 1
BEGIN
  PROMPT 1 ROW1 ""
  MESSAGE RUN,772MOD,-4,Base,D
  PICTURE 123
  FLAGS MYFLAGS
  GROUP GRUPPO
END

TEXT T_LAGG
BEGIN
  PROMPT COL1 ROW2 "Quadro L agg."
  GROUP GRUPPO
  FLAGS MYFLAGS
END

BUTTON B_LAGG 1 1
BEGIN
  PROMPT 1 ROW2 ""
  MESSAGE RUN,772MOD,-4,L,D
  PICTURE 123
  FLAGS MYFLAGS
  GROUP GRUPPO
END

TEXT T_NAGG 
BEGIN
  PROMPT COL1 ROW3 "Quadro N agg."
  GROUP GRUPPO
  FLAGS MYFLAGS
END

BUTTON B_NAGG 1 1
BEGIN
  PROMPT 1 ROW3 ""
  MESSAGE RUN,772MOD,-4,N,D
  PICTURE 123
  FLAGS MYFLAGS
  GROUP GRUPPO
END

TEXT T_ALLSOC 
BEGIN
  PROMPT COL1 ROW4 "Allegato Soci "
  GROUP GRUPPO
  FLAGS MYFLAGS
END

BUTTON B_ALLSOC 1 1
BEGIN
  PROMPT 1 ROW4 ""
  MESSAGE RUN,772MOD,-4,S,D
  PICTURE 123
  FLAGS MYFLAGS
  GROUP GRUPPO
END

TEXT T_ALLG
BEGIN
  PROMPT COL1 ROW5 "Allegato G "
  FLAGS MYFLAGS  
  GROUP GRUPPO  
END

BUTTON B_ALLG 1 1
BEGIN
  PROMPT 1 ROW5 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-4,J,D
  FLAGS MYFLAGS
  GROUP GRUPPO
END
// Fine prima colonna


// Seconda colonna
TEXT T_A
BEGIN
  PROMPT 24 ROW1 "Quadro A  "  
  FLAGS MYFLAGS
  GROUP GRUPPO  
END

BUTTON B_A 1 1
BEGIN
  PROMPT 20 ROW1 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-4,A,D|K_TAB,RILEGGI_QUADRI
  FLAGS MYFLAGS
  GROUP GRUPPO
END

TEXT T_A1
BEGIN
  PROMPT 24 ROW2 "Quadro A1  "
  FLAGS MYFLAGS
  GROUP GRUPPO  
END

BUTTON B_A1 1 1
BEGIN
  PROMPT 20 ROW2 ""
  PICTURE 123  
  FLAGS MYFLAGS  
  MESSAGE RUN,772MOD,-4,A1,D|K_TAB,RILEGGI_QUADRI
  GROUP GRUPPO
END

TEXT T_A2
BEGIN
  PROMPT 24 ROW3 "Quadro A2  "
  FLAGS MYFLAGS 
  GROUP GRUPPO  
END

BUTTON B_A2 1 1
BEGIN
  PROMPT 20 ROW3 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-4,A2,D|K_TAB,RILEGGI_QUADRI
  FLAGS MYFLAGS  
  GROUP GRUPPO
END                    

TEXT T_A3
BEGIN
  PROMPT 24 ROW4 "Quadro A3  "   
  FLAGS MYFLAGS
  GROUP GRUPPO  
END

BUTTON B_A3 1 1
BEGIN
  PROMPT 20 ROW4 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-4,A3,D|K_TAB,RILEGGI_QUADRI
  FLAGS MYFLAGS  
  GROUP GRUPPO
END                    

TEXT T_B
BEGIN
  PROMPT 24 ROW5 "Quadro B"
  FLAGS MYFLAGS 
  GROUP GRUPPO  
END

BUTTON B_B 1 1
BEGIN
  PROMPT 20 ROW5 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-4,B,D|K_TAB,RILEGGI_QUADRI
  FLAGS MYFLAGS 
  GROUP GRUPPO
END                    

TEXT T_B1
BEGIN
  PROMPT 24 ROW6 "Quadro B1"  
  FLAGS MYFLAGS
  GROUP GRUPPO  
END

BUTTON B_B1 1 1
BEGIN
  PROMPT 20 ROW6 ""
  PICTURE 123  
//  MESSAGE RUN,771MOD,-6,0|K_TAB,RILEGGI_QUADRI
  FLAGS MYFLAGS
  GROUP GRUPPO
END                    
// Fine seconda colonna

// Terza colonna
TEXT T_C
BEGIN
  PROMPT 43 ROW1 "Quadro C" 
  FLAGS MYFLAGS
  GROUP GRUPPO  
END

BUTTON B_C 1 1
BEGIN
  PROMPT 39 ROW1 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-4,C,D|K_TAB,RILEGGI_QUADRI
  FLAGS MYFLAGS
  GROUP GRUPPO
END                    

TEXT T_D
BEGIN
  PROMPT 43 ROW2 "Quadro D"
  FLAGS HIDDEN
  GROUP GRUPPO  
END

BUTTON B_D 1 1
BEGIN
  PROMPT 39 ROW2 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-4,D,D
  FLAGS HIDDEN
  GROUP GRUPPO
END                    

TEXT T_D1
BEGIN
  PROMPT 43 ROW3 "Quadro D1"  
  FLAGS MYFLAGS
  GROUP GRUPPO  
END                    

BUTTON B_D1 1 1
BEGIN
  PROMPT 39 ROW3 ""
  PICTURE 123
  FLAGS MYFLAGS
  MESSAGE RUN,772MOD,-4,D1,D|K_TAB,RILEGGI_QUADRI
  GROUP GRUPPO
END                    

TEXT T_E
BEGIN
  PROMPT 43 ROW4 "Quadro E  " 
  FLAGS MYFLAGS
  GROUP GRUPPO  
END                    

BUTTON B_E 1 1
BEGIN
  PROMPT 39 ROW4 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-4,E,D|K_TAB,RILEGGI_QUADRI
  FLAGS MYFLAGS
  GROUP GRUPPO  
END                    

TEXT T_E1
BEGIN
  PROMPT 43 ROW5 "Quadro E1  "
  FLAGS MYFLAGS
  GROUP GRUPPO  
END                    

BUTTON B_E1 1 1
BEGIN
  PROMPT 39 ROW5 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-4,E1,D|K_TAB,RILEGGI_QUADRI
  FLAGS MYFLAGS
  GROUP GRUPPO  
END                    

TEXT T_E2
BEGIN
  PROMPT 43 ROW6 "Quadro E2  "
  FLAGS MYFLAGS
  GROUP GRUPPO  
END                    

BUTTON B_E2 1 1
BEGIN
  PROMPT 39 ROW6 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-4,E2,D|K_TAB,RILEGGI_QUADRI
  FLAGS MYFLAGS
  GROUP GRUPPO  
END                    
// Fine terza colonna

// QUARTA colonna
TEXT T_F
BEGIN
  PROMPT 62 ROW1 "Quadro F"
  FLAGS MYFLAGS
  GROUP GRUPPO  
END

BUTTON B_F 1 1
BEGIN
  PROMPT 58 ROW1 ""
  PICTURE 123
//  MESSAGE RUN,771MOD,-1 
  FLAGS MYFLAGS
  GROUP GRUPPO
END                    

TEXT T_F1
BEGIN
  PROMPT 62 ROW2 "Quadro F1"
  FLAGS MYFLAGS
  GROUP GRUPPO  
END                    

BUTTON B_F1 1 1
BEGIN
  PROMPT 58 ROW2 ""
  PICTURE 123
//  MESSAGE RUN,771MOD,-1
  FLAGS MYFLAGS
  GROUP GRUPPO
END                    

TEXT T_F2
BEGIN
  PROMPT 62 ROW3 "Quadro F2"
  FLAGS MYFLAGS 
  GROUP GRUPPO  
END                    

BUTTON B_F2 1 1
BEGIN
  PROMPT 58 ROW3 ""
  PICTURE 123
//  MESSAGE RUN,771MOD,-1
  FLAGS MYFLAGS
  GROUP GRUPPO
END                    

TEXT T_G
BEGIN
  PROMPT 62 ROW4 "Quadro G"
  FLAGS MYFLAGS  
  GROUP GRUPPO  
END                    

BUTTON B_G 1 1
BEGIN
  PROMPT 58 ROW4 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-4,G,D
  FLAGS MYFLAGS
  GROUP GRUPPO
END                    

TEXT T_G1
BEGIN
  PROMPT 62 ROW5 "Quadro G1"
  FLAGS MYFLAGS 
  GROUP GRUPPO  
END                    

BUTTON B_G1 1 1
BEGIN
  PROMPT 58 ROW5 ""
  PICTURE 123
//  MESSAGE RUN,771MOD,-1     
  FLAGS MYFLAGS
  GROUP GRUPPO
END             
       
TEXT T_H
BEGIN
  PROMPT 62 ROW6 "Quadro H"
  FLAGS MYFLAGS  
  GROUP GRUPPO  
END                    

BUTTON B_H 1 1
BEGIN
  PROMPT 58 ROW6 ""
  PICTURE 123
  MESSAGE RUN,772MOD,-4,H,D
  FLAGS MYFLAGS
  GROUP GRUPPO
END             
// Fine QUARTA colonna