VAR_INPUT	StrAdd			STRING(255)
VAR_INPUT	pStrDest		POINTER TO STRING
VAR		pSrc			POINTER TO BYTE			
VAR		pDest			POINTER TO BYTE



pSrc := ADR(StrAdd);
pDest := pStrDest;

WHILE pSrc^ <> 0
DO
	pDest^ := pSrc^;
	pSrc := pSrc + 1;
	pDest := pDest + 1;
END_WHILE

pDest^ := 0;

StrCatPtr := pDest;