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.