home *** CD-ROM | disk | FTP | other *** search
- #
- # Insert new function with header.
- #
- # $VER: insertfh V1.00 (18.11.1992)
- #
-
- # read in the empty header
- push pos
- down insfile $(dir)h.f
-
- # look for the NAME-field
- pop pos
- find NAME
-
- # position cursor
- down insline tab
-
- # and ask the user for a file-name. After that continue in file h_f2.xdme
- escimm (`) source $(dir)h_f2.xdme
-