working-storage section. ... 77 Courier-New-0v0 handle of font. ... screen section. ... 03 screen-1-cb-2 Check-Box line 27.7 column 10.6 size 156 lines 31 font Courier-New-0v0 id 11 . ... procedure division. ... initialize wfont-data courier-new-0v0. move 0 to wfont-size. move "Courier New" 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 courier-new-0v0 wfont-data. ... |