Index: vhDTyp.mac.rou
===================================================================
diff -u -r762 -r948
--- vhDTyp.mac.rou	(.../vhDTyp.mac.rou)	(revision 762)
+++ vhDTyp.mac.rou	(.../vhDTyp.mac.rou)	(revision 948)
@@ -1,4 +1,4 @@
-vhDTyp ;DataTypes [ 08/20/2003  3:59 PM ]
+vhDTyp ;DataTypes [ 08/20/2003  3:59 PM ] 
  ;
 TN1 ;Jan;Feb;Maa;Apr;Mei;Jun;Jul;Aug;Sep;Okt;Nov;Dec;
 TF1 ;Jan;F�v;Mar;Avr;Mai;Jun;Jul;Ao�;Sep;Oct;Nov;D�c;
@@ -436,7 +436,7 @@
 	Quit EndDatum
  
 CA
- New P3,P4
+ New P3,P4,Found
  Set P3=$G(P2)
  For P2=1:1:$S(P1>0:P1,+P1=0:1,P1<0:-P1) Do
  .For  Set Val=Val+$S(+P1=0:0,P1>0:1,1:-1) Do  Quit:'Found