用C语言实现的PL0编译器

const a=10; var b,c; array h[2]; procedure p(var d); var e; begin e:=d+a; h[0]:=e; h[1]:=e+10; write(h[1]); h[0]+=h[1]; h[1]-=5; if b>5 then return 20; else return ++e; end; begin b:='a'; write(b); read(b); repeat begin c:=call p(b++); write(h[0]); write(h[1]); write(b); write(--b); write(c); read(b); end dowhile b<>0 end.