Double Parity Vertical Redundancy Check by pooq

do
p=peek(0)
if p<0break
b$=b$+chr$(p)loop
c=len(b$)
d=80
if c=62d=20
if c=89d=68
mid$(b$,d)="1"
?b$

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

download

return to the top page