JE 96.07.21ｩ  [ZRV.MYX] 現在変数置換オ―ト] 00.07.24 混 L=3241 C=0074＊全ての変数を使います。  ＊V0.01 1993.02.24  ＊V0.02 1996.07.21  ＊V1.00 2000.05.07 MYX に変更しての公開  ＊V1.01 2000.07.24 V に 0 が入ってたのを修正(xx;  ＊リスト作成の時のみですが、最後に SET:16:9: を実行します。 ＊いつも SET:16:0 とか、9 以外を指定なさってる方は、変更して下さい。  COLOR:7:1:2: LOC:1:6:PRINT: : LOC:2:6:PRINT: 変数リスト(ZRV_LST.MYX) の作成【初回のみ】…１ : LOC:3:6:PRINT: : LOC:4:6:PRINT: 以下は、ZRV_LST.MYX が無いとエラ―になります。 : LOC:5:6:PRINT: 変数の内容を、リストに記入・保存する …２ : LOC:6:6:PRINT: リストに書かれた内容を、変数に代入する …３ : LOC:7:6:PRINT: 全ての変数の内容を、消去する …４ : LOC:8:6:PRINT: :  Z0=1000: ACCPNUM:番号を選んで下さい。[1-4] :1:4::?: IF Z0=1000 THEN:STOP:ENDIF: IF Z0=2 THEN:RUN:ZRV.MYX/WZV:STOP:ENDIF: IF Z0=3 THEN:RUN:ZRV.MYX/RZV:STOP:ENDIF: IF Z0=4 THEN:RUN:ZRV.MYX/CZV:STOP:ENDIF:  ＊リスト作成  SET:16:0:ESC: ＊必要行数の確保  F:ZRV_LST.MYX:ESC: CPS:74:  CFA:4:10:5:10:4:40:: ＊列作成  ILS::100: ＊行の挿入  FOR Z1=1 TO 100: V0=Z1:[Z1+5,1]="Z"+V0: NEXT:  FOR Z1=1 TO 100: V0=Z1:[Z1+5,3]="R"+V0: NEXT:  FOR Z1=1 TO 50: V0=Z1:[Z1+5,5]="V"+V0: NEXT:  WFL:ZRV_LST.MYX:: ＊ペ―ジファイルとして保存  SET:16:9:ESC: ＊色指定列の初期化  STOP:  [WZV] ＊現在変数の内容をデ―タとして保存する。  RFL:ZRV_LST.MYX:  V0="ESC":ACCP:現在の変数内容をデ―タ保存します［磨^ｴｽｹ-ﾌﾟ］:?:  IF V0="ESC" THEN:STOP:ENDIF:  DPOFF:  [6,2]=Z1: ＊先に保存する  FOR Z1=2 TO 100:[Z1+5,2]=Z(Z1):NEXT Z1:  FOR Z1=1 TO 100:[Z1+5,4]=R(Z1):NEXT Z1:  FOR Z1=1 TO 50:[Z1+5,6]=V(Z1):NEXT Z1:  DPON:  WFL:ZRV_LST.MYX:?:  STOP:  [RZV] ＊保存して有るデ―タを変数に読み込む。（変数の復旧。）  RFL:ZRV_LST.MYX:  V0="ESC":ACCP:リストの内容を変数に読み込みます［磨^ｴｽｹ-ﾌﾟ］:?:  IF V0="ESC" THEN:STOP:ENDIF:  DPOFF:FOR Z1=2 TO 100:Z(Z1)=[Z1+5,2]:NEXT Z1:  FOR Z1=1 TO 100:R(Z1)=[Z1+5,4]:NEXT Z1:  FOR Z1=1 TO 50:V(Z1)=[Z1+5,6]:NEXT Z1:  Z1=[6,2]:DPON:  STOP:  [CZV] ＊変数の初期化  V0="ESC":ACCP:全ての Z,V,R 変数をクリアします［磨^ｴｽｹ-ﾌﾟ］:?:  IF V0="ESC" THEN:STOP:ENDIF:  FOR Z1=2 TO 100:Z(Z1)=0:NEXT Z1:  FOR Z1=1 TO 100:R(Z1)=0:NEXT Z1:  FOR Z1=1 TO 50:V(Z1)="":NEXT Z1:  Z1=0:STOP: