* For extra Babel debugging

new: comp 1 1 58 "blank" 1 0 9000
attr 32
frel pntr
pat: fixd 1 "blank" 0 0 0 0 "whiteontransparentchars"
*imsk 1
flto -1000 -1000
*tick 0

*scrp 1 1 58 73
*	inst
** Turn on 
*	setv va10 etik
*	subv va10 10
*	doif va10 > ov00 and keyd 17 eq 1 and keyd 16 eq 1 and _p1_ eq 'B'
*		doif tick = 0
*			tick 1
*			show 1
*			flto 30 30
*			setv ov00 etik
*		endi
*	endi
*endm
*turn on fast info
scrp 1 1 58 1000
	inst
	tick 1
	show 1
	flto 30 30
*	setv ov00 etik
endm
*turn off fast info
scrp 1 1 58 1001
	inst
	show 0
	flto -1000 -1000
	tick 0
endm

scrp 1 1 58 9
	inst
** See if we should be turned off
** (imsk events don't arrive well with this fast tick going)
*	setv va10 etik
*	subv va10 10
*	doif va10 > ov00 and keyd 17 eq 1 and keyd 16 eq 1 and keyd 'B' = 1
*		tick 0
*		flto -1000 -1000
*		setv ov00 etik
*		stop
*	endi

* Update the text
	part 1
	sets va00 net: what
	doif va00 = ""
		sets va00 read "Babel Connection Info Text" 16 
	endi
	frmt 8 8 8 8 3 0 0
	ptxt va00
endm

rscr
enum 1 1 58
	kill targ
next