MACRO                                                          MSG 0001
&NAME    MSG   &TXT,&F=V,&AL=H                                          MSG 0002
         LCLA  &L                                                       MSG 0003
&L       SETA  K'&TXT+2                                                 MSG 0004
.*                                                                      MSG 0005
&NAME    DS    0&AL                                                     MSG 0006
         AIF   ('&F' EQ 'V' OR '&F' EQ '').V                            MSG 0007
         AIF   ('&F' EQ 'VB').VB                                        MSG 0008
         MNOTE 4,'HEBEPHùê æOPMAT &F - MOöET âùTø V éìé VB; BùâPAH VB'  MSG 0009
.VB      DC    AL2(&L+4),AL2(0)      äECKPéðTOP âìOKA                   MSG 0010
.*                                                                      MSG 0011
.V       DC    AL2(&L),AL2(0)        äECKPéðTOP úAðéCé                  MSG 0012
.*                                                                      MSG 0013
         DC    C&TXT                                                    MSG 0014
         MEND                                                           MSG 0015