home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
14-08.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
671b
|
37 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
OldMode = FGgetmode
FGsetmode FGautomode
IF FGmouseini < 0 THEN
FGsetmode OldMode
FGreset
STOP
END IF
FGsetcolor 15
FGrect 0, FGgetmaxx, 0, FGgetmaxy
FGmousevis 1
DO
FGwaitfor 54
FGmousebut 1, Count, X, Y
FGmousepos X, Y, Buttons
StatusString$ = "X="+LTRIM$(STR$(X))+" Y="+LTRIM$(STR$(Y))+" count="+LTRIM$(STR$(Count))+" "
FGmousevis 0
FGsetcolor 15
FGrect 0, FGxconvert(25), 0, FGyconvert(1)
FGsetcolor 0
FGlocate 0, 0
FGtext StatusString$, 24
FGmousevis 1
FGmousebut 2, Count, X, Y
LOOP WHILE Count = 0
FGsetmode OldMode
FGreset
END