home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_GEN / FSTGIF31.ZIP / FAST / FASTGIF / FASTGIF.PRG next >
Text File  |  1994-03-15  |  573b  |  37 lines
  1.  
  2. //
  3. // compile with clipper fastgif /A/M/N/W
  4. //
  5.  
  6. Function main()
  7.  
  8. Local nOldMode
  9. Local cGif2    := "harley.gif"
  10.  
  11.         ? "Now, we're going to view a 640x480x256 GIF in SVGA mode"
  12.         Inkey( 0 )
  13.  
  14.         If IsVESA()
  15.  
  16.           nOldMode := VESAMode( 256 )
  17.  
  18.           GifShowVESA( cGif2 )
  19.  
  20.           Tone( 300, 0 )
  21.  
  22.           Inkey( 0 )
  23.  
  24.           VideoMode( nOldMode )
  25.  
  26.         Else
  27.  
  28.           ? "VESA support not present"
  29.           Inkey( 0 )
  30.  
  31.         EndIf
  32.  
  33.         ? "Push any key to return to dos"
  34.         Inkey( 0 )
  35.  
  36. return nil
  37.