0 CLS OCATE 1,1:INPUT "输入1中文汉字或英文:";S$
1 IF LEN(S$)>2 THEN GOTO 0
2 GOTO 100
10 OUT(0)=INT(IN/128):IN=IN-OUT(0)*128
11 OUT(1)=INT(IN/64):IN=IN-OUT(1)*64
12 OUT(2)=INT(IN/32):IN=IN-OUT(2)*32
13 OUT(3)=INT(IN/16):IN=IN-OUT(3)*16
14 OUT(4)=INT(IN/8):IN=IN-OUT(4)*8
15 OUT(5)=INT(IN/4):IN=IN-OUT(5)*4
16 OUT(6)=INT(IN/2):IN=IN-OUT(6)*2
17 OUT(7)=IN
20 RETURN
100 CLS
110 LOCATE 1,1 RINT S$
120 FOR Y=0 TO 15 STEP +1
130 IN=PEEK(2496+Y*20):GOSUB 10
140 FOR X=0 TO 7
150 IF OUT(X)=1 THEN BOX 80+X*5,0+Y*5,84+X*5,4+Y*5,1,1
160 NEXT
170 IN=PEEK(2497+Y*20):GOSUB 10
180 FOR X=0 TO 7
190 IF OUT(X)=1 THEN BOX 120+X*5,0+Y*5,124+X*5,4+Y*5,1,1
200 NEXT
210 NEXT
220 C=ASC(INKEY$)
230 GOTO 0
-------------------------------------------------
对不起,我没看清楚是nc1020[em09]
[此贴子已经被作者于2005-2-14 13:44:35编辑过]
|