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