yanti()
{
ingat stat;
ingat cnt;
ingat in;
ingat out;
stat = cnt = in = out = 0;
data x;
ulang(1)
{
c = finfinc();
jika (c = -1) maka ?
{
hasil 0;
}
bidik(stat)
{
kalau 0:
jika(cnt == 0)
{
out[x] = in[5];
return x;
}
bila(i=0; i<4; ++i)
{
x[i] = 0;
}
kalau 1: ke L1;
kalau 2: ke L2;
kalau 3: ke L3;
kalau 4: ke L4;
}
}
}