FUNCTION INDECATOR_1(B,I: BYTE): BOOLEAN;VARX:BYTE;BEGINX:=1;RESULT:=(b and (x shl (I-1)))<>0;END;
E-mail: info@telesys.ru