Codigo fuente en clipper agenda telefonica

CLEA
CLEAR MEMO
CLEAR ALL
SET CURSOR ON
SET TALK OFF
SET CONF ON
SET SCOR OFF
SET DATE FRENCH
SET CONFIRM ON
SET DELETED ON
SET BELL OFF
SET STAT OFF
SET ECHO OFF
SET SAFE OFF
SET EXCLOFF
SET DEVI TO SCREEN
SET WRAP ON
SET EXCL OFF
* ------ VARIABLES PUBLICAS ------------*
STOR ' ' TO ENTRE,M_CLAVE,V_CLAVE,AEI,WORD1,ENTER
JUS=.T.
LINE=23
COLU=1
STOR 0 TO LIM,OPTV_SELECT=' ' &&---------PONE VALOR DEL ALIAS A BUSCAR EN HELP Y VUELVE A BLANCO

IF !FILE('\util\PHONE.NTX')
_W='S'
@ 23,5 SAY 'SE INTRODUCE AL PROGRAMA OTROS USUARIOS NO PODRAN ENTRAR :' GET _WPICT '!' VALID _W$'SN'
READ
@ 23,5 SAY SPAC(70)
IF !NET_USE('\util\PHONE',.T.,5)
RETURN
ENDIF
PACK
INDEX ON RAZON TO \util\PHONE
ELSE
IF !NET_USE('\util\PHONE',.F.,5)RETURN
ENDIF
SET INDEX TO \util\PHONE
ENDIF
DECLARE V_FIELD[2],V_TITLE[2]
V_FIELD[1]='RAZON'
V_FIELD[2]='TEL'
V_TITLE[1]='RAZON SOCIAL'
V_TITLE[2]='NUMERO'
@ 1,0 SAY 'AGENDATELEFONICA'
@ 22,0 SAY 'Busca_Altas_Bajas_Modif._TXT_Salir'
V_LOCATE=''
DBEDIT(3,0,20,79,V_FIELD,"CONTROL",'',V_TITLE)
CLOSE DATA
FOR I=0 TO 12
INKEY(.05)
@ I,I,24-I,79-I BOX SPAC(8)+'±'NEXT
CLEA
RETURN

FUNC CONTROL
PARA V_MODE,V_N_FIELD
V_KEY=LASTKEY()
V_ROW=ROW()
V_COL=COL()
IF V_MODE='A'.AND.UPPER(V_KEY) 0)
if ex_use && exclusivo
use &file excl
elseuse &file && compartido
endif
if !neterr() && use ok.
exit
endif
inkey(1)
wait = wait - 1
enddo
if c_param>3.and.wait>0
do case
casec_param=4
set index to &ind1
case c_param=5
set index to &ind1,&ind2
case c_param=6
set index to &ind1,&ind2,&ind3
case c_param=7
setindex to &ind1,&ind2,&ind3,&ind4
endcase
return (.t.)
else
if wait>0
return (.t.)
endif
endif
set color to w*
cartel('error de apertura de archivo '+file)
set color to...