标题汉字的放大技巧

　　本程序在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)班　张宏)