Android Tablet - cursor keys ...

Import mojo

Class MyApp Extends App

    Field text$="Type something:"
    Field ascii:Int
    Field cursorL:Int
    Field cursorR:Int
    Field backspace:Int
    
    Method OnCreate()
    	EnableKeyboard
        SetUpdateRate 30
    End
    
    Method OnUpdate()
               
        Repeat
        	cursorL    = 0
        	cursorR    = 0
        	backspace  = 9
        	
     	    Local char=GetChar()
     	   	Local asc:Int
     	   	asc = char
            If Not char Exit
            If char>=32
                text+=String.FromChar( char )
                ascii = char
                Print ascii
            Endif
            
            Select asc
           		 Case KEY_LEFT
           		 	cursorL = 1
           		 	text+="<Cursor Right>"
           		 Exit
           		 
                 Case KEY_RIGHT
           		 	cursorR = 1
           		 	text+="<Cursor Left>"
           		 Exit      
           		 
           		 Case 8		' Backspace
           		 	backspace = 1  
           		 	text+="<backspace>"		 
           		 Exit 
            End
            
        Forever
    End
    
    Method OnRender()
        Cls
        
        If cursorL = 1
			DrawText "LEFT CURSOR",0,100
		Endif
		
        If cursorR = 1
			DrawText "RIGHT CURSOR",0,140
		Endif
		
	    If backspace = 1
			DrawText "BACKSPACE",0,140
		Endif
		
        DrawText text,0,0
        DrawText ascii,0,40
    End
End

Function Main()
    New MyApp
End

public void onKey(KeyEvent keyEvent)
{
    if (keyEvent.type == KeyEvent.TypeDown)
    {
    if (keyEvent.key == KeyCodes.Left) 
        {
            if (getSliderPosition() > 0)
            {
                // move the slider left and mark the event as handled.
                moveSlider(-1);

                // Mark the event as handled.
                keyEvent.stop = True;
            }
        }
        if (keyEvent.key == KeyCodes.Right) 
            {
            if (getSliderPosition() < MAX_SLIDER_POSITION)
            {
                // move the slider right and mark the event as handled.
                moveSlider(1);
                keyEvent.stop = true;
            }
        }
    }
}

Import mojo

Class MyApp Extends App

	Field text$=""

              
    Method OnCreate()
    	SetUpdateRate 60
    End
    
    Method OnUpdate()
    
    	

        If KeyHit(37)
        	Print "Left"
        	text = "Left"
        End If
        
         If KeyHit(38)
        	Print "Up"
        	text = "Up"
        End If
        
         If KeyHit(39)
        	Print "Right"
        	text = "Right"
        End If
        
         If KeyHit(40)
        	Print "Down"
        	text = "Down"
        End If
        
       End
    
    Method OnRender()
        Cls
      DrawText "Last Cursor Key Hit",0,0
      DrawText text,16,16
    End
End

Function Main()
    New MyApp
End