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

Timestamp:

May 25, 2012, 5:55:11 PM (12 years ago)

Author:

Sam Habiel

Message:

Updated routines after many small fixes; added C0QKIDS as well

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