ちょっと戸惑うところかも、と思ったのでサンプルを。
一応変数と余計なところの説明は書いたので、後は読み解いて下さい(無責任
g=0;ゲージ初期値
gmax=200;ゲージ最大値
dg=1;ゲージ変化量初期値
gwth=100;ゲージ最大幅
ghgt=20;ゲージ高さ
gx=80;ゲージx座標
gy=50;ゲージy座標
redraw 0
boxf gx-1,gy-1,gx+gwth,gy+ghgt;枠描画
repeat
redraw 0
color 255,255,255
boxf gx,gy,gx+gwth-1,gy+ghgt-1
if g>0 : color 0,255,0 : boxf gx,gy,gx+gwth*g/gmax-1,gy+ghgt-1
g+dg
if (g>=gmax)|(g<=0) : dg=-dg
redraw 1
await 16
loop