EXTRACT
#define EXTRACT 1 /* extract the files in an archive */
#define EXTRACT 0x0001 /* entry is to be replaced from the tape */
#define EXTRACT(a,i) ((a >> (5L*i)) & 0x1f)