; ShowPointer Example
; -------------------

Graphics 640,480,0,2
SetBuffer BackBuffer()

; Start with the Windows pointer hidden so ShowPointer has
; something to reveal. (Windowed modes only; see also HidePointer.)
HidePointer
hidden=1

While Not KeyDown(1)

    Cls

    ; Space toggles between ShowPointer and HidePointer
    If KeyHit(57) Then
        hidden=1-hidden
        If hidden Then
            HidePointer
        Else
            ShowPointer ; the documented command - reveal the pointer
        End If
    End If

    If hidden Then
        ; While hidden, a game crosshair stands in for the pointer
        Color 255,255,0
        Oval MouseX()-10,MouseY()-10,20,20,False
        Line MouseX()-14,MouseY(),MouseX()+14,MouseY()
        Line MouseX(),MouseY()-14,MouseX(),MouseY()+14
        Color 255,255,255
    End If

    Text 0,0,"Space: toggle ShowPointer / HidePointer   Esc: exit"
    If hidden Then
        Text 0,20,"Pointer hidden - press Space to call ShowPointer"
    Else
        Text 0,20,"ShowPointer called - the Windows pointer is back"
    End If

    Flip

Wend

End