elseif (iomode.eq.2) then fstat = 'UNKNOWN' else goto 9009 ! error endif call bugenv0(fname,'BUFTEX_CALC_PRG'//char(0)) if (fname(:1).eq.char(0).or.fname(:1).eq.' ') then fname = 'buftex_calc.prg' endif ioerr = -1 call e4open_init() call e4open_setstatus(fs...