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
(四川 黄允中)