home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
09-01.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
598b
|
31 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
IF FGtestmode(19,1) = 0 THEN
PRINT "This program requires a 320 x 200 MCGA graphics mode."
STOP
END IF
OldMode = FGgetmode
FGsetmode 19
ReadStatus = FGshowpcx("CORAL.PCX"+CHR$(0),0)
FGwaitkey
IF ReadStatus = 0 THEN
WriteStatus = FGmakepcx(0,319,80,99,"NEW.PCX"+CHR$(0))
ELSE
WriteStatus = 1
END IF
FGsetmode OldMode
FGreset
IF ReadStatus = 1 THEN
PRINT "CORAL.PCX not found."
ELSEIF ReadStatus = 2 THEN
PRINT "CORAL.PCX is not a PCX file."
END IF
IF WriteStatus = 1 THEN PRINT "NEW.PCX not created."
END