Easy language Take text middle (single time) custom subroutine

. Version 2

The sub-program takes the middle content of text, text type
. parameter full content, text type
. parameter left text, text type
. parameter right text, text type
. local variable temporary position, integer type
Total length of local variables, integer type
. Local variables return results, text type

Total length = text Length (full content)
Temporary position = look for text (full content, left text,, false) + take text length (left text)
return result = middle of text (full content, temporary position, total length)
Total length = length of text (return result)
Temporary position = look for text (return result, right text,, false)-1
return result = middle of text (return result, 1, temporary position)
return (return result)

Easy language Take text middle (single time) custom subroutine