do:k=0:for i=0to 450a=b:b=c:c=peek(0):k=k+(b-a-c^.2=8)next:?k/2loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page