区位码转换为双字节字符（含汉字）

SET TALK OFF
CLEAR
QM=""
 *CREATE CURSOR QWM (QWM C(4),ZF C(2))

FOR I=1 TO 87
    QM=IIF(I<10,'0'+STR(I,1),STR(I,2))
    @ 0,62 SAY "第 "+STR(I,2)+" 区" FONT "宋体",12
    ROW=3
    COL=1
    WM=""
    QMWM=""
    FOR K=1 TO 94
        WM=IIF(K<10,'0'+STR(K,1),STR(K,2))
        QMWM=QM+WM
        *INSERT INTO QWM (QWM,ZF) VALUES (QMWM,CHR(VAL(LEFT(QM,2))+160)+CHR(VAL(RIGHT(WM,2))+160))
        @ ROW,COL SAY QMWM+"  " +CHR(VAL(LEFT(QM,2))+160)+CHR(VAL(RIGHT(WM,2))+160) FONT "宋体",12
        COL=COL+13
        IF MOD(K,10)=0
           ROW=ROW+1.5
           COL=1
           *=INKEY(0.4)
        ENDIF
    ENDFOR
    IF I!=87
    CLEAR
    ENDIF
    QM=""
ENDFOR
RETURN
*********************
PROCEDURE QWHZ
PARAMETERS QW
IF LEN(QW)!=4
   RETURN "不是区位码"
ENDIF
RETURN CHR(VAL(LEFT(QW,2))+160)+CHR(VAL(RIGHT(QW,2))+160)