Question. I have a bug in the code or is this a FreeBasic feature to overcome?
(My computer Raspberry 4B)
Code: Select all
ScreenRes 800, 600, 32,2
Screenset 1,0
Dim As Integer x = 0
Color RGB(255, 128, 0), RGB(0, 0, 200)
Cls
Do
Cls
Line (x, 80)-Step(63, 127), RGB(255, 255, 0), BF
x += 3: If (x > 639) Then x = 0
ScreenSync
Flip
Loop While Inkey = ""
sleep
end