PROGRAM STRINGTEST(OUTPUT);
CONST BVDESC=402653190;
TYPE STR10=PACKED ARRAY[1..10] OF CHAR;
     PSTR10=^STR10;
VAR PNTSTR:PSTR10;
PROCEDURE PASSTR(I:INTEGER;AD:PSTR10;INT:INTEGER);EXTERN;
BEGIN
NEW(PNTSTR);
WRITELN('PASSING STRING AND INTEGER');
PNTSTR^:=' 123456789';
PNTSTR^[1]:=CHR(4);
PASSTR(BVDESC,PNTSTR,100);
WRITELN('DID IT WORK');
WRITELN(' NEW STRING IS ',PNTSTR^);
END.