If:
Then:
declare extern SIDString
If:
Then:
ps=instr(SIDString,"/")
If:
ps eq "1"
Then:
SIDString=mid(SIDString,"2",len(SIDString)-"1");goto
slashlp
If:
ps eq len(SIDString)
Then:
SIDString=mid(SIDString,"1",len(SIDString)-"1");goto
slashlp
If:
ps eq len(SIDString)-"1"
Then:
SIDString=mid(SIDString,ps+"1","1");goto
slashlp
If:
Then:
SIDString=mid(SIDString,ps+"1",len(SIDString)-ps);goto
slashlp
If:
Then:
ps=instr(SIDString,".")
If:
Then:
SIDString=mid(SIDString,"1",ps-"1")