program tit;

USES Amiga, exec;

VAR
	c : STRPTR;
	s : String;
	
begin
	s:='HELLO';
	c:=Stringtoc(s);
	writeln(ptrtopas(c));
	s:='HELLO - Changed?.....................         ';
	writeln(ptrtopas(c));
end.