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)