2.9BSD - /usr/src/ucb/lisp/support/getsym.c

   1: 
   2: int buf[256];
   3: 
   4: main(argc,argv)
   5: {
   6:     register    fi,fo,l;
   7:     fi = open("../l1100",0);
   8:     fo = creat("a.out",0604);
   9:     l=read(fi,buf,512);
  10:     buf[0]= 0410;
  11:     buf[1]=buf[4];
  12:     buf[4]= buf[6];
  13:     do write(fo,buf,l); while((l=read(fi,buf,512))>0);
  14: }

Defined functions

Defined variables