anarchy golf - the source code

Reverse Repeated Printing by pooq

do
x=peek(0)
s$=chr$(x)
input""a$
e$=right$(a$,1)
if""=a$e$=s$
?s$," ",e$," ",(len(a$)+1)/(asc(e$)-x+1)
loop

Note that non-ascii characters in the above source code will be escaped (such as \x9f).