| No.72-1 |
TPSでバインダーを確保する方法は？
| 回答者
高橋 周助 | 1998年04月
195号 P.21 |
◆ No.72(1998年3月号)の回答-1
次のプログラムによって、バインダーとページの余裕数を求めてから、バインダーを作るようにしたら、いかがでしょうか?
3行目にキャビネット名を書き込んでRUN。INPUT文に直すと更に便利。
1 <BCHK>
2 /*********** A.キャビネット指定 *************************************/
3 LET V10="PUC";
4 /*********** B.最大登録可能数 *************************************/
5 LET Z11=VAL(LTINF$(2,8,V10)); /* バインダ登録数 */
6 LET Z12=VAL(LTINF$(2,7,V10)); /* ページ 登録数 */
7 /*********** C.登録済み数 ****************************************/
8 LT;B;%V10;WK/D;
9 CS;WK;@バインダー名 ="=*?";;;WK2/D;
10 LET Z21=RESULT(1); /* 登録済み バインダ数 */
11 IF Z21>0 THEN GOTO $バ有;
12 LET Z22=0; &
nbsp; /* 登録済みページ数 0 */
13 GOTO $余裕;
14 $バ有: CAL;TADD"WK2"(@ページ )=M(H,@ページ );
15 LET Z22=VAL([H,@ページ ]); /* 登録済みページ数 */
16 /*********** D.登録余裕数 *****************************************/
17 $余裕: LET Z31=Z11-Z21; /* バインダ余裕数 */
18 LET Z32=Z12-Z22; /* ページ 余裕数 */
19 /*********** E.画面表示 *******************************************/
20 DISP OPEN;
31 DISP [20,03]," キャビネット名：",V10;
32 DISP [20,07],"登録可能のバインダ最大数：",Z11;
33 DISP [20,09],"登録済みのバインダ数 ：",Z21;
34 DISP [20,11],"登録可能の残りバインダ数：",Z31;
35
36 DISP [20,15],"登録可能のページ最大数 ：",Z12;
37 DISP [20,17],"登録済みのページ数 ：",Z22;
38 DISP [20,19],"登録可能の残りページ数 ：",Z32;
39
40 INPUT [20,23]," 了解したら、リターンキー → ",V2;
41 /*********** Z.終わり *********************************************/
42 DISP CLOSE;
43 STOP;
| |