StrictGraphics 1024,768For Local x=100 To 924 Step 22 For Local y=100 To 668 Step 22 SetColor 255,252,255 DrawLine x,y,x,y+20 DrawLine x,y,x+20,y SetColor 80,80,80 DrawLine x+20,y,x+20,y+20 DrawLine x,y+20,x+20,y+20 DrawRect x+1,y+1,18,18 NextNextFlipWaitKey
Graphics 1024,768,0,2For x=100 To 924 Step 22 For y=100 To 668 Step 22 Color 255,255,255 Line x,y,x,y+20 Line x,y,x+20,y Color 80,80,80 Line x+20,y,x+20,y+20 Line x,y+20,x+20,y+20 Rect x+1,y+1,18,18,0 NextNextFlipWaitKey()End
SeedRnd MilliSecs()Graphics 1024,768,0,2For x=100 To 924 Step 22 For y=100 To 668 Step 22 Color Rand(1,255),Rand(1,255),Rand(1,255) Line x,y,x,y+20 Line x,y,x+20,y Color Rand(1,255),Rand(1,255),Rand(1,255) Line x+20,y,x+20,y+20 Line x,y+20,x+20,y+20 Rect x+1,y+1,18,18,1 NextNextFlipWaitKey()End
SeedRnd MilliSecs()Graphics 1024,768,0,2RepeatFor x=100 To 924 Step 22 For y=100 To 668 Step 22 Color Rand(1,255),Rand(1,255),Rand(1,255) Line x,y,x,y+20 Line x,y,x+20,y Color Rand(1,255),Rand(1,255),Rand(1,255) Line x+20,y,x+20,y+20 Line x,y+20,x+20,y+20 Rect x+1,y+1,18,18,1 NextNextFlipUntil KeyHit(1)End