%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