set talk off
clear
s=0
for i=1 to 100000
if int(i/10)%10=6 and i%7=0
s=s+i
endif
endfor
?s
set talk on