Changeset 663 for ccr/trunk/p/C0CXPATH.m


Ignore:
Timestamp:
Jan 9, 2010, 11:28:57 PM (15 years ago)
Author:
George Lilly
Message:

improvements to C0CXPATH and C0CRIMA to make them quieter

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CXPATH.m

    r609 r663  
    625625 Q
    626626 ;
    627 PARY(GLO)             ;PRINT AN ARRAY
     627PARY(GLO,ZN)          ;PRINT AN ARRAY
     628 ; IF ZN=-1 NO LINE NUMBERS
    628629 N I
    629  F I=1:1:@GLO@(0) W I_" "_@GLO@(I),!
     630 F I=1:1:@GLO@(0) D  ;
     631 . I ZN=-1 W @GLO@(I),!
     632 . E  W I_" "_@GLO@(I),!
    630633 Q
    631634 ;
Note: See TracChangeset for help on using the changeset viewer.