home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 09-08.BAS < prev    next >
BASIC Source File  |  1995-01-20  |  447b  |  27 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM Context AS STRING*16
  6.  
  7. FGsetmode 19
  8.  
  9. Status = FGflicopen("GLASS.FLI"+CHR$(0),Context)
  10. IF Status = 0 THEN
  11.    DO
  12.       Frames = FGflicplay(Context,1,1)
  13.       FGwaitkey
  14.    LOOP WHILE Frames > 0
  15.    FGflicdone Context
  16. END IF
  17.  
  18. FGsetmode 3
  19. FGreset
  20.  
  21. IF Status = -1 THEN
  22.    PRINT "GLASS.FLI not found."
  23. ELSEIF Status = -2 THEN
  24.    PRINT "GLASS.FLI is not an FLI or FLC file."
  25. ENDIF
  26. END
  27.