|
Post by windfire on Sept 8, 2023 17:44:59 GMT
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
|
|
|
Post by xxgeek on Sept 8, 2023 21:05:42 GMT
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
|
|
|
Post by windfire on Sept 8, 2023 22:01:46 GMT
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.
|
|
|
Post by xxgeek on Sept 9, 2023 2:32:18 GMT
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
|
|
|
Post by plus on Sept 9, 2023 11:48:11 GMT
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 + ...
|
|
|
Post by windfire on Sept 9, 2023 13:39:53 GMT
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.
|
|
|
Post by xxgeek on Sept 9, 2023 13:51:36 GMT
I hope someone can understand this language. It's beyond me.
Also What is the print #1, "trapclose [ExisLp]" for?
You open a file(#Nte), and try to use a 'trapclose for a window'(#1) that didn't get opened.
|
|
|
Post by windfire on Sept 9, 2023 15:51:46 GMT
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
|
|
|
Post by windfire on Sept 9, 2023 16:07:06 GMT
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}
|
|
|
Post by windfire on Sept 10, 2023 13:45:39 GMT
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
|
|
|
Post by plus on Sept 10, 2023 18:35:32 GMT
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 I don't think I've ever used WTF here at this forum I use WTH or WTH? ie What The Heck? 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 + ...
|
|
|
Post by plus on Sept 10, 2023 18:44:43 GMT
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 + ...
|
|
|
Post by windfire on Sept 11, 2023 11:44:48 GMT
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.
|
|