*** tex.ch.org	Fri Jul 11 00:32:10 2003
--- tex.ch	Fri Jul 11 01:29:43 2003
***************
*** 1529,1534 ****
--- 1529,1563 ----
  absorbing:begin print(" while scanning text"); info(p):=right_brace_token+"}";
  @z
  
+ @x [26.435] l.8625 - Adding scan procedure for stream numbers including 18
+ procedure scan_four_bit_int;
+ @y
+ procedure scan_four_bit_int_or_xviii;
+ begin scan_int;
+ if (cur_val<0) or ((cur_val>15) and not(cur_val=18)) then
+   begin print_err("Bad number");
+ @.Bad number@>
+   {The help message text is not changed because of trip test.}
+   help2("Since I expected to read a number between 0 and 15,")@/
+     ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
+   end;
+ end;
+ procedure scan_four_bit_int;
+ @z
+ 
+ @x [28.501] l.9746 - Extending ifeof test for shell escape feature
+ if_eof_code: begin scan_four_bit_int; b:=(read_open[cur_val]=closed);
+   end;
+ @y
+ if_eof_code: begin
+     scan_four_bit_int_or_xviii;
+     if (cur_val=18) then
+       b:=not shell_enabled_p
+     else
+       b:=(read_open[cur_val]=closed);
+   end;
+ @z
+ 
  @x [29.513] l.9951 - Area and extension rules for filenames.
  @ The file names we shall deal with for illustrative purposes have the
  following structure:  If the name contains `\.>' or `\.:', the file area