PROGRAM STRINGTEST(OUTPUT);
CONST MAGICN=402653440;
TYPE POINT7 =^ALFA8;
VAR P7:POINT7;
PROCEDURE LIST(K:INTEGER;AD:POINT7);EXTERN;
BEGIN
NEW(P7);
P7^:=' FILE1  ';
P7^[1]:=CHR(5);
LIST(MAGICN,P7);
END.