You can do this quite easily actually by getting the object's position on screen:
ox#=object screen x(obj)
oy#=object screen y(obj)
...then just position a bar above the object.
Here is some sample code:
rem Use this to position the bar each loop
Bar(ox#-40, oy#-50, 80,5, percentageFilled#)
rem Put this function in your code somewhere after the loop
function Bar(x, y, width, height, P#)
P# = P#/100
if P#<0.0 then P#=0.0
rem gradient bar
seg = width / 3
box x, y, x+seg, y+height, rgb(0,0,0),rgb(0,0,0),rgb(42,85,85),rgb(42,85,85)
box x+seg, y, x+seg+seg, y+height, rgb(42,85,85),rgb(42,85,85),rgb(85,170,170),rgb(85,170,170)
box x+seg+seg, y, x+width, y+height, rgb(85,170,170),rgb(85,170,170),rgb(170,255,255),rgb(170,255,255)
rem empty bit
ink rgb(20,20,20),0
box x+width*P#, y, x+width, y+height
rem highlight
c1 = 0xCCFFFFFF
c2 = 0x33FFFFFF
box x, y, x+width, y+height*0.5, c2,c1,c2,c1
endfunction
EDIT: This code could be made more efficient but it works...