rsum ;BMI/BI %ZOSF COMMANDS. ;06/25/2013
 ;;8.0;KERNEL;****;Jun 25, 2013
en(X)
 New %,%1,%2,%3
 Set Y=0
 For %=1,3:1 Do  Quit:'$L(%1)
 . Set %1=$Text(+%^@X)
 . Set %3=$Find(%1," ") Q:'%3
 . Set %3=$Select($Extract(%1,%3)'=";":$Length(%1),$Extract(%1,%3+1)=";":$Length(%1),1:%3-2)
 . For %2=1:1:%3 Do
 .. Set Y=$A(%1,%2)*(%2+%)+Y
 Q Y