SROMCHAR.BAS (NEEDED FOR

 BBS: Inland Empire Archive
Date: 02-13-93 (19:52)             Number: 339
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: SROMCHAR.BAS (NEEDED FOR       Conf: (2) Quik_Bas
CLS
LOCATE 10, 20: PRINT "Searching for and saving EGA/ROM characters."
LOCATE 11, 32: PRINT "Please be patient."
DEF SEG = &HC000
FOR x = 0 TO 65525
p = PEEK(x)
IF p = &H7E AND PEEK(x + 1) = &H81 AND PEEK(x + 2) = &HA5
AND PEEK(x + 3) = &H81 AND PEEK(x + 4) = &H81 AND PEEK(x +
5) = &HBD THEN GOTO savefont
NEXT
savefont:
DEF SEG = &HC000
BSAVE "romfont.dat", x - 16, 3584
LOCATE 13, 20: PRINT "EGA ROM characters captured to ROMFONT.DAT"
END


--- 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