externalroutine  prompt(string (255)s)
@16_10d0 routine  prompt(string (255)s)
ownstring (255)pr
  pr = s; prompt(pr)
end 

externalroutine  disconnectfile(string (255)f,integer  start,size)
integer  is,os
  on  3 start 
    selectoutput(0)
    printstring("Trouble writing ".f.": ".event_message); newline
    selectoutput(3); closeoutput
    openinput(3,":"); selectinput(3); prompt("Alternative filename:")
    read(f); skipsymbol; prompt{?}(":"); closeinput
    selectinput(is); selectoutput(os)
  finish 
  is = instream; os = outstream
  openoutput(3,f); selectoutput(3)
  size = size-1 and  printsymbol(byte(start)) and  start = start+1 while  size>0
  closeoutput; selectoutput(os)
end