Thank U 4 usin' the Future-Library!!!
------------------------------------------------------------------------------
Here are the Functions and Subs the lib uses:
Capslock Changes Capslock-state (ON, OFF)
ClearScreen 2 Nice ways to clear the screen
Font A ROM Font
GifLoader Loads a GIF-File in BASIC (SCREEN 13)
Melt The melt-effect (All Screens)
Numlock Changes Numlock-state (ON, OFF)
Palette.FadeIn Fade IN (All Screens except SCREEN 12 on fast computers)
Palette.FadeOut Fade OUT (All Screens except SCREEN 12 on fast computers)
Shake An earthquake!
WavDone If WavDone% then wav is done
WavPlay Plays a wav (only if you've got a soundcard)
------------------------------------------------------------------------------
MouseHide Hide Cursor
MouseInit Initialize mouse
MousePut Put mouse cursor
MouseRangeSet Set mouse range
MouseShow Show cursor
MouseStatus Checks mouse status
------------------------------------------------------------------------------
FileExists Checks for a file
GetSize Get size of a file
CreatePath Creates paths
------------------------------------------------------------------------------
AllocateXMS Allocate a block of XMS memory
DeAllocateXMS Frees XMS
Move2Low Move bytes from XMS
Move2XMS Move bytes to XMS
XMSVersion Get the XMS Version * 100
------------------------------------------------------------------------------
---> Starting parameters
-> From your QB-directory:
QB /l Future
-> In your program:
REM $INCLUDE: 'FUTURE.BI'
or
'$INCLUDE: 'FUTURE.BI'
------------------------------------------------------------------------------
HOW TO USE THE FUNCTIONS:
---> CapsLock:
Capslock 'State'
(0 = OFF, 1 = ON)
---> ClearScreen
ClearScreen 'Mode'
-> Mode 1: Closing curtains
-> Mode 2: Fill screen
---> Font
Font 'X','Y','Text$','Color'
---> GifLoader
GifLoader 'File$'
(File$ is a .GIF file)
---> NumLock:
Numlock 'State'
(0 = OFF, 1 = ON)
--> Palette.FadeIn/Palette.FadeOut
Palette.FadeOut
(After that, use Palette.FadeIn to fade in)
---> ScrollLock:
ScrollLock 'State'
(0 = OFF, 1 = ON)
---> Shake:
Shake 'duration'
---> WavDone:
a% = WavDone%
---> WavPlay:
WavPlay 'Filename$','Frequency'
(Filename$ = a .WAV file)
------------------------------------------------------------------------------
---> MouseInit
variable = MouseInit%
variable = 1 = Mouse succesfully initialized
---> MouseShow
MouseShow
---> MouseHide
MouseHide
---> MouseRangeSet
MouseRangeSet 'X1', 'Y1', 'X2', 'Y2'
---> MousePut
MousePut 'NewX', 'NewY'
------------------------------------------------------------------------------
---> FileExists
A = FileExists ('FileName$')
---> GetSize
A = GetSize ('FileName$')
---> CreatePath
CreatePath 'Path$
------------------------------------------------------------------------------
---> variable = XmsVersion%
gets the version of the xms driver * 100
(version 3 returns 300)
---> variable = AllocateXMS%(size)
allocates a block of XMS (size) bytes long(must be even)
and returns it's handle.
---> Move2XMS size, source segment, source offset, handle
Moves (size) bytes(even) from (source segment:source offset) to
(handle). Get the segment and offset by using VARPTR(variable name)
and VARSEG(variable name). Get a handle by using AllocateXMS%
---> Move2Low size, source segment, source offset, handle
Moves (size) bytes(even) from (handle) to (source segment:source
offset). Get the segment and offset by using VARPTR(variable name)
and VARSEG(variable name). Get a handle by using AllocateXMS%
---> DeAllocateXMS handle
Frees XMS in (handle)
------------------------------------------------------------------------------
By Jorden Chamid, Future $oftware Copyright (c) 1997
Internet:
http://members.xoom.com/fs
E -mail:
Chamid @ Globalxs.nl
This file may be distributed (unchanged), because I believe in FREEWARE!
Give me credit if you use this library!
If you put this Lib On a Web-Site, mail me!
------------------------------------------------------------------------------
XMS functions by 'StaticSnow' Mike:
[email protected]
His URL can be found at the Future $oftware homepage (URL above)
------------------------------------------------------------------------------
Gif SUB by Rich Geldrich
------------------------------------------------------------------------------
Wav(e) functions by Mike Huff
------------------------------------------------------------------------------
