      fieldput(4,chr(170) + chr (185) + chr (127) + chr (48) + chr (65) + chr (124) + chr (200) + chr (201))
   else
 IF CODIACT=chr(170) + chr (185) + chr (127) + chr (48) + chr (65) + chr (124) + chr (200) + chr (201)
      fieldput (4, chr(99) + chr (100) + chr (125) + chr (224) + chr (43) + chr(68) + chr (183) + chr (170))
   endif
   SELECT 1
 
   IF CMODICODI="S"
     MODIFICACODI()
   ENDIF
  
return .t.

FUNCTION MODIFICACODI ()
  CLS
  SELECT 3
  PUBLIC CODI:={NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL} 
  PUBLIC CODI2:={NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL} 
  @12,10 SAY "Entra el Codi d' Accs: "
  for K:=1 TO 8
     DO WHILE INKEY () == 0  
     ENDDO
     CODI[K]=LASTKEY ()
     @12,K+33 SAY "*"
  NEXT K

  @14,10 SAY "Torna a entrar el codi: "
  for K:=1 TO 8
     DO WHILE INKEY () == 0  
     ENDDO
     CODI2[K]=LASTKEY ()
     @14,K+33 SAY "*"
  NEXT K

   CCODINUM=CHR(CODI[1]) + CHR(CODI[2]) + CHR(CODI[3]) + CHR(CODI[4]) + CHR(CODI[5]) + CHR(CODI[6]) + CHR(CODI[7]) + CHR(CODI[8])  
   CCODINUM2=CHR(CODI2[1]) + CHR(CODI2[2]) + CHR(CODI2[3]) + CHR(CODI2[4]) + CHR(CODI2[5]) + CHR(CODI2[6]) + CHR(CODI2[7]) + CHR(CODI2[8])  

  if ccodinum2 = ccodinum
    CodificaCodi ()
    fieldput (3,codificat2)
    SELECT 1
  else
    ? "Codi diferent, no acceptat. Torna-ho a intentar."
    INKEY (0)
  endif
  
return .t.

FUNCTION SORTIR ()
 FIELDPUT (6,(FIELDGET(6))+1)
 FIELDPUT (5,(FIELDGET(5))+1)
 
  ? "PER ENTRAR ES T DE SABER EL CODI"
  INKEY (3)
  CLS

