pal2slika()


func pal2slika()
cls
set cursor off
txt=memoread("out.txt")
proslo=.f.
for i=1 to mlcount(txt)
	line=memoline(txt,30, i)
	
	l=val(substr(line, 8,3))
	p=val(substr(line, 11,5))
	f=val(substr(line,1,1))
	v=val(substr(line,3,1))
	h=val(substr(line, 5,1))
	video=val(substr(line,21,8))

	@ 16, 0 say "l="+str(l,2)
	@ 17, 0 say "p="+str(p,4)
	
	@ 18, 0 say "f="+str(f,1)
	if v=1
		set color to gr+/n
		@ 19, 0 say "v="+str(v,1)
		set color to w/n
	else
		@ 19, 0 say "v="+str(v,1)
	end if
	if h=1
		set color to r+/n	
		@ 20, 0 say "h="+str(h,1)
		set color to w/n
	else
		@ 20, 0 say "h="+str(h,1)
	end if
	@ 21, 0 say "video="+str(video,4)

	if l=0 .or. p=1023
		set color to r+/n
		@ 0,0 say "Nema sinhronizacije!"
		set color to w/n
		@ 1,0 clear to 15, 60
		proslo=.f.
	end if
	if l!=0 .and. p!=1023
		if v=1
			set color to gr+/n
			@ 0,0 clear to 0,50
			for m=1 to 8 
				@ m,31 say chr(24)
			next m
			set color to w/n
			if f=0
			   li=-1
			endif
			if f=1
			   li=0
			endif
		else
		   if h=1 .and. !proslo .and. v=0
		        proslo=.t.
		   	li=li+2
			@ 0,31 clear to 9, 40 
			set color to r+/n
		   	@ li,32 say replicate(chr(27),4)
		   	set color to w/n
		   	px=0
		   end if
		   if h=0
		      proslo=.f.
		      @0,0 say "                                                                                "
		      @0,32 clear to 30,40
		      @ li, px say chr(video)
		      px=px+1
		   end if
		end if
	end if	
	wait""
next i	
return