ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/PROG/BASIC/IMB9003.ZIP/FONTSCR.BI

Text File | 1990-03-01 | 1.5 KB | 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