/
        program libcpy
        auto inaddr outaddr infile outfile nbytes
function main[argc,argv]
        if argc le 5
            printf "usage: libcpy infile outfile inaddr outaddr nbytes"
            ret 4
        fi

        infile := fopen[.argv[1],"read","u"]
        if infile = 0
            ret 4
        fi
        outfile := fopen[.argv[2],"Update","u"]
        if infile = 0
            ret 4
        fi

        inaddr := val[.argv[3],8]
        outaddr := val[.argv[4],8]
        nbytes := val[.argv[5],8]

        seekl[infile,0,inaddr]
        seekl[outfile,0,outaddr]
        loop for r4 := 1 to nbytes
            r3 := getc[infile]
            if r3 lt 0
                printf "error or eof on input file code=%d" r3
                exit[1]
            fi
            putc[r3,outfile]
        next r4
        exit[1]
        .end