do 9 s= pull a b c do j=a by c to b-.01 call charout,s||format(j,,c<1&j%1<>j) s=" " end say end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page