function dofile(&p,filename,textstring)