Handling Associative Logics

[windfire]

'Handling Associative Logics

'My programing isn't the best ;, But the intent here is to demonstrate the potentual of

'associating different associative_logics.

'By this ;, I mean Associating   { a=x*y^2 }   associated with { e=m*c^2 }

'or  { Distance= speed*time }  associated with { How_far_is_it = progress*frequence }

' where as Unk$="(a,e)  (x,m) (y,c) "^2" >>Unk$=" e m c ^2"

' where as Unk$="(Distance,How_far_is_it)  (speed,progress) (time,frequence) ">>Unk$="How_far_is_it  progress frequence"

' Note that the function doesn't change ;, But the controling logic_effects change the output logic_effet and the intire meanings.

'I see this as {one}  important concept for true Artificial Intelligence.

'Being able to recognize and monipulate logics in an efficient maner.{ to learn!! }

'I lack the skills to achieve application performance of this and that is what I'm asking help with.

'This is only one of the things I need help with in this maner ;, But I want to do one thing at a time.

'Note >> When perffected it will be part of a larger program.

'I've been in a personal research sense 1980 and and achieved my intent.To exsplain it , would be like exsplaining the details of 'the theory_of_relitivity in 15 minutes.

'So let's say that I believe this will lead to a whole new field of research,never exsplored.

'This program is only a small taste of what is to follow ,IF I AM ALLOWED TO On this forum???

'So I'm also asking if it is appropreate on here?

Pi=atn(1)*4:Pi2=(Pi*2):Mdeg=(180/Pi):Mrdn=(Pi/180):Ptrn$=""

global Pi,Pi2,Mdeg,Mrdn

'?????????????????????????????????????????????????????????????????????????????????????????????????????????????

SymbolicRule$="-1 0 1"

RuleCharactureLg$="neg-1 zero one"

RuleLgc$="nutral Off On"

AssociatedLgc$="Standby Enabled Activated"

'????????????????????????????????????????????????????????????????????????????????????????????????????????????

Exspect$=Rule$

gosub [Enter]

print " RuleLgc$ ";RuleLgc$

print " Rule$ ";SymbolicRule$

print " AssociatedLogics ";AssociatedLgc$

print

notice "Perspective=";"Switch(";RuleLgc$;")" + chr$(13) + "associated/w ";"Perspective=";"Action(";AssociatedLgc$;")"

print "               @@@@@@@@@@@@@@@@@@ Association Logics @@@@@@@@@@@@@@@@@@"

print " AssociationEffect$ ";Prsptv.KnownC$

print "'"

print " RuleCharactureLg$             >> ";RuleCharactureLg$

print " Logic was                     >> ";RuleLgc$

print " ASSOCIATED_ Logic Association >> ";word$(Prsptv.KnownC$,2);" ";word$(Prsptv.KnownC$,4);" ";word$(Prsptv.KnownC$,6)

timer 2000 ,[quit]

wait

[quit]

timer 0

' run "C:\Program Files (x86)\Just BASIC v2.0\jbasic.exe C:\AIBrain\zAihome\Prgms\AssociationLogicsdemo2.bas"

end

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[Enter]

 StreamA$=AssociatedLgc$

 StreamB$=RuleLgc$

 gosub [Loader]

 gosub [AssociationCheck]

  Stream$=StreamB$

 gosub [Loader]

  gosub [AssociationCheck]

 gosub [Loader]

'  Call Prsptv.KnownB$ knwn1$,knwn2$,knwn3$,knwn4$,knwn5$,Prsptv.KnownB$

 return

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

[AssociationCheck]

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'Stream$="place1$ place2$ place3$ * *"  Compairator XXX here is nomatch to B or A<> association_B

Stream$=StreamA$

gosub [Loader]

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Call Prsptv.KnownA$ knwn1$,knwn2$,knwn3$,knwn4$,knwn5$,Prsptv.KnownA$

Stream$=StreamB$

knwn1$=word$(Stream$,1);" ";word$(Prsptv.KnownA$,1)

knwn2$=word$(Stream$,2);" ";word$(Prsptv.KnownA$,2)

knwn3$=word$(Stream$,3);" ";word$(Prsptv.KnownA$,3)

knwn4$=word$(Stream$,4);" ";word$(Prsptv.KnownA$,4)

knwn5$=word$(Stream$,5);" ";word$(Prsptv.KnownA$,5)

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Call Prsptv.KnownB$ knwn1$,knwn2$,knwn3$,knwn4$,knwn5$,Prsptv.KnownB$

Prsptv.KnownC$=trim$(Prsptv.KnownB$)

Call Prsptv.KnownB$ knwn1$,knwn2$,knwn3$,knwn4$,knwn5$,Prsptv.KnownB$

return

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'~~~~~~~~~~~~~~~~~~~~

 'Call Prsptv.KnownB$ knwn1$,knwn2$,knwn3$,knwn4$,knwn5$,Prsptv.KnownB$

Sub Prsptv.KnownB$ byref knwn1$,byref knwn2$,byref knwn3$,byref knwn4$,byref knwn5$,byref Prsptv.KnownB$

   call Prsptv.Unknown$ knwn1$,knwn2$,knwn3$,knwn4$,knwn5$,Prsptv.Unknown$

   Prsptv.KnownB$=Prsptv.Unknown$

end sub

'~~~~~~~~~~~~~~~~~~~~

 'Call Prsptv.KnownA$ knwn1$,knwn2$,knwn3$,knwn4$,knwn5$,Prsptv.KnownA$

Sub Prsptv.KnownA$ byref knwn1$,byref knwn2$,byref knwn3$,byref knwn4$,byref knwn5$,byref Prsptv.KnownA$

   call Prsptv.Unknown$ knwn1$,knwn2$,knwn3$,knwn4$,knwn5$,Prsptv.Unknown$

   Prsptv.KnownA$=Prsptv.Unknown$

end sub

'~~~~~~~~~~~~~~~~~~~~

 'Call Prsptv.Unknown$ knwn1$,knwn2$,knwn3$,knwn4$,knwn5$,Prsptv.Unknown$

Sub Prsptv.Unknown$ byref Lunk1$,byref Lunk2$,byref Lunk3$,byref Lunk4$,byref Lunk5$,byref Prsptv.Unknown$

  Prsptv.Unknown$= " ";Lunk1$;" ";Lunk2$;" ";Lunk3$;" ";Lunk4$;" ";Lunk5$;" ";Prsptv.Unknown$

end sub

[Loader]

knwn1$=word$(Stream$,1)

knwn2$=word$(Stream$,2)

knwn3$=word$(Stream$,3)

knwn4$=word$(Stream$,4)

knwn5$=word$(Stream$,5)

return





[tsh73]

Have a look
Basically it converts formula "a=x*y^2" to "v1=v2*v3^2"
and compares converted results.
Formula a=x*y^2  matches with
   e=m*c^2
Formula e=m*c^2 matches with
   a=x*y^2
Formula a=x*a^2  matches with
   * no match *
Formula Distance= speed*time matches with
   How_far_is_it = progress*frequence
Formula How_far_is_it = progress*frequence matches with
   Distance= speed*time



'By this ;, I mean Associating   { a=x*y^2 }   associated with { e=m*c^2 }
'or  { Distance= speed*time }  associated with { How_far_is_it = progress*frequence }

'idea:
'read formula
'REPLAce all vars for a,b,c .. (or v1,v2, v3..)
'compare result formulas

N=5
dim frml$(N)

