AUUPCASE.m

AUUPCASE ; [ 09/24/85  12:41 PM ]

 N I,J,C,NX

 S J=$L(X),NX="" F I=1:1:J S C=$E(X,I),NX=NX_$S(C?1L:$C($A(C)-32),1:C)

 S X=NX

 Q

AUUPCASE  ; [ 09/24/85  12:41 PM ]

 +1        NEW I,J,C,NX

 +2        SET J=$LENGTH(X)

           SET NX=""

           FOR I=1:1:J

               SET C=$EXTRACT(X,I)

               SET NX=NX_$SELECT(C?1L:$CHAR($ASCII(C)-32),1:C)

 +3        SET X=NX

 +4        QUIT