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