  l:=xord[m]*10+xord[n]-"0"*11; {compute the length}
  c:=c*10+buffer[first+1]-"0"*11
times:print_char("*");
char_class["*"]:=13;
    begin print("*4"); v:=v-2;
    begin print("*4"); w:=w-2;
    prompt_input("*"); {input on-line into |buffer|}
  else fatal_error("*** (job aborted, no legal end found)");
if p<>info(loop_ptr) then fatal_error("*** (loop confusion)");
  fatal_error("*** (job aborted, file error in nonstop mode)");
print_nl("**");
    begin print("*4"); value(p):=value(p)-2;
primitive("*",secondary_binary,times);@/
  fatal_error("*** (cannot readstring in nonstop modes)");
