Return to cdigit.icn CVS log

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

BSD 4.3

procedure cdigit(s)
   local s1
   s1 := ""
    s ? {
      &pos := 0
      while s1 := "," || move(-3) || s1
      if pos(1) then s1 := s1[2:0]
      else s1 := tab(1) || s1
      }
   return s1
end

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