|
|
1.1 root 1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
2:
3: * *********************************************
4: * *********************************************
5: * *** INSERT A LINE INTO THE PROGRAM BUFFER ***
6: * ******** R. B. Drake WH 8C-005 X4163 ********
7: * ********* Sun Aug 26 11:16:53 1979 **********
8: * *********************************************
9: * *********************************************
10:
11: */
12: /* "@(#) put.c: V 1.1 12/21/80" */
13:
14: /* Called by "bed" */
15: /* in the case of line insertion or replacement, the task of writting
16: * the new line into the program txtbuf is the same and can be handled
17: * by a common routine "put" */
18: #include "bas.h"
19: put()
20: {
21: int i;
22: for(i=0;i<4;i++)
23: *curptr++=local.byte[i];
24: expr = curptr;
25: for(i=0;linbuf[i] !=0;i++)
26: *curptr++=linbuf[i];
27: *curptr++='\0';
28: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.