IF A==(RGB(255,0,0) AND &HFFF8F8F8) THEN ○○
としてはどうでしょうか?8で割った余りの部分は0になって
しまうので比較する方もこの部分は0として扱うって事なら
判定できると思います。
または
DEF GSPRGB(R,G,B)
RETURN RGB(R,G,B) AND &HFFF8F8F8
END
というユーザー関数を作って
IF A==GSPRGB(255,0,0) THEN ○○
とする方法もあります。
>でんぺんさん
その方法だとNEXTが無いためエラーになってしまいますよ。
戻り値を利用するなら関数にする必要がありますね。
DEF CHKBTN(X,Y)
BTN=FALSE
IF LEN(BTX)<1 THEN RETURN FALSE
FOR I=0 TO LEN(BTX)-1
IF X>=BTX[i] && X < BTX[i]+BTW[i] && Y==BTY[i] THEN BTN=I:BREAK
NEXT
RETURN BTN
END
これでどうでしょうか?
残念ながらPRINT文で書いた文字を拡大する方法はありません。
数字、一部の記号、アルファベットの大文字を16×16ドットの
文字で表示する方法はあります。
キャラクターコードの32~95までの文字はBGで大きく表示できます。
S$="012ABC?!()"
FOR I=0 TO LEN(S$)-1
BGPUT 0,I,0,ASC(MID$(S$,I,1))
NEXT