J( 00.08.14i. [KANSU] 漢字⇔数字] 01.10.21 混 L=11881 C=0074 *ファイル名 KANSU.MYX *使用変数 Z99 *履歴 1.00 1998.11.30 *対応バ―ジョン Windows版マイツ―ル *動作確認 MTFREE V1.00 DynaBookSS3380  *使用方法 画面にデータを出して、RUN:KANSU[ENTER] * 「プログラムがありません」と出たら、FILEX にて登録 * して下さい。  *画面に列が無い時は、画面全体が対象になります。   V0="ESC":ACCP:数字→漢字…1 漢字→数字…2 :?:Z99=Z0:  IF V0="ESC" THEN:STOP:ENDIF:   IF T0>0 THEN:  COLOR:7:1:2:  LOC:13:6:PRINT: :  LOC:14:6:PRINT: 列指定するなら 3-4,5 等 入れて下さい :  LOC:15:6:PRINT: :  ENDIF:  V0="ESC":ACCP:数字形式変換するのは[全部= 中止=エスケ-プ]:?:  IF V0="ESC" THEN:STOP:ENDIF:  IF Z99=2 THEN:GOTO *数字→漢字:ENDIF:   SHU:::Y:V0$1:一:V0$2:二:V0$3:三:V0$4:四:V0$5:五:  SHU:::Y:V0$6:六:V0$7:七:V0$8:八:V0$9:九:V0$0:〇:  STOP:  *数字→漢字  SHU:::Y:V0$一:1:V0$二:2:V0$三:3:V0$四:4:V0$五:5:  SHU:::Y:V0$六:6:V0$七:7:V0$八:8:V0$九:9:V0$〇:0: *SHU:::Y:V0$|:―:: *M2   STOP:   kyoko@takamiya.com きょうこ  URL http://www.takamiya.com/