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