>

>if lcOldTalk = "ON"
>  set talk on
>else
>  set talk off
>endif
>

>
>If the saving / restoring is done frequently, it might be worthwhile to investigate which version is faster. (Is it the second version? I suppose so, but I am not sure in this case). Otherwise, I would prefer the single command.
>
>Hilmar.
I needed to add:

store 0 to totmt01,totmt02,totmt03,totmt04,totmt05,totmt06

* We could
npaymth=month(dpaydate)
case npaymth=1
     totmt01=totmt01+npaymnt
case npaymth=2
     totmt02=totmt02+npaymnt
case npaymth=3
     totmt03=totmt03+npaymnt
case npaymth=4
     totmt04=totmt04+npaymnt
case npaymth=5
     totmt05=totmt05+npaymnt
case npaymth=6
     totmt06=totmt06+npaymnt

* or , we could
lcpaymth="totmt"+substr(dtos(dpaydate),5,2)
&lcpaymth=&lcpaymth+npaymnt