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

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.