home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / IMB9003.ZIP / FONTDRV.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-03-01  |  961 b   |  44 lines
  1. DECLARE SUB DspScreen ()
  2. DECLARE SUB InpScreen ()
  3.  
  4. '$INCLUDE: 'e:\bc7\bin\t90feb\tfonts\FontScr.BI'
  5.  
  6.    CLS
  7.    DspScreen
  8.    InpScreen
  9.    Pause "End of program...."
  10.    CLS
  11.    END
  12.  
  13. SUB DspScreen
  14.  
  15.    CALL SetScreen(Blue, Cyan, 9)
  16.  
  17.    TmsrFont$ = "e:\bc7\fonts\TmsrB.Fon"
  18.    CourFont$ = "e:\bc7\fonts\CourB.Fon"
  19.  
  20.    Successful% = RegLoadFonts%(TmsrFont$, Tmsr24)
  21.    IF NOT Successful% THEN STOP
  22.    Res% = SetFont%(1, Blue)
  23.    CLen% = GCentered%(1, "Super Duper WONKA Graphics Screen")
  24.  
  25.    Successful% = RegLoadFonts%(CourFont$, AllFonts%)
  26.    IF NOT Successful% THEN STOP
  27.  
  28.    Res% = SetFont%(Cour12, RED)
  29.    Res% = GPLine%(5, 1, "Enter the following Information:")
  30.  
  31.    LM% = 5
  32.  
  33.    Res% = SetFont%(Cour10, Yellow)
  34.    Res% = GPLine%(8, LM%, "First Name [            ]")
  35.    Res% = GPLine%(8, Res% + 2, "Last Name [                     ]")
  36.  
  37. END SUB
  38.  
  39. SUB InpScreen
  40.    a$ = GInput$(8, 17, 12)
  41.    b$ = GInput$(8, 43, 21)
  42. END SUB
  43.  
  44.