compile insert FONT_PARM * FONT PARMS EQU F_NAME$ TO 1 EQU F_POINTSIZE$ TO 2 EQU F_JUST$ TO 3 EQU F_BOLD$ TO 4 EQU F_ITALICS$ TO 5 EQU F_UNDERLINE$ TO 6 EQU F_STRIKETHRU$ TO 7 EQU F_FORECOLOR$ TO 8 EQU F_ESCAPEMENT$ TO 9