USE
 @ 10,5 SAY "��������� ������� ��������� ��������"
WAIT
USE COMPUTER
   INDEX ON NUMBER TO INDEX
CLEAR
 POC=0
 DO WHILE POC=0
@ 2,5 SAY "1-�����"
@ 3,5 SAY "2-��������"
@ 4,5 SAY "3-����������"
@ 5,5 SAY "4-����������"
@ 6,5 SAY "5-��������������" 
@ 7,5 SAY "6-�����"
WAIT TO OTV
OTVE=VAL(OTV)
DO CASE 
 CASE OTVE=1
 clear
@ 2,5 say "��������"
D=10
clear
ACCEPT "������� �������� ������ " TO DR 
clear
LIST FOR NUMBER=VAL(DR)
wait
clear
LIST FOR CENA=VAL(DR)
wait
clear
LIST FOR SERILNUM=VAL(DR)
wait
clear
LIST FOR MON=DR
wait
clear
LIST FOR NAME=DR
wait
clear
LIST FOR FIRM=DR
WAIT 
clear
CASE OTVE=2
  LIST
CASE OTVE=3
CLEAR
@ 10,5 SAY"����������"
ACCEPT "����������� �� ���� " TO POLE
ND="INDEX ON "+POLE+" TO A:\KARAT\IN2"
&ND
@ 17,5 SAY "�������������"
WAIT
CLEAR
CASE OTVE=4
CLEAR
@ 10,5 SAY "�������������"
 APPEND
CLEAR
CASE OTVE=5
CLEAR 
@10,5 SAY "��������������"
EDIT
CLEAR
CASE OTVE=6
POC=1
ENDCASE
ENDDO