Alright,
You ask me to summarize what the concept is,so you'd know
know what it's about.
So I try to give you an idea of what it's about and you
want to understand the details,which I skipped.
You try to relate it to something you already know,which
if you do, then I don't need to show you.
Figuratively speaking,You can not take one piece of,a 100 piece,puzzle and understand the entire puzzle.
I told you what it is supposed to do;,If you want to understand how,then you need the details.
I can show you with, Just Basic 101 code,Which is explained in the Just Basic 101 help file.
I said I'm not a programmer,so I can only show what I,m doing and tell you why I did it.
Like a puzzle,You'll have to see how the pieces make sense to understand the whole concept.
.
I'm not on here to waist anyone's time.
I'm looking for someone interested in the concept and in taking time and energy to communicate with me
in the best way I can,and do their own program,understanding.
.
Is it worth it?? Only if I'm right.
.
I'm done;,unless someone really wants to discuses this,my way.
Because, any other way is wasting all of our time.

Figuratively speaking,I don't want to ride a dead horse

If anyone is interested,let me know.
.
I'm meaning no disrespect,I think you all have been more than patient.
I just think you can understand lines of program better than a line of my explanation,without it.

Either way, thanks for trying.

'I need to know if the following can be made to work.

'And what are it's limits.

'******************************************************************************************************

'Coder Top_Of_Page

'******************************************************************************************************

'DList$="Donnie was here,for a while;,But,He left,shortly,after Judy arrived with the car ."

DList$="It is time for all good men to come to the aid of their country ."

NewSet=0 ' NewSet=1 for Different TL$,AL$ set than Decoded TL$,AL$ set active

Stream$=DList$

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

nop$= Coder$(Stream$,FnlT,FnlA,TL$,AL$)

goto [Cont]

end

Function Coder$(Stream$,byref FnlT,byref FnlA,byref TL$,byref AL$)

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

T=1e100

A=1e-100

index=0

[XCdLoop]

index=index+1

if index>Len(Stream$) then [XCdLoopout]

D=asc(mid$(Stream$,index,1)) 'note D is always a whole number {ASCII value}

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

'R=? 'Note; R needs to pass T and A

R=D+(1/T) 'T coded into R as whole number and fraction-- 1/T

'****

c=(1/(R*3600))*33

L=(A*(1/360))*13

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

'**** 'A coded into R as L of R thru c and F

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

A=atn(1/((R*(1/F))+1))*Mdeg

T=R*tan(A*Mrdn):eR=val(using("###.##########",T*(1/tan(A*Mrdn))))

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

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

eDL$=eDL$;chr$(int(T*(1/tan(A*Mrdn))));" "

goto [XCdLoop]

[XCdLoopout]

FnlT=T

FnlA=A

Coder$=eDL$

end function

'******************************************************************************************************

'DeCoder Top_Of_Page

'******************************************************************************************************

[Cont]

if NewSet=1 then 'Different TL$,AL$ set than Decoded TL$,AL$ set

TL$="68.0 12.2265105 27.4733551 20.0469824 22.0466327 20.3879743 10.0600121 19.1848888 22.0236299 21.3669502 10.3406324 17.5474093 22.1872612 21.5345227 21.2387626 12.1881826 18.4183448 22.8851907 22.0768607 10.1991144 16.93649 10.5596718 18.8241907 23.1498559 20.3989474 21.8756717 20.6739137 14.8099176 11.4535168 14.5336618 21.8575408 23.1870922 12.4058221 14.8637463 20.5301155 10.0373406 18.1484108 22.2214999 20.1403321 22.6887858 12.5007205 19.5664005 22.5108762 21.3182536 22.6982224 22.6138059 21.8454955 23.0466493 12.6166933 17.640404 21.6858273 22.0400221 21.1910768 21.9258625 10.2225846 14.4184335 22.9350373 20.813042 22.7891465 10.2935919 16.8757692 23.5973387 22.0425742 21.5469479 22.5766286 21.1340446 20.2933903 10.0423385 19.1982576 23.110894 21.7406367 21.6833707 9.95115602 18.9831198 22.8514967 20.031673 10.1195113 17.1935671 21.4100208 21.4948293 10.2903725 10.7835598"

