Texas Instruments TI-89

Connectivity 729

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.

: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

: GetCalc msg

: Disp msg

: InputStr msg

: SendCalc msg

: EndWhile

:Else