END
in$ ="TESTPAGE."
out$="TESTPAGE.txt"
in% =OPENIN(in$)
out%=OPENOUT(out$)
mask%=127
width%=20
REPEAT
n%=0
BPUT#out%,"DEFB ";
REPEAT
byte%=BGET#in%
IF byte%>159 THEN byte%=byte% AND mask%
BPUT#out%,"#"+RIGHT$("0"+STR$~byte%,2)+",";
n%=n%+1
UNTIL n=width% OR EOF#in%
PTR#out%=PTR#out%-1
BPUT#out%,10
UNTIL EOF#in%
CLOSE#out%
CLOSE#in%