dB 00.08.29O! [HNC] 変数整理 AUTO] 00.08.29 混 L=8527 C=0100 GOTO *A: F=10,3,41,3,5,3,27 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  Z99=1:X: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  SH::S="*Z 81 *"::S/Z99:IF CNT[L]=0 THEN:X:SHU:::Y:{$Z 10 }:{Z 81 }::ELSE:X:Z99=Z99+1:ENDIF:  14 82  15 83  16 84  17 85  18 86  19 87  2Q 88  21 89  22 90  SH::S="*V 81 *"::S/Z99:IF CNT[L]=0 THEN:X:SHU:::Y:{$V 01 }:{V 41 }::ELSE:X:Z99=Z99+1:ENDIF:  02 42  03 43 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  * v1.00 2000.08.29  *ファイル名 HNC.MYX (変数ナンバ―チェンジ) *仕事 変数整理 *生成ファイル なし *使用ペ―ジ 表画面、裏画面、Sペ―ジ *設定変更 なし *登録方法 これを表画面にして RUN:: *動作確認 マイツ―ル V2 for Windows 2.00 on Windows98 *使用変数 コマンド代入のみ  *裏画面に、変数を整理したいオ―トを読み出します。 *F行が有れば、一旦 左に * を付けてフォ―マットを無効にします。 *X して、この画面を読み出します。 *4列目に、EC で、順番がグチャグチャになった変数の番号を入れます。 *6列目に、SEQ なと EC なとで、整理した番号を入れます。 *RUN:: で、変数書き換えオ―トが出来ます。 *RUN:: で、裏画面のオ―トの変数番号が整理されます。 *終了後、Sペ―ジにデ―タが無ければ、OKです。 *デ―タが有った変数は、書き換えられていません。  *注意 *基本的に、Z41〜Z99 R11〜R99 V11〜 を使われる事をお勧めします。 *Z3 Z4 は、コマンド代入変数 Z30番台、Z40番台が使われてる時、 *無茶苦茶になります。 *一桁台の変数は、2桁に増やそうとした時、SHU では無理です。 *30〜40番台は、コマンド実行により変わる場合が有ります。 *Z100 は、Z1 や Z10 を変えようとした時、面倒です。  *書き換え後の変数がダブらないようにご注意下さい。 *Z71,Z72,Z73 が有る時、Z91,Z92,Z93 にしようとして、もし万一、既に *Z91 が有ったら困ります。 で、検索にヒットしなければ書き換えます。   *A  CPC:6:2: *置き換え後の変数をチェックする為  SHU::C1=""::Y:1:\:3:\:5:\:T:\::  SR::  CF::P:  E:"STOP:":ESC:  CFP:2:H-T:  SL::  DIA:  DL:2-(Z38+1),(H-1),(T+1)-Z37: *上罫線までと項目罫線、下罫線以下  D:  STOP: