View difference between Paste ID: w9FvMEH4 and DYY9bKRW
SHOW: | | - or go back to the newest paste.
1
screenres 320,200
2
bload "temp.bmp"
3
palette
4
for iY as long = 0 to 199
5
  for iX as long = 0 to 319
6
    var iC = point(iX,iY)
7
    if ((iX+iY) and 1) then
8-
      pset(iX,iY),(iC and 15)+((iC and 15) shl 4)
8+
      pset(iX,iY),(iC and 15)
9
    else
10-
      pset(iX,iY),(iC shr 4)+((iC shr 4) shl 4)
10+
      pset(iX,iY),(iC shr 4)
11
    end if
12
  next iX
13
next iY
14
15
bsave "temp2.bmp",0
16
17
sleep