IF in_puta AND NOT temp1 AND 位組<15THEN
    位組:=位組*2+1;
END_IF;
   temp1 := in_puta;
IF in_putb AND NOT temp2 AND 位組>0THEN
    位組:=(位組-1)/2;
END_IF;
   temp2 := in_putb;