| No.65 |
区点コードから文字に変換したい |
質問者
西村 重幸 |
1997年11月
190号 P.21 |
高橋氏の区点コードの算出法(1997年07月 No.186)を興味深く読ませていただきました。
氏の｢この必要性は?」との問いに、他人に読まれたくない文章に利用するのではと考え、ならば文字への逆プログラムをと、氏のプログラムを参考に挑戦してみたものの自信が持てません(特に下記の$B2〜$B3の部分)。
区点コードから文字に変換するプログラムをご教唆下さい。
区点コード算出プログラムから
LETV40="【今月の質問箱】"を変換すると
LETV40="0158 2603 2378 0446 2833 4468 4002 0159"となりました。
これを再変換し、文字を画面に表示したいと思います。
1 <TEST>
2 DISP OPEN;
3 LET V40=FORM$(V40,3);
4 LET X40=LEN(V40);
5 $1: FOR X2=1 TO X40 STEP4;
6 LET V1=MID$(V40,X2,4);
7 LET Z1=VAL(V1);
8
9 $B2: LET Z2=ROUND(Z1,-1,2);
10 LET Z4=(Z2+128*200)/200;LET X4=INTG(Z4);
11 LET Z5=(Z1-Z2)+158; LET X5=INTG(Z5);
12 IF Z4 MOD 1=0 THEN GOTO $B4;
13
14 $B3: LET X4=X4+1;
15 IF X5<222 THEN LET X5=X5-95 ELSE X5=X5-94;
16
17 $B4: LET V11=HEX$(X4)+HEX$(X5);
18 LET V12=CHR$(HEXVAL(V11));
19 DISP V12;
20 NEXT;
21 STOP;
|
|
|