DATA "a=x*y^2 "
DATA "e=m*c^2"
DATA "a=x*a^2 "
DATA "Distance= speed*time"
DATA "How_far_is_it = progress*frequence"

dim varList$(100)
global varNum

for i = 1 to N
   read frml$
   frml$(i)= frml$
next

for i = 1 to N
   print "Formula ";
   print  tab(3);    frml$(i);
   print     " matches with"
   frmlI$=rewRiteFormula$(frml$(i))
   'print "<";frmlI$;">"
   found = 0
   for j = 1 to N
       if i = j then [contJ]
       frmlJ$=rewRiteFormula$(frml$(j))
       if  frmlJ$=  frmlI$ then print tab(5);frml$(j): found = 1
[contJ]
   next
   if not(found) then print tab(5);"* no match *"
next


end

function rewRiteFormula$(frml$)
ops$="+-*/^="
'may be add digits, brackets and function calls
varNum=0
i = 0
opN=0
op$=""
result$=""
while i < len(frml$)
    i=i+1
    c$=mid$(frml$, i, 1)
    select case
    case c$=" "
       'skip
    case instr(ops$, c$)>0    'is operator
       gosub [processOperand]
    case else
       op$=op$+c$
   end select
wend
'end case
c$=""
if op$<>"" then gosub [processOperand]

'print "result$=>";result$;"<"
rewRiteFormula$ = result$
exit function

[processOperand]
       'process operand
       opN=opN+1
       'is op$ a number?
       'lazy chk
       isNumber = (op$=str$(val(op$)))
       'print opN; tab(4); op$; iif$(isNumber, " (number)", " (variable)")
       if not( isNumber) then  'add to varlist
           op$=addToVarlist$(op$)
       end if

       result$=result$+op$+c$
       'print tab(4); c$
       op$=""
return
end function

function addToVarlist$(op$)
   'is op$ is new, returns something like v1
   'else find it in list and return that number
   numFound = 0
   for i = 1 to varNum
       if varList$(i)=op$ then numFound = i: exit for
   next
   if not(numFound ) then
       varNum=varNum+1
       numFound=varNum
       varList$(numFound)=op$
   end if
   addToVarlist$="v"; numFound

end function

'------------------------------------------------
function iif(test, valYes, valNo)
   iif =  valNo
   if test then iif =  valYes
end function

function iif$(test, valYes$, valNo$)
   iif$ =  valNo$
   if test then iif$ =  valYes$
end function


[tsh73]

Ok better version
it does allow floating point numbers and numbers with exponents (I had a function checkNumber(input$))
it allows for brackets ()
It does not differ variable from function call, so sin(x) comes as v1(v2)

Results
Formula
   a=x*y^2
 rewrites to: v1=v2*v3^2
 matches with
   e=m*c^2
Formula
   e=m*c^2
 rewrites to: v1=v2*v3^2
 matches with
   a=x*y^2
Formula
   a=x*a^2
 rewrites to: v1=v2*v1^2
 matches with
   * no match *
Formula
   Distance= speed*time
 rewrites to: v1=v2*v3
 matches with
   time = speed*Distance
   How_far_is_it = progress*frequence
Formula
   time = speed*Distance
 rewrites to: v1=v2*v3
 matches with
   Distance= speed*time
   How_far_is_it = progress*frequence
Formula
   How_far_is_it = progress*frequence
 rewrites to: v1=v2*v3
 matches with
   Distance= speed*time
   time = speed*Distance
Formula
   x*a+x*b
 rewrites to: v1*v2+v1*v3
 matches with
   * no match *
Formula
   x*(a+b)
 rewrites to: v1*(v2+v3)
 matches with
   * no match *
Formula
   sin(pi*3/4*x)^1.5
 rewrites to: v1(v2*3/4*v3)^1.5
 matches with
   * no match *
Press Enter to end

code
'checking if formulas are the same
'up to variable renaming
'tsh73 May 2022

'windfire May 30 2022
'By this ;, I mean Associating   { a=x*y^2 }   associated with { e=m*c^2 }
'or  { Distance= speed*time }  associated with { How_far_is_it = progress*frequence }

'idea:
'read formula
'replace all vars for a,b,c .. (or v1,v2, v3..)
'compare result formulas

global True, False
False = 0
True = 1

N=9
dim frml$(N)

DATA "a=x*y^2 "
DATA "e=m*c^2"
DATA "a=x*a^2 "
DATA "Distance= speed*time"
DATA "time = speed*Distance" 'this is wrong but it has no idea
DATA "How_far_is_it = progress*frequence"
DATA "x*a+x*b" 'these two is mathematically the same
DATA "x*(a+b)" 'but program has no idea
DATA "sin(pi*3/4*x)^1.5" 'this shows that I better do domething about functions



dim varList$(100)
global varNum

for i = 1 to N
   read frml$
   frml$(i)= frml$
next

for i = 1 to N
   print "Formula "
   print tab(5); frml$(i)
   frmlI$=rewriteFormula$(frml$(i))
print tab(3); "rewrites to: ";frmlI$
   print tab(3); "matches with"
   'print "<";frmlI$;">"
   found = 0
   for j = 1 to N
       if i = j then [contJ]
       frmlJ$=rewriteFormula$(frml$(j))
       if  frmlJ$=  frmlI$ then print tab(5);frml$(j): found = 1
[contJ]
   next
   if not(found) then print tab(5);"* no match *"
next

input "Press Enter to end"; dummy$
end

function rewriteFormula$(frml$)
ops$="+-*/^=()" 'there operand ends
'may treat function calls differently from variables
varNum=0
i = 0
opN=0
op$=""
result$=""

while i < len(frml$)
i=i+1
c$=mid$(frml$, i, 1)
select case
case c$=" " 'spaces are ignored
'skip
case instr(ops$, c$)>0    'is operator
gosub [processOperand]
case else
op$=op$+c$
end select
wend
'end case
c$=""
if op$<>"" then gosub [processOperand]

'print "result$=>";result$;"<"
rewriteFormula$ = result$
exit function

[processOperand]
'process operand
'case of operator and bracket (or any other two operators in a row)
if op$="" then [noOp]'nothing to do yet, but have to prcess c$
opN=opN+1
'is op$ a number?
''lazy check
'isNumber = (op$=str$(val(op$)))
'extensive check
isNumber = checkNumber(op$)
'print opN; tab(4); op$; iif$(isNumber, " (number)", " (variable)")
if not( isNumber) then  'add to varlist
op$=addToVarlist$(op$)
end if

[noOp]
result$=result$+op$+c$
'print tab(4); c$
op$=""
return
end function

function addToVarlist$(op$)
   'is op$ is new, returns something like v1
   'else find it in list and return that number
   numFound = 0
   for i = 1 to varNum
       if varList$(i)=op$ then numFound = i: exit for
   next
   if not(numFound ) then
       varNum=varNum+1
       numFound=varNum
       varList$(numFound)=op$
   end if
   addToVarlist$="v"; numFound

end function

'------------------------------------------------
function iif(test, valYes, valNo)
   iif =  valNo
   if test then iif =  valYes
end function

function iif$(test, valYes$, valNo$)
   iif$ =  valNo$
   if test then iif$ =  valYes$
end function

