5.


5. - 335


,
. ,
CT II- CT2US50.OBJ (. . 6-4).
 

 
.
.
 
. FONTRESET() , ,
ROM (
8, 14, 16 ).
.
 
. EGA-
, 4.

MAXFONT().
 

 
. 256 :
 
? SETFONT(cFontString, 2) // 0 -
FONTSELECT(2) //
//
 
. 128 3:
 
? SETFONT(cFontString, 3, 128, 128) // 0 -
FONTSELECT(3) //
//
//
 
. ( ) .
, :
 
cFont := GETFONT()
SETFONT(CHARMIX(cFont, cFont), .T.)
 
. .
:
 
cFont := GETFONT()
nPixel := CHARPIX()
 
FOR A = 0 TO 255
FOR B = 1 TO nPixel
nByte := ASC(SUBSTR(cFont, (nPixel * A) + B, 1))
? NTOC(nByte, 2, 8, "0")