Domains
	file=entrada;salida
Predicates
	abre_archivo(string)
	lee_archivo
Goal
	clearwindow,write("Dame el archivo: "),
	readln(FileName),abre_archivo(FileName),
	lee_archivo.
Clauses
	abre_archivo(FileName):-openread(entrada,FileName).
	lee_archivo:-readdevice(entrada),not(eof(entrada)),
		readchar(C),writedevice(screen),write(C),!,
		lee_archivo.
	lee_archivo:-closefile(entrada).

    Source: geocities.com/v.iniestra/apuntes/pro_log

               ( geocities.com/v.iniestra/apuntes)                   ( geocities.com/v.iniestra)