Index: vhLib/String.mac.rou
===================================================================
diff -u -r2 -r321
--- vhLib/String.mac.rou	(.../String.mac.rou)	(revision 2)
+++ vhLib/String.mac.rou	(.../String.mac.rou)	(revision 321)
@@ -10,4 +10,8 @@
  .Set $E(String,P-$L(F),P-1)=T
  .Set P=P-$L(F)+$L(T)
  .Set Cnt=Cnt-1
- Quit String
\ No newline at end of file
+ Quit String
+ 
+Ellipsis(Inhoud, Lengte)
+	if $length(Inhoud)>Lengte set Inhoud = $extract(Inhoud,1,Lengte-2)_"~"
+	quit Inhoud