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