Index: cA514.mac.rou
===================================================================
diff -u -r734 -r4146
--- cA514.mac.rou	(.../cA514.mac.rou)	(revision 734)
+++ cA514.mac.rou	(.../cA514.mac.rou)	(revision 4146)
@@ -20,7 +20,7 @@
  ;
 1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W /CUP(0,0),/ED,/CUP(FP\100,FP#100)," ",/SGR(27) S FP=202 W /CUP(FP\100,FP#100),/SGR(7)," ",K," ",/SGR(27)
 11 G YZ:'$D(QU),YZ:QU'?2U,YZ:QU="SU" S FP=403 W /CUP(FP\100,FP#100),$P($T(@("T4"_QT)),U,2),QU
-13 S I=@("^"_Q_"UI1(QU)") L @("^"_Q_"UI(I)"):2 E  S R=14 D F2 G YZ
+13 S I=@("^"_Q_"UI1(QU)") L @("^"_Q_"UI(I)"):2 E  S R=14 ;D F2 G YZ
 15 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\8\\$L(K)" D R0 G YZ:K="-"!(K=",")
 17 S OK=K D S5^cA511 G 15:'$L(K),15:'$D(@("^"_Q_"UI2(K,QU)"))
 19 S FP=603 W /CUP(FP\100,FP#100),$P($P($T(@("T1"_QT)),U,2),D)," : ",OK