/*
purpose:
*/
yanti()
{
Lihat stat;
Lihat cnt;
Lihat in;
Lihat out;
stat = cnt = in = out = 0;
data x;
putaran(1)
{
c = fin();
jika (c == -1)
{
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;
}
}
}