initial commit

tests/readtest.pas

@@ -0,0 +1,25 @@
+program readtest;
+var filename:string;
+    buf:char;
+    f:file;
+    count:integer;
+    t:DateTime;
+begin
+	write('Enter filename: ');
+	readln(filename);
+
+	t := GetTime;
+	writeln('start:', TimeStr(t, true));
+	open(f, filename, ModeReadOnly);
+
+	count := 0;
+	while not eof(f) do
+	begin
+		read(f,buf);
+		count := count + 1;
+	end;
+	close(f);
+	t := GetTime;
+	writeln('end:', TimeStr(t, true));
+	writeln(count, ' bytes read.');
+end.