So schaltet man mit Switchtask von deutscher auf englische Rechtschreibprüfung um:
Include 'Macro.oph'Include 'System.oxh'Const path$='d:\system\data'Const dic_rom$='English'Const dic_ram$='German'PROC Macro:gVisible offif exist(path$)RunSpell:(dic_rom$)endifENDPProc RunSpell:(msg$)dinitdtext '','Run SPELL with '+msg$+' dictionary ?',$202dbuttons 'No',%n or $200,'Yes',%y or $200if dialog=%yCloseSpell:RunApp&:('z:\System\Apps\Spell\Spell.app',msg$,'',0)busy offendifEndpProc CloseSpell:local thread&,prev&,n$(255)prev&=0ONERR err::thread&=GetThreadIDFromAppUID&:(&10000082,prev&)rem alert('thread='+gen$(thread&,8)+' prev='+gen$(prev&,8))busy 'Please wait while terminating SPELL'EndTask&:(thread&,&0)pause 75returnerr::rem alert('Error ''+err$(err)+''')Endp