AL$="45 6.28489283 14.0131722 10.3251903 11.8525478 11.4074407 17.4267733 9.15076894 12.7853629 10.5214462 17.883481 9.56830266 12.3829313 10.6929579 11.870103 15.4671949 10.2276626 11.6440628 10.9559451 17.6548061 9.89436961 18.2309521 8.98190364 12.5429429 10.9898128 11.4454287 11.5631092 14.079911 14.5692971 12.402832 10.5757448 11.2994602 15.7311699 11.6516455 11.4824404 17.3900432 9.53028148 12.4016738 11.1648106 11.062318 15.8451605 9.64940083 12.2074858 10.8673929 11.2562253 11.0271762 11.4305508 10.7798722 15.9849183 10.2989216 11.9962446 10.7538024 11.8443269 10.88248 17.6927405 11.0113815 11.0844201 11.7521645 10.6620085 17.8087971 9.85968327 11.6888257 10.9394642 11.5917464 10.8271938 11.8134693 11.4661941 17.39789 9.15702435 12.4071244 10.6113192 11.7720473 17.2509324 9.28603057 12.3863593 11.2133511 17.5231033 9.84279067 12.4396365 10.6735518 17.8022038 13.1664946"

end if

if NewSet=1 then

Lng=Lng(TL$)

FnlT=val(word$(TL$,Lng))

FnlA=val(word$(AL$,Lng))

end if

nop=Decoder(TL$,AL$,FnlT,FnlA)

end

Function Decoder(TL$,AL$,FnlT,FnlA)

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

' Options for trial adjustments

' THE OBJECT IS FOR IT TO WORK WITH NO ADJUSTMENTS

' THIS MEANS IT DECODES WITH ONLY TWO VALUES,the final T and final A.

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

Adjust=1 ' Adjust=1 for any Adjust,otherwise no adjustments made.

' q=1 every actual T, adjust specified A

' q=2 adjust every other T, use every actual A

' q=3 adjust specified A, adjust every other T

' q=4 adjust every other A, adjust every other T

' q=5 use actual A,no T adjustment

' q=6 use actual T,no A adjustment

' q=7 use actual A, use actual T

M$="1 2 3 4 5 6 7"

q=7

M=val(word$(M$,q))

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

DL$="":efDL$=""

T=FnlT

A=FnlA

index=0

[XDCdLoop]

index=index+1

n=Lng(TL$)+(index*-1)

R=T*(1/tan(A*Mrdn)):D=int(R):DL$=DL$;str$(D);" "

if n=0 then [XtDDcd]

c=(1/(R*3600))*33

F=R*1/((1/tan(A*Mrdn))-1)

L=(((1/F)/Pi2)^2)/c

A=((L/13)*360)

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

if Adjust=1 then nop=Adjust(M,n,TL$,AL$,A,T)

goto [XDCdLoop]

[XtDDcd]

for j=1 to Lng(DL$)

n=Lng(DL$)+1+(j*-1)

if val(word$(DL$,n))>0 and val(word$(DL$,n))<256 then

efDL$=efDL$;chr$(val(word$(DL$,n)))

end if

next j

print efDL$

end function

'********************************* some option functions***********************************************

'Word length of string:

Function Lng(byref Stream$)

j=0

[Loop]

j=j+1

Ele$=word$(Stream$,j)

if Ele$<>"" then [Loop]

Lng=j-1

end function

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

' Adjuster for testing

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

' Testing options to see what is working and what is not working.

Function Adjust(M,n,TL$,AL$,byref A,byref T)

Option=M

select case Option

case 1

if n=23 or n=68 or n=48 then A=val(word$(AL$,n))

nop= Actual2(AL$,TL$,n,A,T)

case 2

if n mod 2>0 then T=val(word$(TL$,n))

nop= Actual1(AL$,TL$,n,A,T)

case 3

if n=23 or n=68 or n=48 then A=val(word$(AL$,n))

if n mod 2>0 then T=val(word$(TL$,n))

case 4

if n mod 2>0 then A=val(word$(AL$,n))

if n mod 2>0 then T=val(word$(TL$,n))

case 5

nop= Actual1(AL$,TL$,n,A,T)

case 6

nop= Actual2(AL$,TL$,n,A,T)

case 7

nop= Actual3(AL$,TL$,n,A,T)

case else

end select

end function

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

' Actual value T and/or A

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

Function Actual1(AL$,TL$,n,byref A,byref T)

A=val(word$(AL$,n))

end function

Function Actual2(AL$,TL$,n,byref A,byref T)

T=val(word$(TL$,n))

end function

Function Actual3(AL$,TL$,n,byref A,byref T)

A=val(word$(AL$,n))

T=val(word$(TL$,n))

end function