!++
! FILENAME: CURSOR_MANIP.TPU 
! FUNCTION: Procedures for cursor movement / manipulation.
! AUTHOR:   Steven K. Shapiro
!           (C) Copyright SKS Enterprises, Austin TX. All Rights Reserved.
!
!           The format, structure and contents of this file are the sole      
!           property  of Steven K. Shapiro  and are  copyrighted to  SKS
!           Enterprises, Austin Texas. 
!           
!           The information may be freely distributed, used and modified
!           provided  that the  information in this  header block is not 
!           changed, altered, disturbed or modified in any way.                 
!
! DATE:      1-DEC-1988 Original.
! HISTORY:  current.
! CONTENTS:
!           eve_move_left_wrap
!           eve_go_col
!           eve_what_col
!
!23456789A123456789B123456789C123456789D123456789E123456789F123456789G123456789H
!--
!*----------------------------------------------------------------------------*!

procedure cursor_manip_module_ident 

  local file_date,
        module_vers;

  file_date := "-<(  1-DEC-1988 15:11:00.47 )>-";
  module_vers := substr(file_date,5,2) +
                 substr(file_date,8,3) +
                 substr(file_date,14,2) +
                 substr(file_date,17,5) ;

  return module_vers;

endprocedure;

!*----------------------------------------------------------------------------*!

! Move left one column and wrap at edge of the screen.

procedure eve_move_left_wrap

move_horizontal (-1);

endprocedure;

!*----------------------------------------------------------------------------*!
!
procedure eve_go_col
!
LOCAL   amt,
        c_o;

    col_offset := read_line ("Position to column number: ");
    c_o := current_offset + 1;
    amt := int(col_offset) - c_o;
!    message("Position to column: "+str(amt));
    cursor_horizontal(amt);

endprocedure;

!*----------------------------------------------------------------------------*!
!
procedure eve_what_col
!
LOCAL   c_o;

    c_o := current_offset + 1;
    message("You are in column: "+str(c_o));

endprocedure;