potprogram koji racuna x*x
suma = 0
i = 0
while i < x
	ac = ac + x
	i = i + 1

provjera_uslova:
	if (i < x) then goto tijelo_petlje
	else 	    goto kraj_petlje
tijelo_petlje:
	????
	????
	????
	goto provjera_uslova
kraj_petlje:
	
//potprogram koji racuna a*a, zauzima adrese 200-400	
200 DEC 0 	#AC = x
201 STA 301	#M[301] = x
202 CMA
203 STA 302 #M[302] = -x 
204 ISZ 302 #M[302]++, if M[302]==0 PC=205 KRAJ PETLJE
205 BUN 207
206 BUN 214
208 ADD 301
209 STA 303 #suma = suma + x 
210 LDA 300
211 INC
212 STA 300 #i++
213 BUN 204
214 LDA 303 #AC <- M[300]
215 BUN* 200

300 DEC 0	#i
301 DEC 0 	#x
302 DEC 0	#-x
303 DEC 0	#suma


