home *** CD-ROM | disk | FTP | other *** search
- /* Start C:Ed and jump to specific line no. */
-
- parse arg line file rest
-
- edscript = 'M ' || line
-
- if open(f,'t:gofer_ed_startup','WRITE') then do
- call writeln(f,edscript)
- call Close(f)
- address command 'ed from' file 'with t:gofer_ed_startup'
- end
- else address command 'ed from' file
-
-
-