Date   : Fri, 05 Nov 2010 19:10:23 +0000
From   : jgh@... (J.G.Harston)
Subject: Programming: Sigsumeidsi

Farlie A wrote:
> However,  instead of doing  octittetit etc....  you could do octtetit
> and only do the it shift once for each group that needs shifting.

       DEFFNsignum(A%)
       LOCAL A$
       IF  
A%<16:=LEFT$("oct",(A%AND8)<>0)+LEFT$("tet",(A%AND4)<>0)+LEFT$("bi",(A%AND2)<>0)+LEFT$("id",(A%AND1)<>0)+"se"
       A$=FNsignum(A%DIV16):=LEFT$(A$,LENA$-2)+"it"+FNsignum(A%AND15)

Hmm. I hadn't thought larger than 255 as it was in regard to
the 24-bit colour names.

Vaguely reminiscent of an artificial language I put together when I
was 12 or so. A quick rummage in my pencil case doesn't turn it up.
There was a group of use at school that created labguages, it must
be a stage computery people go through ;)

> Hence  &4C4C     tetitoctetittetitoctetitse  4(*4096)  C(*256) 4(*16) C (*1)

Something along the lines of
(4096 component)ititit(256 component)itit(16 component)it(units)se
extending the digit seperation procedure listed above.

-- 
J.G.Harston - jgh@...