Changeset 1501 for qrda/C0Q/trunk/p/C0QSET.m

Timestamp:

Aug 2, 2012, 8:59:21 PM (12 years ago)

Author:

Sam Habiel

Message:

Latest routines; T11 copy

File:

• qrda/C0Q/trunk/p/C0QSET.m (modified) (3 diffs)

qrda/C0Q/trunk/p/C0QSET.m

@@ -1 @@
-C0QSET  ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm ; 5/23/12 5:46pm
-        ;;1.0;C0Q;;May 21, 2012;Build 43
+C0QSET  ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm ; 7/31/12 8:19am
+        ;;1.0;C0Q;;May 21, 2012;Build 63
         ;
         ;2011 George Lilly glilly@glilly.net - Licensed under the terms of the GNU
@@ -29 +29 @@
         S B(4)=""
         D UNITY("C","A","B")
-        ZWRITE C
+        D ZWRITE^C0QUTIL("C")
         Q
         ;
@@ -38 +38 @@
         D UNITY("DELTA",PATS,MEDS)
         W !,"PATIENTS WITH NO MEDS",!
-        ZWRITE DELTA(0,*)
+        D ZWRITE^C0QUTIL("DELTA(0,*)")
         W !,"BAD POINTERS IN THE MEDS FILE",!
-        ZWRITE DELTA(2,*)
+        D ZWRITE^C0QUTIL("DELTA(2,*)")
         Q
         ;