'Future LIB by Jorden Chamid and Michael Rye Sorensen
'*** Wave ***
DECLARE SUB DmaState (StopGo%)
DECLARE FUNCTION WavDone% ()
DECLARE SUB SetStereo (OnOff%)
DECLARE SUB LoadWAV (Filename$)
DECLARE SUB StopAndReset ()
DECLARE FUNCTION GetVolume% (Right%, Left%)
DECLARE SUB SpeakerState (OnOff%)
DECLARE SUB MasterVolume (Right%, Left%, Getvol%)
'*** Mouse ***
DECLARE SUB MouseShow ()
DECLARE SUB MouseDriver (ax%, bx%, CX%, dx%)
DECLARE SUB MouseHide ()
DECLARE SUB MousePut (X%, Y%)
DECLARE SUB MouseRange (X1%, Y1%, x2%, y2%)
DECLARE SUB MouseStatus (Lb%, Rb%, XMouse%, Ymouse%)
DECLARE FUNCTION MouseInit% ()
DECLARE SUB Future.UpdateMouse ALIAS "SVGAupdatemouse" ()
DECLARE SUB SetMouseRange (X1%, Y1%, x2%, y2%) 'new
DECLARE SUB SetLocation (X%, Y%)
DECLARE SUB SetMouseMaskColor ALIAS "SVGAmousemask" (BYVAL C%)
DECLARE SUB Future.MouseShape (Shape$)
DECLARE SUB Future.MouseOff ALIAS "SVGAmouseoff" ()
DECLARE SUB Future.MouseOn ALIAS "SVGAmouseon" ()
DECLARE FUNCTION Future.MouseB% ALIAS "SVGAmouseB" ()
DECLARE FUNCTION Future.MouseY% ALIAS "SVGAmouseY" ()
DECLARE FUNCTION Future.MouseX% ALIAS "SVGAmouseX" ()
'*** Graphics ***
DECLARE SUB Set320x200
DECLARE SUB Set512x384
DECLARE SUB Set640x400
DECLARE SUB Set640x480
DECLARE SUB Set800x600
DECLARE SUB Set1024x768
DECLARE SUB Set1152x864
DECLARE SUB Set1280x1024
DECLARE SUB Set1600x1200
DECLARE SUB ReSetScreen
DECLARE FUNCTION Pages% ()
DECLARE SUB Future.SNAPSHOT (Filename$)
DECLARE SUB Future.GET (X%, Y%, X1%, Y1%, Array() AS ANY)
DECLARE SUB Future.PUT (X%, Y%, Array() AS ANY)
DECLARE SUB Future.PRINT (X%, Y%, t$, C%, B%)
DECLARE SUB Future.LoadGIF (Filename$, XRes%, YRes%)
DECLARE SUB Future.LoadBMP (Filename$, Xpos%, Ypos%)
DECLARE SUB Future.LoadPCX (Filename$, Xpos%, Ypos%)
DECLARE FUNCTION IsVESA%
DECLARE FUNCTION VideoMemory&
DECLARE SUB ViewPage (BYVAL P%)
DECLARE SUB SetFrameBuffer ALIAS "SVGAframesize"  (BYVAL X%, BYVAL Y%)
DECLARE SUB Future.ScrollUD ALIAS "SVGAscrollud" (BYVAL pixels%)
DECLARE SUB Future.ScrollLR ALIAS "SVGAscrolllr" (BYVAL pixels%)
DECLARE SUB SetMaskColor (BYVAL C%)
DECLARE SUB SetPage (BYVAL P%)
DECLARE FUNCTION Future.POINT% ALIAS "SVGApoint" (BYVAL X%,BYVAL Y%)
DECLARE SUB Future.PSET ALIAS "SVGApset" (BYVAL X%,BYVAL Y%,BYVAL C%)
DECLARE SUB Future.CLS ALIAS "SVGAcls" (BYVAL C%)
DECLARE SUB Future.FILLBOX ALIAS "SVGAfillbox" (BYVAL X%,BYVAL Y%,BYVAL X1%,BYVAL Y1%,BYVAL C%)
DECLARE SUB Future.BOX ALIAS "SVGAbox" (BYVAL X%,BYVAL Y%,BYVAL X1%,BYVAL Y1%,BYVAL C%)
DECLARE SUB Future.LINE ALIAS "SVGAline" (BYVAL X%,BYVAL Y%,BYVAL X1%,BYVAL Y1%,BYVAL C%,BYVAL Bitscan%)
DECLARE SUB Future.CIRCLE ALIAS "SVGAcircle" (BYVAL CX%,BYVAL CY%,BYVAL Radius%,BYVAL C%)
DECLARE SUB Future.FILLCIRCLE ALIAS "SVGAfillcircle" (BYVAL CX%,BYVAL CY%,BYVAL Radius%,BYVAL C%)
DECLARE SUB Future.HLINE ALIAS "SVGAhline" (BYVAL Y%, BYVAL X1%,BYVAL X2%,BYVAL C%)
DECLARE SUB Future.TRIFILL (X1%, Y1%, X2%, Y2%, X3%, Y3%, C%)
DECLARE SUB Future.TRIGOUR (X1%, Y1%, X2%, Y2%, X3%, Y3%, C1%, C2%, C3%)
DECLARE SUB SetFont (Mode%)
DECLARE SUB Font (X%, Y%, Text$, Col%)
DECLARE SUB LoadGIF (a$)
DECLARE SUB LoadPCX (a$)
DECLARE SUB LoadBMP (a$)
DECLARE SUB Melt ()
DECLARE SUB Palette.FadeIn
DECLARE SUB Palette.FadeOut
DECLARE SUB LoadPal (Filename$)
DECLARE SUB SavePal (Filename$)
DECLARE SUB Shake (Duration)
DECLARE SUB ChangePal (Color2Change%, R%, G%, B%)
DECLARE SUB LoadScreen (Filename$)
DECLARE SUB SaveScreen (Filename$)
'*** Key handling ***
DECLARE SUB StickStatus (JoyX%, JoyY%, But1%, But2%, But3%)
DECLARE SUB LockKeys (Nr%, State%)
DECLARE SUB DisableBreak
DECLARE SUB ClearKeyBuffer
DECLARE FUNCTION GetKey%
'*** Misc. ***
DECLARE FUNCTION Timer2& ()
'*** EMS ***
DECLARE FUNCTION AllExpMem% (Bytes&)
DECLARE SUB DeallExpMem (handle%)
DECLARE SUB Future.EMSPut (X%, Y%, EMShandle%)
DECLARE SUB Future.EMSGet (X%, Y%, X1%, Y1%, EMShandle%)