'-- PB31LIB.INC
'-- INCLUDE file for PB31.PBL
'-- included in PowerBASIC 3.1 example files.
'-- INCLUDE for COMMUNIT.BAS
DECLARE FUNCTION DtrStatus(BYVAL port AS INTEGER)
DECLARE FUNCTION CtsStatus(BYVAL port AS INTEGER)
DECLARE FUNCTION DsrStatus(BYVAL port AS INTEGER)
DECLARE FUNCTION Carrier(BYVAL port AS INTEGER)
DECLARE FUNCTION GetComAddress(BYVAL port AS INTEGER)
DECLARE SUB SetComAddress(BYVAL port AS INTEGER, BYVAL address AS INTEGER)
'-- INCLUDE for DIRUNIT.BAS
DECLARE FUNCTION DtaAttrib
DECLARE FUNCTION DtaDate$
DECLARE FUNCTION DtaTime$
DECLARE FUNCTION DtaSize&
DECLARE FUNCTION DOS2Date$(BYVAL Fd AS INTEGER)
DECLARE FUNCTION DOS2Time$(BYVAL Ft AS INTEGER)
DECLARE SUB GetDTA(DtaSeg AS INTEGER, DtaOfs AS INTEGER)
'-- INCLUDE for DOSUNIT.BAS
DECLARE FUNCTION AddFileHandles(BYVAL NumHandles AS INTEGER)
DECLARE FUNCTION ExeName$()
DECLARE FUNCTION Exist(BYVAL Filename$)
DECLARE FUNCTION DiskFree(Drive$) AS DWORD
DECLARE SUB StdOut( BYVAL Text AS STRING )
DECLARE SUB StdOutLn( BYVAL Text AS STRING )
DECLARE SUB StdErr( BYVAL Text AS STRING )
DECLARE SUB StdErrLn( BYVAL Text AS STRING )
DECLARE SUB SplitPath(BYVAL Source$, Fldrive$, Flpath$, Flname$)
'-- INCLUDE for MATHUNIT.BAS
DECLARE FUNCTION Factorial(BYVAL Value AS INTEGER)
DECLARE FUNCTION FahrToCelsius(BYVAL DegF AS SINGLE)
DECLARE FUNCTION CelciusToFahr(BYVAL DegC AS SINGLE)
DECLARE FUNCTION KilogramsToPounds(BYVAL Kg AS SINGLE)
DECLARE FUNCTION PoundsToKilograms(BYVAL Lbs AS SINGLE)
DECLARE FUNCTION CentToInch(BYVAL Cent AS SINGLE)
DECLARE FUNCTION InchToCent(BYVAL Inches AS SINGLE)
DECLARE FUNCTION DegreesToRadians(BYVAL Degrees AS SINGLE)
DECLARE FUNCTION RadiansToDegrees(BYVAL Radians AS SINGLE)
DECLARE FUNCTION GallonsToLiters(BYVAL Gallons AS SINGLE)
DECLARE FUNCTION LitersToGallons(BYVAL Liters AS SINGLE)
DECLARE FUNCTION ArcCos(BYVAL Value AS SINGLE)
DECLARE FUNCTION ArcSin(BYVAL Value AS SINGLE)
'-- INCLUDE for MOUSUNIT.BAS
DECLARE FUNCTION MsThere
DECLARE FUNCTION MsButtons
DECLARE SUB MsCursorOn
DECLARE SUB MsCursorOff
DECLARE SUB MsStatus(Button AS INTEGER, Row AS INTEGER, Column AS INTEGER)
DECLARE SUB MsLocate(BYVAL Row AS INTEGER, BYVAL Column AS INTEGER)
DECLARE SUB MsSetWindow(BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, _
 BYVAL Rows AS INTEGER, BYVAL Cols AS INTEGER)
'-- INCLUDE for SCRNUNIT.BAS
DECLARE SUB QSAVE(BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, _
 BYVAL Rows AS INTEGER, BYVAL Cols AS INTEGER, Where AS INTEGER)
DECLARE SUB QREST(BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, _
 BYVAL Rows AS INTEGER, BYVAL Cols AS INTEGER, Where AS INTEGER)
DECLARE SUB QBOX(BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, _
 BYVAL Rows AS INTEGER, BYVAL Cols AS INTEGER, BYVAL Attr AS BYTE)
DECLARE SUB QFILL(BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, _
 BYVAL Rows AS INTEGER, BYVAL Cols AS INTEGER, BYVAL Char AS INTEGER, _
 BYVAL Attr AS INTEGER)
DECLARE SUB QPRINT(BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, _
 BYVAL Text AS STRING, BYVAL Attr AS INTEGER)
DECLARE SUB QPRINTC(BYVAL Row AS INTEGER, BYVAL ColL AS INTEGER, _
 BYVAL ColR AS INTEGER, BYVAL Text$, BYVAL Attr AS INTEGER)
DECLARE SUB PGCOPY(BYVAL SourcePage AS INTEGER, BYVAL TargetPage AS INTEGER)
DECLARE SUB ScrollUp(BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, _
 BYVAL Rows AS INTEGER, BYVAL Cols AS INTEGER, BYVAL Attr AS INTEGER, _
 BYVAL HowMany AS INTEGER)
DECLARE SUB ScrollDown(BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, _
 BYVAL Rows AS INTEGER, BYVAL Cols AS INTEGER, BYVAL Attr AS INTEGER, _
 BYVAL HowMany AS INTEGER)
DECLARE SUB LineEdit(BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, Text$, _
 BYVAL Attr AS INTEGER, BYVAL EdLen AS INTEGER, _
 BYVAL MaxLen AS INTEGER)
> CUT HERE
Hope you can use these.
Lester
... Wherever you go....there you are.
___ Blue Wave/QWK v2.12
--- Maximus 2.02
---------------