MAG - IMB9003.ZIP - FONTDRV.BAS

 
Output of file : FONTDRV.BAS contained in archive : IMB9003.ZIP

DECLARE SUB DspScreen ()
DECLARE SUB InpScreen ()

'$INCLUDE: 'e:\bc7\bin\t90feb\tfonts\FontScr.BI'

CLS
DspScreen
InpScreen
Pause "End of program...."
CLS
END

SUB DspScreen

CALL SetScreen(Blue, Cyan, 9)

TmsrFont$ = "e:\bc7\fonts\TmsrB.Fon"
CourFont$ = "e:\bc7\fonts\CourB.Fon"

Successful% = RegLoadFonts%(TmsrFont$, Tmsr24)
IF NOT Successful% THEN STOP
Res% = SetFont%(1, Blue)
CLen% = GCentered%(1, "Super Duper WONKA Graphics Screen")

Successful% = RegLoadFonts%(CourFont$, AllFonts%)
IF NOT Successful% THEN STOP

Res% = SetFont%(Cour12, RED)
Res% = GPLine%(5, 1, "Enter the following Information:")

LM% = 5

Res% = SetFont%(Cour10, Yellow)
Res% = GPLine%(8, LM%, "First Name [ ]")
Res% = GPLine%(8, Res% + 2, "Last Name [ ]")

END SUB

SUB InpScreen
a$ = GInput$(8, 17, 12)
b$ = GInput$(8, 43, 21)
END SUB