'================================================
'credits for the idea goes to Jack W. Crenshaw
'in his tutorials "LET'S BUILD A COMPILER!"
'he used something like that for parsing expressions
function checkNumber(input$)
'contest 2008 entry
'checks input$ for being valid number. Returns True if yes, False otherwise.
   res = False
   'check sign
   ns = eatUp(input$, "+-")
   if ns>1 then [over] 'with False
   'now, digits
   n1 = eatUp(input$, "0123456789")
   'could be decimal point
   nd = eatUp(input$, ".")
   if nd>1 then [over] 'with False
   'then again, digits
   n2 = eatUp(input$, "0123456789")
   if n1+n2<1 then [over] 'with False
   'now, exponent
   ne = eatUp(input$, "e")
   if ne<>0 then   'we have exponent
       if ne>1 then [over] 'with False
       'check sign
       ns = eatUp(input$, "+-")
       if ns>1 then [over] 'with False
       'now, digits
       n1 = eatUp(input$, "0123456789")
       if n1<1 then [over] 'with False
   end if

   if input$="" then res = True
   'else we have leftovers - over with False
[over]
   'show leftovers - uncomment if you are curious
   'print ">>";input$;"<",
   checkNumber = res
end function

function eatUp(byRef input$, chars2eat$)
'trims all leading chars from  input$ that match chars in chars2eat$
'return count of trimmed characters
   count = 0
   while len(input$)>0
       if instr( chars2eat$, left$( input$,1))<>0 then
           input$ = mid$(input$,2)
           count = count +1
       else
           exit while
       end if
   wend
   eatUp = count
end function


[windfire]

tsh73 thanks for the reply.

I guess my intent isn't clear.

The program is correct in it's present form.

The problem with application is in dimentioning the Sub arrays.

I used formulas because I thought the association would be clearer.

But what if I use::

Stream$="All the kings men fought for money and greed not honor ."

and

rule$="preposition preposition pronouns preposition preposition noun conjunction noun conjunction preposition noun"

Out$="All of his were about money and greed and some honor .

'

the dim has to follow the rule.

You can see the logic change of each word according to the rule word.

Note the logic change.

before we knew it was the kings men / then we don't know who's men it is.

before we knew they fought / then it change to why.

before we knew they had no honer / then they had some honer .

'

It is about associating logics with rules.

The over all function of the program is to return the correct logic string of the association according to the rules.

I hope this clearifys my intent.

working with Logic is a difficult subject to exsplain.

Just know that later Key numbers ,not words, will be use for logics.

And it is part of the learning stage of AI.

[windfire]

For now! this is just a little back ground information.
So you can get an idea of where it fits in to.
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'                                         Top Of Page

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'Associative Calling

'The best way to exsplain this is to associate it with a Phone call.

'I may not know where he is ;, But I have his phone_number so I can just call him.

'The association is key{ phone_number } and the Lable { [ phone ] }   associate  0.392734e-5  [0.0384265e7]

'Now assume I need an extention number as well.

' Ok logic$= "PhoneNumber ExtentionNumber"  >> new association ==

'newNumber/extention and new PhoneNumber  associate 0.734e-8  [0.035e4]

'Now on the phone an auto text messaging pops up.

'This is the simplists of exsplination.

'But what if the PhoneNumber is also a coded Number ,based on the logics behind the phone call???

'{Call him};{about his job} // extention {What about his progress with the boss} >>Number//// [Phone]

'THIS IS where it gets complexe.

'To simply I associate the thought::

' WareHouseof 400,CartPulledof 150,LeftinWarhouse250{irrelivent} But!!

' associated with ::

' Tag= Total minus gain  is relivent to the phoneNumber key

'Because if I know the total{extention} and the loss{Tag ie phonenumber} ;, I can call for whats on the cart{gain ie phone}

'also the which warehouse or whats in the warehouse

'ie  cartphone;extention{which warehouse};{whats in the warehouse}

'This program is to demonstreights this potentual.

Pi=atn(1)*4:Pi2=(Pi*2):Mdeg=(180/Pi):Mrdn=(Pi/180)

global Pi,Pi2,Mdeg,Mrdn,UnkStream$

' Persptive.Effect$=str$(0.73377)

' Associate.Effect$=str$(0.77777)

' Associate.Effect$=str$(0.33373);" ";str$(0.2436343)

' Associate.Effect$=str$(0.33373);" ";str$(0.77373) ;" ";str$(0.2436343)

' Associate.Effect$=str$(0.3373);" ";str$(0.77373) ;" ";str$(0.2436343)

print "     Fragment Key$::"

print "  Stream Key$::"

print "Page{Frame} Key$::"

'????????????

 Strm$(1)="They was here ."

 Strm$(2)="She was with him."

 Strm$(3)="while with him She sang ."

 'Stream$="Donnie was here for a while with Judy ."

 for sj=1 to 3

 UnkStream$=Strm$(sj)

 nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

 Pgg=Pgg+val(Tag$)

next sj

if Pgg>1 then Pgg=(1/Pgg)

Tag$=str$(Pgg)

Persptive.Effect$=str$(0.243973e-2)

call PersptvAssociate$ Persptive.Effect$,Tag$,Associate$

 print "  Note run Page.txt---.bas---.app--ect"

print "Page ";Associate$

'????????????

' nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

end

 'call CALLS Stream$,UnkStream$,Tag$,Associate$

Sub CALLS byref Stream$,byref UnkStream$,byref Tag$,byref Associate$

if Stream$<>"" then

' nop$=basTag$(Stream$,Tag$,Associate$)

call Tag$ Associate.Effect$,Tag$,Associate$

end if

if (Stream$<>"" and Persptive.Effect$<>"") then

' nop$=basTag$(Stream$,Tag$,Associate$)

call PersptvAssociate$ Persptive.Effect$,Tag$,Associate$

end if

if (UnkStream$<>"" and Associate.Effect$="") and Persptive.Effect$="" then

' nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

nop$=Associate$(Associate.Effect$,Tag$,Associate$)

end if

if (UnkStream$<>"" and Associate.Effect$<>"") and Persptive.Effect$="" then

' nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

call Association$ Associate.Effect$,Tag$,Associate$

end if

if (UnkStream$<>"" and Associate.Effect$="") and Persptive.Effect$<>"" then

' nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

call Association$ Associate.Effect$,Tag$,Associate$

call PersptvAssociate$ Persptive.Effect$,Tag$,Associate$

end if

if (UnkStream$<>"" and Associate.Effect$<>"") and Persptive.Effect$="" then

' nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

call Association$ Associate.Effect$,Tag$,Associate$

end if

end sub

'??????????????????????????????????????????????????????????????????????????????????????

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

   'nop$=basTag$(Observation$,Tag$,Associate$)

Function basTag$(byref Observation$,byref Tag$,byref Associate$)

Observation$=trim$(Observation$):Observation$=Observation$;" "

if Observation$="" then [FucExit]

' print "basTag$ ";Observation$

Pi=atn(1)*4:Pi2=(Pi*2):Mdeg=(180/Pi):Mrdn=(Pi/180)

Lmt = Len(Observation$)

T=Pi2

Tag=0:Fragment$=""

[StrmLoop]

 bj=bj+1

 if bj>Lmt then [StrmExit]

 D=asc(mid$(Observation$,bj,1))

 if D>256 then D=32

 R=1/((1/D)+(1/T))

 A=(atn(R/D)*Mdeg)

 Puls=(1/(A*360))

 Sp=(1/(((R+T)/Pi2)/Puls))

 T=(Sp*tan(A*Mrdn))

 'print R,A,Puls,Sp,T

 ele=ele+((1/A)+Sp+Puls)

 if bj<Lmt then [StrmLoop]

