begin
  routine read sym
  end
  integer bp
  integer sym, symtype
  byteintegerarray buff(0:255)
  
      CYCLE
        bp=bp+1 AND buff(bp)=sym
        read sym
        EXIT IF symtype >= 0;                  !pull in letters and digits
      REPEAT

!      for (;;) {
!        { BP = BP + 1; BUFF[BP] = SYM; }
!        READSYM();
!        if (SYMTYPE >= 0) break;
!      }

endofprogram