Esc ;;Escape Sequences
	  Set Esc=$C( 27 ) Use $IO:("":"":Esc) 
      Read *y I $ZB=Esc Use $IO:("":"S")
	  I y= 13   Write "Enter !!!",!
	  Read *yy If (yy= 91 )!(yy= 79 ) Read *yyy
	  If yyy= 65  Write " Стрелка вверх !!!"
	  Quit	

Enter ;Write "Нажали Enter !!!",! Goto Esc
	  ;Quit
Key   ;Write "Нажали ",yyy," !!!",! Goto Esc
	  ;Quit
	  ;
Ech   Use $Io:(/ECHO= 0 )
	  Read "Echo: ",Password,!
	  Use $Io:(/ECHO= 1 )
	  Read "No Echo: ",Password
	  
	  Quit
	  ;
Esc1  ;ESCAPE SEQUENCES
	  Set Esc=$C( 27 ) Use $IO:("":"":Esc) 
      Read *A If $ZB=Esc Use $IO:("":"S") Read *AA If AA= 91 ! 79  Read *AAA 
  	  Q