initial commit

tests/test159.pas

@@ -0,0 +1,28 @@
+program test159;
+var s:string[131072];
+    i:integer;
+    c:char;
+    buf:string;
+begin
+	writeln('creating test string...');
+	c := 'A';
+	for i := 1 to maxlength(s) do
+	begin
+		appendchar(s,c);
+		c := succ(c);
+		if c = 'z' then
+			c := 'A';
+	end;
+
+	writeln('string length: ', length(s));
+
+	writeln(s[1], s[2], s[3]);
+
+	writeln('moving stuff...');
+	repeat
+		write('>');
+		readln(buf);
+		strmoveup(s, 1,100000,1);
+		writeln(s[1], s[2], s[3]);
+	until buf = 'x';
+end.