Publicidad
EOF
SINTAXIS:
EOF(<número archivo>)
PROPOSITO:
Para averiguar si se ha arribado al final de un archivo secuencial.
Devuelve -1 (verdad) si se cumple esta condición. Utilice EOF para
verificar el final-de-archivo cuando se ejecuta comandos INPUT, para
evitar el error "Input past end" (Ingreso después del fin).
El archivo especificado con el número de archivo debe haber sido abierto
en modo secuencial.
EJEMPLO:
10 OPEN "DATOS" FOR INPUT AS 1
20 C=0
30 IF EOF(1) THEN 100
40 INPUT#1,N(C)
50 C=C+1:GOTO 30
126
Publicidad
