回答箱 No.97-2:  「?」を使った入力で、回数が不確定な場合の自動化方法は?

  ◆ 質問箱 No.97  質問者:   藤原 良允  1999年06月 209号 P.29
      ◆ 質問箱 目次へ
No.97-02   「?」を使った入力で、回数が不確定な場合の自動化方法は? 回答者
   入川 精二
1999年07月
210号 P.21
   ◆ No.97(1999 06月号)の回答-02
   6月号に前口さんが書かれた手法(6月号12〜13頁)がSuperPIPSでも使えます。
   ‘Row 関数’も使えますから制御しやすいですね。簡単なプログラムを2通り作りました。
   <CONT1> はT行まで入力すると自動的にオートに戻って次に進みます。
   <CONT2> は[HOME]キーを押すとオートに戻ります 。

SuperPIPSのプログラム:
 1 <CONT1>                /* T行まで入力すると「オート」に戻る */
 2         G;DATA/1;
 3         WC;2;H;
 4 $入力:   ?;
 5         LET X1=ROW;
 6         IF X1=T THEN GOTO HH;
 7         GOTO 入力;
 8 $HH:  HOME;
 9         /* ここからオートに戻る */
10 STOP;
11
12 <CONT2>                /* [HOME]キーを押すと「オート」に戻る */
13         G;DATA/1;
14         WC;2;H;
15 $入力:   ?;
16         LET X1=ROW;
17         IF X1=-1 THEN GOTO HH;
18         GOTO 入力;
19 $HH:  HOME;
20         /* ここからオートに戻る */
21 STOP;

戻る