あ、短いから書こう DEF BARGAGE$(P,M) RETURN LEFT$("■"*(P/8)+CHR$(58025+(7AND P))+" "*M,M) END これをプログラムのどこかに書くとBARGAGE$が使えるようになるよ Mはゲージ全体の長さ（マス単位） Pは中身の長さ（px単位）