home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
10-23.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
599b
|
40 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
DIM Arrow AS STRING*12
DATA 6,1,9,2,2,9,1,19,7,2,8,1
IF FGtestmode(4,1) = 0 THEN
PRINT "This program requires a 320 x 200 CGA graphics mode."
STOP
END IF
FOR I = 1 TO 12
READ Item
MID$(Arrow,I) = CHR$(Item)
NEXT
OldMode = FGgetmode
FGsetmode 4
FGsetclip 0, 15, 0, 199
FGsetcolor 3
FGrect 0, 319, 0, 199
FGmove 10, 10
FGdrawmask Arrow, 12, 10
FGmove 10, 20
FGclipmask Arrow, 12, 10
FGmove 10, 30
FGrevmask Arrow, 12, 10
FGmove 10, 40
FGflipmask Arrow, 12, 10
FGwaitkey
FGsetmode OldMode
FGreset
END