6805 FOR X=XMN(1) TO XMX(1) STEP DEL(1)