>>294
dispermes="カラーモードの変更はできなかったが\n解像度の変更は正常に行なわれた。","解像度の変更ができなかった。"
bgscr 0,640,480,0,0,0 ;枠なしウィンドウを0,0の位置に制作
gsel 0,2 ;常に最前面
chgdisp 1,640,480 ;解像度を640,480 に
if stat>0 {
dialog dispermes(stat-1),1,"エラー"+stat
end ;終了(解像度変更でエラーが出た時)

#deffunc chgdispend onexit ;終了時に自動で呼ばれる命令(ここじゃなくても直接実行されない所ならどこでもいい)
chgdisp 0 ;解像度復帰
return
}