Create QUAD.bas