Index: DCINIT.mac.rou
===================================================================
diff -u -r734 -r2185
--- DCINIT.mac.rou	(.../DCINIT.mac.rou)	(revision 734)
+++ DCINIT.mac.rou	(.../DCINIT.mac.rou)	(revision 2185)
@@ -203,6 +203,11 @@
  .Set L("V","B")=$$LINE^vhRtn1("B",79,"1;79")
  .Set L("A","L")=$$LINE^vhRtn1("L",79,"1;79")
  .Set L("A","H")=$$LINE^vhRtn1("L",79,"1;49;58;71;79")
+ .Set L("D","B")=$$LINE^vhRtn1("B",79,"1;70;79")
+ .Set L("D","S")=$$LINE^vhRtn1("S",79,"1;70;79")
+ .Set L("D","F")=$$LINE^vhRtn1("F",79,"1;70;79")
+ .Set L("D","L")=$$LINE^vhRtn1("L",79,"1;70;79")
+ .Set L("D","K")=$$LINE^vhRtn1("B",79,"1;15;41;70;79")
  If Document="TBX" Do
  .Set L("B","B")=$$LINE^vhRtn1("B",68,"1;28;37;43;49;55;62;68")
  .Set L("B","S")=$$LINE^vhRtn1("S",68,"1;28;37;43;49;55;62;68")