PROGRAM DEMO;
          CONST MAGIC=402653440; (* =x'18000100' *)
          TYPE POINT7=^ALFA8;
          VAR P7:POINT7;
          PROCEDURE LIST(K:INTEGER;AD:POINT7);EXTERN;
          BEGIN
          NEW(P7);
          P7^:=' FILEC  ';
          P7^[1]:=CHR(5);
          LIST(MAGIC,P7);
          END.