[StrmExit]

 Tag=((ele*0.0000333)^2)                                'strengthen_effect

 if Tag>1 then Tag=(1/Tag)                  'keep with_in Gate_logic

 Tag$=str$(Tag)

 [FucExit]

 end function

'??????????????????????????????????????????????????????????????????????????????????????

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

' Note ChactureKey$ /  FragmentKey$ /StreamKey$ / FrameKey$<ie>{pageKey$}

   'nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

Function CmpssTag$(byref UnkStream$,byref Tag$,byref Associate$)

if UnkStream$="" then [FucExit]

UnkStream$=trim$(UnkStream$):UnkStream$=UnkStream$;" "

' print "CmpssTag$ ";UnkStream$

Pi=atn(1)*4:Pi2=(Pi*2):Mdeg=(180/Pi):Mrdn=(Pi/180)

Lmt = Len(UnkStream$)

T=Pi2

Tag=0:Fragment$=""

[basStrmLoop]

 bj=bj+1

 if bj>Lmt then [basStrmExit]

 D=asc(mid$(UnkStream$,bj,1))

 if D>256 then D=32

 if D=32 then call FRAGMENT$ Fragment$,frgtag,Associate$

 R=1/((1/D)+(1/T))

 A=(atn(R/D)*Mdeg)

 Puls=(1/(A*360))

 Sp=(1/(((R+T)/Pi2)/Puls))

 T=(Sp*tan(A*Mrdn))

 'print R,A,Puls,Sp,T

 ele=ele+((1/A)+Sp+Puls)

 frgtag=frgtag+((1/A)+Sp+Puls)

 Fragment$=Fragment$;chr$(D)

 if bj<Lmt then [basStrmLoop]

[basStrmExit]

 Tag=((ele*0.0000333)^2)                                'strengthen_effect

 if Tag>1 then Tag=(1/Tag)                  'keep with_in Gate_logic

 Tag$=str$(Tag)

 call STREAM$ Stream$,UnkStream$,Tag$,Associate$

 AiAssociation$=AiAssociation$(Persptive.Effect$,Associate.Effect$,Tag$,Associate$)

'  print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Perspectivs_Associate$ ";Associate$

 print tab(3);Associate$;"   ";UnkStream$

 [FucExit]

 end function

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'call FRAGMENT$ Fragment$,frgtag,Associate$

 Sub FRAGMENT$ byref Fragment$,byref frgtag,byref Associate$

 if frgtag>1 then frgtag=(1/frgtag)

 Tag$=str$(frgtag)

 Associate.Effect$=""

 call Tag$ Associate.Effect$,Tag$,Associate$

 print tab(16); Associate$;"   ";Fragment$

 Fragment$="":frgtag=0

 end sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'call STREAM$ Stream$,UnkStream$,Tag$,Associate$

 Sub STREAM$ byref Stream$,byref UnkStream$,byref Tag$,byref Associate$

 'call CALLS UnkStream$,UnkStream$,Tag$,Associate$ NOTE: CALLS Not corrected yet!!

  nop$=Runtag$(Tag$,Associate.Effect$,Association$)

  Associate$=Association$

 end sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'call Tag$ Associate.Effect$,Tag$,Associate$

Sub Tag$ byref Associate.Effect$,byref Tag$,byref Associate$

if Associate.Effect$<>"" or Persptive.Effect$<>"" then [SbExit]

nop$=Runtag$(Tag$,Associate.Effect$,Association$)

Associate$=Association$:Associate.Effect$=word$(Associate$,1)

[SbExit]

end sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'call Association$ Associate.Effect$,Tag$,Associate$

Sub Association$ byref Associate.Effect$,byref Tag$,byref Associate$

if Associate.Effect$="" then [SbExit]

AssStream$=Tag$;" ";Associate.Effect$

nop$=basTag$(AssStream$,Tag$,Associate$)

nop$=Runtag$(Tag$,Associate.Effect$,Association$)

Associate$=Association$:Associate.Effect$=word$(Associate$,1)

[SbExit]

end sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'Association$=Associate$(Associate.Effect$,Tag$,Associate$)

Function Associate$(byref Associate.Effect$,byref Tag$,byref Associate$)

if Associate.Effect$<>"" then [SbExit]

nop$=Runtag$(Tag$,Associate.Effect$,Association$)

Associate$=Association$:Associate.Effect$=word$(Associate$,1)

[SbExit]

end function

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'call PersptvAssociate$ Persptive.Effect$,Tag$,Associate$

Sub PersptvAssociate$ byref Persptive.Effect$,byref Tag$,byref Associate$

if Persptive.Effect$="" then [SbExit]

AssStream$=Persptive.Effect$;" ";Tag$

nop$=basTag$(AssStream$,Tag$,Associate$)

nop$=Runtag$(Tag$,Associate.Effect$,Association$)

Associate$=Association$:Associate.Effect$=word$(Associate$,1)

[SbExit]

end sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'nop$=Runtag$(Tag$,Associate.Effect$,Associate$)

Function Runtag$(byref Tag$,byref Associate.Effect$,byref Associate$)

transfer$="":AssociateOf$=""

transfer$=str$(transfer(Tag$,transfer))

if Associate.Effect$<>"" then AssociateOf$=Associate.Effect$

if transfer$<>"" and AssociateOf$="" then AssociateOf$=transfer$

if AssociateOf$="" then [RntgExti]

Associate$=Association$(AssociateOf$,transfer$,Associate$)

[RntgExti]

end function

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 'transfer$=str$(transfer(Tag$,transfer))

Function transfer(byref Tag$,byref transfer)

if Tag$="" then [FncExit]

Tag=val(Tag$)

if Tag=0 then [SkipA]

transfer=((Pi2*-1)*(((Tag*-1)+(1.0/(1.0+exp(Tag*-1))))-.5))

[SkipA]

if transfer>1 then transfer=(1/transfer)

[FncExit]

end function

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'nop$=Association$(AssociateOf$,transfer$,Association$)

Function Association$(byref AssociateOf$,byref transfer$,byref Association$)

Commons=0:Assochtbas$="":Assochtfalw$="":Crry$="":Associate$=""

Assochtbas$=AssociateOf$:Assochtfalw$=transfer$

Commons=(val(Assochtbas$)*2)+(1/((1/val(Assochtfalw$)*-1)))

Associate$=str$(1/(val(Assochtbas$)+Commons))

Assochtbas$=str$(abs(1/(val(Assochtbas$)+val(Associate$))))

parseMe$=""

if abs(val(Associate$))>1 then Associate$=str$(1/val(Associate$))

parseMe$=Associate$:Crry$=""

gosub [Perse]

if  val(Crry$)>1 then  Crry$=str$(1/val(Crry$))

Associate$=Crry$

if abs(val(Assochtbas$))>1 then Assochtbas$=str$(1/val(Assochtbas$))

parseMe$=Associate$:Crry$=""

gosub [Perse]

Associate$=Crry$

Association$=Assochtbas$;" ";Associate$

LgcKey$=word$(Association$,1)

LgcLabel$="[";word$(Association$,2);"]"

Association$=LgcKey$;" ";LgcLabel$

LgcKey$="":LgcLabel$=""

goto [AssoExit]

[Perse]

token$ = "*"

idx = 0

while token$<>""

idx = idx + 1

Ct$=mid$(parseMe$,idx,1)

if word$(Ct$, 1, chr$(45))="-" then [Skip]

token$ = word$(Ct$, 1, "-")

if token$ <> "" then Crry$=Crry$;token$

[Skip]

wend

return

[AssoExit]

