' *** SYSTFONT.LST *** 2nd GFA-Manual, page 9-10 > PROCEDURE systemfont_8x16 ' ' *** Activate 8x16 systemfont for PRINT (default in High resolution) ' *** This is the same font as 'DEFTEXT ,,,13' for TEXT ' ' *** Standard: char.height& lin.max& y.max& ' LOCAL a$,adr% a$=MKI$(&HA000)+MKI$(&H2009)+MKI$(&H4E75) ! MOVE.L A1,D0 RTS adr%=VARPTR(a$) adr%=C:adr%() ! address of font-table {INTIN}={adr%+8} ! pointer to 8x16 systeemfont VDISYS 5,2,0,102 ! Init System Font (VDI 5, Escape 102 ; not official?) char.height=16 lin.max=DIV(SUCC(y.max),char.height) RETURN > PROCEDURE systemfont_8x8 ' ' *** Activate 8x8 systemfont for PRINT (default in Medium and Low resolution) ' *** This is the same font as 'DEFTEXT ,,,6' for TEXT ' ' *** Standard: char.height& lin.max& y.max& ' LOCAL a$,adr% a$=MKI$(&HA000)+MKI$(&H2009)+MKI$(&H4E75) ! MOVE.L A1,D0 RTS adr%=VARPTR(a$) adr%=C:adr%() ! address of font-table {INTIN}={adr%+4} ! pointer to 8x8 systeemfont VDISYS 5,2,0,102 ! Init System Font (VDI 5, Escape 102 ; not official?) char.height=8 lin.max=DIV(SUCC(y.max),char.height) RETURN ' ********* '