Need help cleaning a program

[windfire]

 Trying to research a program and i need help cleaning it up .
Takes me two months to do myself. Not to be a pest, but if you would ??

Pi=atn(1)*4:Pi2=(Pi*2):Mdeg=(180/Pi):Mrdn=(Pi/180)
 Classe$="Thoughts Relations Options Perspectives Rules"
   global Pi,Pi2,Mdeg,Mrdn,Classe$

'FrgPassAssociate$=str$(8.333e-10)
 Strm$(1)="Donnie was here with Judy for a glorious while ."
 Strm$(2)="Donnie and Judy are eternaly in love ."
 notice "close #1 after First_Speek"
 PassAssociate$=""
'    Stream$=Strm$(1)
 Prompt "Stream$ ";Stream$             '??????????????????????????????????????? READ_InPUT$

                                       ' display menu screen ;,  read streams and get_base_Association$
 gosub [Directory$]
 print "Here at Continue"

 if blockCd$<>"" then

 print "Passassociation_Tag$ blockCd$ ";blockCd$
 print "Passassociation_Tag is ";blockCd$
end if
wait
'@@@@@@@
[MainRuleCoder$]
UnkStream$=trim$(Stream$)
 if UnkStream$="" then [Mainexit]
 T=Pi2*1e99
 Lmt=len(UnkStream$)

 for j=1 to Lmt
   D=asc(mid$(UnkStream$,j,1))
   Flg$=""
     if D>256 or D=32 then Flg$="activ"
     if Flg$="activ" then call FragSub$ Fragment$,FragCd,PassAssociate$,Association$,FrgPassAssociate$
     Flg$=""
       R=D+(1/T)
         TL$=TL$;str$(T);" "
             c=(1/(R*360))*.33
                A=atn(T/R)*Mdeg:strmAL$=strmAL$;str$(A);" "
              AL$=AL$;str$(A);" "
            L=(1/A)*Pi2
          f=1/((L*c)^.5*Pi2)
             T=f:strmTL$=strmTL$;str$(T);" "
                FL$=FL$;str$(f);" "
             Ele=((1/R)+(1/f)+(1/A))
         EleCd=EleCd+Ele
              call gated$ EleCd, gated$
                 EleCd=val(gated$)
    FragCd=FragCd+Ele
      call gated$ FragCd,gated$
         FragCd=val(gated$)

    StrmCd=StrmCd+FragCd
      call gated$ StrmCd, gated$
         StrmCd=val(gated$)
 next j
   call StrmSub$ StrmCd,PassAssociate$,Association$
 [Mainexit]
 return

 [OnMainCoder]
 gosub [MainRuleCoder$]
 return
'@@@@@@@
Sub SubRuleCoder$ byref Stream$,byref PassAssociate$,byref Association$
UnkStream$=trim$(Stream$);" "
 if UnkStream$="" then [subexit]
 T=Pi2*1e99
 Lmt=len(UnkStream$)
 for j=1 to Lmt
   D=asc(mid$(UnkStream$,j,1))
   Flg$=""
    if D>256 or D=32 then Flg$="activ"
     if Flg$="activ" then call FragSub$ Fragment$,FragCd,PassAssociate$,Association$,FrgPassAssociate$
     Flg$=""
       R=D+(1/T)
          TL$=TL$;str$(T);" "
             c=(1/(R*360))*.33
                A=atn(T/R)*Mdeg:strmAL$=strmAL$;str$(A);" "
              AL$=AL$;str$(A);" "
            L=(1/A)*Pi2
          f=1/((L*c)^.5*Pi2)
             T=f:strmTL$=strmTL$;str$(T);" "
                FL$=FL$;str$(f);" "
             Ele=((1/R)+(1/f)+(1/A))
         EleCd=EleCd+Ele
              call gated$ EleCd, gated$
                 EleCd=val(gated$)
    Fragment$=Fragment$;chr$(D)
    FragCd=FragCd+Ele
      call gated$ FragCd,gated$
         FragCd=val(gated$)

    StrmCd=StrmCd+FragCd
      call gated$ StrmCd, gated$
         StrmCd=val(gated$)
 next j
   call StrmSub$ StrmCd,PassAssociate$,Association$
 [subexit]
 end sub

 [OnSubCoder]
 call SubRuleCoder$ Stream$,PassAssociate$,Association$
 return
'@@@@@@@
Sub ExtndedRuleCoder$ byref Stream$,byref PassAssociate$,byref Association$
UnkStream$=trim$(Stream$)
 if UnkStream$="" then [subexit]
 T=Pi2*1e99
 Lmt=len(UnkStream$)
 for j=1 to Lmt
   D=asc(mid$(UnkStream$,j,1))
   Flg$=""
    if D>256 or D=32 then Flg$="activ"
     if Flg$="activ" then call FragSub$ Fragment$,FragCd,PassAssociate$,Association$,FrgPassAssociate$
     Flg$=""
       R=D+(1/T)
          TL$=TL$;str$(T);" "
             c=(1/(R*360))*.33
                A=atn(T/R)*Mdeg:strmAL$=strmAL$;str$(A);" "
              AL$=AL$;str$(A);" "
            L=(1/A)*Pi2
          f=1/((L*c)^.5*Pi2)
             T=f:strmTL$=strmTL$;str$(T);" "
                FL$=FL$;str$(f);" "
             Ele=((1/R)+(1/f)+(1/A))
         EleCd=EleCd+Ele
              call gated$ EleCd, gated$
                 EleCd=val(gated$)
    FragCd=FragCd+Ele
      call gated$ FragCd,gated$
         FragCd=val(gated$)

    StrmCd=StrmCd+FragCd
      call gated$ StrmCd, gated$
         StrmCd=val(gated$)
 next j
   call StrmSub$ StrmCd,PassAssociate$,Association$
 [subexit]
 end sub

''Prompt "Stream$ ";Stream$             '?????????????????????????????????????????????????????
 [OnExtndedCoder]
 call ExtndedRuleCoder$ Stream$,PassAssociate$,Association$
 return

Function Lng(byref Stream$)
[loop]
   q=q+1
   Ck$=word$(Stream$,q)
 if Ck$<>"" then [loop]
   Lng=q-1
end function

     'call gated$ Fragment$,FragCd,gated$
 Sub gated$ byref Unk1,byref Unk2$
 if Unk1>1 then Unk1=(1/Unk1)
 Unk2$=str$(Unk1)
 end sub
 Sub FragSub$ byref Fragment$,FragCd,byref PassAssociate$,byref Association$,FrgPassAssociate$
 GvnFragCd=FragCd
 if FrgPassAssociate$<>"" then PassAssociate$=FrgPassAssociate$
   if PassAssociate$<>"" then
    Symbol3$=""
    Stream$=Fragment$
''Prompt "Stream$ ";Stream$             '?????????????????????????????????????????????????????
   call ExtndedRuleCoder$ Stream$,PassAssociate$,Association$
   print "~~~~~~ EffectOfPassAssociate$~~~~~~~~~~ ";Association$
   end if
 if Fragment$<>"" then print Fragment$:Fragment$=""
 Tag$=str$(FragCd)
 call Runtag Tag$,PassAssociate$,transfer$,Association$
 end sub

 Sub StrmSub$ byref StrmCd,byref PassAssociate$,byref Association$
 Tag$=str$(StrmCd)
 call Runtag Tag$,PassAssociate$,transfer$,Association$
 'print tab(16);"Complete Association$ ";Association$
 end sub
 'call Runtag Tag$,PassAssociate$,transfer$,Association$

 Sub Runtag Tag$,PassAssociate$,byref transfer$,byref Association$
 if Tag$="" then [subexit]
   amp=3.33e-5
   transfer$="":Association$=""
 if val(PassAssociate$)<=1e-22 then PassAssociate$=str$(1)   'avoid zero1
   pertransfer=(((val(Tag$)*-1)+(Pi2/1))* val(PassAssociate$) * amp)
 call gated$ pertransfer, gated$
   pertransfer=val(gated$)
   transfer$=gated$
 call Association$ AssociateOf$,transfer$,Association$

[subexit]
 end sub
   'call Association$ AssociateOf$,transfer$,Association$
 Sub Association$ byref AssociateOf$,byref transfer$,byref Association$
  if SymblPrymKy$="" then SymblPrymKy$=str$(1)
   AssociateOf$=str$(val(transfer$)+(val(SymblPrymKy$)*1/Pi2))
   Commons= -0.5+(val(transfer$)+val(AssociateOf$))*((1/val(AssociateOf$))*0.5)
  if Commons<1e-15 then Commons=val(AssociateOf$)
parseMe$=str$(((1/(val(transfer$)*373466))*(Commons^2)))
  gosub [Perse]
   LgcLabel$="[";Associate$;"]"
   Association$=str$(Commons);" ";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 Associate$=Associate$;token$
[Skip]
 wend
 return

[AssoExit]
 end sub

[Directory$]

'  call RecordKey$ SymblPrymKy$,KeyRecord$
 ExitFlag$="No":cc=1
 print tab(16);"KeyRecord$Symbls ";KeyRecord$
 button #1, " &Ok ", [Ok], UL, 120, 90
 WindowWidth = 390
 WindowHeight = 180
 checkbox #1.cb, "I am a checkbox", [set], [reset], 10, 10, 130, 20

 button #1, " Build ", [setBuild], UL, 10, 40, 40, 25
 button #1, " Get ", [setGet], UL, 60, 40, 40, 25
 button #1, " Copy ", [setCopy], UL, 105, 40, 40, 25
 button #1, " Exit ", [Exit], UL, 238, 40, 40, 25
 button #1, " Set ", [setCheckBox], UL, 10, 65, 40, 25
 button #1, "set ObjectAso ", [Object], UL, 60, 65, 75, 25
 button #1, "set ObjectPrsptvAso ", [ObjectPrsptv], UL, 145, 65, 110, 25
 button #1, "set PersptvAso ", [Persptv], UL, 265, 65, 80, 25
 button #1, " Reset ", [resetCheckBox], UL, 278, 40, 65, 25
 button #1, " xtrnalPassAsso ", [PassAssociation], UL, 150, 40, 78, 25
 button #1, " SpeekToMe ", [SpeekToMe],  UL, 10, 120, 75, 25
 button #1, " ReadMe ", [callReadMe], UL, 85, 120, 75, 25
 button #1, " Casses ", [Casses], UL, 158, 120, 75, 25

 textbox #1.text, 10, 90, 100, 24
 UpperLeftX = 150
 UpperLeftY = 625
 open "Checkbox test" for dialog as #1
 print #1, "trapclose [Quit.Exit]"
 'wait here for user actions
 print " @@@@@@@@@ Waiting @@@@@@@@@@"
 wait

[close]
   close #1.text
   close #1
 return

[Exit]
 cc=cc+1
 if cc>3 then cc=1
 if ExitFlag$="" then [close]
 goto [Ok]
'  close #1.text
'  close #1
'  gosub [Directory$]

 [Quit.Exit]
 close #1.text
 close #1
 return


