home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
09-09.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
581b
|
29 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
NewMode = FGbestmode(320,200,1)
IF NewMode < 0 OR NewMode = 12 THEN
PRINT "This program requires a 320 x 200 color graphics mode."
STOP
END IF
OldMode = FGgetmode
FGsetmode NewMode
FGmove 0, 199
ReadStatus = FGshowspr("CORAL.SPR"+CHR$(0),320)
FGwaitkey
IF ReadStatus = 0 THEN
WriteStatus = FGmakespr(0,319,80,99,"NEW.SPR"+CHR$(0))
ELSE
WriteStatus = 1
END IF
FGsetmode OldMode
FGreset
IF ReadStatus = 1 THEN PRINT "CORAL.SPR not found."
IF WriteSstatus = 1 THEN PRINT "NEW.SPR not created."
END