Return to display.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / 10

BSD 4.3

procedure main()
   local intext
   if not (intext := open("shaw.txt"))
   then stop("cannot open input file")
   write(linecount(intext))
end

procedure linecount(file)
   local count, line
   count := 0
   while line := read(file) do
      if find("stop",line) then break
      else count +:= 1
   display()
   return count
end

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