Someone

procedure znajdz_wal $Zolt ssie pauke
repeat
kamera(1)
licznik := 0
wNaPoz2 := 0
wNaPoz4 := 0
wNaPoz3 := 0
wNaPoz1 := 0
until n > 0

repeat
	if xs(licznik) < Granica1a .&. xs(licznik) > Granica1b 
		wNaPoz1 := 1
		
	endif
	            
	if xs(licznik) < Granica2a .&. xs(licznik) > Granica2b
		wNaPoz2 := 1
	
	endif

	if xs(licznik) < Granica4a .&. xs(licznik) > Granica4b
		wNaPoz4 := 1
	
	endif
	
	if xs(licznik) < Granica3a .&. xs(licznik) > Granica3b
		wNaPoz3 := 1
	
	endif

	if( licznik < (n-1) )
		licznik := licznik + 1
	endif

until licznik = n-1
endproc

procedure idzDo_wal
	if wNaPoz2 = 1
		ir(mc_80,85)
		ir(gc)
		ir(mc_90,95)
	else

	if wNaPoz2 = 0 .&. wNaPoz3 = 1
		ir(mc_120,125)
		ir(gc)
		ir(mc_130,135)
	else

	if wNaPoz2 = 0 .&. wNaPoz3 = 0 .&. wNaPoz4 = 1
		ir(mc_80,85)
		ir(gc)
		ir(mc_90,95)
	endif
	endif
	endif
endproc

program
ir(nt)
egzekucja

repeat
call znajdz_wal
until wNaPoz1 = 0
	
call idzDo_wal
		ir(mc_15,10)
		ir(go)
		ir(mc_10,15)
ir(nt)
repeat
until wolny()
egzekucja