home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
IMB9003.ZIP
/
FONTSCR.BI
< prev
Wrap
Text File
|
1990-03-01
|
1KB
|
74 lines
DECLARE SUB Pause (Msg$)
DECLARE SUB ScreenSize (XMax%, YMax%)
DECLARE SUB SetScreen (FGColor%, BGColor%, SMode%)
DECLARE FUNCTION CalcGPos% (GLine%, GCol%, VPos!, HPos!)
DECLARE FUNCTION GCentered% (GLine%, Text$)
DECLARE FUNCTION GInput$ (GLine%, GCol%, GLen%)
DECLARE FUNCTION GPLine% (GLine%, GCol%, Text$)
DECLARE FUNCTION GSpace% (GLine%, GCol%, GColor%)
DECLARE FUNCTION RegLoadFonts% (FileName$, FontNbr!)
DECLARE FUNCTION SetFont% (FontNbr%, FontColor%)
'$INCLUDE: 'E:\BC7\INCLUDES\FONTB.BI'
' Constant colors
CONST Black = 0
CONST Blue = 1
CONST Green = 2
CONST Cyan = 3
CONST red = 4
CONST Magenta = 5
CONST Brown = 6
CONST White = 7
CONST Gray = 8
CONST LightBlue = 9
CONST LightGreen = 10
CONST LightCyan = 11
CONST LightRed = 12
CONST LightMagenta = 13
CONST Yellow = 14
CONST BrightWhite = 15
' Constant Fonts
CONST Helv8 = 1
CONST Helv10 = 2
CONST Helv12 = 3
CONST Helv14 = 4
CONST Helv18 = 5
CONST Helv24 = 6
CONST Cour8 = 1
CONST Cour10 = 2
CONST Cour12 = 3
CONST Tmsr8 = 1
CONST Tmsr10 = 2
CONST Tmsr12 = 3
CONST Tmsr14 = 4
CONST Tmsr18 = 5
CONST Tmsr24 = 6
' Miscellaneous constants
CONST True = -1
CONST False = 0
CONST AllFonts = 0
' Current set up record
TYPE CurrentSetUp
ScreenMode AS INTEGER
XMax AS INTEGER
YMax AS INTEGER
NbrLines AS INTEGER
NbrCols AS INTEGER
NbrReg AS INTEGER
NbrLoaded AS INTEGER
FGColor AS INTEGER
BGColor AS INTEGER
END TYPE