Function main()
{
inkey _ active = 0; str _ cpy (mul, ""); inkey (mul); str _ cat (mul, ""); / / Enter the name of the goods 
  
 inkey _ active = 0; str _ cpy (mul 1, ""); inkey (mul 1); str _ cat (mul 1, "") / / Input model 
  
 inkey _ active = 0; str _ cpy (mul 2, ""); inkey (mul 2); str _ cat (mul 2, "") / / Enter product code 
  
 inkey _ active = 0; str _ cpy (mul 3, ""); inkey (mul 3); / / Entry date 
  
 inkey _ active = 0; str _ cpy (mul 4, ""); inkey (mul 4), / / Input value 
  
 inkey _ active = 0; str _ cpy (mul 5, ""); inkey (mul 5); / / Enter manufacturer 
  
 str _ cpy (mul 6, mul); / / copying a string which displays the data on this product 
  
 filehandle = file _ open _ append ( "T ovar. dll"); 
  
 file _ asc _ write (filehandle, 1 3); / / Write to file products 
  
 file _ asc _ write (filehandle, 1 0); 
  
 file _ str _ write (filehandle, mul 6); 
  
 file _ str _ write (filehandle, mul 1); / / Write to file stylists 
  
 file _ str _ write (filehandle, mul 2); / / Write to file Article 
  
 f i l e _ c l o s e (f i l e h a n d l e); 
  
 set (endvvtov, SHOW); / / put all the necessary information about product 
  
 fhandle = file _ open _ read ( "T ovar. dll"); / / reading from file 
  
 file _ str _ read (fhandle, mul 6); 
  
 f i l e _ c l o s e (f h a n d l e); 
  
 / / Set (naimenov, SHOW); / / Output information about product 
search_tov();
}