Re: Text mode fonts/mouse

 BBS: Inland Empire Archive
Date: 06-27-92 (22:24)             Number: 1507
From: MIKE KELLY                   Refer#: NONE
  To: RAYMOND KEITH                 Recvd: NO  
Subj: Re: Text mode fonts/mouse      Conf: (2) Quik_Bas
In a message of <Jun 27 08:58>, Raymond Keith (1:105/224) writes:
 >The second way takes a bit more work, but is cleaner code and involves
 >playing with the various character tables. In text mode, you can design up
  >to
 >8 complete 256 character tables. You can even use 2 of these at one time.
  >The
 >cleanest way to do this is to re-design one of the other tables rather than
 >the default one as I did in the example. Then before ending your program,
 >switch back to the default table. Although this is less sloppy than issuing
 >a worthless screen command, I thought it was too much work compared to
                                               ^^^^^^^^^^^^^ ???
 >SCREEN 1.

Raymond:

It couldn't be simpler or easier (and much cleaner than
fiddling <g> with the user's SCREEN).

SUB ResetFont
  DIM reg AS regtype           ' Standard DIM
  reg.ax = &H1104              ' AH = &H11; load font
                               ' AL = 4, load VGA 8x16 ROM font; or
                               ' AL = 1, load EGA 8x14 ROM font
  reg.bx = &H0                 ' BL = Block to load
  Interrupt &H10, reg, reg     ' CALL Interrupt 10
END SUB

Mike



--- QM v1.00
 * Origin: Russian House, Portland, OR, USA (1:105/23.48)
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