do
c=peek(0)-99
if c<-99end
r=r+(c=6)-(c=1)+(c=16)*r*(r-1)
if r=257r=1
if r<0r=0
if c=12?r
loop