home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
13-08.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-31
|
893b
|
47 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
DIM KeyCode AS STRING*1
DIM AuxCode AS STRING*1
OldMode = FGgetmode
FGsetmode 19
FGvbinit
SetMemStatus& = SETMEM(-(64000+16))
Handle = FGvballoc(320,200)
Status = FGvbopen(Handle)
Status = FGloadpcx("CORAL.PCX"+CHR$(0),0)
FGvbclose
FGsetcolor 2
FGfillpage
FGsetcolor 15
FGbox 111, 208, 69, 130
FGlocate 3, 8
FGtext "Press arrow keys to pan.", 24
X = 112
Y = 129
FGvbpaste X, X+95, Y-59, Y, 112, 129
DO
FGgetkey KeyCode, AuxCode
IF AuxCode = CHR$(72) AND Y < 199 THEN
Y = Y + 1
ELSEIF AuxCode = CHR$(75) AND X < 223 THEN
X = X + 1
ELSEIF AuxCode = CHR$(77) AND X > 0 THEN
X = X - 1
ELSEIF AuxCode = CHR$(80) AND Y > 59 THEN
Y = Y - 1
END IF
FGvbpaste X, X+95, Y-59, Y, 112, 129
LOOP WHILE KeyCode <> CHR$(27)
FGvbfree Handle
FGsetmode OldMode
FGreset
END