Texas Instruments TI-89 Titanium Manual Del Usuario página 156

:Chat()
:Prgm
:ClrIO
:Disp "On first unit to send,","
enter 1;","On first to receive,"
:InputStr " enter 0",msg
:If msg="0" Then
: While true
:
Ê
:
:
Ë
:
: EndWhile
:Else
: While true
:
Í
:
:
Î
:
: EndWhile
:EndIf
:EndPrgm
Notas:
Ê Configura la unidad para recibir y mostrar la variable msg.
Ë A continuación, permite al usuario escribir un mensaje en msg y
enviarlo.
Ì El bucle ejecutado por la unidad que recibe el primer mensaje.
Í Permite a este usuario escribir un mensaje en msg y enviarlo.
Î A continuación, configura esta unidad para que reciba y muestre el
msg.
Ï El bucle ejecutado por la unidad que envía el primer mensaje.
GetCalc
Para sincronizar
la unidad receptora ejecute
escriba el mensaje.
Ejecución del programa
En este procedimiento se asume que:
• Los dos dispositivos están enlazados mediante el cable de conexión.
• El programa Chat está cargado en ambos dispositivos.
148
GetCalc msg
Disp msg
InputStr msg
SendCalc msg
InputStr msg
SendCalc msg
GetCalc msg
Disp msg
SendCalc
y
GetCalc
mientras la unidad emisora espera que el usuario
Ì
Ï
, los bucles están organizados de tal forma que
Conectividad