XUDASH (107)    FUNCTION (.5)

Name Value
NAME XUDASH
MUMPS CODE S %=$L(X),%1=$X,$P(%2,"-",%)="-" W X,!,?%1,%2 K %1,%2 S X=""
EXPLANATION Write an argument and on the next line write DASHes under it.