|
|
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.