10MODE 0 20fname$="P.EXAMPLE" 30ch%=OPENIN(fname$) 40CLS 50X%=BGET#ch%+256*BGET#ch% 60X%=X%/16 70Y%=BGET#ch%+256*BGET#ch% 80Y%=Y%/4 90A%=&3000 100FOR L%=0 TO X%-1 110S%=A% 120FOR M%=0 TO Y%-1 130?S%=BGET#ch% 140IF S% MOD 8=7 S%=S%+633 ELSE S%=S%+ 1 150NEXT 160A%=A%+8 170NEXT 180CLOSE #ch%