order% = 8
      size% = 2^order%
      VDU 23,22,size%;size%;8,8,16,128
      FOR Y% = 0 TO size%-1
        FOR X% = 0 TO size%-1
          IF (X% AND Y%)=0 PLOT X%*2,Y%*2
        NEXT
      NEXT Y%