LOADFONT.BAS (NEEDED FOR

 BBS: Inland Empire Archive
Date: 02-13-93 (19:54)             Number: 340
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: LOADFONT.BAS (NEEDED FOR       Conf: (2) Quik_Bas

'$INCLUDE: 'qb.bi'
 DIM inregs AS RegTypeX, outregs AS RegTypeX
 DIM scrn2(3584)
 SCREEN 9: REM can also be screen 12 or 13 if you have VGA
 DEF SEG = VARSEG(scrn2(0))
 v = VARPTR(scrn2(0))
 ' You will want to replace "romfont.dat" with your new fonts
 BLOAD "romfont.dat", v
 inregs.ax = &H1121
 inregs.cx = 14
 inregs.es = VARSEG(scrn2(0))
 inregs.bp = VARPTR(scrn2(0))
 CALL INTERRUPTX(&H10, inregs, outregs)
 DEF SEG
 'Your Program would start here
 PRINT "This is A Test AAA 1234567890."
 PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ earl montgomery";
HoldScreen:
 GOTO HoldScreen


--- Maximus 2.01wb
 * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)