4.1cBSD/usr/src/lib/mip/freader.c

# define FORT
# define NOMAIN
# include "reader.c"