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