;SEEN.TXT“WŠJ
;mes 4719>>4
;stop

	file="SEEN.TXT"
	sdim list,32,32768
	bload file,list,65536
	n=9
	wpeek listcnt,list,16
repeat listcnt
	n=cnt+1
	gosub read
	title " "+cnt+":"+list.n+" "+sz+">"+osz
	gosub melt
	bsave "DAT\\"+list.n,obuf,osz
loop
	mes "OK"
	stop

*read
	wpeek l,list.n,16
	wpeek h,list.n,18
	p=h<<16+l
	wpeek l,list.n,20
	wpeek h,list.n,22
	sz=h<<16+l
	wpeek l,list.n,24
	wpeek h,list.n,26
	osz=h<<16+l

	sdim buf,sz+1024
	bload file,buf,sz,p
return


*melt
	sdim obuf,osz+1024
	p=16
	p2=0
	b=0:d=0
	repeat
		await 0
		if p>=sz :break
		;if p2>=osz :break
		if cnt&7==0 {
			peek d,buf,p
			p++
			;b=8
		}
		if d&0x80 {
			peek c,buf,p
			poke obuf,p2,c
			p++
			p2++
		}else{
			wpeek c,buf,p
			p+=2
			repeat c&15+2,p2-(c>>4)-1
				peek c,obuf,cnt
				poke obuf,p2,c
				p2++
			loop
			;memcpy obuf,obuf,c&15+2,p2,p2-(c>>4)-1
			;p2+=c&15+2
		}
		;b--
		d=d<<1
	loop
	;if p2!=osz :mes list.n:mes ""+osz+">"+p2
return