ちょっと戸惑うところかも、と思ったのでサンプルを。
一応変数と余計なところの説明は書いたので、後は読み解いて下さい(無責任
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