UNDERLINE (16) FUNCTION (.5)
Name
Value
NAME
UNDERLINE
MUMPS CODE
S %="",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 "F Y=1:1:$L(X) "_$S(Y:"S %=$C(8)_%",1:"W $E(X,Y),$C(8)")_"_""_""" S:Y+1 X=$S(%]"":X_%,1:%)
EXPLANATION
UNDERLINE (ARG) IF OUTPUTTING TO A PRINTER DEVICE
WORD-PROCESSING
MEANINGFUL ONLY FOR W-P