カラー選択ツール

R=255
G=255
B=255
goto 2
label 1
msgdlg("このツールの使い方説明"," key select: 終了 key down: colorをコピーする 取得はscan key 1: Rを１上げる key 2: Gを１上げる key 3: Bを１上げる key 4: Rを１下げる key 5: Gを１下げる key 6: Bを１下げる 取得はinput key 7: 同上 key 8: 同上 key 9: 同上 key *: 同上 key 0: 同上 key #: 同上 ")
label 2
while(1){
lock()
cls()
col(black)
frect(0,0,300,300)
col(white)
text("上キーでこのツールの使い方説明",40,160,0)
color(R,G,B)
text("Hello color",90,120,0)
col(white)
text("R".R,200,0,0)
text("G".G,200,15,0)
text("B".B,200,30,0)
col(black)
if(scan==65536){end}
switch(scan){
case 2 : R++ if(R>255){R=0} break;
case 4 : G++ if(G>255){G=0} break;
case 8 : B++ if(B>255){B=0} break;
case 16 : if(R==0){R=256} R-- break;
case 32 : if(G==0){G=256} G-- break;
case 64 : if(B==0){B=256} B-- break;
case 4096 : goto 1 break;
}
switch(input(0)){
case 32768 : inputdlg("colorコピー","color(".R.",".G.",".B.")",5000,0) break;
case 128 : R++ if(R>255){R=0} break;
case 256 : G++ if(G>255){G=0} break;
case 512 : B++ if(B>255){B=0} break;
case 1024 : if(R==0){R=256} R-- break;
case 1 : if(G==0){G=256} G-- break;
case 2048 : if(B==0){B=256} B-- break;
}
unlock()
}