Create DISTANCE.bas