'無いと始まらないけど、実装が面倒でなかなか実装できないサブルーチン置き場 VAR CINDEX=0 VAR STINDEX=1 VAR ENDINDEX=2 VAR INCINDEX=3 VAR MAXINDEX=4 VAR FLGINDEX=5 DEF MSB(N) IF 0==N THEN RETURN -1 VAR OK=0,NG=32 WHILE NG-OK>1 VAR MID=OK+NG>>1 IF N>>MID THEN OK=MID ELSE NG=MID ENDIF WEND RETURN OK END '棒グラフの描画 'RANGE[SINDEX]<…