end function

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'AiAssociation$=Associate$(Persptive.Effect$,Associate.Effect$,Tag$,Associate$)

Function AiAssociation$(byref Persptive.Effect$,byref Associate.Effect$,byref Tag$,byref Associate$)

if Associate.Effect$<>"" then

AssStream$=Tag$;" ";Associate.Effect$

nop$=basTag$(AssStream$,Tag$,Associate$)

Tag$=word$(Associate$,1)

nop$=Runtag$(Tag$,Associate.Effect$,Association$)

Associate$=Association$:Associate.Effect$=word$(Associate$,1)

end if

if Persptive.Effect$<>"" then

Tag$=Associate.Effect$

AssStream$=Tag$;" ";Persptive.Effect$

nop$=basTag$(AssStream$,Tag$,Associate$)

nop$=Runtag$(Tag$,Associate.Effect$,Association$)

Associate$=Association$:Associate.Effect$=word$(Associate$,1)

nop$=Runtag$(Tag$,Associate.Effect$,Association$)

Associate$=Association$:Associate.Effect$=word$(Associate$,1)

end if

[SbExit]

end function



[windfire]

Another look at the background with temp or permanent memory
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'                                         Top Of Page

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Pi=atn(1)*4:Pi2=(Pi*2):Mdeg=(180/Pi):Mrdn=(Pi/180)

global Pi,Pi2,Mdeg,Mrdn,UnkStream$

' Persptive.Effect$=str$(0.73377)

' Associate.Effect$=str$(0.77777)

' Associate.Effect$=str$(0.33373);" ";str$(0.2436343)

' Associate.Effect$=str$(0.33373);" ";str$(0.77373) ;" ";str$(0.2436343)

' Associate.Effect$=str$(0.3373);" ";str$(0.77373) ;" ";str$(0.2436343)

'????????????

 Strm$(1)="Donnie was here for a while with Judy ."

 Strm$(2)="Donnie is here with Judy ."

 Strm$(3)="Judy was here for a while ."

 Strm$(4)=Strm$(1);" ";Strm$(2);" ";Strm$(3)

 'Stream$="Donnie was here for a while with Judy ."

 for sj=1 to 3

 UnkStream$=Strm$(sj)

 nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

 Pgg=Pgg+val(Tag$)

 if sj=1 then gosub [phone]

next sj

if Pgg>1 then Pgg=(1/Pgg)

Tag$=str$(Pgg)

Persptive.Effect$=str$(0.243973e-2)

call PersptvAssociate$ Persptive.Effect$,Tag$,Associate$

print "Page ";Associate$

UnkStream$=Strm$(4)

nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

print "FinalPgg ";Associate$

gosub [phone]

'????????????

' nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

end

 'call CALLS Stream$,UnkStream$,Tag$,Associate$

Sub CALLS byref Stream$,byref UnkStream$,byref Tag$,byref Associate$

if Stream$<>"" then

' nop$=basTag$(Stream$,Tag$,Associate$)

call Tag$ Associate.Effect$,Tag$,Associate$

end if

if (Stream$<>"" and Persptive.Effect$<>"") then

' nop$=basTag$(Stream$,Tag$,Associate$)

call PersptvAssociate$ Persptive.Effect$,Tag$,Associate$

end if

if (UnkStream$<>"" and Associate.Effect$="") and Persptive.Effect$="" then

' nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

nop$=Associate$(Associate.Effect$,Tag$,Associate$)

end if

if (UnkStream$<>"" and Associate.Effect$<>"") and Persptive.Effect$="" then

' nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

call Association$ Associate.Effect$,Tag$,Associate$

end if

if (UnkStream$<>"" and Associate.Effect$="") and Persptive.Effect$<>"" then

' nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

call Association$ Associate.Effect$,Tag$,Associate$

call PersptvAssociate$ Persptive.Effect$,Tag$,Associate$

end if

if (UnkStream$<>"" and Associate.Effect$<>"") and Persptive.Effect$="" then

' nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

call Association$ Associate.Effect$,Tag$,Associate$

end if

end sub

'??????????????????????????????????????????????????????????????????????????????????????

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

   'nop$=basTag$(Observation$,Tag$,Associate$)

Function basTag$(byref Observation$,byref Tag$,byref Associate$)

Observation$=trim$(Observation$):Observation$=Observation$;" "

if Observation$="" then [FucExit]

' print "basTag$ ";Observation$

Pi=atn(1)*4:Pi2=(Pi*2):Mdeg=(180/Pi):Mrdn=(Pi/180)

Lmt = Len(Observation$)

T=Pi2

Tag=0:Fragment$=""

[StrmLoop]

 bj=bj+1

 if bj>Lmt then [StrmExit]

 D=asc(mid$(Observation$,bj,1))

 if D>256 then D=32

 R=1/((1/D)+(1/T))

 A=(atn(R/D)*Mdeg)

 Puls=(1/(A*360))

 Sp=(1/(((R+T)/Pi2)/Puls))

 T=(Sp*tan(A*Mrdn))

 'print R,A,Puls,Sp,T

 ele=ele+((1/A)+Sp+Puls)

 if bj<Lmt then [StrmLoop]

[StrmExit]

 Tag=((ele*0.0000333)^2)                                'strengthen_effect

 if Tag>1 then Tag=(1/Tag)                  'keep with_in Gate_logic

 Tag$=str$(Tag)

 [FucExit]

 end function

'??????????????????????????????????????????????????????????????????????????????????????

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

   'nop$=CmpssTag$ (UnkStream$,Tag$,Associate$)

Function CmpssTag$(byref UnkStream$,byref Tag$,byref Associate$)

if UnkStream$="" then [FucExit]

UnkStream$=trim$(UnkStream$):UnkStream$=UnkStream$;" "

' print "CmpssTag$ ";UnkStream$

Pi=atn(1)*4:Pi2=(Pi*2):Mdeg=(180/Pi):Mrdn=(Pi/180)

Lmt = Len(UnkStream$)

T=Pi2

Tag=0:Fragment$=""

[basStrmLoop]

 bj=bj+1

 if bj>Lmt then [basStrmExit]

 D=asc(mid$(UnkStream$,bj,1))

 if D>256 then D=32

 if D=32 then call FRAGMENT$ Fragment$,frgtag,Associate$

 R=1/((1/D)+(1/T))

 A=(atn(R/D)*Mdeg)

 Puls=(1/(A*360))

 Sp=(1/(((R+T)/Pi2)/Puls))

 T=(Sp*tan(A*Mrdn))

 'print R,A,Puls,Sp,T

 ele=ele+((1/A)+Sp+Puls)

 frgtag=frgtag+((1/A)+Sp+Puls)

 Fragment$=Fragment$;chr$(D)

 if bj<Lmt then [basStrmLoop]

[basStrmExit]

 Tag=((ele*0.0000333)^2)                                'strengthen_effect

 if Tag>1 then Tag=(1/Tag)                  'keep with_in Gate_logic

 Tag$=str$(Tag)

 call STREAM$ Stream$,UnkStream$,Tag$,Associate$

 print tab(3);Associate$;"   ";UnkStream$

 [FucExit]

 end function

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'call FRAGMENT$ Fragment$,frgtag,Associate$

 Sub FRAGMENT$ byref Fragment$,byref frgtag,byref Associate$

 if frgtag>1 then frgtag=(1/frgtag)

 Tag$=str$(frgtag)

 Associate.Effect$=""

 call Tag$ Associate.Effect$,Tag$,Associate$

 print tab(16); Associate$;"   ";Fragment$

 Fragment$="":frgtag=0

 end sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'call STREAM$ Stream$,UnkStream$,Tag$,Associate$

 Sub STREAM$ byref Stream$,byref UnkStream$,byref Tag$,byref Associate$

 'call CALLS UnkStream$,UnkStream$,Tag$,Associate$ NOTE: CALLS Not corrected yet!!

  nop$=Runtag$(Tag$,Associate.Effect$,Association$)

  Associate$=Association$

 end sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'call Tag$ Associate.Effect$,Tag$,Associate$

