source/program.pt,v

   1 head    1.1;
   2 access;
   3 symbols;
   4 locks; strict;
   5 comment @# @;
   6
   7
   8 1.1
   9 date    2012.02.11.02.30.51;    author cvsadmin;        state Exp;
  10 branches;
  11 next    ;
  12 deltatype       text;
  13 kopt    kv;
  14 permissions     666;
  15 commitid        13604f35d2db5718;
  16 filename        program.pt;
  17
  18
  19 desc
  20 @@
  21
  22
  23 1.1
  24 log
  25 @
  26 Committed on the Free edition of March Hare Software CVSNT Server.
  27 Upgrade to CVS Suite for more features and support:
  28 http://march-hare.com/cvsnt/
  29 @
  30 text
  31 @program $PROMPT('program');
  32
  33 const
  34   __in__='$PROMPT('infile')';
  35   __out__='$PROMPT('outfile')';
  36
  37 var
  38
  39 procedure __init__;
  40 begin
  41   assign(input,__in__); reset(input);
  42   assign(output,__out__); rewrite(output);
  43 end;
  44
  45 procedure __main__;
  46 begin
  47 end;
  48
  49 procedure __end__;
  50 begin
  51 end;
  52
  53 begin
  54   __init__;
  55   __main__;
  56   __end__;
  57   close(input); close(output);
  58 end.@