JZ 99.01.08i. [RR] 連続読出] 01.04.13 混 L=11881 C=0074 *ファイル名 RR.MYX *使用変数 Z01,Z02,Z03 V01 *Z02 表示先頭行  *対応 M3.22以上 動作確認 4e/HDD M4.01 WINMT WMTV2 MTFREE *履歴 V0.00 92.05.26 V0.10 93.09.22 V1.00 96.07.05 V1.01 96.07.11  *使用方法と仕様 *R命令に機能追加したオ―ト。 同行・同列表示させての連続読み出し用。 *表示が[R+]の時は魔フみで次々後ろへ読み出し、-魔ナ切り替わります。 * [R-]の時は魔フみで次々前へ読み出し、+魔ナ切り替わります。 *L 数字 or 数字 [例 12] で数字の行より下を画面表示 *C 数字 [例 C6] で数字の列より右を画面表示 *(行・列の先頭表示指定は、マウスで列表示行・番号列より指定可。) *頁のジャンプ R[実行] +20[実行] 等も使えます。  *RR 実行中にコマンドの入力も出来ます。 *コマンド等に、漢字・かな・カナは受け付けません。 *エスケ―プで終了。  *RUN CMD 等も可。 但し Z01 Z02 Z03 V01 を使ってると狂います。 *狂っても、ページを読み出すだけのオートですから支障は無いと思いますが。  *RR 実行中のセミオ―ト実行も不可能では無いが非現実的かも。 * CMD::RRDMY::ESC: と登録してある事が必要です。 * また、実行するセミオートの前後を「""」で括る必要があります。 * EC 等のセミオ―トでは "EC:2:7:?" とか「""」と「?」を付けて入力する * ならOKです。 * F行の上等に書かれているセミオ―トを実行するには、便利かも?  *読み出した頁の計算行が、指定行数に満たない時。 * デフォは DIA を実行して調べます。 為に計算行の無い頁の行指定も可。 * Mr で DIA を実行すると遅くなります。 [*行列]の下の「Mr用」と有る * 方を選ぶと計算行の無い頁では、1行目から表示するようになります。 * (AUTO 等、文章デ―タにも計算行指定をしておくと、表示出来ます。) *その他は、RR を一旦終了して、また続ける時の為に、行列指定の変数を *初期化しません。  *★以下の場合はエラ―終了します。★ * MYTOOL 起動後、どの頁の読み書きもしてない時。 * ファイル先頭頁を画面に― 最終頁を画面に+を押した時。 * 入力コマンド名をスペルミスした時。   RVON:  V01="+":  DPON: *+―  V0="ESC":ACCP:[RV01]仕事は= :?:   IF V0="" THEN:DPOFF:R:V01:?:GOTO *行列:ENDIF: *実行キ―のみ  IF V0="ESC" THEN:GOTO *終了:ENDIF:   KLEN:V0:Z01=Z0: TOASCII:V0::V0=V0-" ":KLEN:V0: *変換不可文字…空白  IF Z01<>Z0 THEN:BEEP:GOTO *+―:ENDIF: *英数+-以外を含む時  TOUPPER:V0:: *半角大文字英数の筈   Z0=V0:  IF Z0=0 THEN:  IF V0="+" OR V0="-" THEN:  V01=V0:DPOFF:R:V01:?:GOTO *行列: *「?」PRT頁用  ENDIF:  Z0=V0-"C": IF Z0>0 THEN:Z03=Z0:GOTO *行列:ENDIF: *表示列指定  Z0=V0-"L": IF Z0>0 THEN:Z02=Z0:GOTO *行列:ENDIF: *表示行指定  IF V0<>V0-":" THEN: *ACCP にセミオ―トを"" 付きで入力した時  DPOFF:V0=V0+{:}: CMD:=RRDMY::V0:ESC: DPON:  RRDMY:ESC:  ELSE:  V0:?:ESC: GOTO *+―: *命令実行  ENDIF:  ENDIF:  IF Z0>0 THEN:Z02=Z0:GOTO *行列:ENDIF: *表示行指定  GOTO *+―:ENDIF:  *行列  DPOFF:DIA: IF Z02>Z37 OR Z03>T0 THEN:Z02=1:Z03=1:ENDIF: *DX4以上 * IF Z02>T1 OR Z03>T0 THEN:Z02=1:Z03=1:ENDIF: *Mr用   IF Z02<1 THEN:Z02=1:ENDIF: *Z02 Z03 に AUTO 等で入る(-)対策  IF Z03<1 THEN:Z03=1:ENDIF: *表示先頭行列初期値   DP:Z02:Z03: DPON:  GOTO *+―:  *終了  STOP:   *表示行指定について Z02: だけでは 1魔ニした時、先頭列表示になる *CMD登録について 登録すると、読み出し時間が余分にかかる