===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 02-13-93 (19:52)             Number: 40
From: EARL MONTGOMERY              Refer#: 183
  To: ALL                           Recvd: NO  
Subj: SROMCHAR.BAS (NEEDED FOR       Conf: (35) Quick Basi
---------------------------------------------------------------------------
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)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20