查找字库 辽宁 张 强 1993-07-16 现在通用的2.13E字库，共计87区，每区94个汉字或图形符号。首先应在我们的头脑中形成一个从左上角到右下角一个字盘，认定字盘的横行为区，列为位，对每一个字符或汉字，区和位固定了，这个字符也相应的确定下来，这就是区位码。例如：16区第一位置，即1601是汉字“啊”字，“啊”字是字库中第一个汉字。在本字库中，从16区到87区排列着汉字，1区至13区分别存放各种符号、数字编号、英、日、俄语字母和上标下标变量等。 计算机内字库打印和浏览程序，由三个部分组成：(1)屏幕选择菜单部分，从20句到110句；(2)浏览字库部分，从120句到250句；(3)打印字库部分从260句到380句。在本程序中所采用的变量：(1)“TT”是选择控制符；(2)“HH”和“KK”是打印时所控制的从“HH”区开始打印，打印到“KK”区结束；(3)“Q”控制着打印和浏览区号；(4)“W”控制着打印和浏览的位号。在打印和浏览执行过程中，区号和位号形成区位码，在FOR语句的支持下完成连续的输出任务。 需要说明的两点：(1)在用区位码调用字符或符号时，若区号或位号小于10时，则需要用0占位，例如6区第4位，用0604码输出“△”符号；(2)本程序输出时，我只列出1～40位号，其第二、三行输出的相应位号需自行计算得到，例如：“今”字，是在29区81列，即2981就是“今”字。 10 REM 计算机机内字库打印和浏览应用程序 20 CLS：SCREEN 1：LOCATE 1，8：PRINT＂欢迎您使用本程序＂ 30 TT=0 40 LOCATE 3，7：PRINT＂1----浏览＂ 50 LOCATE 4，7：PRINT ＂2----打印＂ 60 LOCATE 5，7：PRINT ＂3----退出＂ 70 LOCATE 7，7：INPUT ＂请选择1----3＂；TT 80 IF TT=3 GOTO 390 90 IF TT=2 THEN LOCATE 8，7：INPUT＂您从第几区开始打印＂； HH：LOCATE 9，6：INPUT＂打印到第几区＂；KK：SCREEN 2：GOTO 260 100 IF KK＞87 THEN KK=87 110 IF TT=1 THEN DD＄=B＄：HH=1：KK=87：SCREEN2 120 CLS 130 FOR Q=1 TO 87 140 PRINT 150 PRINT TAB(40)Q；＂区汉字＂ 160 FOR T=1 TO 40 170 PRINT CHR＄(&HA0＋11)＋CHR＄(&HA0＋T)； 180 NEXT T 190 PRINT 200 FOR W=1 TO 94 210 PRINT CHR＄(&HAO＋Q)＋CHR＄(&HA0＋W)； 220 IF W=40OR W=80 THEN PRINT 230 NEXT W 240 NEXT Q 250 GOTO 20 260 FOR Q=HH TO KK 270 LPRINT TAB(40)Q；＂区汉字＂ 280 FOR T=1 TO 40 290 LPRINTCHR＄(&HA0＋11)＋CHR＄(HA0＋T)； 300 NEXT T 310 LPRINT 320 FOR W=1 TO 94 330 LPRIN TCHR＄(&HA0＋Q)＋CHR＄(&HA0＋W)； 340 IF W=40 OR W=80 THE NLPRINT 350 NEXT W 360 KLPRIN＂＂ 370 NEXT Q 380 GOTO 20 390 SCREEN2：END