lmem[1]:=1 ; inicializujeme posun 1: if cpuid<=lmem[1] then halt ; dopočítáno lmem[0]:=cpuid-lmem[1] ; spočítáme, co budeme přičítat lmem[1]:=lmem[1]<<1 ; zvětšíme posun gmem[cpuid]:=gmem[cpuid]+gmem[lmem[0]] ; přičteme goto 1 ; a opakujeme ...