まず100~117行目、137~148行目は要りません。消すことをおすすめします。 次に 55行目にSPSET 60行目にSPCHASE を入れると動くはずです。