Return to asave CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib / fn

Annotation of 43BSD/contrib/apl/lib/fn/asave, revision 1.1

1.1     ! root        1: asave asave0;asave1;asave2;asave3;asave4;asave5
        !             2:   asave4 { 420 Lcreat asave0
        !             3:   asave5 { 0
        !             4:   asave1 { Lnl 2 3
        !             5: asave8:  asave0 { asave1[asave5+?1;]
        !             6:   }(^/'asave'=5Yasave0)/asave9
        !             7:   asave0 { (asave0 # ' ')/asave0
        !             8:   asave2 { asave4 Lwrite R,asave0
        !             9:   asave2 { asave4 Lwrite asave0
        !            10:   }(2=Lnc asave0)/asave7
        !            11:   asave0 { Lcr asave0
        !            12:   asave3 { 'f'
        !            13:   }asave6
        !            14: asave7:  asave0 { BJ asave0
        !            15:   asave3 { 'nc'[(?1) + ' 'E(,0)\0Rasave0]
        !            16: asave6:  asave2 { asave4 Lwrite asave3
        !            17:   asave2 { asave4 Lwrite (RRasave0),Rasave0
        !            18:   asave2 { asave4 Lwrite asave0
        !            19: asave9: }((1YRasave1) > asave5{asave5+1)/asave8
        !            20:   asave2 { Lclose asave4

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.