CLS
For y=1 To 480
For x=0 To 640
 Inc m
 If Not (x And 31) Then c=c Xor 1
 If m And 3 Then Pixel x,y,c Else Pixel x,y,c Xor 1
Next
 Inc m
 c=c Xor 1
 If Not (y And 31) Then c=c Xor 1
Next

For y=1 To 14
For x=1 To 19
 c=(x+y+(x>5)+(x>14)+(y>4)+(y>11)+1)Mod 2
 Line 32*x-8,32*y-2,32*x+8,32*y-2,4,c
 Line 32*x-2,32*y-8,32*x-2,32*y+8,4,c
Next
Next