ループの中で毎回ACLSをしてサブメニュー画面を表示してしまってるため 画面がちらついていますし、A=6をループ内で設定しているため カーソルを移動する処理をしてもカーソルの位置が固定されてしまっています。 まず、ループ処理をする前に行う処理とループの中で行う処理に何が必要か リストアップして見て下さい。 ループ処理をする前にサブニューの表示やカーソル位置の初期設定 ループ処理中にはボタンの入力処理やカーソルの移動処理が必要になる と思われます。