28 lines
491 B
ObjectPascal
28 lines
491 B
ObjectPascal
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.
|