USE_FONT
Syntax |
USE_FONT #channel, font1_address, font2_address |
Location |
DJToolkit 1.16 |
This is a procedure that will allow your programs to use a character set that is different from the standard QL fonts. The following example will suffice as a full description.
EXAMPLE
1000 REMark Change the character set for channel #1
1010 :
1020 REMark Reserve space for the font file
1030 size = FILE_LENGTH('flp1_font_file')
1040 IF size < 0
1050 PRINT 'Font file error ' & size
1060 STOP
1070 END IF
1080 :
1090 REMark Reserve space to load font into
1200 font_address = RESERVE_HEAP(size)
1210 IF font_address < 0
1220 PRINT 'Heap error ' & font_address
1230 STOP
1240 END IF
1250 :
1260 REMark Load the font
1270 LBYTES flp1_font_file, font_address
1280 :
1290 REMark Now use the new font
1300 USE_FONT #1, font_address, 0
.......Rest of program
9000 REMark Reset channel #1 fonts
9010 USE_FONT #1, 0, 0
9020 :
9030 REMark Release the storage space
9040 RELEASE_HEAP font_address