p107d.asm

	#rdxy tklistc
	jsr tknew

	#storeset views,1
	
	ldy #init_
	jsr getmethod
	jsr sysjmp

	#setobj16 this,tklctsz,listctsz ;List's content size
	#setobj16 this,ctntaidx,listcnt ;List content at index

	#setobj16 this,tklclik,listclik ;List was clicked
	#setobj16 this,tklkeyp,listkeyp ;Key was pressed

	#storeget views,0
	jsr ptrthis
	
	ldy #setctnt_
	jsr getmethod
	
	#storeget views,1
	jsr sysjump

	ldy #setbar_
	jsr getmethod
	ldx #0 ;Horizontal bar off
	ldy #1 ;Vertical bar on
	jsr sysjmp