Sub Tag$ byref Associate.Effect$,byref Tag$,byref Associate$

if Associate.Effect$<>"" or Persptive.Effect$<>"" then [SbExit]

nop$=Runtag$(Tag$,Associate.Effect$,Association$)

Associate$=Association$:Associate.Effect$=word$(Associate$,1)

[SbExit]

end sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'call Association$ Associate.Effect$,Tag$,Associate$

Sub Association$ byref Associate.Effect$,byref Tag$,byref Associate$

if Associate.Effect$="" then [SbExit]

AssStream$=Tag$;" ";Associate.Effect$

nop$=basTag$(AssStream$,Tag$,Associate$)

nop$=Runtag$(Tag$,Associate.Effect$,Association$)

Associate$=Association$:Associate.Effect$=word$(Associate$,1)

[SbExit]

end sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'Association$=Associate$(Associate.Effect$,Tag$,Associate$)

Function Associate$(byref Associate.Effect$,byref Tag$,byref Associate$)

if Associate.Effect$<>"" then [SbExit]

nop$=Runtag$(Tag$,Associate.Effect$,Association$)

Associate$=Association$:Associate.Effect$=word$(Associate$,1)

[SbExit]

end function

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'call PersptvAssociate$ Persptive.Effect$,Tag$,Associate$

Sub PersptvAssociate$ byref Persptive.Effect$,byref Tag$,byref Associate$

if Persptive.Effect$="" then [SbExit]

AssStream$=Persptive.Effect$;" ";Tag$

nop$=basTag$(AssStream$,Tag$,Associate$)

nop$=Runtag$(Tag$,Associate.Effect$,Association$)

Associate$=Association$:Associate.Effect$=word$(Associate$,1)

[SbExit]

end sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'nop$=Runtag$(Tag$,Associate.Effect$,Associate$)

Function Runtag$(byref Tag$,byref Associate.Effect$,byref Associate$)

transfer$="":AssociateOf$=""

transfer$=str$(transfer(Tag$,transfer))

if Associate.Effect$<>"" then AssociateOf$=Associate.Effect$

if transfer$<>"" and AssociateOf$="" then AssociateOf$=transfer$

if AssociateOf$="" then [RntgExti]

Associate$=Association$(AssociateOf$,transfer$,Associate$)

[RntgExti]

end function

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 'transfer$=str$(transfer(Tag$,transfer))

Function transfer(byref Tag$,byref transfer)

if Tag$="" then [FncExit]

Tag=val(Tag$)

if Tag=0 then [SkipA]

transfer=((Pi2*-1)*(((Tag*-1)+(1.0/(1.0+exp(Tag*-1))))-.5))

[SkipA]

if transfer>1 then transfer=(1/transfer)

[FncExit]

end function

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  'nop$=Association$(AssociateOf$,transfer$,Association$)

Function Association$(byref AssociateOf$,byref transfer$,byref Association$)

Commons=0:Assochtbas$="":Assochtfalw$="":Crry$="":Associate$=""

Assochtbas$=AssociateOf$:Assochtfalw$=transfer$

Commons=(val(Assochtbas$)*2)+(1/((1/val(Assochtfalw$)*-1)))

Associate$=str$(1/(val(Assochtbas$)+Commons))

Assochtbas$=str$(abs(1/(val(Assochtbas$)+val(Associate$))))

parseMe$=""

if abs(val(Associate$))>1 then Associate$=str$(1/val(Associate$))

parseMe$=Associate$:Crry$=""

gosub [Perse]

if  val(Crry$)>1 then  Crry$=str$(1/val(Crry$))

Associate$=Crry$

if abs(val(Assochtbas$))>1 then Assochtbas$=str$(1/val(Assochtbas$))

parseMe$=Associate$:Crry$=""

gosub [Perse]

Associate$=Crry$

Association$=Assochtbas$;" ";Associate$

LgcKey$=word$(Association$,1)

LgcLabel$="[";word$(Association$,2);"]"

Association$=LgcKey$;" ";LgcLabel$

LgcKey$="":LgcLabel$=""

goto [AssoExit]

[Perse]

token$ = "*"

idx = 0

while token$<>""

idx = idx + 1

Ct$=mid$(parseMe$,idx,1)

if word$(Ct$, 1, chr$(45))="-" then [Skip]

token$ = word$(Ct$, 1, "-")

if token$ <> "" then Crry$=Crry$;token$

[Skip]

wend

return

[AssoExit]

end function

[phone]

cj=0

PhoneNum$="0.12990086e-6 0.2306549e-6  0.30402802e-6 0.51286042e-6 0.24051316e-5 0.34572606e-6 0.39065424e-6 0.63440356e-6 0.3599704e-5 0.12990086e-6 0.50091158e-6 0.24971814e-6 0.30388544e-6 0.302268e-6 0.20743688e-5 0.17069881e-6 0.21908206e-6 0.49076412e-6 0.2303985e-5 0.3318336e-6 0.2708624e-5"

StrmNum$="0.15004978e-6 0.22158608e-6 0.23775974e-6"

PggNum$="0.10388529e-5 0.7059224e-7"

print  '0.7059224e-7 [0.14165863e6]

[Loop]

cj=cj+1

CallNum$=word$(PhoneNum$,cj)

if CallNum$=word$(PhoneNum$,1) then gosub [0.76981784e5]

if CallNum$=word$(PhoneNum$,2) then gosub [0.43354813e5]

if CallNum$=word$(PhoneNum$,3) then gosub [0.32891705e5]

if CallNum$=word$(PhoneNum$,4) then gosub [0.19498483e5]

if CallNum$=word$(PhoneNum$,5) then gosub [0.41577766e4]

if CallNum$=word$(PhoneNum$,6) then gosub [0.28924635e5]

if CallNum$=word$(PhoneNum$,7) then gosub [0.25598084e5]

if CallNum$=word$(PhoneNum$,8) then gosub [0.15762837e5]

if CallNum$=word$(PhoneNum$,9) then gosub [0.27780062e4]

if CallNum$=word$(PhoneNum$,11) then gosub [0.19963603e5]

if CallNum$=word$(PhoneNum$,12) then gosub [0.40045149e5]

if CallNum$=word$(PhoneNum$,13) then gosub [0.32907138e5]

if CallNum$=word$(PhoneNum$,14) then gosub [0.33083224e5]

if CallNum$=word$(PhoneNum$,15) then gosub [0.48207435e4]

if CallNum$=word$(PhoneNum$,16) then gosub [0.58582717e5]

if CallNum$=word$(PhoneNum$,17) then gosub [0.45644997e5]

if CallNum$=word$(PhoneNum$,18) then gosub [0.34453067e5]

if CallNum$=word$(PhoneNum$,19) then gosub [0.20376388e5]

if CallNum$=word$(PhoneNum$,20) then gosub [0.4340306e4]

if CallNum$=word$(PhoneNum$,21) then gosub [0.30135586e5]

if CallNum$=word$(PhoneNum$,22) then gosub [0.36919115e4]

