USE
DIR
accept "������� ��� (� ����) ����� ���� ������ " TO PATH
COP="USE "+PATH
&COP
CLEAR
POC=0
set color to 2,1,0
clear
DO WHILE POC=0
SET COLOR TO 2,1,0 
@1,5  SAY "************************"
@ 2,5 SAY "*     1-�����          *"
@ 3,5 SAY "*     2-��������       *"
@ 4,5 SAY "*     3-����������     *"
@ 5,5 SAY "*     4-������.\���.   *"
@ 6,5 SAY "*     5-����� H� ������*" 
@ 7,5 SAY "*     6-�����          *"
@ 8,5 SAY "************************"
WAIT TO OTV
OTVE=VAL(OTV)
DO CASE 
 CASE OTVE=1
 clear
D=10
clear
SET COLOR TO *1,3,0
?"    �����"
H=2
SET COLOR TO 1,2,0
DO WHILE H<>0
?
ACCEPT "������� �������� ������ " TO DR 
PUSK="FIND "+DR
&PUSK
DISPLAY
SET COLOR TO *1,3,0
WAIT "����������?" TO OT
SET COLOR TO 1,2,0
IF OT<>"Y" .AND. OT<>"�" .AND. OT<>"�" .AND. OT<>"y"
 H=0
ENDIF
ENDDO
clear
CASE OTVE=2
CLEAR  
LIST
WAIT
CLEAR
CASE OTVE=3
CLEAR
set color to *2,2,0
@ 10,5 SAY"      ����������"
set color to 1,2,0
ACCEPT "       ����������� �� ���� " TO POLE
ACCEPT "       ��� � ���� ����� ���� ������ " TO PA1
ND="INDEX ON "+POLE+" TO "+PA1
&ND
@ 17,5 SAY "    �����������H�"
SET COLOR TO 1,2,0
WAIT
CLEAR
CASE OTVE=4
CLEAR
SET COLOR TO *4,2,0
@ 10,5 SAY "�����������H��(��������H�H��)"
SET COLOR TO 1,2,0 
BROWSE
CLEAR
CASE OTVE=5
CLEAR 
set color to *3,2,0
@10,5 SAY "����� H� ������"
set color to 2,1,0
?
LIST TO PRINT
CLEAR
CASE OTVE=6
POC=1
ENDCASE
ENDDO