program.pt

   1 program $PROMPT('program');
   2
   3 const
   4   __in__='$PROMPT('infile')';
   5   __out__='$PROMPT('outfile')';
   6
   7 var
   8
   9 procedure __init__;
  10 begin
  11   assign(input,__in__); reset(input);
  12   assign(output,__out__); rewrite(output);
  13 end;
  14
  15 procedure __main__;
  16 begin
  17 end;
  18
  19 procedure __end__;
  20 begin
  21 end;
  22
  23 begin
  24   __init__;
  25   __main__;
  26   __end__;
  27   close(input); close(output);
  28 end.