[comp.lang.pascal] Re ***3 posting of function What

pilgrimk@lafcol.UUCP (Kenwyn A. Pilgrim) (03/17/89)

Direct mail may have been messed up, so I posting to the net.
Too bad.
{Here's my $0.02}

{-------------------------------------------------}
uses Crt;
var a: string;

function what(var where: string): string;
 begin
  what := where;
  writeln('Hit Esc...'); repeat until ReadKey=#27;
  delete(String(Ptr(Seg(What),Ofs(What))^),5,10);
 end;

begin
 a := 'Help me please';
 writeln(what(a))
end.
{-------------------------------------------------}

{
Some notes:

When run as is (TP40 compiler) 'Help me please' is the result.
The variable 'a' remains unchanged.

If the 'uses Crt' line is removed along with
  writeln('Hit Esc...'); repeat until ReadKey=#27;
the computer is hung. (Haven't figured this out as yet);

Maybe this helps, Maybe it doesn't, but what do you expect for 
$0.02 ????

When you do get a correct sol'n, please post to the net.
This is more interesting than I originally thought!

-Kenwyn
}