Return to vrd CVS log

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

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

1.1     ! root        1: data { vrd name ;fd ;tm
        !             2:  fd { 260 Lopen name
        !             3:  data { 0 0R ' '
        !             4: next: tm {  Lrd fd
        !             5:  }(0=Rtm)/done
        !             6:  }((Rtm)$1URdata)/sm
        !             7:  data { data,((1YRdata),((Rtm)-1URdata))R' '
        !             8:  data {data,[I1]tm
        !             9:  }next
        !            10: sm: data { data,[I1]tm,((1URdata)-Rtm)R' '
        !            11:  }next
        !            12:  } (0#Rtm)/next
        !            13: done: fd { Lclose fd

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