Building a brain

[Benny Pedersen]

I'm still working on the Exif app. But I think another app (a sidecar viewer),
is more important - so under construction. I built the sidecar viewer in
hyper text, and I have now invented a lot of new tricks. In other words;
I built in some kind of brain, so my new program seems more intelligent than expected.
Fact is, I could now prove it is possible to build a binary brain in normal ACSII characters as dynamic hyper text, which is even smarter than the constructor! :eek: Below is a litte snip.

Notice the boolean value is raised to the same boolean power (b^b), like this:

If(i > 1)Then Dim b:b= (Len(sMain)>3): sMain= Mid(s, i +4 *b^b, 4 +b)

It also has some text values of nested boolean values, like this:

If InStr("00110", i) Then sSide= Mid(s, (3 -4*(6 > version.value)), 3)

Now it got the brain, it should also have a face - Done.
Below is a screen shot of the hyper text in action:
http://www.fineraw.com/elementsvillage/sidecarviewer.jpg

i= InStr(1,"CR2,DNG,NEF",maincar.value,0)
If (((i mod 4) = 1) And (Len(s) = 3) And (sidecar.value = sSide)) Then
sMain= Mid("DNG,NEF,CR2", i, 3)
Else
s= "|CN": i= InStr(1,s,Left(Trim(Replace(sidecar.value,".","")),1),1) &
...SNIP

Benny,
PS: I think it is ready to download next week or maybe two ...