GQ:MenuExec               QUEUE,PRE()
GQ:Equate                   LONG
GQ:Funcion                  STRING(200)
                         END
                         
                         
GatoMenuClassExec   CLASS
MQ:MenuQueueExec      &QUEUE            
MQ:Equate             ANY
MQ:Funcion            ANY
ControlMenu           LONG
Init                  FUNCTION(*QUEUE MQueueExec,LONG ControlMenu)
Load                  FUNCTION(LONG Grupo, <BYTE Pos>),LONG
Exec                  FUNCTION(LONG Control),STRING
		    END
		    
GM:Funcion   STRING(200)