008b.txt

*customsel vsp 0,0 print 1 *customsel_loop btndef clear getcselnum %sys_cselnum getcursorpos %csel_x,%csel_y cselbtn 0,1,%csel_x,%csel_y:add %csel_y,22 if %sys_cselnum > 1 cselbtn 1,2,%csel_x,%csel_y:add %csel_y,22 if %sys_cselnum > 2 cselbtn 2,3,%csel_x,%csel_y:add %csel_y,22 if %sys_cselnum > 2 cselbtn 3,4,%csel_x,%csel_y:add %csel_y,22 if %sys_cselnum > 2 cselbtn 4,5,%csel_x,%csel_y:add %csel_y,22 if %sys_cselnum > 2 cselbtn 5,6,%csel_x,%csel_y:add %csel_y,22 if %sys_cselnum > 2 cselbtn 6,7,%csel_x,%csel_y:add %csel_y,22 if %sys_cselnum > 2 cselbtn 7,8,%csel_x,%csel_y:add %csel_y,22 if %sys_cselnum > 2 cselbtn 8,9,%csel_x,%csel_y:add %csel_y,22 selectbtnwait %11 ;どこでもないところをクリック if %11 == 0 goto *customsel_loop ;右クリック if %11 == -1 gosub *systemmenu:vsp 0,0:print 1 ;上方向スクロール：無反応 if %11 == -2 goto *customsel_loop ;下方向スクロール：無反応 if %11 == -3 goto *customsel_loop if %11 >= 1 btndef clear:saveon:cselgoto %11 - 1 goto *customsel_loop
 * ――――――――――――――――――――選択肢待ちラベル