/ program rocpy auto inaddr outaddr infile outfile function main[argc,argv] if argc le 4 printf "usage: rocpy infile outfile @inaddr outaddr " printf " The current value for @inaddr should be 364" 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] seekl[infile,0,inaddr] r4 := getc[infile] inaddr := r4 - 1 * 512 seekl[infile,0,inaddr] printf "outaddr=%o inaddr=%o" outaddr inaddr seekl[outfile,0,outaddr] do forever r3 := getc[infile] if r3 = -10 exit[1] fi if r3 lt 0 printf "error or eof on input file code=%d" r3 exit[1] fi putc[r3,outfile] od exit[1] .end