NEW
  AUTO 3,1
				.LIST OFF
*--------------------------------------
SCRN.New			
				clc
				rts
*--------------------------------------
SCRN.Destroy
				clc
				rts
*--------------------------------------
SCRN.Run		lda (pStack)			Event
				cmp #C.TAB
				bne .9

				ldy #1
				lda (pStack),y			hObj
				jsr LIB.FindActive
				bcs .9
				
				>PUSHA					hActive
				
				phy						index
				
				ldy #2
				lda (pStack),y			hObj
				>SYSCALL2 GetMemPtr
				>STYA ZPPtr1
				
				ply

.1				iny
				cpy #S.OBJ
				bne .2
			
				ldy #S.OBJ.Childs

.2				lda (ZPPtr1),y
				beq .1

				cmp (pStack)
				beq .8

				jsr	OBJ.Activate2
				
				lda (pStack)
				jsr OBJ.Deactivate

.8				inc pStack				discard hActive

				clc
				rts

.9				sec
				rts
*--------------------------------------
SCRN.Draw		ldy #S.OBJ.InnerW
				lda (ZPObjPtr),y

				tax
				lda #C.SPACE

.1				jsr LIB.LineBufCOut
				dex
				bne .1
				
				clc
				rts
*--------------------------------------
SCRN.Activate
				clc
				rts
*--------------------------------------
SCRN.Deactivate
				clc
				rts
*--------------------------------------
MAN
SAVE usr/src/lib/libtui.s.scrn
LOAD usr/src/lib/libtui.s
ASM