modernc.org/knuth@v0.0.4/web/testdata/ctan.org/tex-archive/systems/knuth/local/mfware/pktype.ch (about)

     1  @x pktype:67:
     2  @d print_ln(#)==write_ln(output,#)
     3  @y
     4  @d print_ln(#)==write_ln(output,#)
     5  @d write_ln(#)==writeln(#)
     6  @d read_ln(#)==readln(#)
     7  @z
     8  
     9  @x pktype:72:
    10  @p program PKtype(@!input,@!output);
    11  label @<Labels in the outer block@>@/
    12  @y
    13  @p program PKtype(@!input,@!output);
    14  @z
    15  
    16  @x pktype:88:
    17  @<Labels...@>=final_end;
    18  @y
    19  @z
    20  
    21  @x pktype:111:
    22  @p procedure jump_out;
    23  begin goto final_end;
    24  end;
    25  @y
    26  @p procedure jump_out;
    27  begin
    28  	panic(final_end);
    29  end;
    30  @z
    31  
    32  @x pktype:1109:
    33  @ @p procedure dialog ;
    34  var i : integer ; {index variable}
    35  buffer : packed array [1..name_length] of char; {input buffer}
    36  begin
    37  @y
    38  @ @p procedure dialog ;
    39  var i : integer ; {index variable}
    40  begin
    41  @z
    42  
    43  @x pktype:1146:
    44  t_print_ln(pk_loc:1,' bytes read from packed file.');
    45  final_end :
    46  end .
    47  @y
    48  t_print_ln(pk_loc:1,' bytes read from packed file.');
    49  end .
    50  @z