标题SPT图形的放大

　　SPT图形数据是按显示水平排列的，因此只要读一行数据，在目标文件中写两次，再修改版面高的信息即可。这样是竖向放大一倍。水平放大则需在SPT中“整版旋转”后，如上放大就行。
　　按这个思路，如果在数行之后对一行重写，就可以放大数倍。反过来，也可以缩小图形。当然，缩小图形可能造成某些图形细节的丢失。
　　input "Please input source file name."，f$
　　input "please input target file name."，fl$
　　define a-z
　　open f$ for binary as#1
　　open fl$ for binary as#2
　　get$#，64，x$:put$#2，x$
　　seek#，34
　　get$#1，1，x$
　　x(i)=asc(x$)
　　next i
　　l=x(2)*256+x(1)
　　v=x(4)*256+x(3)
　　k=v/2
　　v2=v+k
　　x$(2)=chr$(v2/256)
　　x$(1)=chr$(v2 mod 256)
　　seek#2，36
　　put$#2，x$(1)+x$(2)
　　seek#1，64:seek#2，64
　　for i=1 to v
　　get$#1，1/8，x$
　　put$#2，x$
　　if (i mod 2)=0 then
　　put$#2，x$
　　end if
　　next i
　　close
　　print "end"
　　end
　　(四川　黄允中)