SuperStrict
Const ALPHABITS:Int = $ff000000
Graphics(640,480)

Local Image:TImage = CreateImage(255,255)

While Not AppTerminate()
     Cls()
     Local Map:TPixmap = LockImage(Image)
     For Local x:Int = 0 To 254 Step 1
          For Local y:Int = 0 To 254 Step 1
               WritePixel(Map,x,y,ALPHABITS|Int(Rnd(0,255)))
          Next
     Next
     UnlockImage(Image)
     DrawImageRect(Image,0,0,640,480)
     DrawText "Blue Color Gradient",0,0
     Flip(0)
Wend