Index: zJCL.mac.rou
===================================================================
diff -u -r734 -r948
--- zJCL.mac.rou	(.../zJCL.mac.rou)	(revision 734)
+++ zJCL.mac.rou	(.../zJCL.mac.rou)	(revision 948)
@@ -1,5 +1,13 @@
 #Include vhLib.Macro
  
+ 
+	N CH
+	For BI=0,1,2,3,4,5,6,7,8 DO  IF BI=8 FOR CH=65:1:90 Do
+ 	. If $G(CH)>64 S BI=$char(CH)
+	. W BI 
+	q
+	
+ 
 zJCL