汉字的放大技巧

张    宏
1993-02-05

        本程序在CEC-1中华学习机上运行通过。程序清单如下：
        10  DIM  S(16，21)
        20  HGR2：TEXT：
        HOME：PR#3：PRINT：
        PRINT：HOME
        30  VTAB  1：INPUT“输入原字”；A＄
        40  D=16394：A=7：B=3：C=0：GOSUB  100
        50  D=16395：A=7：B=1：C=7：GOSUB  100
        60  D=16396：A=7：B=1：C=14：GOSUB  100
        70  D=16522：A=7B=3：C=0：R=8：GOSUB  100
        80  D=16523：A=7：B=1：C=7：GOSUB  100
        90  D=16524：A=7：B=1C=14：GOSUB  100
        100  GOSUB  220
        110  TEXT
        120  END
        130  FOR  J=D  TO  D＋1024*7  STEP  1024
        140  P=PEEK(J)：M=(J-D)/1024＋1＋R
        150  RESTORE
        160  FOR  I=A  TO  B  STEP-1
        170READ  X
        180  IF  P＜X  THEN  200
        190  P=P-X：S(M，I＋C)=1
        200  NEXT  I，J
        210  RETURN
        220  INPUT“倍数(行，列)，”；P，N
        230  HGR2
        240  HCOLOR=3
        250  FOR  I=1  TO  16
        260  FOR  J=1  TO  20
        270  IF  S(I，J)＜＞1  THEN  320
        280  FOR  K=0  TO  N-1
        290  A=(J-1)*N＋K
        300  HPLOT  A，I*P  TO  A，I*P＋P-1
        310  NEXTK
        320  NEXT  J，I  330  DATA  64，32，16，8，4，2，1
        本程序的原理是将扫描到的元素在打印部分进行处理，如果对打印部分(即语句250-280行)做些相应的修改，还可以打印出不同风格的美术字。
        (天津市十四中初三(1)班  张宏)
 
 