【1px単位で伸び縮みするゲージ作成関数】 DEF 適当な名前$(P,M) RETURN LEFT$("■"*(P/8)+CHR$(58025+(7AND P))+"　"*M,M) END P 値（px単位） M ゲージの長さ（マス単位）

ゲージ関数のスプライト版を作ってみました