PROGRAM DEMO;
CONST MAGIC=402653440; (* =X'18000100' *)
TYPE STR7=PACKED ARRAY[1..7] OF CHAR;
     POINT7=^STR7;
VAR P7:POINT7;
PROCEDURE LIST(K:INTEGER;AD:POINT7);EXTERN;
BEGIN
NEW(P7);
P7^:=' FILES ';
P7^[1]:=CHR(5);
LIST(MAGIC,P7);
END.