/*******************************************************/ /* */ /* VDU SUPPORT ROUTINES FOR ICE */ /* */ /*******************************************************/ /* clear line from cursor */ clear_line : procedure; call vdu_out('^O'); end clear_line; /* clear screen from cursor */ clear_screen: procedure; call vdu_out('^K'); end clear_screen; /* cursor position */ cursor_pos: procedure(col,row); declare str character(linelen) varying, i fixed, (col, row) fixed; scr_row = row; scr_col = col; if row = 1 then do; call vdu_out('^N'); /* home cursor */ put skip; call vdu_out('^N'); /* cursor home */ end; else do; call vdu_out(ascii(escape)!!ascii(2)!!ascii(row+30)); put skip; end; if col ^= 1 then do; str = ''; i = 1; do while (i