WIDTH (36) FUNCTION (.5)
Name
Value
NAME
WIDTH
MUMPS CODE
S:'$D(DIWF) DIWF="" S %Y=1,%=$F(DIWF,"C") X:% "F %Y=%:1 Q:$E(DIWF,%Y)'?1N" S DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_"C"_(X\1),X=""
EXPLANATION
DISPLAY FOLLOWING TEXT (ARG) COLUMNS ACROSS
WORD-PROCESSING
MEANINGFUL ONLY FOR W-P