home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
12-06.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
709b
|
42 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
REM initialize the video environment
IF FGtestmode(13,3) = 0 THEN
PRINT "This program requires EGA."
STOP
END IF
OldMode = FGgetmode
FGsetmode 13
REM draw the background on page two
FGsetpage 2
FGsetcolor 1
FGrect 0, 319, 0, 199
FGsetcolor 15
FGmove 160, 100
FGellipse 20, 20
REM slide the object across the screen
Hidden = 1
FGsetcolor 10
FOR X = -10 TO 316 STEP 4
FGsetpage Hidden
FGtransfer 0, 319, 0, 199, 0, 199, 2, Hidden
FGclprect X, X+19, 96, 105
FGsetvpage Hidden
Hidden = 1 - Hidden
FGwaitfor 1
NEXT
REM restore the original video mode and return to DOS
FGsetmode OldMode
FGreset
END