1030行目の MYCHR=MYCHR-1 を、 MYCHR=MYCHR+1 にしてみてください。