if cj<22 then [Loop]

print

cj=0

[StrmLp]

cj=cj+1

CallNum$=word$(StrmNum$,cj)

if CallNum$=word$(StrmNum$,1) then gosub [0.6664455e5]

if CallNum$=word$(StrmNum$,2) then gosub [0.45129189e5]

if CallNum$=word$(StrmNum$,3) then gosub [0.42059265e5]

if cj<3 then [StrmLp]

print

cj=0

[PggLp]

cj=cj+1

CallNum$=word$(PggNum$,cj)

if CallNum$=word$(PggNum$,1) then gosub [0.96260019e4]

if cj<1 then [pggLp]

CallNum$=word$(PggNum$,2)

if CallNum$=word$(PggNum$,2) then gosub [0.14165863e6]

return

[0.76981784e5]

print " ** Donnie  "

return

[0.43354813e5]

print " ** was "

return

[0.32891705e5]

print " ** here  "

return

[0.19498483e5]

print " ** for  "

return

[0.41577766e4]

print " ** a  "

return

[0.28924635e5]

print " ** while  "

return

[0.25598084e5]

print " ** with  "

return

[0.15762837e5]

print " ** Judy  "

return

[0.27780062e4]

print " ** .  "

return

[0.19963603e5]

 print " ** is  "

return

[0.40045149e5]

print " ** here  "

return

[0.32907138e5]

print " ** with  "

return

[0.33083224e5]

print " ** Judy  "

return

[0.48207435e4]

print " ** .  "

return

[0.58582717e5]

print " ** Judy  "

return

[0.45644997e5]

print " ** was  "

return

[0.34453067e5]

print " ** here  "

return

[0.20376388e5]

print " ** for  "

return

[0.4340306e4]

print " ** a  "

return

[0.30135586e5]

print " ** while  "

return

[0.36919115e4]

print " ** .  "

return

[0.6664455e5]

print " ** Donnie was here for a while with Judy .  "

return

[0.45129189e5]

print " ** Donnie is here with Judy .  "

return

[0.42059265e5]

print " ** Judy was here for a while .  "

return

[0.96260019e4]

print " ** Donnie  "

print " ** was "

print " ** here  "

print " ** for  "

print " ** a  "

print " ** while  "

print " ** with  "

print " ** Judy  "

print " ** .  "

print

print " ** Donnie  "

print " ** is  "

print " ** here  "

print " ** with  "

print " ** Judy  "

print " ** .  "

print

print " ** Judy  "

print " ** was  "

print " ** here  "

print " ** for  "

print " ** a  "

print " ** while  "

print " ** .  "

return

[0.14165863e6]

print " Donnie was here for a while with Judy . Donnie is here with Judy . Judy was here for a while ."

print " Notice how one word effects my thoughts ."

print " ** I'm thinking secound statement was made before they left and they'r not here now ."

print " ** So I'm guessing they already left ."

print " ** However ;, if the secound statement is true then They are here now ."

return


.

[tsh73]

I will not even pretend I understand what are you talking about.

And I cannot help you like that.
Still, folks use computers for a long time and devised some common ways to do things.

You need a text printed?
. put it in a variable, not like this
[0.58582717e5]
print " ** Judy  "
return

You need lot's of text?
. use string array

You need words linked with some numbers?
. Use paralled arrays,
. so value(i) would have number
. and name(i) hold a word

You can search in these arrays by word or by number
if you have some meaningful math for these numbers - power to you.

Could you make/explain some of your ideas along commonly used programmer's tools?

[windfire]

tsh73 Thank you for trying .
I don't know how to exspress the idea behind this in a text message.
When you teach someone to write drawing programs it is to open a door for them to understand how to research drawing programs.
When you teach someone to write games it is to open a door for them to understand how to research gaming programs.
ect.
Your are opening doors they they haven't looked at before and they carry it into new creations.
I'm trying to open a door into researching:
THOUGHT
LOGIC
REASONING
COMPREHENTION
ASSOCIATIONS
CREATIVITY
for computing.
When you write a line for code the association isn't in the code but rather in the note beside it.
Which trigers associanions to others so they comprehend the intelligence behind it.
Thoughts control intelligence and learning.
logic is a thought clasified as relivent
reasonong is thought clasified as understanding
comprehention is thought clasified as complete understanding.
association is thought clasified as a relation or perspectives.
creativity is thought and associations abstractly monepulated.
Consider a neural network:
forward propergation:
input layer
Obvious hidden layers
next signifigent hidden layers
ect
OutPut layer
Now back propergation:
back_effect to each preceding layer.
repeet until threshold
associate recordered or probable associations
'
My program:
forward propergation:
History of mother relation to father,children,each child.
present stats of mother tired,busy,mad,irritable logicKey of mother status
now same with Father
logic key of father status
all the way to child.
backpropergation:
logic key of father childern child back to effect on mother.
repeet until threshold
associate recordered or probable associations
Now do the same with business
manenger
client
request
supply
demand
compremises
ect.
The keys aren't just numbers or weights but rather associations of cause and effect.
Can computers do this now ?;, or is this a new door to research.
Can I plant a seed with JustBasic that opens this door.
I don't know how to exspress that in a text.
The only way you can see it is to exsperiment and come to your own conclutions.
But you can't do that until I gave it to you.
I didn't exspect you to see it.I only wanted to get you interested in opening the door and
looking at it.
Prove me wrong!!smile!

[windfire]

tsh73 A little side note to you.
Thanks
You have helped me.You allowed me to do my best
to present my thoughts.
Maybe make a complete fool of myself.
But that's OK.
I gave it my best and that all I can do.
Thanks for the opertunity,patients,and trying.

[Rod]

You should explore “linked lists” A linked list is a list of data items or properties just like the words you list above. Each item in the list has three components. The data itself, what it links backwards to and what it links forwards to. So if there is only one forward and backward link you get a simple chain of data.

The chain is very flexible, you can insert items and indeed break out and re link whole segments.

If you think of an ordered list or prioritised list a single item in the list has a pointer to the previous item of higher importance and a pointer to the next item of lower importance.

The beauty of a linked list is that the data does not have to be placed side by side it can exist anywhere. The previous item points to it as does the next item so it is easy to move up and down (hop about) the chain.

On top of that you don’t need to restrict yourself to one link, you can have several. So if you think of a brain dump diagram you can have one to one relationships or one to many.

You should play with it till you get the idea and try and apply some of your concepts to that type of data structure.

[windfire]

Thanks Rod

I figured there is a better way of handling the memory.

But it still comes down to storing at an address.

Tsh73 I guess ?. thought I was just storing print statments . Those were just to show that the logics_of_the_association_key would find

the logical_memory_address. Think of it as a tag--- you can pin it to whatever you want to.

information, subrutines,programs,forms,a folder of bmps,

The main thing is ;, That once the association_Key is set_in_memory a default_stream Knows where,how,why,when, are whatever the memory_holds.

Thus assciating the reply with the history_of_the request.

<ie>

Association logic A:

CHAT Bot:: >> 0.329



Requets:: What is you name ? >>>Association_Key 0.4657



REPLY:: 0.329*0.4657 == association key 0.1532153

' [0.1532153]

simple responce "My name is someone"

'

'

Association logic B:

John and I have a history >> key 0.937

I'm upset right now . >> key 0.37244

We have already talked about him asking a dum question of me. >>> key 0.272

CHAT Bot:: >> 0.329

Association effect 0.329*{0.937+0.37244+ 0.272) >> 0.52029376



