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