Source position: pscanner.pp line 994
public procedure TPascalScanner.SetModeSwitch(
S: TPasScannerString
);