MACRO                                                          WMAC0001
&NAME    FCB   &U=NO                                                    WMAC0002
.* ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    WMAC0003
.** * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 04.03.87   BPEMñ 11.05   *  æOKõC  WMAC0004
         LCLA  &NLINES,&N,&C,&M,&STR                                    WMAC0005
         LCLC  &Z(12)                                                   WMAC0006
&NLINES  SETA  N'&SYSLIST                                               WMAC0007
         PRINT NOGEN                                                    WMAC0008
         AIF   (&NLINES EQ 0).ERUNDA                                    WMAC0009
         MNOTE *,'****** OâPAú æOPMATA CTPAHéãù &NAME ** PAúMEP CTPAHéã*WMAC0010
               ù - &NLINES CTPOK'                                       WMAC0011
         AIF   ('&U' EQ 'Y' OR '&U' EQ 'YES').YES                       WMAC0012
&NAME    DC    X'00'    - HEìøúñ éCð. ðO õMOìþAHéà                      WMAC0013
         MNOTE *,' ðO õMOìþAHéà éCðOìøúOBATø HEìøúñ'                    WMAC0014
         AGO   .SIZE                                                    WMAC0015
.YES     ANOP                                                           WMAC0016
&NAME    DC    X'80'    - MOöHO éCð. ðO õMOìþAHéà                       WMAC0017
         MNOTE *,' MOöHO éCðOìøúOBATø ðO õMOìþAHéà'                     WMAC0018
.SIZE    ANOP                                                           WMAC0019
         DC    AL1(&NLINES)     - PAúMEP CTPAHéãù                       WMAC0020
         MNOTE *,' '                                                    WMAC0021
         MNOTE *,' '                                                    WMAC0022
         MNOTE *,'******************************************************WMAC0023
               ****************'                                        WMAC0024
&STR     SETA  1                                                        WMAC0025
.LINE    ANOP                                                           WMAC0026
&C       SETA  &SYSLIST(&STR)                                           WMAC0027
         AIF   (&C GT 12).ERROR                                         WMAC0028
&Z(1)    SETC  ' '                                                      WMAC0029
&Z(2)    SETC  ' '                                                      WMAC0030
&Z(3)    SETC  ' '                                                      WMAC0031
&Z(4)    SETC  ' '                                                      WMAC0032
&Z(5)    SETC  ' '                                                      WMAC0033
&Z(6)    SETC  ' '                                                      WMAC0034
&Z(7)    SETC  ' '                                                      WMAC0035
&Z(8)    SETC  ' '                                                      WMAC0036
&Z(9)    SETC  ' '                                                      WMAC0037
&Z(10)   SETC  ' '                                                      WMAC0038
&Z(11)   SETC  ' '                                                      WMAC0039
&Z(12)   SETC  ' '                                                      WMAC0040
.*                                                                      WMAC0041
         AIF   (&C EQ 0).PICT                                           WMAC0042
&Z(&C)   SETC  '*'                                                      WMAC0043
.PICT    MNOTE *,'    !&Z(1)&Z(2)&Z(3)&Z(4)&Z(5)&Z(6)&Z(7)&Z(8)&Z(9)&Z(*WMAC0044
               10)&Z(11)&Z(12)!  -  &STR'                               WMAC0045
         AIF   (&STR EQ &NLINES).LAST                                   WMAC0046
         DC    AL1(&C)                                                  WMAC0047
&STR     SETA  &STR+1                                                   WMAC0048
         AGO   .LINE                                                    WMAC0049
.LAST    DC    AL1(16+&C)                                               WMAC0050
         MNOTE *,'******************************************************WMAC0051
               ****************'                                        WMAC0052
         END   &NAME                                                    WMAC0053
         MEXIT                                                          WMAC0054
.ERROR   MNOTE 12,'OûéâKA - HEìøúñ âOìøûE 12!'                          WMAC0055
         END                                                            WMAC0056
.ERUNDA  MNOTE 12,'âATEHøKA, Bù XOTø 1 CTPOþEþKõ CäEìAêTE !'            WMAC0057
         END                                                            WMAC0058
.*                                                                      WMAC0059
         MEND                                                           WMAC0060