Processing table: prc.make_shareusername

Jump to line:


1
 
If:
 

 
 
Then:
declare extern NameEnc,UName

2
 
If:
 

 
 
Then:
declare PLen(20,.0),PLoc(20,.0),PChar(1,*),PAlt(1,*),PVal(4,.0),PConv(4,*),PScram(40,*),PSet(2,*),PSAlt(2,*)

3
 
If:
 

 
 
Then:
declare PSLoc(20,.0)

4
 
If:
 

 
 
Then:
sn=""{UName{""

5
 
If:
 

 
 
Then:
PLen=len(sn);PLoc="1";NameEnc=""

6
ptrans
If:
PLoc le PLen

 
 
Then:
PChar=mid(UName,PLoc,"1");PVal=asc(PChar);PConv=base(PVal,"10","16")

7
 
If:
PLoc le PLen

 
 
Then:
NameEnc=NameEnc{PConv;PLoc=PLoc+"1";goto ptrans

8
 
If:
 

 
 
Then:
end


Displayed with Fairlight prc2html v01.02.08