|
|
1.1 root 1: data { vrnum name ;fd ;tm
2: CJ program to read a text file
3: CJ of numbers in f format
4: fd { 0 Lopen name
5: data { I0
6: next: tm { Lrd fd
7: }(0=Rtm)/done
8: tm[(tm='-')/IRtm]{'`'
9: tm{ (tm#'+')/tm
10: }(0=Rtm)/done
11: data { data,BJ tm
12: }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.