* @CHKSTEN - MAKPO - ðPOBEPKA CTPOKé ðO TPAæAPETõ                       STEN0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 13.08.90   BPEMñ 19.17   *  æOKõC  STEN0002
* @CHKSTEN '<CTPOKA>'/(<AäPEC CTPOKé>[,<äìéHA CTPOKé>])/((0))           STEN0003
*        ,'<TPAæAPET>'/(<AäPEC TPAæAPETA>[,<äìéHA TPAæAPETA>])/((1))    STEN0004
* BùXOä: R15 = 0 - CTPOKA ðOäXOäéT ðOä TPAæAPET                         STEN0005
*  ìEHéHçPAä éBã çõT  OTä. 23 ìATùûKO                   T: 219-07-07    STEN0006
         MACRO                                                          STEN0007
&LBL     @CHKSTEN &LINE,&TRAF                                           STEN0008
         LCLA  &L,&K                                                    STEN0009
         LCLB  &QP                                                      STEN0010
.*                                                                      STEN0011
.LINE    AIF   ('&LINE'(1,1) EQ '''').LINELIT  ìéTEPAì                  STEN0012
&LBL     IHBLADR 0,&LINE(1),'AäPEC CTPOKé'                              STEN0013
         AIF   ('&LINE(2)' NE '').LINELEN      äìéHA úAäAHA             STEN0014
         AIF   ('&LINE(1)'(1,1) EQ '(').TRAF   äìéHA õöE B PEçéCTPE     STEN0015
         LA    15,L'&LINE(1)                   XAP-KA äìéHù             STEN0016
         AGO   .LINESLL                                                 STEN0017
.LINELEN IHBLADR 15,&LINE(2),'äìéHA CTPOKé'                             STEN0018
         AGO   .LINESLL                                                 STEN0019
.*                                                                      STEN0020
.LINELIT ANOP                                                           STEN0021
&L       SETA  K'&LINE-2                                                STEN0022
&K       SETA  1                                                        STEN0023
&QP      SETB  0                                                        STEN0024
.LINEQPL ANOP  *******                                                  STEN0025
&K       SETA  &K+1+&QP                                                 STEN0026
         AIF   (&K GE K'&LINE).LINEQLE                                  STEN0027
&QP      SETB  ('&LINE'(&K,2) EQ '''''' OR '&LINE'(&K,2) EQ '&&')       STEN0028
&L       SETA  &L-&QP                                                   STEN0029
         AGO   .LINEQPL                                                 STEN0030
.LINEQLE ANOP  *******                                                  STEN0031
&LBL     LA    0,=C&LINE                                                STEN0032
         LA    15,&L                                                    STEN0033
.*INESLL BCTR  15,0                                                     STEN0034
.LINESLL SLL   15,24                                                    STEN0035
         OR    0,15                                                     STEN0036
.*                                                                      STEN0037
.TRAF    AIF   ('&TRAF'(1,1) EQ '''').TRAFLIT  ìéTEPAì                  STEN0038
&LBL     IHBLADR 1,&TRAF(1),'AäPEC TPAæAPETA'                           STEN0039
         AIF   ('&TRAF(2)' NE '').TRAFLEN      äìéHA úAäAHA             STEN0040
         AIF   ('&TRAF(1)'(1,1) EQ '(').CALL   äìéHA õöE B PEçéCTPE     STEN0041
         LA    15,L'&TRAF(1)                   XAP-KA äìéHù             STEN0042
         AGO   .TRAFSLL                                                 STEN0043
.TRAFLEN IHBLADR 15,&TRAF(2),'äìéHA TPAæAPETA'                          STEN0044
         AGO   .TRAFSLL                                                 STEN0045
.*                                                                      STEN0046
.TRAFLIT ANOP                                                           STEN0047
&L       SETA  K'&TRAF-2                                                STEN0048
&K       SETA  1                                                        STEN0049
&QP      SETB  0                                                        STEN0050
.TRAFQPL ANOP  *******                                                  STEN0051
&K       SETA  &K+1+&QP                                                 STEN0052
         AIF   (&K GE K'&TRAF).TRAFQLE                                  STEN0053
&QP      SETB  ('&TRAF'(&K,2) EQ '''''' OR '&TRAF'(&K,2) EQ '&&')       STEN0054
&L       SETA  &L-&QP                                                   STEN0055
         AGO   .TRAFQPL                                                 STEN0056
.TRAFQLE ANOP  *******                                                  STEN0057
&LBL     LA    1,=C&TRAF                                                STEN0058
         LA    15,&L                                                    STEN0059
.*RAFSLL BCTR  15,0                                                     STEN0060
.TRAFSLL SLL   15,24                                                    STEN0061
         OR    1,15                                                     STEN0062
.*                                                                      STEN0063
.CALL    @CALL CHKSTEN                                                  STEN0064
.*                                                                      STEN0065
         MEND                                                           STEN0066