[Casses]
notice Classe$
Prompt " Casses a b c d e";Case$

select case
 case Case$=word$(Classe$,1)
    CaseOut$=Case$
 case Case$=word$(Classe$,2)
    CaseOut$=Case$
 case Case$=word$(Classe$,3)
    CaseOut$=Case$
 case Case$=word$(Classe$,4)
    CaseOut$=Case$
 case Case$=word$(Classe$,5)
    CaseOut$=Case$
 case else
   CaseOut$=word$(Classe$,1)
 end select
 print " CaseOut$ ";CaseOut$
goto [Ok]


[Object]
'  cc=cc+1
'  if cc>3 then cc=0
 if cc=1 then notice "He said  {rem [Exit] cc++} cc is ";str$;(cc)
 if cc=2 then notice "She says  {rem [Exit] cc++}cc is ";str$;(cc)
 if cc=3 then  notice "This week {rem [Exit] cc++}cc is ";str$;(cc)
 if ExitFlag$="" then return
  Respond$="":FrgPassAssociate$=""                 'XXXXXXXXXXXXXXXXXXX_Ba ; Bb; Bc
 if cc>1 then  close #Nte
 gosub [SpeekToMe]
 gosub [callReadMe]

'  prompt "Frgament$ Association Phrase";Respond$
  ExitFlag$=Respond$
 if Respond$<>"" then
'     Stream$=Respond$:CarryStream$=Stream$:print CarryStream$
'  call SubRuleCoder$ Stream$,PassAssociate$,Association$
'  print tab(16);"Object-Pass_Association> ";Association$
'   FrgPassAssociate$=word$(Association$,1)
end if
wait

[SpeekToMe]
blockCd=0
 Open "Notes.txt" for output as #Nte
 print #1, "trapclose [ExisLp]"
[Lp]
  Respond$=""
 Prompt "Speek";Respond$
 if Respond$="q" then blockCd$=str$(blockCd):goto [ExisLp]
 if Respond$<>"" then
  Stream$=Respond$
 print #Nte,Stream$
 gosub [OnMainCoder]
  blockCd=blockCd+val(word$(Association$,1))
 call gated$ blockCd, gated$
  blockCd=val(gated$)
 print "~~~~~~~~~~~~~~~ Association$ ";Association$
 print "Speeker ";Association$;"  ";Stream$
 end if
 goto [Lp]

[ExisLp]
 print " @@@@@@@@@ Waiting @@@@@@@@@@"
 return

[callReadMe]
 gosub [ReadMe]
goto [Ok]

[ReadMe]
Key$=""
 Open "Notes.txt" for input as #SNte
