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