Esta función devuelve 1 o el número de caracteres que quedan por leer en el archivo. El nombre del archivo se menciona como un parámetro de la función.
Sintaxis
chars(filename)
Parámetros
Valor devuelto
Esta función devuelve 1 o el número de caracteres que quedan por leer en el archivo.
Ejemplo
/* Main program */
str = ''
do j = 1 while chars(Example.txt) > 0
str = ' ' (charin(Example.txt))
call charout ,str
end
Se deben tener en cuenta las siguientes cosas sobre el programa anterior:
Primero se asigna una variable de cadena a un valor nulo.
Luego, el 'bucle do' se usa para leer cada carácter a la vez.
Cada carácter se lee y luego se envía a la consola.
Cuando ejecutamos el programa anterior, obtendremos el siguiente resultado.
Salida
E x a m p l e 1
E x a m p l e 2
E x a m p l e 3