else 　　　　　　　if sym=writesym 　　　　　　　　then 　　　　　　　　　begin 　　　　　　　　　　getsym; 　　　　　　　　　　if sym=lparen 　　　　　　　　　　　then 　　　　　　　　　　　　begin 　　　　　　　　　　　　　repeat 　　　　　　　　　　　　　　getsym; 　　　　　　　　　　　　　　expression([rparen,comma]+fsys); 　　　　　　　　　　　　　　gen(opr,0,14) 　　　　　　　　　　　　　until sym<>comma; 　　　　　　　　　　　　　if sym<>rparen 　　　　　　　　　　　　　　then error(33) 　　　　　　　　　　　　　　else getsym 　　　　　　　　　　　　end; 　　　　　　　　　　gen(opr,0,15) 　　　　　　　　　end 　　　　　　　　else 　　　　　　　　　if sym=callsym 　　　　　　　　　　then 　　　　　　　　　　　begin 　　　　　　　　　　　　getsym; 　　　　　　　　　　　　if sym<>ident 　　　　　　　　　　　　　then error(14) 　　　　　　　　　　　　　else 　　　　　　　　　　　　　　begin 　　　　　　　　　　　　　　　i∶=position(id); 　　　　　　　　　　　　　　　if i=0 　　　　　　　　　　　　　　　　then error(11) 　　　　　　　　　　　　　　　　else 　　　　　　　　　　　　　　　　　with table[i] do 　　　　　　　　　　　　　　　　　if kind=procedur 　　　　　　　　　　　　　　　　　　then gen(cal,lev-level,adr) 　　　　　　　　　　　　　　　　　　else error(15); 　　　　　　　　　　　　　　　getsym 　　　　　　　　　　　　　　end 　　　　　　　　　　　end