procedure division. ... initialize wfont-data tahoma-10v0. move 10 to wfont-size. move "Tahoma" to wfont-name. set wfont-bold to false. set wfont-italic to false. set wfont-underline to false. set wfont-strikeout to false. set wfont-fixed-pitch to false. call "w$font" using wfont-get-font tahoma-10v0 wfont-data. ... modify screen-1-gr-1 x = 1, y = 2 bitmap icon-png bitmap-number 3 bitmap-trailing 1 bitmap-width 18 cell-color 232 cell-font Tahoma-10v0 cell-data "Albert" . ... |