!+
!       DISPLAY_CHARACTER.TPU
!-
! This procedure writes a one line message describing the current character
! in terms of Octal, Decimal, Hexadecimal and (sometimes ) '^' notation.
!

PROCEDURE eve_display_character

  LOCAL i,cc;

  ! Handle end-of-buffer condition
  IF MARK( NONE ) = END_OF( CURRENT_BUFFER ) THEN
    MESSAGE( 'At end of buffer, no current character.' );
    RETURN;
  ENDIF;

  ! Convert the character to an integer the hard way (no builtin yet)
  i := 0; LOOP;
    EXITIF i > 255;
    EXITIF CURRENT_CHARACTER = ASCII(i);
    i := i + 1;
  ENDLOOP;

  IF i > 255 THEN i := 0; ENDIF; ! On overflow, reset to NULL

  ! Provide ^ notation for ASCII control characters
  IF i < 32  
    THEN cc := ', ^' + ASCII(i+64);
    ELSE cc := '';
  ENDIF;

  ! Format and output the results
  MESSAGE( FAO( "Current Character is '!AS', Octal=!OB, Decimal=!-!UB, " +
                "Hex=!-!XB!AS", CURRENT_CHARACTER, i, cc ) );

ENDPROCEDURE ! eve_display_character