3BSD/usr/src/cmd/mip/freader.c

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