Advertenties
: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
Opmerkingen:
Ê
Stelt deze rekenmachine in om de variable msg te ontvangen en weer te geven.
Ë
Vervolgens kan deze gebruiker een bericht in msg invoeren en de variabele verzenden.
Ì
Lus die uitgevoerd wordt door de rekenmachine die het eerste bericht ontvangt.
Í
Laat deze gebruiker een bericht in msg invoeren en de variabele verzenden.
Î
Stelt vervolgens deze rekenmachine in om msg te ontvangen en weer te geven.
Ï
Lus die uitgevoerd wordt door de rekenmachine die het eerste bericht verzendt.
Connectiviteit
GetCalc msg
Disp msg
InputStr msg
SendCalc msg
Ì
Ï
809
Advertenties
