[Tiny-cobol-users] Respuesta a Problema de Tecla Izquierda y Derecha (Hudson), Vol 1 #764 - 1 msg

[Cornelio B. <cor...@pu...>]

Si estas trabajando sobre linux el problema puede estar en la defnicion del
tipo de Terminal
que tengas definida en la variable de ambiente para tales fines. Ver Archivo
/etc/TERMCAP

No estoy seguro si esa es la ruta exacta ni si es TERMCAP o termcap.

Corba



-----Mensaje original-----
De: tin...@li...
[mailto:tin...@li...]En nombre de
tin...@li...
Enviado el: July 22, 2002 3:07 PM
Para: tin...@li...
Asunto: Tiny-cobol-users digest, Vol 1 #764 - 1 msg


Send Tiny-cobol-users mailing list submissions to
	tin...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users
or, via email, send a message with subject or body 'help' to
	tin...@li...

You can reach the person managing the list at
	tin...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of Tiny-cobol-users digest..."


Today's Topics:

   1. Left and Right keys (Hudson Reis)

--__--__--

Message: 1
Date: Sun, 21 Jul 2002 18:25:00 -0300
From: Hudson Reis <hud...@so...>
To: Lista SourceForge <tin...@li...>
Subject: [Tiny-cobol-users] Left and Right keys

This is a MIME-formatted message.  If you see this text it means that your
E-mail software does not support MIME-formatted messages.

--=_jive-29153-1027287100-0001-2
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Hi all,

The left and right keys of my program are not working anymore. I've never
had problems whith them but now I have... anyone knows why?

Am I wrong in something?

Could anyone help me?

I attached my program in this e-mail.

       identification division.
       program-id. tecla00.
       author. Hudson Reis.

       environment division.
       configuration section.
       special-names.
       	   crt status is Tecla.

       data division.
       working-storage section.
       77  Tecla                   pic 9(004)  value zeros.
       77  Var                     pic X(001)  value spaces.
       77  Esc                     pic 9(004)  value 0027.

       screen section.

       procedure division.
       Inicio.
           initialize Var Tecla.

       Meio.
           accept Var line 10 position 50 auto
           if  Tecla equal Esc
           then
               go to Fim
           end-if
      *    display "01 Tecla-" Tecla " pic 9(004) value " Tecla
      *	   no advancing
	   display "01 Tecla-" Tecla " pic 9(004) value " Tecla
	   line 05 position 05 no advancing
      *     display "01 Tecla-"          line 10 position 10
      *	    display Tecla                line 10 position 19
      *	    display "pic 9(004) value"   line 10 position 24
      *	    display Tecla                line 10 position 41
           go to Meio.

       Fim.
           stop run.

Thanks
Hudson



--=_jive-29153-1027287100-0001-2
Content-Type: application/octet-stream; name="tecla00.cob"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
 filename="tecla00.cob"

ICAgICAgIGlkZW50aWZpY2F0aW9uIGRpdmlzaW9uLg0KICAgICAgIHByb2dyYW0taWQuIHRlY2xh
MDAuDQogICAgICAgYXV0aG9yLiBIdWRzb24gUmVpcy4NCg0KICAgICAgIGVudmlyb25tZW50IGRp
dmlzaW9uLg0KICAgICAgIGNvbmZpZ3VyYXRpb24gc2VjdGlvbi4NCiAgICAgICBzcGVjaWFsLW5h
bWVzLg0KICAgICAgIAkgICBjcnQgc3RhdHVzIGlzIFRlY2xhLg0KDQogICAgICAgZGF0YSBkaXZp
c2lvbi4NCiAgICAgICB3b3JraW5nLXN0b3JhZ2Ugc2VjdGlvbi4NCiAgICAgICA3NyAgVGVjbGEg
ICAgICAgICAgICAgICAgICAgcGljIDkoMDA0KSAgdmFsdWUgemVyb3MuDQogICAgICAgNzcgIFZh
ciAgICAgICAgICAgICAgICAgICAgIHBpYyBYKDAwMSkgIHZhbHVlIHNwYWNlcy4NCiAgICAgICA3
NyAgRXNjICAgICAgICAgICAgICAgICAgICAgcGljIDkoMDA0KSAgdmFsdWUgMDAyNy4gDQogICAg
ICAgDQogICAgICAgc2NyZWVuIHNlY3Rpb24uDQogICAgICAgDQogICAgICAgcHJvY2VkdXJlIGRp
dmlzaW9uLg0KICAgICAgIEluaWNpby4NCiAgICAgICAgICAgaW5pdGlhbGl6ZSBWYXIgVGVjbGEu
DQoNCiAgICAgICBNZWlvLg0KICAgICAgICAgICBhY2NlcHQgVmFyIGxpbmUgMTAgcG9zaXRpb24g
NTAgYXV0bw0KICAgICAgICAgICBpZiAgVGVjbGEgZXF1YWwgRXNjDQogICAgICAgICAgIHRoZW4N
CiAgICAgICAgICAgICAgIGdvIHRvIEZpbQ0KICAgICAgICAgICBlbmQtaWYNCiAgICAgICogICAg
ZGlzcGxheSAiMDEgVGVjbGEtIiBUZWNsYSAiIHBpYyA5KDAwNCkgdmFsdWUgIiBUZWNsYSANCiAg
ICAgICoJICAgbm8gYWR2YW5jaW5nDQoJICAgZGlzcGxheSAiMDEgVGVjbGEtIiBUZWNsYSAiIHBp
YyA5KDAwNCkgdmFsdWUgIiBUZWNsYQ0KCSAgIGxpbmUgMDUgcG9zaXRpb24gMDUgbm8gYWR2YW5j
aW5nDQogICAgICAqICAgICBkaXNwbGF5ICIwMSBUZWNsYS0iICAgICAgICAgIGxpbmUgMTAgcG9z
aXRpb24gMTANCiAgICAgICoJICAgIGRpc3BsYXkgVGVjbGEgICAgICAgICAgICAgICAgbGluZSAx
MCBwb3NpdGlvbiAxOQ0KICAgICAgKgkgICAgZGlzcGxheSAicGljIDkoMDA0KSB2YWx1ZSIgICBs
aW5lIDEwIHBvc2l0aW9uIDI0DQogICAgICAqCSAgICBkaXNwbGF5IFRlY2xhICAgICAgICAgICAg
ICAgIGxpbmUgMTAgcG9zaXRpb24gNDENCiAgICAgICAgICAgZ28gdG8gTWVpby4NCiAgICAgICAN
CiAgICAgICBGaW0uIA0KICAgICAgICAgICBzdG9wIHJ1bi4NCg0K

--=_jive-29153-1027287100-0001-2--



--__--__--

_______________________________________________
Tiny-cobol-users mailing list
Tin...@li...
https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users


End of Tiny-cobol-users Digest