modernc.org/knuth@v0.0.4/web/testdata/ctan.org/tex-archive/systems/knuth/local/mfware-sparc/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:773: 33 @p function pk_byte : eight_bits ; 34 var temp : eight_bits ; 35 begin 36 temp := pk_file^ ; 37 get(pk_file) ; 38 incr(pk_loc) ; 39 pk_byte := temp ; 40 end ; 41 @y 42 @p function pk_byte : eight_bits ; 43 var temp : eight_bits ; 44 begin 45 read(pk_file, temp) ; 46 incr(pk_loc) ; 47 pk_byte := temp ; 48 end ; 49 @z 50 51 @x pktype:1099: 52 @d flush_buffer == begin end 53 @d get_line(#) == if eoln(input) then read_ln(input) ; 54 i := 1 ; 55 while not (eoln(input) or eof(input)) do begin 56 #[i] := input^ ; 57 incr(i) ; 58 get(input) ; 59 end ; 60 #[i] := ' ' 61 @y 62 @d flush_buffer == begin end 63 @d get_line(#) == if eoln(input) then read_ln(input) ; 64 i := 1 ; 65 while not (eoln(input) or eof(input)) do begin 66 read(input, #[i]); 67 incr(i) ; 68 end ; 69 #[i] := ' ' 70 @z 71 72 @x pktype:1109: 73 @ @p procedure dialog ; 74 var i : integer ; {index variable} 75 buffer : packed array [1..name_length] of char; {input buffer} 76 begin 77 @y 78 @ @p procedure dialog ; 79 var i : integer ; {index variable} 80 begin 81 @z 82 83 84 @x pktype:1146: 85 t_print_ln(pk_loc:1,' bytes read from packed file.'); 86 final_end : 87 end . 88 @y 89 t_print_ln(pk_loc:1,' bytes read from packed file.'); 90 end . 91 @z