1 /* Begin include file tc_screen_image.incl.pl1 BIM Sept 81 */
 2 /* format: style3 */
 3 
 4 declare   1 screen            aligned based (screen_ptr),
 5             2 n_lines         fixed bin,
 6             2 n_columns       fixed bin,
 7             2 is_clear        bit (1) aligned,              /* opt */
 8             2 lines           (screen_n_lines refer (screen.n_lines))
 9                               character (screen_n_columns refer (screen.n_columns)) unaligned;
10 
11 
12 declare   screen_ptr          pointer;
13 declare   (screen_n_lines, screen_n_columns)
14                               fixed bin;
15 
16 /* End include file tc_screen_image.incl.pl1 */