Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50433/random.pas
There are 2 other files named random.pas in the archive. Click here to see a list.
program random(input);
var p,i:integer;
    bf:packed array[1:100]of char;
begin
update(input);
while true do begin
write(tty,'>>');
readln(tty);read(tty,p);
setpos(input,p);
writeln(tty,curpos(input));
read(input,bf:i);
writeln(tty,i,bf:i);
writeln(tty,curpos(input));
write(tty,'New: ');
readln(tty);read(tty,bf:i);
setpos(input,p,true);
write(input,bf:i);
end
end.