Source position: pscanner.pp line 1365
function StrToModeSwitch(
aName: TPasScannerString
):TModeSwitch;