Hermes: A Tutorial and Reference Manual - Researcher - IBM

382.5.Front-endProcess callParms.GetLine(Line); ifsizeofLine=0
elseifLine[0]'!' then
blockdeclare removeEscapefromLine[0]; begin callParms.Dispatch(WindowName,Line);
Cmd:Charstring;--commandnamefollowing! ifLine[0]='!' then else callParms.Dispatch(WindowName,Line); extractcmdfromLine[0]; select(cmd) where("F") blockdeclare begin FParm:Charstring;--parameterto!F FParm:=tokenizer(Line); callParms.Refocus(FParm);
where("K") to"|FParm|"."); awindow."); endblock; on(WindowInterface.NotFound) callParms.PutLine("!wfe:"|FParm|"not WindowName:=FParm; callParms.PutLine("!wfe:Focuschanged
blockdeclare begin KParm:Charstring;--parameterto!K
where("Q") on(WindowInterface.NotFound) awindow."); endblock; callParms.PutLine("!wfe:"|Kparm|"not callParms.PutLine(Kparm|"killed."); KParm:=tokenizer(Line);
running:='false'; callParms.Kill(Kparm);