Create DISCRIM.bas