code bluebar
     cmp word [sidebar], 0
     jz .1
     embed 'sidebar'
.1    push dword [sidebar]
      push dword [xy]
	push dword [fore]
      mov dword [sidebar], 0
	$color 7Fh		;erase bottom line
      embed 'vc @ 1 - 8 * 0 at'
	upsh [hp]
      upsh ih
	call rect
	$color 14		;text color
      embed 'vc @ 1 - 8 * 0 at'
    	upsh tib
	upsh [tp]
 
	dup		;set x coordinate to right-justify text
      mov eax,dword [hc]
      sub eax,1
	sub eax,[esi]
      imul eax,iw
	mov [xy+2],ax
      drop
 
	sub eax,[esi]
	call type
	pop dword [fore]
	pop dword [xy]
      pop dword [sidebar]
next
