
//
// compile with clipper fastgif /A/M/N/W
//

Function main()

Local nOldMode
Local cGif2    := "harley.gif"

        ? "Now, we're going to view a 640x480x256 GIF in SVGA mode"
        Inkey( 0 )

        If IsVESA()

          nOldMode := VESAMode( 256 )

          GifShowVESA( cGif2 )

          Tone( 300, 0 )

          Inkey( 0 )

          VideoMode( nOldMode )

        Else

          ? "VESA support not present. You must load an VESA driver as UNIVESA"
          Inkey( 0 )

        EndIf

        ? "Push any key to return to dos"
        Inkey( 0 )

return nil
