汉字的放大技巧
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)班 张宏)