GK> Does anybody have a macro or something like that does the trick?
DH> Best I can offer:
  >
  > _ _ _ O / _ _ C_U_T_ H_E_R_E_ _ _ _
  >       O \
 The general idea.  Now we just modify it a bit.
proc jInsertFile()
     string fn[65] = ""
     if Ask('File to insert:',fn,_edit_history_) and Length(fn)
     Addline() Addline(Format('-':70:'-')) BegLine()
     InsertText('-'+SplitPath(fn,_name_|_ext_)+'.begin',_overwrite_)
     BegLine() Addline() Addline() InsertFile(fn)
     GoToBlockEnd() BegLine() Addline()
     InsertText(Format('-':70:'-')) BegLine()
     InsertText('-'+SplitPath(fn,_name_|_ext_)+'.end',_overwrite_)
     BegLine() Addline()
     endif
end
 jInsertFile()
 Perhaps not as efficient as it might be, but it works.  The only
 part I *can't* get to work right is *showing* the name of the last
 file that was inserted/edited, like the regular InsertFile()
 command shows.  I know how it works with made-up history names:
 if Ask('DOS command capture:',cmd,GetFreeHistory('CAP:cmd'))
 I'm missing exactly how to get the same effect with standard names.
... Experience teaches slowly, and at the cost of mistakes.
--- SR 2.00 #1019  -!-  J.A. Froude
---------------