ident                   
R[1]=R[0] {ident}           
const 0                 
R[2]=R[0]{0}             
const 1
R[3]=R[0]{1}
R[0]=C[0]{N}
R[5]=R[0]{N}
sub 3
R[4]=R[0] {N-1}             //uvod, inicializacia
<cyklus>ISLESS(1,5) koncyklu    
R[0]=R[1] {xx}
SUB 5
R[1]=R[0]  {buduce j}     
R[0]=R[2]  {xx}
ADD 3
R[2]=R[0] {buduce i}
GOTO  cyklus        
<koncyklu> R[10]=R[1] {i}
R[11]=R[2] {j}        
R[0]=R[1] {i+1}
add 3
R[12]=R[0] {i+1}
R[0]=R[2] {j+1}
add 3                 
R[13]=R[0] {j+1}            //R[10]=i,R[11]=j
ident
ISLESS(0,5) vynuluj
GOTO vseci   
<vynuluj>ADD 5 /
add 3
C[R[0]]=R[2]     
<vseci>R[1]=C[R[12]]
R[2]=C[R[13]]
ISLESS(1,2) niejemin
GOTO dalej    
<niejemin>R[0]=R[10]       
add 5    /
add 3     
C[R[0]]=R[3]     
<dalej>R[0]=R[10]  
add 5  /
add 3
R[6]=R[0]          
R[0]=R[4]
sub 11
IFZERO najdimin
HALT
<najdimin>R[0]=C[R[6]]     
IFZERO ulozmin   
HALT
<ulozmin>R[0]=C[R[12]]
C[0]=R[0] 
HALT
