[Piligrim]

program NewProject3;
uses jsr75, str;
var i: integer; s, f, r: String;
begin
	s:= read_file('root1/test.txt');
	drawText(s, 0, 30);
	s:= 'просто тетсовая stroka.';
	write_file('root1/test1.txt', s);
	if open_file('root1/test.txt')=1 then begin
		drawText('OK',0,40);
		s:= read_string;
		drawText(s, 0, 50);
	end;
	repaint;	
	delay(5000);
end.

это для моей библиотеки. у JSR75i больше функций и многие по другому вызываются, текстовый файл с описаниями