Присвоение WORD CurTemp=PSW[256]; я убрал, только забыл исправить, оставил WORD CurTemp;
прибавлять буду по 10. и записывать в в конце процесса буду 100. Завтра по результату отпишусь.
СПАСИБО.