Index: /qrda/C0Q/trunk/p/C0QGEN.m
===================================================================
--- /qrda/C0Q/trunk/p/C0QGEN.m	(revision 1299)
+++ /qrda/C0Q/trunk/p/C0QGEN.m	(revision 1300)
@@ -90,5 +90,5 @@
  N ZN
  S ZN=0
- I $R(100)<70 S ZN=1
+ I $R(100)<ZPCT S ZN=1
  Q ZN
  ;