Advertisement
Mysoft

Untitled

Apr 25th, 2024
1,369
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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)
  9.     else
  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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement