* @DCRYPT  MAKPO -                                                      RYPT0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 22.01.90   BPEMñ 21.00   *  æOKõC  RYPT0002
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    RYPT0003
         MACRO                                                          RYPT0004
&NAME    @DCRYPT &TO=                                                   RYPT0005
&NAME    B     *+16                                                     RYPT0006
         XC    *+6((&TO-*-6)/2),*+6+(&TO-*-6)/2                         RYPT0007
         XC    *+(&TO-*)/2((&TO-*)/2),*                                 RYPT0008
         MEND                                                           RYPT0009