1 \documentclass{minimal}
9 \begin{psmatrix}[mnode=oval, colsep=1.95cm, rowsep=1cm]
10 [mnode=R,name=vars]{\shortstack[l]{int s, z, c,\\\, strich, punkt;\\opcode aktop,opp;}} &
11 [name=int]{\shortstack{\textbf{int}\\z:=z*10\\+(c-'0');}} &
12 [name=blank]{\shortstack{\textbf{blank}}} \\
14 [mnode=R,name=res]{sys\_res} &
15 [name=sign]{\shortstack{\textbf{sign}\\s:=-1;}} &
16 [name=null]{\shortstack{\textbf{null}\\aktop:=DONE;}} \\
18 [name=idle]{\shortstack{\textbf{idle}\\strich:=0;\\punkt:=1;\\opp:=NOP;}} &
19 [name=read]{\shortstack{\textbf{read char}\\z:=0;\\s:=1;}} &
27 [mnode=R,name=void]{} &
28 [name=err]{\shortstack{\textbf{error}}} &
29 [name=done]{\shortstack{\textbf{done}}} \\
32 \psset{arrows=->, shortput=nab}
34 \ncline[linestyle=dotted]{res}{idle}
35 \ncline[linestyle=dotted]{void}{err}
36 \ncarc[arcangle=0]{done}{idle}
37 \ncarc[arcangle=0]{err}{idle}
39 \ncarc[arcangle=0]{idle}{read}\ncput*[npos=.50]{do\_it$\uparrow$}
40 \nccurve[angleA=45,angleB=75,ncurvA=2,ncurvB=2]{read}{read}\ncput*{' '}
41 \ncarc[arcangle=0]{read}{sign}\ncput*[npos=.50]{'-'}
43 \ncarc[arcangle=0]{sign}{int}
44 \ncarc[arcangle=50]{read}{int}\ncput*[npos=.35]{c = '0'\dots{}'9'}
45 \nccircle[angleA=0]{int}{.78cm}\ncput*[npos=0.5]{c = '0'\dots{}'9'}
47 \ncarc[arcangle=15]{int}{blank}\ncput*[npos=.50]{' '}
48 \nccircle[angleA=0]{blank}{.70cm}\ncput*[npos=0.5]{' '}
50 \ncarc[arcangle=67]{blank}{calc}\ncput*[npos=.80]{aktop = '+','-','*','/'}
51 \ncarc[arcangle=0]{blank}{null}\ncput*[npos=.50]{aktop = '\textbackslash 0'}
53 \ncarc[arcangle=0]{int}{calc}\ncput*[npos=.70]{aktop = '+','-','*','/'}
54 \ncarc[arcangle=0]{int}{null}\ncput*[npos=.50]{aktop = '\textbackslash 0'}
55 \ncarc[arcangle=0]{null}{calc}
57 \ncarc[arcangle=0]{calc}{read}\ncput*[npos=.45]{else}
58 \ncarc[arcangle=0]{calc}{done}\ncput*[npos=.50]{aktop = DONE}