program qcode2(outfile);
type charr2=packed array[1..2]of char;
     chptr=^charr2;
var i1:integer;
    mess1:chptr;
    outfile:text;
    seg,off:integer;
begin
rewrite(outfile,'qcode2.lst');
i1:=16688; {* 'a0' *}
loadadr(i1);
storexpr(off);
storexpr(seg);
writeln(outfile,'seg is',seg,'  offset is',off);
mess1:=makeptr(seg,off,chptr);
writeln(outfile,mess1^);
close(outfile);
end.