Graphics 640,480,0,0 Global mx:Float = -1 Global my:Float = -1 Global oldmx:Float Global oldmy:Float While Not KeyDown(KEY_ESCAPE) If MouseDown(1) Then If Mx And My > -1 Then oldMx = mx OldMy = my Else oldMx = MouseX() oldMy = MouseY() EndIf mx = MouseX() my = MouseY() For f:Int = 0 To 1 'draw it twice since we don't want to have flickering in fullscreen when we flip SetColor(255,100,255) DrawLine(oldMX, oldMY, mx, my) Flip Next Else mx = -1 my = -1 EndIf If MouseDown(1) Then If Mx And My > -1 Then oldMx = mx OldMy = my Else oldMx = MouseX() oldMy = MouseY() EndIf mx = MouseX() my = MouseY() For f:Int = 0 To 1 'draw it twice since we don't want to have flickering in fullscreen when we flip SetColor(255,255,255) DrawLine(oldMX, oldMY, mx, my) Flip Next Else mx = -1 my = -1 EndIf If MouseDown(1) Then If Mx And My > -1 Then oldMx = mx OldMy = my Else oldMx = MouseX() oldMy = MouseY() EndIf mx = MouseX() my = MouseY() For f:Int = 0 To 1 'draw it twice since we don't want to have flickering in fullscreen when we flip SetColor(0,0,255) DrawLine(oldMX, oldMY, mx, my) Flip Next Else mx = -1 my = -1 EndIf If MouseDown(1) Then If Mx And My > -1 Then oldMx = mx OldMy = my Else oldMx = MouseX() oldMy = MouseY() EndIf mx = MouseX() my = MouseY() For f:Int = 0 To 1 'draw it twice since we don't want to have flickering in fullscreen when we flip SetColor(255,0,0) DrawLine(oldMX, oldMY, mx, my) Flip Next Else mx = -1 my = -1 EndIf FlushMem Wend End