prc.make_basename

If:

Then:

declare SSet,SChar(1,*)

If:

Then:

declare extern FString

If:

Then:

SSet="\\/"

mainlp

If:

SSet eq ""

Then:

end

If:

Then:

sl=len(SSet)-"1"

If:

sl lt "1"

Then:

sl="1"

If:

Then:

SChar=mid(SSet,"1","1");SSet=mid(SSet,"2",sl)

slashlp

If:

Then:

ps=instr(FString,SChar)

If:

ps eq "0"

Then:

goto mainlp

If:

ps eq "1"

Then:

FString=mid(FString,"2",len(FString)-"1");goto slashlp

If:

ps eq len(FString)

Then:

FString=mid(FString,"1",len(FString)-"1");goto slashlp

If:

ps eq len(FString)-"1"

Then:

FString=mid(FString,ps+"1","1");goto slashlp

If:

Then:

FString=mid(FString,ps+"1",len(FString)-ps);goto slashlp

If:

Then:

end

Processing table: prc.make_basename