program textptr;
imports stack from stack;
type tptr=^text;
var toutptr,foutptr:tptr;
    fout:text;
    i:integer;
    ss:fsbit16;
procedure settext(var outfile:text;var outptr:tptr);
var outadr,ss:fsbit16;
begin
loadadr(outfile);
storexpr(outadr);
storexpr(ss);
writeln('ss is',ss,' offset is ',outadr);
outptr:=makeptr(ss,outadr,tptr);
end;
begin
ss:=loadss;
writeln('ss is ',ss);
settext(tout,toutptr);
rewrite(toutptr^,'console:');
writeln(toutptr^,'did it work');
settext(fout,foutptr);
rewrite(foutptr^,'textptr.dat');
writeln(foutptr^,'output to textptr.dat');
close(foutptr^);
i:=10 div 0;
end.