lmem[0]:=gmem[0] ; tady bude délka posloupnosti lmem[1]:=cpuid+gmem[0] ; index prvku v druhém čísle lmem[2]:=0 if gmem[cpuid]gmem[lmem[1]] then lmem[2]:=2 gmem[cpuid]:=lmem[2] if gmem[cpuid]<>0 then goto 2 ; není se třeba dívat dál 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[lmem[1]]<>0 then gmem[cpuid]:=gmem[lmem[1]] if gmem[cpuid]=0 then goto 1 ; ještě jsme nenašli nenulu 2: if cpuid=1 then gmem[0]:=gmem[1] ; a zapíšeme výsledek halt