*** Вызов
  IF  2  = SAY_PODTV("Вы желаете продолжить операцию удаления ?",;
                      "Выберите одну из опций ...",)

*** Определение функции
FUNCTION SAY_PODTV
PARAMETERS SOOB,PODTV,PODTV2
 PRIVATE ALL EXCEPT REG_ARHIV
 PUSH KEY CLEAR
 NPAR = PARAMETERS()
 IF NOT WEXIST("w_class")
   DEFINE WINDOW w_class ;
      FROM INT((SROW()- 5 )/ 2 )+ 4 ,INT((SCOL()- 70 )/ 2 ) ;
	    TO INT((SROW()- 5 )/ 2 )+ 4 + 5 + 1 ,INT((SCOL()- 70 )/ 2 )+ 69  ;
		FONT 'FixedSys',  10  ;
		STYLE 'N' ;
	    FLOAT ;
	    NOCLOSE ;
	    SHADOW ;
	    DOUBLE ;
	    COLOR SCHEME  7 
 ENDIF
 IF WVISIBLE("w_class")
   ACTIVATE WINDOW w_class SAME
 ELSE
   ACTIVATE WINDOW w_class NOSHOW
 ENDIF
 SET BELL ON
 SET BELL TO  512 , 2 
 ?? CHR( 7 )
 SET BELL OFF
 otkaz =  1 
 @  0 , 0  SAY PADC(SOOB,WCOLS("w_class")) COLOR GR+/R
 @  1 , 0  SAY PADC(PODTV,WCOLS("w_class")) COLOR W+/R
 IF NPAR =  3 
   @  2 , 0  SAY PADC(PODTV2,WCOLS("w_class")) COLOR W+/R
 ENDIF
 @  3 , 21  GET otkaz ;
          PICTURE "@*HT \<Нет;\<Да" ;
          SIZE  1 , 5 , 16  ;
          MESSAGE ''
 IF NOT WVISIBLE("w_class")
   ACTIVATE WINDOW w_class TOP
 ENDIF
 READ CYCLE MODAL
 RELEASE WINDOW w_class
 POP KEY
RETURN otkaz