XUBAR (109) FUNCTION (.5)
Name
Value
NAME
XUBAR
MUMPS CODE
S X3="",$P(X3,"*",$S(X2>X1:X1,1:X2)/X1*X)="",X4=$X+X W "|",X3,?X4,"| ",X2 S X=""
EXPLANATION
WRITE A BAR GRAPH. XUBAD(VALUE,MAX VALUE,BAR WIDTH) will use 3 char plus value.
