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