home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
03-10.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
488b
|
29 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
OldMode = FGgetmode
Status = FGsvgainit(1)
IF FGtestmode(27,1) THEN
FGsetmode 27
ELSEIF FGtestmode(26,1) THEN
FGsetmode 26
ELSEIF FGtestmode(25,1) THEN
FGsetmode 25
ELSE
PRINT "This program requires an SVGA with at least 512K video memory."
STOP
END IF
FGsetcolor 15
FGtext "I'm running in mode", 19
FGtext STR$(FGgetmode), LEN(STR$(FGgetmode))
FGtext ".", 1
FGwaitkey
FGsetmode OldMode
FGreset
END