puni_pal1()

func puni_pal1()
cls
txt=memoread("slike.txt")

txt1=""

for p=1 to 46 step 9

@ 1, p say p

txt1=txt1+"1023 0"+str(p,3)+chr(13)+chr(10)   //neparna VBI novog frame-a
txt1=txt1+"0 0"+chr(13)+chr(10)
txt1=txt1+"0 0"+chr(13)+chr(10)
txt1=txt1+"728 0"+chr(13)+chr(10)
txt1=txt1+"11 0"+chr(13)+chr(10)
txt1=txt1+"11 0"+chr(13)+chr(10)
txt1=txt1+"1023 0"+chr(13)+chr(10)
txt1=txt1+"0 0"+chr(13)+chr(10)
txt1=txt1+"0 0"+chr(13)+chr(10)
txt1=txt1+"684 0"+chr(13)+chr(10)
for i=1 to 30
	txt1=txt1+"11 0"+chr(13)+chr(10)
next i

for i=p to p+7 step 2        
	txt1=txt1+"1023 0"+chr(13)+chr(10)
	txt1=txt1+"0 0"+chr(13)+chr(10)
	txt1=txt1+"0 0"+chr(13)+chr(10)
	txt1=txt1+"628 0"+chr(13)+chr(10)
	txt1=txt1+"11 0"+chr(13)+chr(10)
	txt1=txt1+"11 0"+chr(13)+chr(10)
	txt1=txt1+"1023 0"+chr(13)+chr(10)
	txt1=txt1+"0 0"+chr(13)+chr(10)
	txt1=txt1+"0 0"+chr(13)+chr(10)
	txt1=txt1+"512 0"+chr(13)+chr(10)

	line=memoline(txt,30, i)
	for j= 1 to 30
		if asc(substr(line,j,1))=176
			txt1=txt1+"176 "+"0"+chr(13)+chr(10)
		elseif asc(substr(line,j,1))=178
			txt1=txt1+"178 "+"0"+chr(13)+chr(10)
		endif
	next j
next i
txt1=txt1+"1023 0  "+chr(13)+chr(10)       //parna VBI novog frame-a
txt1=txt1+"0 0"+chr(13)+chr(10)
txt1=txt1+"0 0"+chr(13)+chr(10)
txt1=txt1+"964 0"+chr(13)+chr(10)
txt1=txt1+"11 0"+chr(13)+chr(10)
txt1=txt1+"11 0"+chr(13)+chr(10)
txt1=txt1+"1023 0"+chr(13)+chr(10)
txt1=txt1+"0 0"+chr(13)+chr(10)
txt1=txt1+"0 0"+chr(13)+chr(10)
txt1=txt1+"944 0"+chr(13)+chr(10)
for i=1 to 30
	txt1=txt1+"11 0"+chr(13)+chr(10)
next i
for i=p+1 to p+7 step 2   
	txt1=txt1+"1023 0"+chr(13)+chr(10)
	txt1=txt1+"0 0"+chr(13)+chr(10)
	txt1=txt1+"0 0"+chr(13)+chr(10)
	txt1=txt1+"872 0"+chr(13)+chr(10)
	txt1=txt1+"11 0"+chr(13)+chr(10)
	txt1=txt1+"11 0"+chr(13)+chr(10)
	txt1=txt1+"1023 0"+chr(13)+chr(10)
	txt1=txt1+"0 0"+chr(13)+chr(10)
	txt1=txt1+"0 0"+chr(13)+chr(10)
	txt1=txt1+"796 0"+chr(13)+chr(10)

	line=memoline(txt,30, i)
	for j= 1 to 30
		if asc(substr(line,j,1))=176
			txt1=txt1+"176 "+"0"+chr(13)+chr(10)
		elseif asc(substr(line,j,1))=178
			txt1=txt1+"178 "+"0"+chr(13)+chr(10)
		endif
	next j
next i
next p

memowrit("pal.txt",txt1)


return
/*
	int eav_neparna_aktivan=628;   //1001110100  f=0 v=0 h=1
	int eav_neparna_VBI=728; //1011011000   f=0 v=1 h=1
	int eav_parna_aktivan=872;//1101101000   f=1 v=0 h=1
	int eav_parna_VBI=964;//1111000100   f=1 v=1 h=1

	int sav_neparna_aktivan=512; //1000000000 f=0 v=0 h=0
	int sav_neparna_VBI=684; //1010101100   f=0 v=1 h=0
	int sav_parna_aktivan=796;  //1100011100 f=1 v=0 h=0
	int sav_parna_VBI=944;  //1110110000     f=1 v=1 h=0
	
	*/