Texas Instruments TI-89 Titanium User Manual page 712

: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
Í : InputStr msg
: SendCalc msg
Î : GetCalc msg
: Disp msg
: EndWhile
:EndIf
:EndPrgm
Notes:
Ê
Sets up this unit to receive and display the variable msg.
Ë
Then lets this user enter a message in msg and send it.
Ì
Loop executed by the unit that receives the first message.
Í
Lets this user enter a message in msg and send it.
Î
Then sets up this unit to receive and display msg.
Ï
Loop executed by the unit that sends the first message.
Connectivity
GetCalc msg
Disp msg
InputStr msg
SendCalc msg
Ì
Ï
709