implemented rtinput("PDBUF","bufname)