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)
 'Your Program would start here
 PRINT "This is A Test AAA 1234567890."
 GOTO HoldScreen

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

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET