うーん、目が死にそう。 況してやこれをあと何行書けば良いのかを 考えると余計死にそう。

何をしているのかわからないから まとめられるものかどうかも不明だけど 見える範囲だけならDATA文とループでいけないかな？と思ってしまう

0<=itm<=9 でいいのなら最初の if 文の塊は var itm_to_pa7[9] @a: data ?,?,?,?,1,2,5,6,3 copy itm_to_pa7, @a pa7=itm_to_pa7[itm] 5334 は繋がってるの? bx=(((b1*2+b2)*2+b3)*2+b4)*2+b5 if bx=&b11111 then pa8=2 if bx=&b10111 then pa8=3 ... もちろん上みたいに配列にしてもいいかもだし、そもそも何やりたいのかな???

ナニカ法則を見つけて簡単に書けるようにすると良いカモ。。。 パッと見ですけど、Ｂ１～Ｂ５の値全てが１の時にＰＡ８＝２で、それ以外はＰＡ８＝３だよね？ ナニカ簡単に書けそうな気がしませんか？

あ、var がバグってた。(最近 VB 書いてるので・・・・) var itm_to_pa7[10] copy itm_to_pa7,@a,10 かな? copy の help みてちょ

皆さんのコメント参考にさせて頂きますね。 あ、PA8の値は後で変えるつもりのやつです。 プログラミングは省略の仕方も 大事になって来るので難しいですねぇ。

ちなみに僕がやりたかったのは、 B1が1、他が0の場合に数値Aを出して、 B1、B2が1の場合は別の数値Bを出す。 他の場面で数字Aが入力された場合、 B1を1、他を0とする…という感じの 要するにレトロゲームのパスワードの様な 物ですね。

改行を嫌って一行書きしてるみたいだけど、 b1==1&&b2==1&&b3==1&&b4==1&&b5==1 しか有効にならないよ？ 次のif文は、上の条件のときに「しか」判定されないし、その次のif文もその次の次のif文も… 全てのif文を有効にしたいのなら、改行しなきゃ

そうだったんですね。あの状態で改行すると 何も無い行が出来て読み辛かったので 改行してませんでした。

使う数字の桁を増やしたら解決しました。 皆さん情報ありがとうございました。