Pregunta
Peter N · Jul 11, 2020

Backspace en WebTerminal

Intento ejecutar una pequeña rutina de prueba (adivinar un número aleatorio) en WebTerminal pero el resultado parece roto.

IRISterminal:

 WebTerminal:

Creo que se relaciona con el  backspace.
¿Se requiere algún ajuste especial?

 

El código:

a
 q=".......... guess [0..9]: " 
 i=1:1 if ! $c(9),"thank you",! q
 q  
b
 !,i,$c(9),q
 f  v#1 q:(v?.1n) " !no number",$c(8,8,8,8,8,8,8,8,8,8,8,8)
 " "
 r=$R(10),p=$s(v="":1,v=r:"!",v>r:"<",1:">")
 x=q,$e(x,r+1)="*",$e(x,v+1)=$s(v=r:"!",v>r:"<",1:">") 
 q:p  $c(13),$c(9),p=v=q

 

10
2 0 2 55

Respuestas

Efectivamente,

El problema está en el backspace ($c(8,......)) porque en una simulación en HTML no es reconocido ese caracter.

Prueba a cambiar por esta linea:

 f  v#1 q:(v?.1n) " !no number", $c(27,91)_12_"D"

Esto sería la sentencia ESC[12D que sería lo mismo pero el WebTerminal si sabría interpretarlo

Espero que te sirva de mucha ayuda

Un saludo,

Kurro López