lmem[0]:=0                        ; přenos (pamatování jedničky)
   lmem[1]:=gmem[0]                  ; pozice v prvním čísle
   lmem[2]:=2*gmem[0]                ; pozice v druhém čísle
1: if lmem[1]=0 then goto 2          ; jsme na konci čísla?
   lmem[0]:=lmem[0]+gmem[lmem[1]]
   lmem[0]:=lmem[0]+gmem[lmem[2]]    ; přičteme obě cifry k přenosu
   gmem[lmem[1]]:=lmem[0]%2          ; vypočítáme cifru výsledku
   lmem[0]:=lmem[0]/2                ; vypočítáme přenos
   lmem[1]:=lmem[1]-1
   lmem[2]:=lmem[2]-1                ; posuneme se
   goto 1
2: gmem[0]:=lmem[0]
   halt