abrearchivo

'Abre el archivo que le pasamos como par metro y le asigna un descriptor

'usado FREEFILE que devuelve el pr¢ximo disponible.

'

SUB AbreArchivo (archivo$)

DIM registro AS tipopersona

OPEN archivo$ FOR RANDOM AS FREEFILE LEN = LEN(registro)

END SUB