質問箱 No.56

質問箱 No.56:任意の文字のシフトJISと区点コードを同じに知りたい

      ◇ 回答箱 No.056-1    回答者:  高橋周助  1997年07月 186号 P.29

          ◇ 質問箱目次へ

No.56   任意の文字のシフトJISと区点コードを同じに知りたい 質問者
   元山よし子 1997年06月
185号 P.17

下のプログラムはソードテレフォンサービスに教えてもらったものです。
‘ASCIIコード’を使って‘シフトJIS’を求めています。作業内容は画面のとおり、いたってシンプルです。

ここに併せて、区点コードも一緒に表示させたいのですが・・・
シフトJISはわかっても16進法を10進法に変換する計算式がわからないので、アドバイスをお願いします。

1 <文字からコードを調べる> 2 $カクニン:DISP OPEN(1,1,80,ENV(6)-3)/N; DISO COLOR(Y); 3 DISP [06,06],"★　シフトJISコードを求める文字は？ [ESCキー]=中止　★"; 4 INPUT [06,08],"→　",V1,U(JJ/AH); 5 IF ERR(0)=55 THEN GOTO $終了; 6 IF KLEN(V1)<>1 THEN GOTO $カクニン; 7 DISP [06,10],"シフトJISコードは ",HEX$(ASCII(V1)); 8 INPIT [06,12],"リターンキーをたたく→",V30,U(J); 9 GOTO $カクニン; 10 $終了: CLOSE; STOP;

□