home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
11-07.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-31
|
644b
|
34 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
FGvbinit
SetMemStatus& = SETMEM(-(64000+16))
Handle = FGvballoc(320,200)
Status = FGvbopen(Handle)
FGsetcolor 7
FGrect 0, 159, 0, 99
FGsetcolor 9
FGlocate 6, 6
FGtext "quadrant", 8
FGvbcopy 0, 159, 0, 99, 160, 99, Handle, Handle
FGvbcopy 0, 319, 0, 99, 0, 199, Handle, Handle
FGvbpaste 0, 319, 0, 199, 0, 199
FGwaitkey
FGvbclose
FGvbfree Handle
FGsetmode OldMode
FGreset
END