Requets:: John ask What is you name ? >>>Association_Key 0.4657 default_0.4657 {-0.52029376} ==association -0.05459376



REPLY:: 0.329*0.4657 == association key -0.05459376

' [ -0.05459376]

' responce "John I told you a thousand times --"

' "don't ask me dum questions .you idiot !!"

' " Even if you are a friend I will hurt you !"

' run c;\John.bmp << ie >> pull up a picture of John

' Thus responce is if -0.05459376 then goto [ -0.05459376]

' And response >> complies with history

' Thus is a logical responce. ie {logic key and address}

'

'

Normal way {of logic}

[WHAT]

if <what> and second word is <is> goto [WHATIS]



[WHATIS]

Typ$="girls"

if fourth word is <name> and Typ$="girls" then goto [girlnames]



[girlnames]

respond "Judy is a girls name"

'

You had to store responses in eigther case



Thats what I want you to see in the program.A system the can learn to think for itself thru associations and thought.

I don't know who may understand but I'm hoping by posting ,someone will see it and understand.

I'm a simple old time man saying my observations best I can.

With the race for A.I. I thought it may be important enough to discuss.

[tsh73]

I keep wondering
Who / when supposed to write this part?
responce is if -0.05459376 then goto [ -0.05459376]
Who / when supposed to write receiving part?
' [ -0.05459376]
' responce "John I told you a thousand times --"
' "don't ask me dum questions .you idiot !!"
' " Even if you are a friend I will hurt you !"
' run c;\John.bmp << ie >> pull up a picture of John
(probably RETURN supposed to end this)

Now, BASIC way is
if responce = -0.05459376 then goto [ -0.05459376]
Suippose we get BASIC with calculated GOTO/GOSUB
so it does something like this

responce = -0.05459376
goto responce
We still need somehow to create receiving part.

Will it change a thing?
Will something became possible what does not possible as of now?
I wish I saw it. ('cause I have no idea).

[windfire]

tsh73

In responce to your question.

What is put into the responce is data.

But before any data can be recorded it has to to processed.

Rember this, Memory is eigther temporary or permanent.

A learning A.I. must decide on it's responce , record it before it can use it, then execute it.

<ie> Update data.

Thru ASSOCIATIONs learinging ,data is accumulated processed decided and then recorded for execution.

It may be only temporary like a chess move may be temporary.It still had to be recorded for execution.

'

Just as { Open path$;file$ for text as #1 } ;' is used for different things ie read_file CopyFile print to file run file

To use it you have to associate what your told that it is to what you can understand on how to use it ,before you {format it into clearity }

the {format into clearity } is recorded into your memory {The understanding that you learned}

'

Before you use Associations to learn, you must be aware of the properties and how_to_use them to learn.

So who/when writes the responces is the completed A.I. system {just as a chess game A.I. recordes its next move.},during the game.

some tempoary -- some permanent

But that gets into to probabilitys and decissions of the A.I. which are better know by you than me.

Hope that answers your question.

A.I. can't truly be intelligent , and/or create { until it can assiciate ,understand and use associations }

'

one step at a time >> Open Association for UnderstandingAndPotentuals as #1

Yes there is a lot more to it than just this code. Such as write and execute its own code,test its associations and logics ect just as a cpu does its own thing behind the scenes.

But you can't use associations unless you know what they are.That's what this code {program, rutine, whatever you want to call it} is about.

Yes it is new , it is outside the box , no everything isn't properly called what it is {because it hasn't been researched before.}

[windfire]

Back to my original post now that, maybe you have an idea about logic and association Keys.
I don't know what to call it {working with logics or editing logics}
If I move unk$(4) to unk$(2) and unk$(4) to unk$(7) as (unk$(0.843446) to unk$(0.7564) and (unk$(0.2124) to unk$(0.06574) then
for j=1 to 9
Stream$=Stream$;unk$(j);" "
next j
I have changed the logic of the Stream.
I can move,insert,delete,ect the logic of the stream.
Or saying {I can monepulate logics,meaning,ect} 
And I have a logic_Subrutine for a logic_program_system.
UNFILTERED ILLASTRATION of thoughts behind the statements.Donnie______________$1________________________unk1*________0.16145982e-5

Judy_______________@2___________#1___________unk2*________0.27880552e-5

Tina______________________________________________unk3________0.37642274e-5

Danial___________________________________________unk4________0.17599412e-5

Bill________________________________________________unk5________0.35342002e-5

Sue_______________________________________________unk6________0.67475088e-5

was_______________________________#2____________unk7________0.86134674e-5_

is___________________$3__________$3____________unk8*________0.10710714e-4

should_be_____________________________________unk9_________0.82324086e-6

could_be_______________________________________unk10________0.9677295e-6

may_be_________________________________________unk11________0.1827438e-5

here_________________$4__________________________unk12*________0.24361706e-5

there______________________________#3____________unk13________0.3323976e-5

somewhere____________________________________unk14________0.71144348e-5

home_______________@5_________@5__________unk15*________0.33669912e-5

for__________________!6___________!6_____________unk16*________0.10629226e-4

with_________________$7___________$7____________unk17*________0.11632399e-4

at___________________@8__________@8__________unk18*________0.25420788e-5

when____________________________________________unk19________0.32418844e-5

a____________________!9___________!9_____________unk20*________0.13967443e-3

on______________________________________________unk21________0.11632399e-4

while________________!10__________!10___________unk22*________0.25420788e-5

time_______________________________________________unk23________0.3483369e-5

point______________________________________________unk24_________0.23706688e-5



__Assigned$="$1_@2_$3_$4_@5_!6_$7_@8_!9_!10"

__Given=_"Donnie_Judy_is_here_home_for_with_at_a_while"

__Order$="_($1,$1)_(@2,$3)_($3,$4)_($4,$7)_(@5,@2)_(!6,!6)_($7,!9)_(@8,!10)_(!9,@8)_(!10,@5)"

_Out$="Donnie_is_here_for_a_while_with_Judy_at_home"

__

.__Assigned$="#1_#2_$3_$4_@5_!6_$7_@8_!9_!10"

__Given=_"Judy_was_here_home_for_with_at_a_while"

__Order$="_(#1,#1)_(#2,#2)_(#3,#3)_($4,$7)_(@5,@2)_(!6,!6)_($7,!9)_(@8,_$1)_(!9,@8)_(!10,@5)"

__Out$="Judy_was_there_for_a_while_with_Donnie_at_home"



__Stream$="Donnie_Judy_Tina_Danial_Bill_Sue_was_is_should_be_could_be_may_be_here_there_somewhere_home_for_with_at_when_a_on_while_time_point"

___Assigned$="unk1__unk2__unk8__unk12__unk15_unk16__unk17__unk18__unk20_unk22_"

__Given=_"Donnie_Judy_is_here_home_for_with_at_a_while"

__Order$="_(unk1,0.16145982e-5)_(unk2,0.10710714e-4)_(unk8,_0.24361706e-5)_(unk12,0.10629226e-4)_(unk15,0.13967443e-3)_(unk16,0.25420788e-5)_(unk177,0.25420788e-5)_(unk18,0.27880552e-5)_(unk20,0.25420788e-5)_(unk22,0.33669912e-5)"

_Out$="Donnie_is_here_for_a_while_with_Judy_at_home"



_if_order_is_a_pattern_list_;,Which_association_is_best_suited_to_edit_the_logic_of_the_Out$_statement.
'
PS  I thought this to be a discussion, not a help, part of the forum.
Sorry if I misunderstood.