|
|
Initial revision
data { vrnum name ;fd ;tm
CJ program to read a text file
CJ of numbers in f format
fd { 0 Lopen name
data { I0
next: tm { Lrd fd
}(0=Rtm)/done
tm[(tm='-')/IRtm]{'`'
tm{ (tm#'+')/tm
}(0=Rtm)/done
data { data,BJ tm
}next
done: fd { Lclose fd
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.