lmem[0]:=gmem[0] ; tady bude délka posloupnosti lmem[1]:=cpuid ; tady bude další testovaná buňka lmem[2]:=cpuid-1 ; moje číslo minus 1 lmem[3]:=1 ; posun k další buňce 1: lmem[4]:=lmem[2]&lmem[3]; ; budeme končit? if lmem[4]<>0 then goto 2 ; končíme lmem[1]:=cpuid+lmem[3]; lmem[3]:=lmem[3]<<1 if lmem[1]>lmem[0] then goto 2 ; jsme za koncem posloupnosti if gmem[cpuid]