[iLp]
 if eof(#SNte)<0 then [Exisin]
 line input #SNte,Stream$
 gosub [OnMainCoder]
 print "Speeker ";Association$;"  ";Stream$
 if eof(#SNte)=0 then [iLp]
[Exisin]
'   Respond$=""
'  Prompt "q to exit";Respond$
'  if Respond$="q" then
 close #SNte
 return

[Ok]
  Build$="":Get$=""
 scan
 goto [Ok]

[PassAssociation]
 print #1.text, "External PassAssociation"; t$
 Respond$=""
 prompt "Phrase_PassAssociation";Respond$
   call SubRuleCoder$ Respond$,PassAssociate$,Association$
 PassAssociate$=word$(Association$,1)
 PassAssociateCell$=word$(Association$,2)
 goto [Ok]

[ObjectPrsptv]
 Typ$="B"
 print #1.text, "I am PassKyB$"; t$
 goto [setBuild]

[Persptv]
  Typ$="A"                  'set symbolic condition Id
 print #1.text, "I am PassKyA$"; t$
 goto [setBuild]

[set]
 print #1.cb, "value? t$"
 print #1.text, "I am "; t$
goto [Ok]

[setCheckBox]
 print #1.cb, "set"
goto [Ok]

[resetCheckBox]
 print #1.cb, "reset"
 goto [Ok]

[Reset]
 print #1.cb, "value? t$"
 print #1.text, "Checkbox is "; t$
 goto [Ok]

[setGet]
   Get$="Call Copy"
   Stream$=PassPhrase$
 gosub [ReadPass]
 goto [Ok]

[setCopy]
   Copy$="Call Copy"
   Stream$=PassPhrase$
 gosub [ReadPass]
 goto [Ok]

[ReadPass]
 Select case
 case Typ$="A"
  Build$="Y"
    PassAssociate$=OpAssocKy$
  print " PassAssociate$ PassKyA$ ";PassAssociate$:PassKyA$=""
  case Get$="B"
   Build$="Y"                'set symbolic condition Id
    PassAssociate$=OpAssocKy$
    Tag$=OpAssocKy$
    call Runtag Tag$,PassAssociate$,transfer$,Association$
    PassAssociate$=word$(Association$,1)
  print " PassAssociate$ PassKyB$ ";PassAssociate$:PassKyB$=""
  case Typ$="C"
   Get$="Y"                  'set symbolic condition Id
    PassAssociate$=OpAssocKy$
  print " PassAssociate$ PassKyC$ ";PassAssociate$:PassKyC$=""
 end select
 return

[BttnAssociation]
 print " C_! >> PassAssociation ";PassAssociate$;" Tag$ ";SymblPrymKy$
'  print "@@@@@@@@@@@ PassAssociate$ @@@@@@@@@@"
 return

[setBuild]
 gosub [ReadPass]
   PassPhrase$="":respond$=""
 prompt " PassPhrase ";respond$
 if respond$<>"" then
 if Typ$<>"" then OpAssocKy$=SymblPrymKy$    'XXXXXXXXXXXXXXXXXXXXXXXXX
 gosub [BttnAssociation]
 if Typ$<>"" then PassAssociate$=OpAssocKy$  'XXXXXXXXXXXXXXXXXXXXXXXXX
 print tab(4);" OpAssocKy$ ";PassAssociate$   'XXXXXXXXXXXXXXXXXXXXXXXXX
   PassPhrase$=respond$:UnkStream$=PassPhrase$
 print " ";UnkStream$
 call SubRuleCoder$ UnkStream$,PassAssociate$,Association$
 PrymKy$=word$(Association$,1)
 PrymCll$=word$(Association$,2)
 print "Ba_! key>> PrymKy$ ";PrymKy$
 print "Bb_! cll>> PrymCll$ ";PrymCll$
 HoldKy$=Association$
 if Typ$<>"" then OpAssocKy$=word$(Association$,1)':PassAssociate$=OpAssocKy$
 Call RuleofExectWord$ Build$,Get$,Copy$,Association$,Return$,PassAssociate$
 print tab(36);"   Type      Origin       {Passed} // extion Key & Cell"
 print tab(16);"Key Association is  ";Return$;" ";SymblPrymKy$;"    ";HoldKy$
 PrymKy$=HoldKy$:ExtendedAssociation$=HoldKy$
 print tab(6);"Ea_! ExtendedAssociation$>> ";HoldKy$
 PrymKy$=HoldKy$
 Stream$="SymblPrymKy$"
 gosub [OnSubCoder]
 Stream$=word$(Association$,1);"_";PrymKy$
 gosub [OnSubCoder]
 SymblPrymKy$=word$(Association$,1)
 SymLgcK$="SymblLgcKy$";SymblPrymKy$
 print tab(26);"Db_! >> SymblLgc$ ";SymLgcK$
 SymblPrymCll$=word$(Association$,2)
 print tab(26);"Da_! >> SymblLgcKey$ ";SymblPrymKy$
 print tab(26);"Da_! >> SymblLgc$Cll$,";SymblPrymCll$
 call RecordKey$ SymblPrymKy$,KeyRecord$
 print tab(16);"KeyRecord$Symbls ";KeyRecord$
 end if
 goto [Ok]

  'Call Object.Prsptv.RuleofExectWord$ Build$,Get$,Copy$,Association$,Return$,PassAssociate$
Sub RuleofExectWord$ byref Unk1$,byref Unk2$,byref Unk3$,byref Association$,byref Unk4$,byref Unk5$
 select case
   case Unk1$<>"",Unk2$<>""
    gosub [1]
   case  Unk3$<>""
    gosub [2]
 end select
 goto [subExit]

[1]
   Stream$="Build"
   UnkStream$=trim$(Stream$)
 if UnkStream$="" then [bsubexit]
 PassAssociate$=Unk5$
 call SubRuleCoder$ UnkStream$,PassAssociate$,Association$
   BldKy$=word$(Association$,1)
   Unk1$=BldKy$:Unk2$=BldKy$
   print " Unk1$ or Unk2$ ";Association$
[bsubexit]
return

[2]
  Stream$="get and copy"
  UnkStream$=trim$(Stream$)
 if UnkStream$="" then [csubexit]
 call SubRuleCoder$ UnkStream$,PassAssociate$,Association$
  GtCpyKy$=word$(Association$,1)
  Unk3$=GtCpyKy$
  print " Unk3$ ";Association$
[csubexit]
return

[subExit]
 end sub

   'call RecordKey$ RcrdK$,KeyRecord$
 Sub RecordKey$ byref RcrdK$,byref KeyRecord$
 KeyRecord$=KeyRecord$;RcrdK$;" "
 end sub




  

[xxgeek]

Define "cleaning" for me will ya Don?

Not sure what you mean.
I see quite a few errors needing attention.

All your buttons will need unique names
eg: #1.text is ok, but the others are all just #1 without an identifier, and won't work. Only the last one would have worked.

eg: #1.build
#1.get etc etc

I made a few other adjustments in the code and marked them with comments.
btw - Thanks for taking the extra empty lines out.

I ran it through the Pro code formatter for you too, so it looks nice and pretty

You should consider the Pro version, just for the formatting.
I won't live forever you know LOL
Hope this helps somewhat..

    Pi=atn(1)*4:Pi2=(Pi*2):Mdeg=(180/Pi):Mrdn=(Pi/180)
   Classe$="Thoughts Relations Options Perspectives Rules"
   global Pi,Pi2,Mdeg,Mrdn,Classe$
   'FrgPassAssociate$=str$(8.333e-10)
   Strm$(1)="Donnie was here with Judy for a glorious while ."
   Strm$(2)="Donnie and Judy are eternaly in love ."
   notice "close #1 after First_Speek"
   PassAssociate$=""
   '    Stream$=Strm$(1)
   Prompt "Stream$ ";Stream$             '??????????????????????????????????????? READ_InPUT$
   ' display menu screen ;,  read streams and get_base_Association$
   gosub [Directory$]
   print "Here at Continue"
   if blockCd$<>"" then
       print "Passassociation_Tag$ blockCd$ ";blockCd$
       print "Passassociation_Tag is ";blockCd$
   end if
   wait

   '@@@@@@@
[MainRuleCoder$]
   UnkStream$=trim$(Stream$)
   if UnkStream$="" then [Mainexit]
   T=Pi2*1e99
   Lmt=len(UnkStream$)
   for j=1 to Lmt
       D=asc(mid$(UnkStream$,j,1))
       Flg$=""
       if D>256 or D=32 then Flg$="activ"
       if Flg$="activ" then call FragSub$ Fragment$,FragCd,PassAssociate$,Association$,FrgPassAssociate$
       Flg$=""
       R=D+(1/T)
       TL$=TL$;str$(T);" "
       c=(1/(R*360))*.33
       A=atn(T/R)*Mdeg:strmAL$=strmAL$;str$(A);" "
       AL$=AL$;str$(A);" "
       L=(1/A)*Pi2
       f=1/((L*c)^.5*Pi2)
       T=f:strmTL$=strmTL$;str$(T);" "
       FL$=FL$;str$(f);" "
       Ele=((1/R)+(1/f)+(1/A))
       EleCd=EleCd+Ele
       call gated$ EleCd, gated$
       EleCd=val(gated$)
       FragCd=FragCd+Ele
       call gated$ FragCd,gated$
       FragCd=val(gated$)
       StrmCd=StrmCd+FragCd
       call gated$ StrmCd, gated$
       StrmCd=val(gated$)
   next j
   call StrmSub$ StrmCd,PassAssociate$,Association$

[Mainexit]
   return

[OnMainCoder]
   gosub [MainRuleCoder$]
   return

   '@@@@@@@
Sub SubRuleCoder$ byref Stream$,byref PassAssociate$,byref Association$
   UnkStream$=trim$(Stream$);" "
   if UnkStream$="" then [subexit]
   T=Pi2*1e99
   Lmt=len(UnkStream$)
   for j=1 to Lmt
       D=asc(mid$(UnkStream$,j,1))
       Flg$=""
       if D>256 or D=32 then Flg$="activ"
       if Flg$="activ" then call FragSub$ Fragment$,FragCd,PassAssociate$,Association$,FrgPassAssociate$
       Flg$=""
       R=D+(1/T)
       TL$=TL$;str$(T);" "
       c=(1/(R*360))*.33
       A=atn(T/R)*Mdeg:strmAL$=strmAL$;str$(A);" "
       AL$=AL$;str$(A);" "
       L=(1/A)*Pi2
       f=1/((L*c)^.5*Pi2)
       T=f:strmTL$=strmTL$;str$(T);" "
       FL$=FL$;str$(f);" "
       Ele=((1/R)+(1/f)+(1/A))
       EleCd=EleCd+Ele
       call gated$ EleCd, gated$
       EleCd=val(gated$)
       Fragment$=Fragment$;chr$(D)
       FragCd=FragCd+Ele
       call gated$ FragCd,gated$
       FragCd=val(gated$)
       StrmCd=StrmCd+FragCd
       call gated$ StrmCd, gated$
       StrmCd=val(gated$)
   next j
   call StrmSub$ StrmCd,PassAssociate$,Association$

[subexit]
end sub

[OnSubCoder]
   call SubRuleCoder$ Stream$,PassAssociate$,Association$
   return

   '@@@@@@@
Sub ExtndedRuleCoder$ byref Stream$,byref PassAssociate$,byref Association$
   UnkStream$=trim$(Stream$)
   if UnkStream$="" then [subexit]
   T=Pi2*1e99
   Lmt=len(UnkStream$)
   for j=1 to Lmt
       D=asc(mid$(UnkStream$,j,1))
       Flg$=""
       if D>256 or D=32 then Flg$="activ"
       if Flg$="activ" then call FragSub$ Fragment$,FragCd,PassAssociate$,Association$,FrgPassAssociate$
       Flg$=""
       R=D+(1/T)
       TL$=TL$;str$(T);" "
       c=(1/(R*360))*.33
       A=atn(T/R)*Mdeg:strmAL$=strmAL$;str$(A);" "
       AL$=AL$;str$(A);" "
       L=(1/A)*Pi2
       f=1/((L*c)^.5*Pi2)
       T=f:strmTL$=strmTL$;str$(T);" "
       FL$=FL$;str$(f);" "
       Ele=((1/R)+(1/f)+(1/A))
       EleCd=EleCd+Ele
       call gated$ EleCd, gated$
       EleCd=val(gated$)
       FragCd=FragCd+Ele
       call gated$ FragCd,gated$
       FragCd=val(gated$)
       StrmCd=StrmCd+FragCd
       call gated$ StrmCd, gated$
       StrmCd=val(gated$)
   next j
   call StrmSub$ StrmCd,PassAssociate$,Association$
[subexit]
end sub

''Prompt "Stream$ ";Stream$             '?????????????????????????????????????????????????????
[OnExtndedCoder]
   call ExtndedRuleCoder$ Stream$,PassAssociate$,Association$
   return

Function Lng(byref Stream$)
[loop]
   q=q+1
   Ck$=word$(Stream$,q)
   if Ck$<>"" then [loop]
   Lng=q-1
end function

'call gated$ Fragment$,FragCd,gated$
Sub gated$ byref Unk1,byref Unk2$
   if Unk1>1 then Unk1=(1/Unk1)
   Unk2$=str$(Unk1)
end sub

Sub FragSub$ byref Fragment$,FragCd,byref PassAssociate$,byref Association$,FrgPassAssociate$
   GvnFragCd=FragCd
   if FrgPassAssociate$<>"" then PassAssociate$=FrgPassAssociate$
   if PassAssociate$<>"" then
       Symbol3$=""
       Stream$=Fragment$
       ''Prompt "Stream$ ";Stream$             '?????????????????????????????????????????????????????
       call ExtndedRuleCoder$ Stream$,PassAssociate$,Association$
       print "~~~~~~ EffectOfPassAssociate$~~~~~~~~~~ ";Association$
   end if
   if Fragment$<>"" then print Fragment$:Fragment$=""
   Tag$=str$(FragCd)
   call Runtag Tag$,PassAssociate$,transfer$,Association$
end sub

Sub StrmSub$ byref StrmCd,byref PassAssociate$,byref Association$
   Tag$=str$(StrmCd)
   call Runtag Tag$,PassAssociate$,transfer$,Association$
   'print tab(16);"Complete Association$ ";Association$
end sub

'call Runtag Tag$,PassAssociate$,transfer$,Association$
Sub Runtag Tag$,PassAssociate$,byref transfer$,byref Association$
   if Tag$="" then [subexit]
   amp=3.33e-5
   transfer$="":Association$=""
   if val(PassAssociate$)<=1e-22 then PassAssociate$=str$(1)   'avoid zero1
   pertransfer=(((val(Tag$)*-1)+(Pi2/1))* val(PassAssociate$) * amp)
   call gated$ pertransfer, gated$
   pertransfer=val(gated$)
   transfer$=gated$
   call Association$ AssociateOf$,transfer$,Association$
[subexit]
end sub

'call Association$ AssociateOf$,transfer$,Association$
Sub Association$ byref AssociateOf$,byref transfer$,byref Association$
   if SymblPrymKy$="" then SymblPrymKy$=str$(1)
   AssociateOf$=str$(val(transfer$)+(val(SymblPrymKy$)*1/Pi2))
   Commons= -0.5+(val(transfer$)+val(AssociateOf$))*((1/val(AssociateOf$))*0.5)
   if Commons<1e-15 then Commons=val(AssociateOf$)
   parseMe$=str$(((1/(val(transfer$)*373466))*(Commons^2)))
   gosub [Perse]
   LgcLabel$="[";Associate$;"]"
   Association$=str$(Commons);" ";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 Associate$=Associate$;token$
[Skip]
   wend
   return
[AssoExit]
end sub

[Directory$]
   '  call RecordKey$ SymblPrymKy$,KeyRecord$
   ExitFlag$="No":cc=1
   print tab(16);"KeyRecord$Symbls ";KeyRecord$
   button #1, " &Ok ", [Ok], UL, 270, 100
   WindowWidth = 390
   WindowHeight = 180
   checkbox #1.cb, "I am a checkbox", [set], [reset], 10, 10, 130, 20

'xxgeek added unique identifiers for all buttons, and moved the OK button
   button #1.build, " Build ", [setBuild], UL, 10, 40, 40, 25
   button #1.get, " Get ", [setGet], UL, 60, 40, 40, 25
   button #1.copy, " Copy ", [setCopy], UL, 105, 40, 40, 25
   button #1.eit, " Exit ", [Exit], UL, 238, 40, 40, 25
   button #1.setChkBx, " Set ", [setCheckBox], UL, 10, 65, 40, 25
   button #1.setobjAso, "set ObjectAso ", [Object], UL, 60, 65, 75, 25
   button #1.setObjPrs, "set ObjectPrsptvAso ", [ObjectPrsptv], UL, 145, 65, 110, 25
   button #1.setPerAso, "set PersptvAso ", [Persptv], UL, 265, 65, 80, 25
   button #1.resetChkBx, " Reset ", [resetCheckBox], UL, 278, 40, 65, 25
   button #1.xtrPassAso, " xtrnalPassAsso ", [PassAssociation], UL, 150, 40, 78, 25
   button #1.spkToMme, " SpeakToMe ", [SpeekToMe],  UL, 10, 120, 75, 25
   button #1.readMe, " ReadMe ", [callReadMe], UL, 85, 120, 75, 25
   button #1.casss, " Casses ", [Casses], UL, 158, 120, 75, 25
   textbox #1.text, 10, 90, 100, 24
   UpperLeftX = 150
   UpperLeftY = 625
   open "Checkbox test" for dialog as #1
   print #1, "trapclose [Quit.Exit]"
   'wait here for user actions
   print " @@@@@@@@@ Waiting @@@@@@@@@@"
   wait

[close]
   'close #1.text - xxgeek says "You can't close a textbox"
   ' - you can hide it if you want, or disable it. With    #1.text "!disable"    or    #1.text "!enable"
   close #1
   return

[Exit]
   cc=cc+1
   if cc>3 then cc=1
   if ExitFlag$="" then [close]
   goto [Ok]
   '  close #1.text
   '  close #1
   '  gosub [Directory$]

[Quit.Exit]
   'close #1.text  - xxgeek says "You can't close a textbox"
   close #1
   'return - xxgeek asks - return from the dead? - was getting "return with no gosub" ERROR
   end ' end the program instead

[Casses]
   notice Classe$
   Prompt " Casses a b c d e";Case$
   select case
       case Case$=word$(Classe$,1)
       CaseOut$=Case$
       case Case$=word$(Classe$,2)
       CaseOut$=Case$
       case Case$=word$(Classe$,3)
       CaseOut$=Case$
       case Case$=word$(Classe$,4)
       CaseOut$=Case$
       case Case$=word$(Classe$,5)
       CaseOut$=Case$
       case else
       CaseOut$=word$(Classe$,1)
   end select
   print " CaseOut$ ";CaseOut$
   goto [Ok]

[Object]
   '  cc=cc+1
   '  if cc>3 then cc=0
   if cc=1 then notice "He said  {rem [Exit] cc++} cc is ";str$;(cc)
   if cc=2 then notice "She says  {rem [Exit] cc++}cc is ";str$;(cc)
   if cc=3 then notice "This week {rem [Exit] cc++}cc is ";str$;(cc)
   if ExitFlag$="" then return
   Respond$="":FrgPassAssociate$=""                 'XXXXXXXXXXXXXXXXXXX_Ba ; Bb; Bc
   if cc>1 then  close #Nte
   gosub [SpeekToMe]
   gosub [callReadMe]
       '  prompt "Frgament$ Association Phrase";Respond$
   ExitFlag$=Respond$
   if Respond$<>"" then
       '     Stream$=Respond$:CarryStream$=Stream$:print CarryStream$

       '  call SubRuleCoder$ Stream$,PassAssociate$,Association$
       '  print tab(16);"Object-Pass_Association> ";Association$
       '   FrgPassAssociate$=word$(Association$,1)
   end if
   wait

[SpeekToMe]
   blockCd=0
   Open "Notes.txt" for output as #Nte
   print #1, "trapclose [ExisLp]"
[Lp]
   Respond$=""
   Prompt "Speek";Respond$ ' speek is spelled wrong - so what - won't hurt anything
   if Respond$="q" then blockCd$=str$(blockCd):goto [ExisLp]
   if Respond$<>"" then
       Stream$=Respond$
       print #Nte,Stream$
       gosub [OnMainCoder]
       blockCd=blockCd+val(word$(Association$,1))
       call gated$ blockCd, gated$
       blockCd=val(gated$)
       print "~~~~~~~~~~~~~~~ Association$ ";Association$
       print "Speeker ";Association$;"  ";Stream$
       else  '- added by xgeek
       goto [ExisLp]  ' added by xxgeek (couldn't close the "Speek" Prompt - it looped if no entry made"
   end if
   goto [Lp]
[ExisLp]
   print " @@@@@@@@@ Waiting @@@@@@@@@@"
   return

[callReadMe]
   gosub [ReadMe]
   goto [Ok]

[ReadMe]
   Key$=""
   Open "Notes.txt" for input as #SNte
[iLp]
   if eof(#SNte)<0 then [Exisin]
   line input #SNte,Stream$
   gosub [OnMainCoder]
   print "Speeker ";Association$;"  ";Stream$
   if eof(#SNte)=0 then [iLp]
[Exisin]
   '   Respond$=""
   '  Prompt "q to exit";Respond$
   '  if Respond$="q" then
   close #SNte
   return

[Ok]
   Build$="":Get$=""
   scan
   goto [Ok]

[PassAssociation]
   print #1.text, "External PassAssociation"; t$
   Respond$=""
   prompt "Phrase_PassAssociation";Respond$
   call SubRuleCoder$ Respond$,PassAssociate$,Association$
   PassAssociate$=word$(Association$,1)
   PassAssociateCell$=word$(Association$,2)
   goto [Ok]

[ObjectPrsptv]
   Typ$="B"
   print #1.text, "I am PassKyB$"; t$
   goto [setBuild]

[Persptv]
   Typ$="A"                  'set symbolic condition Id
   print #1.text, "I am PassKyA$"; t$
   goto [setBuild]

[set]
   print #1.cb, "value? t$"
   print #1.text, "I am "; t$
   goto [Ok]

[setCheckBox]
   print #1.cb, "set"
   goto [Ok]

[resetCheckBox]
   print #1.cb, "reset"
   goto [Ok]

[Reset]
   print #1.cb, "value? t$"
   print #1.text, "Checkbox is "; t$
   goto [Ok]

[setGet]
   Get$="Call Copy"
   Stream$=PassPhrase$
   gosub [ReadPass]
   goto [Ok]

[setCopy]
   Copy$="Call Copy"
   Stream$=PassPhrase$
   gosub [ReadPass]
   goto [Ok]

[ReadPass]
   Select case
       case Typ$="A"
       Build$="Y"
       PassAssociate$=OpAssocKy$
       print " PassAssociate$ PassKyA$ ";PassAssociate$:PassKyA$=""
       case Get$="B"
       Build$="Y"                'set symbolic condition Id
       PassAssociate$=OpAssocKy$
       Tag$=OpAssocKy$
       call Runtag Tag$,PassAssociate$,transfer$,Association$
       PassAssociate$=word$(Association$,1)
       print " PassAssociate$ PassKyB$ ";PassAssociate$:PassKyB$=""
       case Typ$="C"
       Get$="Y"                  'set symbolic condition Id
       PassAssociate$=OpAssocKy$
       print " PassAssociate$ PassKyC$ ";PassAssociate$:PassKyC$=""
   end select
   return

[BttnAssociation]
   print " C_! >> PassAssociation ";PassAssociate$;" Tag$ ";SymblPrymKy$
   '  print "@@@@@@@@@@@ PassAssociate$ @@@@@@@@@@"
   return

[setBuild]
   gosub [ReadPass]
   'xgeek- changed all respond$ to Respond$ - to avoid similar variable names
   PassPhrase$="":Respond$=""
   prompt " PassPhrase ";Respond$
   if Respond$<>"" then
       if Typ$<>"" then OpAssocKy$=SymblPrymKy$    'XXXXXXXXXXXXXXXXXXXXXXXXX
       gosub [BttnAssociation]
       if Typ$<>"" then PassAssociate$=OpAssocKy$  'XXXXXXXXXXXXXXXXXXXXXXXXX
       print tab(4);" OpAssocKy$ ";PassAssociate$   'XXXXXXXXXXXXXXXXXXXXXXXXX
       PassPhrase$=Respond$:UnkStream$=PassPhrase$
       print " ";UnkStream$
       call SubRuleCoder$ UnkStream$,PassAssociate$,Association$
       PrymKy$=word$(Association$,1)
       PrymCll$=word$(Association$,2)
       print "Ba_! key>> PrymKy$ ";PrymKy$
       print "Bb_! cll>> PrymCll$ ";PrymCll$
       HoldKy$=Association$
       if Typ$<>"" then OpAssocKy$=word$(Association$,1)':PassAssociate$=OpAssocKy$
       Call RuleofExectWord$ Build$,Get$,Copy$,Association$,Return$,PassAssociate$
       print tab(36);"   Type      Origin       {Passed} // extion Key & Cell"
       print tab(16);"Key Association is  ";Return$;" ";SymblPrymKy$;"    ";HoldKy$
       PrymKy$=HoldKy$:ExtendedAssociation$=HoldKy$
       print tab(6);"Ea_! ExtendedAssociation$>> ";HoldKy$
       PrymKy$=HoldKy$
       Stream$="SymblPrymKy$"
       gosub [OnSubCoder]
       Stream$=word$(Association$,1);"_";PrymKy$
       gosub [OnSubCoder]
       SymblPrymKy$=word$(Association$,1)
       SymLgcK$="SymblLgcKy$";SymblPrymKy$
       print tab(26);"Db_! >> SymblLgc$ ";SymLgcK$
       SymblPrymCll$=word$(Association$,2)
       print tab(26);"Da_! >> SymblLgcKey$ ";SymblPrymKy$
       print tab(26);"Da_! >> SymblLgc$Cll$,";SymblPrymCll$
       call RecordKey$ SymblPrymKy$,KeyRecord$
       print tab(16);"KeyRecord$Symbls ";KeyRecord$
   end if
   goto [Ok]

   'Call Object.Prsptv.RuleofExectWord$ Build$,Get$,Copy$,Association$,Return$,PassAssociate$
Sub RuleofExectWord$ byref Unk1$,byref Unk2$,byref Unk3$,byref Association$,byref Unk4$,byref Unk5$
   select case
       case Unk1$<>"",Unk2$<>""
       gosub [1]
       case  Unk3$<>""
       gosub [2]
   end select
   goto [subExit]
[1]
   Stream$="Build"
   UnkStream$=trim$(Stream$)
   if UnkStream$="" then [bsubexit]
   PassAssociate$=Unk5$
   call SubRuleCoder$ UnkStream$,PassAssociate$,Association$
   BldKy$=word$(Association$,1)
   Unk1$=BldKy$:Unk2$=BldKy$
   print " Unk1$ or Unk2$ ";Association$
[bsubexit]
   return
[2]
   Stream$="get and copy"
   UnkStream$=trim$(Stream$)
   if UnkStream$="" then [csubexit]
   call SubRuleCoder$ UnkStream$,PassAssociate$,Association$
   GtCpyKy$=word$(Association$,1)
   Unk3$=GtCpyKy$
   print " Unk3$ ";Association$
[csubexit]
   return
[subExit]
end sub

'call RecordKey$ RcrdK$,KeyRecord$
Sub RecordKey$ byref RcrdK$,byref KeyRecord$
   KeyRecord$=KeyRecord$;RcrdK$;" "
end sub



[windfire]

Thank xxgeek , I missed that with the buttons but my program was working so i did not catch it.
I'm having trouble getting the button calls to be independent and closing or not closing the Open window.
The Button window is the only part thats giving me trouble.
The button window opens and closes several times but i want it work until i exit the window.
I want to use any button without An error or window close until i exit the program.
Thought this information might help.
My program work better than the clean up for some reason.

[xxgeek]

Ok, here's the original code.
All I did was run it through the PRO formatter, no code changes.
I might have changed something that didn't need it in the last post.
See what you can do first, and if there's something specific you need some help with, post back.


    Pi=atn(1)*4:Pi2=(Pi*2):Mdeg=(180/Pi):Mrdn=(Pi/180)
   Classe$="Thoughts Relations Options Perspectives Rules"
   global Pi,Pi2,Mdeg,Mrdn,Classe$

   'FrgPassAssociate$=str$(8.333e-10)
   Strm$(1)="Donnie was here with Judy for a glorious while ."
   Strm$(2)="Donnie and Judy are eternaly in love ."
   notice "close #1 after First_Speek"
   PassAssociate$=""
   '    Stream$=Strm$(1)
   Prompt "Stream$ ";Stream$             '??????????????????????????????????????? READ_InPUT$

   ' display menu screen ;,  read streams and get_base_Association$
   gosub [Directory$]
   print "Here at Continue"

   if blockCd$<>"" then

       print "Passassociation_Tag$ blockCd$ ";blockCd$
       print "Passassociation_Tag is ";blockCd$
   end if
   wait
   '@@@@@@@
[MainRuleCoder$]
   UnkStream$=trim$(Stream$)
   if UnkStream$="" then [Mainexit]
   T=Pi2*1e99
   Lmt=len(UnkStream$)

   for j=1 to Lmt
       D=asc(mid$(UnkStream$,j,1))
       Flg$=""
       if D>256 or D=32 then Flg$="activ"
       if Flg$="activ" then call FragSub$ Fragment$,FragCd,PassAssociate$,Association$,FrgPassAssociate$
       Flg$=""
       R=D+(1/T)
       TL$=TL$;str$(T);" "
       c=(1/(R*360))*.33
       A=atn(T/R)*Mdeg:strmAL$=strmAL$;str$(A);" "
       AL$=AL$;str$(A);" "
       L=(1/A)*Pi2
       f=1/((L*c)^.5*Pi2)
       T=f:strmTL$=strmTL$;str$(T);" "
       FL$=FL$;str$(f);" "
       Ele=((1/R)+(1/f)+(1/A))
       EleCd=EleCd+Ele
       call gated$ EleCd, gated$
       EleCd=val(gated$)
       FragCd=FragCd+Ele
       call gated$ FragCd,gated$
       FragCd=val(gated$)

       StrmCd=StrmCd+FragCd
       call gated$ StrmCd, gated$
       StrmCd=val(gated$)
   next j
   call StrmSub$ StrmCd,PassAssociate$,Association$
[Mainexit]
   return

[OnMainCoder]
   gosub [MainRuleCoder$]
   return
   '@@@@@@@
Sub SubRuleCoder$ byref Stream$,byref PassAssociate$,byref Association$
   UnkStream$=trim$(Stream$);" "
   if UnkStream$="" then [subexit]
   T=Pi2*1e99
   Lmt=len(UnkStream$)
   for j=1 to Lmt
       D=asc(mid$(UnkStream$,j,1))
       Flg$=""
       if D>256 or D=32 then Flg$="activ"
       if Flg$="activ" then call FragSub$ Fragment$,FragCd,PassAssociate$,Association$,FrgPassAssociate$
       Flg$=""
       R=D+(1/T)
       TL$=TL$;str$(T);" "
       c=(1/(R*360))*.33
       A=atn(T/R)*Mdeg:strmAL$=strmAL$;str$(A);" "
       AL$=AL$;str$(A);" "
       L=(1/A)*Pi2
       f=1/((L*c)^.5*Pi2)
       T=f:strmTL$=strmTL$;str$(T);" "
       FL$=FL$;str$(f);" "
       Ele=((1/R)+(1/f)+(1/A))
       EleCd=EleCd+Ele
       call gated$ EleCd, gated$
       EleCd=val(gated$)
       Fragment$=Fragment$;chr$(D)
       FragCd=FragCd+Ele
       call gated$ FragCd,gated$
       FragCd=val(gated$)

       StrmCd=StrmCd+FragCd
       call gated$ StrmCd, gated$
       StrmCd=val(gated$)
   next j
   call StrmSub$ StrmCd,PassAssociate$,Association$
[subexit]
end sub

[OnSubCoder]
   call SubRuleCoder$ Stream$,PassAssociate$,Association$
   return
   '@@@@@@@
Sub ExtndedRuleCoder$ byref Stream$,byref PassAssociate$,byref Association$
   UnkStream$=trim$(Stream$)
   if UnkStream$="" then [subexit]
   T=Pi2*1e99
   Lmt=len(UnkStream$)
   for j=1 to Lmt
       D=asc(mid$(UnkStream$,j,1))
       Flg$=""
       if D>256 or D=32 then Flg$="activ"
       if Flg$="activ" then call FragSub$ Fragment$,FragCd,PassAssociate$,Association$,FrgPassAssociate$
       Flg$=""
       R=D+(1/T)
       TL$=TL$;str$(T);" "
       c=(1/(R*360))*.33
       A=atn(T/R)*Mdeg:strmAL$=strmAL$;str$(A);" "
       AL$=AL$;str$(A);" "
       L=(1/A)*Pi2
       f=1/((L*c)^.5*Pi2)
       T=f:strmTL$=strmTL$;str$(T);" "
       FL$=FL$;str$(f);" "
       Ele=((1/R)+(1/f)+(1/A))
       EleCd=EleCd+Ele
       call gated$ EleCd, gated$
       EleCd=val(gated$)
       FragCd=FragCd+Ele
       call gated$ FragCd,gated$
       FragCd=val(gated$)

       StrmCd=StrmCd+FragCd
       call gated$ StrmCd, gated$
       StrmCd=val(gated$)
   next j
   call StrmSub$ StrmCd,PassAssociate$,Association$
[subexit]
end sub

''Prompt "Stream$ ";Stream$             '?????????????????????????????????????????????????????
[OnExtndedCoder]
   call ExtndedRuleCoder$ Stream$,PassAssociate$,Association$
   return

Function Lng(byref Stream$)
[loop]
   q=q+1
   Ck$=word$(Stream$,q)
   if Ck$<>"" then [loop]
   Lng=q-1
end function

'call gated$ Fragment$,FragCd,gated$
Sub gated$ byref Unk1,byref Unk2$
   if Unk1>1 then Unk1=(1/Unk1)
   Unk2$=str$(Unk1)
end sub
Sub FragSub$ byref Fragment$,FragCd,byref PassAssociate$,byref Association$,FrgPassAssociate$
   GvnFragCd=FragCd
   if FrgPassAssociate$<>"" then PassAssociate$=FrgPassAssociate$
   if PassAssociate$<>"" then
       Symbol3$=""
       Stream$=Fragment$
       ''Prompt "Stream$ ";Stream$             '?????????????????????????????????????????????????????
       call ExtndedRuleCoder$ Stream$,PassAssociate$,Association$
       print "~~~~~~ EffectOfPassAssociate$~~~~~~~~~~ ";Association$
   end if
   if Fragment$<>"" then print Fragment$:Fragment$=""
   Tag$=str$(FragCd)
   call Runtag Tag$,PassAssociate$,transfer$,Association$
end sub

Sub StrmSub$ byref StrmCd,byref PassAssociate$,byref Association$
   Tag$=str$(StrmCd)
   call Runtag Tag$,PassAssociate$,transfer$,Association$
   'print tab(16);"Complete Association$ ";Association$
end sub
'call Runtag Tag$,PassAssociate$,transfer$,Association$

Sub Runtag Tag$,PassAssociate$,byref transfer$,byref Association$
   if Tag$="" then [subexit]
   amp=3.33e-5
   transfer$="":Association$=""
   if val(PassAssociate$)<=1e-22 then PassAssociate$=str$(1)   'avoid zero1
   pertransfer=(((val(Tag$)*-1)+(Pi2/1))* val(PassAssociate$) * amp)
   call gated$ pertransfer, gated$
   pertransfer=val(gated$)
   transfer$=gated$
   call Association$ AssociateOf$,transfer$,Association$

[subexit]
end sub
'call Association$ AssociateOf$,transfer$,Association$
Sub Association$ byref AssociateOf$,byref transfer$,byref Association$
   if SymblPrymKy$="" then SymblPrymKy$=str$(1)
   AssociateOf$=str$(val(transfer$)+(val(SymblPrymKy$)*1/Pi2))
   Commons= -0.5+(val(transfer$)+val(AssociateOf$))*((1/val(AssociateOf$))*0.5)
   if Commons<1e-15 then Commons=val(AssociateOf$)
   parseMe$=str$(((1/(val(transfer$)*373466))*(Commons^2)))
   gosub [Perse]
   LgcLabel$="[";Associate$;"]"
   Association$=str$(Commons);" ";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 Associate$=Associate$;token$
[Skip]
   wend
   return

[AssoExit]
end sub

[Directory$]

   '  call RecordKey$ SymblPrymKy$,KeyRecord$
   ExitFlag$="No":cc=1
   print tab(16);"KeyRecord$Symbls ";KeyRecord$
   button #1, " &Ok ", [Ok], UL, 120, 90
   WindowWidth = 390
   WindowHeight = 180
   checkbox #1.cb, "I am a checkbox", [set], [reset], 10, 10, 130, 20

   button #1, " Build ", [setBuild], UL, 10, 40, 40, 25
   button #1, " Get ", [setGet], UL, 60, 40, 40, 25
   button #1, " Copy ", [setCopy], UL, 105, 40, 40, 25
   button #1, " Exit ", [Exit], UL, 238, 40, 40, 25
   button #1, " Set ", [setCheckBox], UL, 10, 65, 40, 25
   button #1, "set ObjectAso ", [Object], UL, 60, 65, 75, 25
   button #1, "set ObjectPrsptvAso ", [ObjectPrsptv], UL, 145, 65, 110, 25
   button #1, "set PersptvAso ", [Persptv], UL, 265, 65, 80, 25
   button #1, " Reset ", [resetCheckBox], UL, 278, 40, 65, 25
   button #1, " xtrnalPassAsso ", [PassAssociation], UL, 150, 40, 78, 25
   button #1, " SpeekToMe ", [SpeekToMe],  UL, 10, 120, 75, 25
   button #1, " ReadMe ", [callReadMe], UL, 85, 120, 75, 25
   button #1, " Casses ", [Casses], UL, 158, 120, 75, 25

   textbox #1.text, 10, 90, 100, 24
   UpperLeftX = 150
   UpperLeftY = 625
   open "Checkbox test" for dialog as #1
   print #1, "trapclose [Quit.Exit]"
   'wait here for user actions
   print " @@@@@@@@@ Waiting @@@@@@@@@@"
   wait

[close]
   close #1.text
   close #1
   return

[Exit]
   cc=cc+1
   if cc>3 then cc=1
   if ExitFlag$="" then [close]
   goto [Ok]
   '  close #1.text
   '  close #1
   '  gosub [Directory$]

[Quit.Exit]
   close #1.text
   close #1
   return


[Casses]
   notice Classe$
   Prompt " Casses a b c d e";Case$

   select case
       case Case$=word$(Classe$,1)
       CaseOut$=Case$
       case Case$=word$(Classe$,2)
       CaseOut$=Case$
       case Case$=word$(Classe$,3)
       CaseOut$=Case$
       case Case$=word$(Classe$,4)
       CaseOut$=Case$
       case Case$=word$(Classe$,5)
       CaseOut$=Case$
       case else
       CaseOut$=word$(Classe$,1)
   end select
   print " CaseOut$ ";CaseOut$
   goto [Ok]


[Object]
   '  cc=cc+1
   '  if cc>3 then cc=0
   if cc=1 then notice "He said  {rem [Exit] cc++} cc is ";str$;(cc)
   if cc=2 then notice "She says  {rem [Exit] cc++}cc is ";str$;(cc)
   if cc=3 then  notice "This week {rem [Exit] cc++}cc is ";str$;(cc)
   if ExitFlag$="" then return
   Respond$="":FrgPassAssociate$=""                 'XXXXXXXXXXXXXXXXXXX_Ba ; Bb; Bc
   if cc>1 then  close #Nte
   gosub [SpeekToMe]
   gosub [callReadMe]

   '  prompt "Frgament$ Association Phrase";Respond$
   ExitFlag$=Respond$
   if Respond$<>"" then
       '     Stream$=Respond$:CarryStream$=Stream$:print CarryStream$
       '  call SubRuleCoder$ Stream$,PassAssociate$,Association$
       '  print tab(16);"Object-Pass_Association> ";Association$
       '   FrgPassAssociate$=word$(Association$,1)
   end if
   wait

[SpeekToMe]
   blockCd=0
   Open "Notes.txt" for output as #Nte
   print #1, "trapclose [ExisLp]"
[Lp]
   Respond$=""
   Prompt "Speek";Respond$
   if Respond$="q" then blockCd$=str$(blockCd):goto [ExisLp]
   if Respond$<>"" then
       Stream$=Respond$
       print #Nte,Stream$
       gosub [OnMainCoder]
       blockCd=blockCd+val(word$(Association$,1))
       call gated$ blockCd, gated$
       blockCd=val(gated$)
       print "~~~~~~~~~~~~~~~ Association$ ";Association$
       print "Speeker ";Association$;"  ";Stream$
   end if
   goto [Lp]

[ExisLp]
   print " @@@@@@@@@ Waiting @@@@@@@@@@"
   return

[callReadMe]
   gosub [ReadMe]
   goto [Ok]

[ReadMe]
   Key$=""
   Open "Notes.txt" for input as #SNte
[iLp]
   if eof(#SNte)<0 then [Exisin]
   line input #SNte,Stream$
   gosub [OnMainCoder]
   print "Speeker ";Association$;"  ";Stream$
   if eof(#SNte)=0 then [iLp]
[Exisin]
   '   Respond$=""
   '  Prompt "q to exit";Respond$
   '  if Respond$="q" then
   close #SNte
   return

[Ok]
   Build$="":Get$=""
   scan
   goto [Ok]

[PassAssociation]
   print #1.text, "External PassAssociation"; t$
   Respond$=""
   prompt "Phrase_PassAssociation";Respond$
   call SubRuleCoder$ Respond$,PassAssociate$,Association$
   PassAssociate$=word$(Association$,1)
   PassAssociateCell$=word$(Association$,2)
   goto [Ok]

[ObjectPrsptv]
   Typ$="B"
   print #1.text, "I am PassKyB$"; t$
   goto [setBuild]

[Persptv]
   Typ$="A"                  'set symbolic condition Id
   print #1.text, "I am PassKyA$"; t$
   goto [setBuild]

[set]
   print #1.cb, "value? t$"
   print #1.text, "I am "; t$
   goto [Ok]

[setCheckBox]
   print #1.cb, "set"
   goto [Ok]

[resetCheckBox]
   print #1.cb, "reset"
   goto [Ok]

[Reset]
   print #1.cb, "value? t$"
   print #1.text, "Checkbox is "; t$
   goto [Ok]

[setGet]
   Get$="Call Copy"
   Stream$=PassPhrase$
   gosub [ReadPass]
   goto [Ok]

[setCopy]
   Copy$="Call Copy"
   Stream$=PassPhrase$
   gosub [ReadPass]
   goto [Ok]

[ReadPass]
   Select case
       case Typ$="A"
       Build$="Y"
       PassAssociate$=OpAssocKy$
       print " PassAssociate$ PassKyA$ ";PassAssociate$:PassKyA$=""
       case Get$="B"
       Build$="Y"                'set symbolic condition Id
       PassAssociate$=OpAssocKy$
       Tag$=OpAssocKy$
       call Runtag Tag$,PassAssociate$,transfer$,Association$
       PassAssociate$=word$(Association$,1)
       print " PassAssociate$ PassKyB$ ";PassAssociate$:PassKyB$=""
       case Typ$="C"
       Get$="Y"                  'set symbolic condition Id
       PassAssociate$=OpAssocKy$
       print " PassAssociate$ PassKyC$ ";PassAssociate$:PassKyC$=""
   end select
   return

[BttnAssociation]
   print " C_! >> PassAssociation ";PassAssociate$;" Tag$ ";SymblPrymKy$
   '  print "@@@@@@@@@@@ PassAssociate$ @@@@@@@@@@"
   return

[setBuild]
   gosub [ReadPass]
   PassPhrase$="":respond$=""
   prompt " PassPhrase ";respond$
   if respond$<>"" then
       if Typ$<>"" then OpAssocKy$=SymblPrymKy$    'XXXXXXXXXXXXXXXXXXXXXXXXX
       gosub [BttnAssociation]
       if Typ$<>"" then PassAssociate$=OpAssocKy$  'XXXXXXXXXXXXXXXXXXXXXXXXX
       print tab(4);" OpAssocKy$ ";PassAssociate$   'XXXXXXXXXXXXXXXXXXXXXXXXX
       PassPhrase$=respond$:UnkStream$=PassPhrase$
       print " ";UnkStream$
       call SubRuleCoder$ UnkStream$,PassAssociate$,Association$
       PrymKy$=word$(Association$,1)
       PrymCll$=word$(Association$,2)
       print "Ba_! key>> PrymKy$ ";PrymKy$
       print "Bb_! cll>> PrymCll$ ";PrymCll$
       HoldKy$=Association$
       if Typ$<>"" then OpAssocKy$=word$(Association$,1)':PassAssociate$=OpAssocKy$
       Call RuleofExectWord$ Build$,Get$,Copy$,Association$,Return$,PassAssociate$
       print tab(36);"   Type      Origin       {Passed} // extion Key & Cell"
       print tab(16);"Key Association is  ";Return$;" ";SymblPrymKy$;"    ";HoldKy$
       PrymKy$=HoldKy$:ExtendedAssociation$=HoldKy$
       print tab(6);"Ea_! ExtendedAssociation$>> ";HoldKy$
       PrymKy$=HoldKy$
       Stream$="SymblPrymKy$"
       gosub [OnSubCoder]
       Stream$=word$(Association$,1);"_";PrymKy$
       gosub [OnSubCoder]
       SymblPrymKy$=word$(Association$,1)
       SymLgcK$="SymblLgcKy$";SymblPrymKy$
       print tab(26);"Db_! >> SymblLgc$ ";SymLgcK$
       SymblPrymCll$=word$(Association$,2)
       print tab(26);"Da_! >> SymblLgcKey$ ";SymblPrymKy$
       print tab(26);"Da_! >> SymblLgc$Cll$,";SymblPrymCll$
       call RecordKey$ SymblPrymKy$,KeyRecord$
       print tab(16);"KeyRecord$Symbls ";KeyRecord$
   end if
   goto [Ok]

   'Call Object.Prsptv.RuleofExectWord$ Build$,Get$,Copy$,Association$,Return$,PassAssociate$
Sub RuleofExectWord$ byref Unk1$,byref Unk2$,byref Unk3$,byref Association$,byref Unk4$,byref Unk5$
   select case
       case Unk1$<>"",Unk2$<>""
       gosub [1]
       case  Unk3$<>""
       gosub [2]
   end select
   goto [subExit]

[1]
   Stream$="Build"
   UnkStream$=trim$(Stream$)
   if UnkStream$="" then [bsubexit]
   PassAssociate$=Unk5$
   call SubRuleCoder$ UnkStream$,PassAssociate$,Association$
   BldKy$=word$(Association$,1)
   Unk1$=BldKy$:Unk2$=BldKy$
   print " Unk1$ or Unk2$ ";Association$
[bsubexit]
   return

[2]
   Stream$="get and copy"
   UnkStream$=trim$(Stream$)
   if UnkStream$="" then [csubexit]
   call SubRuleCoder$ UnkStream$,PassAssociate$,Association$
   GtCpyKy$=word$(Association$,1)
   Unk3$=GtCpyKy$
   print " Unk3$ ";Association$
[csubexit]
   return

[subExit]
end sub

'call RecordKey$ RcrdK$,KeyRecord$
Sub RecordKey$ byref RcrdK$,byref KeyRecord$
   KeyRecord$=KeyRecord$;RcrdK$;" "
end sub



[plus]

Gotta say @wildfire it was not clear to me what the mission of the program is to begin with. It starts with one word question, Stream?, as I recall. I type a phase just to see WTH? and get what looks like a controls demo screen

Easier to read minds when use descriptive variable names.

First cleanup I see:
Pi=atn(1)*4:Pi2=(Pi*2):Mdeg=(180/Pi):Mrdn=(Pi/180)
 Classe$="Thoughts Relations Options Perspectives Rules"
   global Pi,Pi2,Mdeg,Mrdn,Classe$

   global Pi, Pi2, Deg2Rad, Rad2Deg, Classe$
   Pi = atn(1)*4
   Pi2 = (Pi*2)
   Rad2Deg = (180/Pi)
   Deg2Rad = (Pi/180)
   Classe$ = "Thoughts Relations Options Perspectives Rules"


Say what is Global first THEN assign values to variable names less ambiguous. Is Classe$ a string you intend on "Word$()"-ing. Then call it ClassMenu$ and assign using delimiter ", " so it looks more like a list.

b = b + ...

[windfire]

Thanks plus
Sorry about the first Stream , was using before and didn,t omit it when I went to Open Write.txt
xxgeek , Found problem.

[SpeekToMe]
blockCd=0
Open "Notes.txt" for output as #Nte
print #1, "trapclose [ExisLp]"
[Lp]
Respond$=""
Prompt "Speek";Respond$
if Respond$="q" then blockCd$=str$(blockCd):<<<<close #Nte >>>:goto [ExisLp]
wasn,t closing on "q" exit.

The mission is simple and complex.

Create Keys and associated Cells Asssociation="0.373723 [0.473645]
Create a logic symbol for refference >> a$0.373723 {notice_key}

If preceeding association {passAssociation<>""} then alter original Key to new key to associate with logical_effect
<ie>
La--- He was mad today.= 0.75644
Lb--- He is in a great mood today.=0.9574
Yb---I want to ask him for a rase.= o.42833 call tag=Yb PassAssociation=La new Association= "0.037288 [0.59594] "I better wait."
call tag=Yb PassAssociation=Lb new Association= "0.037288 [0.59594] "Get it while the gitting is good."
The symbols are for logic-relations later.
Association_key can be Charactures,words,streams,text blocks,text pages,Photos,bmps ect.

[xxgeek]

I hope someone can understand this language.
It's beyond me.

Also
What is the print #1, "trapclose [ExisLp]" for?

Open "Notes.txt" for output as #Nte
print #1, "trapclose [ExisLp]"

You open a file(#Nte), and try to use a 'trapclose for a window'(#1) that didn't get opened.

[windfire]

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

   global Pi,Pi2,Mdeg,Mrdn,Classe$

   Classe$ = "Thoughts Relations Options Perspectives Rules"



   'FrgPassAssociate$=str$(8.333e-10)

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

   Strm$(2)="Donnie and Judy are eternaly in love ."

   'notice "close #1 after First_Speek"

   PassAssociate$=""

   '    Stream$=Strm$(1)

   'Prompt "Stream$ ";Stream$             '??????????????????????????????????????? READ_InPUT$



   ' display menu screen ;,  read streams and get_base_Association$

   gosub [Directory$]

   print "Here at Continue"



   if blockCd$<>"" then



       print "Passassociation_Tag$ blockCd$ ";blockCd$

       print "Passassociation_Tag is ";blockCd$

   end if

   wait

   '@@@@@@@

[MainRuleCoder$]

   UnkStream$=trim$(Stream$)

   if UnkStream$="" then [Mainexit]

   T=Pi2*1e99

   Lmt=len(UnkStream$)



   for j=1 to Lmt

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

       Flg$=""

       if D>256 or D=32 then Flg$="activ"

       if Flg$="activ" then call FragSub$ Fragment$,FragCd,PassAssociate$,Association$,FrgPassAssociate$

       Flg$=""

       R=D+(1/T)

       TL$=TL$;str$(T);" "

       c=(1/(R*360))*.33

       A=atn(T/R)*Mdeg:strmAL$=strmAL$;str$(A);" "

       AL$=AL$;str$(A);" "

       L=(1/A)*Pi2

       f=1/((L*c)^.5*Pi2)

       T=f:strmTL$=strmTL$;str$(T);" "

       FL$=FL$;str$(f);" "

       Ele=((1/R)+(1/f)+(1/A))

       EleCd=EleCd+Ele

       call gated$ EleCd, gated$

       EleCd=val(gated$)

       FragCd=FragCd+Ele

       call gated$ FragCd,gated$

       FragCd=val(gated$)



       StrmCd=StrmCd+FragCd

       call gated$ StrmCd, gated$

       StrmCd=val(gated$)

   next j

   call StrmSub$ StrmCd,PassAssociate$,Association$

[Mainexit]

   return



[OnMainCoder]

   gosub [MainRuleCoder$]

   return

   '@@@@@@@

Sub SubRuleCoder$ byref Stream$,byref PassAssociate$,byref Association$

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

   if UnkStream$="" then [subexit]

   T=Pi2*1e99

   Lmt=len(UnkStream$)

   for j=1 to Lmt

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

       Flg$=""

       if D>256 or D=32 then Flg$="activ"

       if Flg$="activ" then call FragSub$ Fragment$,FragCd,PassAssociate$,Association$,FrgPassAssociate$

       Flg$=""

       R=D+(1/T)

       TL$=TL$;str$(T);" "

       c=(1/(R*360))*.33

       A=atn(T/R)*Mdeg:strmAL$=strmAL$;str$(A);" "

       AL$=AL$;str$(A);" "

       L=(1/A)*Pi2

       f=1/((L*c)^.5*Pi2)

       T=f:strmTL$=strmTL$;str$(T);" "

       FL$=FL$;str$(f);" "

       Ele=((1/R)+(1/f)+(1/A))

       EleCd=EleCd+Ele

       call gated$ EleCd, gated$

       EleCd=val(gated$)

       Fragment$=Fragment$;chr$(D)

       FragCd=FragCd+Ele

       call gated$ FragCd,gated$

       FragCd=val(gated$)



       StrmCd=StrmCd+FragCd

       call gated$ StrmCd, gated$

       StrmCd=val(gated$)

   next j

   call StrmSub$ StrmCd,PassAssociate$,Association$

[subexit]

end sub



[OnSubCoder]

   call SubRuleCoder$ Stream$,PassAssociate$,Association$

   return

   '@@@@@@@

Sub ExtndedRuleCoder$ byref Stream$,byref PassAssociate$,byref Association$

   UnkStream$=trim$(Stream$)

   if UnkStream$="" then [subexit]

   T=Pi2*1e99

   Lmt=len(UnkStream$)

   for j=1 to Lmt

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

       Flg$=""

       if D>256 or D=32 then Flg$="activ"

       if Flg$="activ" then call FragSub$ Fragment$,FragCd,PassAssociate$,Association$,FrgPassAssociate$

       Flg$=""

       R=D+(1/T)

       TL$=TL$;str$(T);" "

       c=(1/(R*360))*.33

       A=atn(T/R)*Mdeg:strmAL$=strmAL$;str$(A);" "

       AL$=AL$;str$(A);" "

       L=(1/A)*Pi2

       f=1/((L*c)^.5*Pi2)

       T=f:strmTL$=strmTL$;str$(T);" "

       FL$=FL$;str$(f);" "

       Ele=((1/R)+(1/f)+(1/A))

       EleCd=EleCd+Ele

       call gated$ EleCd, gated$

       EleCd=val(gated$)

       FragCd=FragCd+Ele

       call gated$ FragCd,gated$

       FragCd=val(gated$)



       StrmCd=StrmCd+FragCd

       call gated$ StrmCd, gated$

       StrmCd=val(gated$)

   next j

   call StrmSub$ StrmCd,PassAssociate$,Association$

[subexit]

end sub



''Prompt "Stream$ ";Stream$             '?????????????????????????????????????????????????????

[OnExtndedCoder]

   call ExtndedRuleCoder$ Stream$,PassAssociate$,Association$

   return



Function Lng(byref Stream$)

[loop]

   q=q+1

   Ck$=word$(Stream$,q)

   if Ck$<>"" then [loop]

   Lng=q-1

end function



'call gated$ Fragment$,FragCd,gated$

Sub gated$ byref Unk1,byref Unk2$

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

   Unk2$=str$(Unk1)

end sub

Sub FragSub$ byref Fragment$,FragCd,byref PassAssociate$,byref Association$,FrgPassAssociate$

   GvnFragCd=FragCd

   if FrgPassAssociate$<>"" then PassAssociate$=FrgPassAssociate$

   if PassAssociate$<>"" then

       Symbol3$=""

       Stream$=Fragment$

       ''Prompt "Stream$ ";Stream$             '?????????????????????????????????????????????????????

       call ExtndedRuleCoder$ Stream$,PassAssociate$,Association$

       print "~~~~~~ EffectOfPassAssociate$~~~~~~~~~~ ";Association$

   end if

   if Fragment$<>"" then print Fragment$:Fragment$=""

   Tag$=str$(FragCd)

   call Runtag Tag$,PassAssociate$,transfer$,Association$

end sub



Sub StrmSub$ byref StrmCd,byref PassAssociate$,byref Association$

   Tag$=str$(StrmCd)

   call Runtag Tag$,PassAssociate$,transfer$,Association$

   'print tab(16);"Complete Association$ ";Association$

end sub

'call Runtag Tag$,PassAssociate$,transfer$,Association$



Sub Runtag Tag$,PassAssociate$,byref transfer$,byref Association$

   if Tag$="" then [subexit]

   amp=3.33e-5

   transfer$="":Association$=""

   if val(PassAssociate$)<=1e-22 then PassAssociate$=str$(1)   'avoid zero1

   pertransfer=(((val(Tag$)*-1)+(Pi2/1))* val(PassAssociate$) * amp)

   call gated$ pertransfer, gated$

   pertransfer=val(gated$)

   transfer$=gated$

   call Association$ AssociateOf$,transfer$,Association$



[subexit]

end sub

'call Association$ AssociateOf$,transfer$,Association$

Sub Association$ byref AssociateOf$,byref transfer$,byref Association$

   if SymblPrymKy$="" then SymblPrymKy$=str$(1)

   AssociateOf$=str$(val(transfer$)+(val(SymblPrymKy$)*1/Pi2))

   Commons= -0.5+(val(transfer$)+val(AssociateOf$))*((1/val(AssociateOf$))*0.5)

   if Commons<1e-15 then Commons=val(AssociateOf$)

   parseMe$=str$(((1/(val(transfer$)*373466))*(Commons^2)))

   gosub [Perse]

   LgcLabel$="[";Associate$;"]"

   Association$=str$(Commons);" ";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 Associate$=Associate$;token$

[Skip]

   wend

   return



[AssoExit]

end sub



[Directory$]



   '  call RecordKey$ SymblPrymKy$,KeyRecord$

   ExitFlag$="No":cc=1

   print tab(16);"KeyRecord$Symbls ";KeyRecord$

   button #1, " &Ok ", [Ok], UL, 120, 90

   WindowWidth = 390

   WindowHeight = 180

   checkbox #1.cb, "I am a checkbox", [set], [reset], 10, 10, 130, 20



   button #1, " Build ", [setBuild], UL, 10, 40, 40, 25

   button #1, " Get ", [setGet], UL, 60, 40, 40, 25

   button #1, " Copy ", [setCopy], UL, 105, 40, 40, 25

   button #1, " Exit ", [Exit], UL, 238, 40, 40, 25

   button #1, " Set ", [setCheckBox], UL, 10, 65, 40, 25

   button #1, "set ObjectAso ", [Object], UL, 60, 65, 75, 25

   button #1, "set ObjectPrsptvAso ", [ObjectPrsptv], UL, 145, 65, 110, 25

   button #1, "set PersptvAso ", [Persptv], UL, 265, 65, 80, 25

   button #1, " Reset ", [resetCheckBox], UL, 278, 40, 65, 25

   button #1, " xtrnalPassAsso ", [PassAssociation], UL, 150, 40, 78, 25

   button #1, " SpeekToMe ", [SpeekToMe],  UL, 10, 120, 75, 25

   button #1, " ReadMe ", [callReadMe], UL, 85, 120, 75, 25

   button #1, " Casses ", [Casses], UL, 158, 120, 75, 25



   textbox #1.text, 10, 90, 100, 24

   UpperLeftX = 150

   UpperLeftY = 625

   open "Checkbox test" for dialog as #1

   print #1, "trapclose [Quit.Exit]"

   'wait here for user actions

   print " @@@@@@@@@ Waiting @@@@@@@@@@"

   wait



[close]

   close #1

   return



[Exit]

   cc=cc+1

   if cc>3 then cc=1

   if ExitFlag$="" then [close]

   goto [Ok]

   '  close #1.text

   '  close #1

   '  gosub [Directory$]



[Quit.Exit]

   close #1

   return





[Casses]

   notice Classe$

   Prompt " Casses a b c d e";Case$



   select case

       case Case$=word$(Classe$,1)

       CaseOut$=Case$

       case Case$=word$(Classe$,2)

       CaseOut$=Case$

       case Case$=word$(Classe$,3)

       CaseOut$=Case$

       case Case$=word$(Classe$,4)

       CaseOut$=Case$

       case Case$=word$(Classe$,5)

       CaseOut$=Case$

       case else

       CaseOut$=word$(Classe$,1)

   end select

   print " CaseOut$ ";CaseOut$

   goto [Ok]



[Persptv]

   Typ$="A"                  'set symbolic condition Id

   print #1.text, "I am PassKyA$"; t$

   goto [setBuild]



[ObjectPrsptv]

   Typ$="B"

   print #1.text, "I am PassKyB$"; t$

   goto [setBuild]



[Object]

   '  cc=cc+1

   '  if cc>3 then cc=0

   if cc=1 then notice "He said  {rem [Exit] cc++} cc is ";str$;(cc)

   if cc=2 then notice "She says  {rem [Exit] cc++}cc is ";str$;(cc)

   if cc=3 then  notice "This week {rem [Exit] cc++}cc is ";str$;(cc)

   if ExitFlag$="" then return

   Respond$="":FrgPassAssociate$=""                 'XXXXXXXXXXXXXXXXXXX_Ba ; Bb; Bc

   if cc>1 then  close #Nte

   gosub [SpeekToMe]

   gosub [callReadMe]



   '  prompt "Frgament$ Association Phrase";Respond$

   ExitFlag$=Respond$

   if Respond$<>"" then

       '     Stream$=Respond$:CarryStream$=Stream$:print CarryStream$

       '  call SubRuleCoder$ Stream$,PassAssociate$,Association$

       '  print tab(16);"Object-Pass_Association> ";Association$

       '   FrgPassAssociate$=word$(Association$,1)

   end if

   wait



[SpeekToMe]

   blockCd=0

   Open "Notes.txt" for output as #Nte

[Lp]

   Respond$=""

   Prompt "Speek";Respond$

   if Respond$="q" then blockCd$=str$(blockCd):close #Nte:goto [Ok]

   if Respond$<>"" then

       Stream$=Respond$

       print #Nte,Stream$

       gosub [OnMainCoder]

       blockCd=blockCd+val(word$(Association$,1))

       call gated$ blockCd, gated$

       blockCd=val(gated$)

       print "~~~~~~~~~~~~~~~ Association$ ";Association$

       print "Speeker ";Association$;"  ";Stream$

   end if

   goto [Lp]



[ExisLp]

   close #Nte

   print " @@@@@@@@@ Waiting @@@@@@@@@@"

   return



[callReadMe]

   gosub [ReadMe]

   goto [Ok]



[ReadMe]

   Key$=""

   Open "Notes.txt" for input as #SNte

[iLp]

   if eof(#SNte)<0 then [Exisin]

   line input #SNte,Stream$

   gosub [OnMainCoder]

   print "Speeker ";Association$;"  ";Stream$

   if eof(#SNte)=0 then [iLp]

[Exisin]

   '   Respond$=""

   '  Prompt "q to exit";Respond$

   '  if Respond$="q" then

   close #SNte

   return



[Ok]

   Build$="":Get$=""

   scan

   goto [Ok]



[PassAssociation]

   print #1.text, "External PassAssociation"; t$

   Respond$=""

   prompt "Phrase_PassAssociation";Respond$

   call SubRuleCoder$ Respond$,PassAssociate$,Association$

   PassAssociate$=word$(Association$,1)

   PassAssociateCell$=word$(Association$,2)

   goto [Ok]



[set]

   print #1.cb, "value? t$"

   print #1.text, "I am "; t$

   goto [Ok]



[setCheckBox]

   print #1.cb, "set"

   goto [Ok]



[resetCheckBox]

   print #1.cb, "reset"

   goto [Ok]



[Reset]

   print #1.cb, "value? t$"

   print #1.text, "Checkbox is "; t$

   goto [Ok]



[setGet]

   Get$="Call Copy"

   Stream$=PassPhrase$

   gosub [ReadPass]

   goto [Ok]



[setCopy]

   Copy$="Call Copy"

   Stream$=PassPhrase$

   gosub [ReadPass]

   goto [Ok]



[ReadPass]

   Select case

       case Typ$="A"

       Build$="Y"

       PassAssociate$=OpAssocKy$

       print " PassAssociate$ PassKyA$ ";PassAssociate$:PassKyA$=""

       case Get$="B"

       Build$="Y"                'set symbolic condition Id

       PassAssociate$=OpAssocKy$

       Tag$=OpAssocKy$

       call Runtag Tag$,PassAssociate$,transfer$,Association$

       PassAssociate$=word$(Association$,1)

       print " PassAssociate$ PassKyB$ ";PassAssociate$:PassKyB$=""

       case Typ$="C"

       Get$="Y"                  'set symbolic condition Id

       PassAssociate$=OpAssocKy$

       print " PassAssociate$ PassKyC$ ";PassAssociate$:PassKyC$=""

   end select

   return



[setBuild]

   gosub [ReadPass]

   PassPhrase$="":respond$=""

   prompt " PassPhrase ";respond$

   if respond$<>"" then

       if Typ$<>"" then OpAssocKy$=SymblPrymKy$    'XXXXXXXXXXXXXXXXXXXXXXXXX

       if Typ$<>"" then PassAssociate$=OpAssocKy$  'XXXXXXXXXXXXXXXXXXXXXXXXX

       print tab(4);" OpAssocKy$ ";PassAssociate$   'XXXXXXXXXXXXXXXXXXXXXXXXX

       PassPhrase$=respond$:UnkStream$=PassPhrase$

       print " ";UnkStream$

       call SubRuleCoder$ UnkStream$,PassAssociate$,Association$

       PrymKy$=word$(Association$,1)

       PrymCll$=word$(Association$,2)

       print "Ba_! key>> PrymKy$ ";PrymKy$

       print "Bb_! cll>> PrymCll$ ";PrymCll$

       HoldKy$=Association$

       if Typ$<>"" then OpAssocKy$=word$(Association$,1)':PassAssociate$=OpAssocKy$

       Call RuleofExectWord$ Build$,Get$,Copy$,Association$,Return$,PassAssociate$

       print tab(36);"   Type      Origin       {Passed} // extion Key & Cell"

       print tab(16);"Key Association is  ";Return$;" ";SymblPrymKy$;"    ";HoldKy$

       PrymKy$=HoldKy$:ExtendedAssociation$=HoldKy$

       print tab(6);"Ea_! ExtendedAssociation$>> ";HoldKy$

       PrymKy$=HoldKy$

       Stream$="SymblPrymKy$"

       gosub [OnSubCoder]

       Stream$=word$(Association$,1);"_";PrymKy$

       gosub [OnSubCoder]

       SymblPrymKy$=word$(Association$,1)

       SymLgcK$="SymblLgcKy$";SymblPrymKy$

       print tab(26);"Db_! >> SymblLgc$ ";SymLgcK$

       SymblPrymCll$=word$(Association$,2)

       print tab(26);"Da_! >> SymblLgcKey$ ";SymblPrymKy$

       print tab(26);"Da_! >> SymblLgc$Cll$,";SymblPrymCll$

       call RecordKey$ SymblPrymKy$,KeyRecord$

       print tab(16);"KeyRecord$Symbls ";KeyRecord$

   end if

   goto [Ok]



   'Call Object.Prsptv.RuleofExectWord$ Build$,Get$,Copy$,Association$,Return$,PassAssociate$

Sub RuleofExectWord$ byref Unk1$,byref Unk2$,byref Unk3$,byref Association$,byref Unk4$,byref Unk5$

   select case

       case Unk1$<>"",Unk2$<>""

       gosub [1]

       case  Unk3$<>""

       gosub [2]

   end select

   goto [subExit]



[1]

   Stream$="Build"

   UnkStream$=trim$(Stream$)

   if UnkStream$="" then [bsubexit]

   PassAssociate$=Unk5$

   call SubRuleCoder$ UnkStream$,PassAssociate$,Association$

   BldKy$=word$(Association$,1)

   Unk1$=BldKy$:Unk2$=BldKy$

   print " Unk1$ or Unk2$ ";Association$

[bsubexit]

   return



[2]

   Stream$="get and copy"

   UnkStream$=trim$(Stream$)

   if UnkStream$="" then [csubexit]

   call SubRuleCoder$ UnkStream$,PassAssociate$,Association$

   GtCpyKy$=word$(Association$,1)

   Unk3$=GtCpyKy$

   print " Unk3$ ";Association$

[csubexit]

   return



[subExit]

end sub



'call RecordKey$ RcrdK$,KeyRecord$

Sub RecordKey$ byref RcrdK$,byref KeyRecord$

   KeyRecord$=KeyRecord$;RcrdK$;" "

end sub







[windfire]

plus, It was a failed label, I omited it already.

Just to attempt to show where this is going with the associations ;, Think of a chat program.
Note I told you it was complex.

a Perspective_associated Passassociation

a Object_Perspective_associated Passassociation

a Object_associated Passassociation

an Object1

and or a object2

He was in a bad mood yesterday .
But he's really mad today .
Da_! >> SymblLgcKey$ 0.70054956e-6 [0.58930083e11] He was in a bad mood yesterday .;;But he's really mad today .

His wife came in and calmed him down to reasonable .
Da_! >> SymblLgcKey$ 0.41484782e-9 [0.34896968e14] He was in a bad mood yesterday .;;But he's really mad today .;;His wife came in and calmed him down to reasonable .

If you fill good obout his mood ;, then yes
Association$ 0.4152243e-9 [0.34928633e14] If you fill good obout his mood ;, then yes.
read cell<0.3896099e-9 [0.32773948e14] {She always puts him in a really good mood .}
He was in a bad mood yesterday .;;But he's really mad today .;;His wife came in and calmed him down to reasonable .She always puts him in a really good mood . >>
He was in a bad mood yesterday .;;But he's really mad today .;;His wife came in and calmed him down to reasonable .She always puts him in a really good mood . >>[0.34928633e14]:{Yes I fill good} 0.57685 [0.78756] {Yes I will}

Speeker 0.41521753e-9 [0.34928065e14] If not ;, then no .
He was in a bad mood yesterday .;;But he's really mad today .;;His wife came in and calmed him down to reasonable . >>[0.34928065e14]:{No I fill badlly} 0.364755 [0.28435] {I think I'll pass today}

[windfire]

plus, I appreciate your skepticism. And if you're truly interested, I'd like the opportunity to show you on here.
I don't know that this is the proper place or if you want to know, but you keep asking WTF
I propose that I'm working on a new science, like math_science computer_science that Guess I call it Association_science
How do you explain a new science in a paragraph?? And how do you know where it will go without a full research??
I'm just trying to demonstrate there is a new science out there that deserves investigating.
There is literally no logic that can't be associated with this repeating loop.
What you can do with it depends on how you want to use it.
That's literally the best way I know how to answer your question >>WTF

[plus]

Sept 10, 2023 13:45:39 GMT windfire said:

plus, I appreciate your skepticism. And if you're truly interested, I'd like the opportunity to show you on here.
I don't know that this is the proper place or if you want to know, but you keep asking WTF
I propose that I'm working on a new science, like math_science computer_science that Guess I call it Association_science
How do you explain a new science in a paragraph?? And how do you know where it will go without a full research??
I'm just trying to demonstrate there is a new science out there that deserves investigating.
There is literally no logic that can't be associated with this repeating loop.
What you can do with it depends on how you want to use it.
That's literally the best way I know how to answer your question >>WTF

but you keep asking WTF

I don't think I've ever used WTF here at this forum I use WTH or WTH? ie What The Heck?

There is literally no logic that can't be associated with this repeating loop.

Well there is certainly no logical proposition that can't be assigned a numeric probability of truth to an applied situation.

What you're attempting reminds me of Markov chains, good stuff for AI. Honestly I am not that interested in this sort of AI which also reminds me of neuro-net training for pattern recognition. You're maybe working more linearly as opposed to 2D matrix of Markov and Neuro-net?

The word "association" the way I learned it and the way you might be using is like definitions word <> meaning by other words or variableName = variableValue or person @ group, even label : place. Allot like Carl and his definitions work.

b = b + ...

[plus]

BTW the one point I made in this thread, maybe screamed (sorry if I hurt you eyes), was to use descriptive names for variables.

Well I am not so strict with that rule myself but I am not dumping code in a thread, cold, and asking other people here fix this, or clean up that, for me. Ha! use AI for that! If you can explain to a machine with 0 brains what you want done and it does it, then you've licked all problems of coding.

b = b + ...

[windfire]

Thanks for the repy plus.
I'm not good with words so I use abbreviated words i can relate to.
I do understand what you mean and you're correct. I'd change it but don't know what too.
I do most of my research on paper and try to prove it < is > programable and works together as expected.
My programing sucks.
Sorry for being such a mess.