回答箱 No.97-2: 「?」を使った入力で、回数が不確定な場合の自動化方法は?
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;
□
|
|
| |
戻る