Changeset 196


Ignore:
Timestamp:
Oct 7, 2008, 12:32:15 PM (16 years ago)
Author:
George Lilly
Message:

MEDS DEBUGGING

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCRMEDS.m

    r195 r196  
    8080 . . S $P(ZA(ZI),U,2)=ZK ; AND STORE IT IN ARRAY
    8181 ;ZWR ZA
    82  S @MEDTVMAP@(0)=ZA(0) ; SAVE NUMBER OF MEDS
     82 ; S @MEDTVMAP@(0)=ZA(0) ; SAVE NUMBER OF MEDS
    8383 F ZI=1:1:ZA(0) D  ; FOR EACH MED
    8484 . I DEBUG W "ZI IS ",ZI,!
Note: See TracChangeset for help on using the changeset viewer.