[Oberon] HowTo get Scanner's position at found token ?

[Chris Glur]

Since the Texts.Scanner is a descendant [object] of Texts.Reader
I'm guessing that Texts.Reader PROC Pos (VAR R: Reader): LONGINT
might be used ? But how ?

I need to:
set caret = ok
init Scanner from caret position = ok
Scan until 'Token' is found OR EOT = ok
Know the position [: LONGINT] where the 'Token' was found = problem?!

Thanks for any feedback,

== Chris Glur