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