Find the alphabet's order

Let ALP(String)

Let S(String)

Let SA1(String)

Let SA2(String)

Let SA3(String)

Let SB(String)

Let SC(String)

Let i(Integer)

Let n(integer)

Let d1(integer)

Let d2(integer)

Let d3(integer)

S=APP_DrawText\INPUT\inputString_ 

ALP="ABCDEFGHIJKLMNOPQRSTUVWXYZ"

SA1=S->Extract(1,1)

SA2=S->Extract(2,1)

SA3=S->Extract(3,1)

i=1

n=0

for i while i<26

{

SB=ALP->Extract(n,1) 

if SA1==SB

{

d1=n

}

else if  SA2==SB

{

d2=n

}

else if  SA3==SB

{

d3=n

}

n=n+1

}