@MENUSUB GOSUB @メニュ表示 WHILE 1'0だっけ？とりあえず無限ループのこと WHILE B==0:B=BUTTON(2):WEND GOSUB @カーソル消去 IF B==上 AND Y>メニュ下限 THEN Y-=1 IF B==下 AND Y<メニュ上限 THEN Y+=1 IF B==Aボタン THEN 戻り値=Y:GOSUB @メニュ消去:RETURN IF B==Bボタン THEN 戻り値=-1:GOSUB @メニュ消去:RETURN GOSUB @カーソル表示 WHILE B!=0:B=BUTTON(2):WEND WEND RETURN 思考の参考にどうぞ