:.CHAT
:" "→Str60
:det(500)→Str1
:det(500)→Str2
:5→B
:"person:"→Str80
:"p1 = [1]"→Str81
:"p2 = [2]"→Str82
:Output(1,1,Str80
:Output(2,1,Str81
:Output(3,1,Str82
:Repeat B=1
: If getKey(34)
: 1→X
: 1→B
: Goto 1
: End
: If getKey(26)
: 2→X
: 1→B
: End
:End
:
:
:Lbl 1
:
:
:1→A
:ClrDraw
:DispGraph
:
:
:
:
:
:
:
:
:
:
:
:Repeat getKey(15)
:
:
:
:
:
:
:
:.EMPFANGEN/
:
:Get(→Ans
:If Ans≠(0-1)
: Vertical -
: Vertical -
: Vertical -
: Vertical -
: Vertical -
: Vertical -
: Vertical -
:
:
: Text(0,40,Ans
: If X=1
: conj(Str60,Str2,90)
: End
: If X=2
: conj(Str60,Str1,90)
: End
:End
:
:./EMPFANGEN
:
:
:
:
:
:
:.SENDEN/
:
:If getKey(9)
: If X=1
: Repeat Send(Str1,2000)≠(0-1)
: End
: Vertical -
: Vertical -
: Vertical -
: Vertical -
: Vertical -
: Vertical -
: Vertical -
: Text(0,40,Str1
: conj(Str60,Str1,90)
: End
: If X=2
: Repeat Send(Str2,2000)≠(0-1)
: Vertical -
: Vertical -
: Vertical -
: Vertical -
: Vertical -
: Vertical -
: Vertical -
: Text(0,40,Str2
: conj(Str60,Str2,90)
: End
:End
:
:./SENDEN
:
:
:
:
:
:
:.FENSTER/
:
:For(P,0,95
: For(Q,5,63
: Pxl-Off(P,Q
: End
:End
:If getKey(1)
: Vertical -
:End
:If getKey(2)
: Horizontal +
:End
:If getKey(3)
: Horizontal -
:End
:If getKey(4)
:Vertical +
:End
:If getKey(1)=getKey(2)=getKey(3)=getKey(4)=1
: ClrDraw
: If X=1
: Text(0,50,Str1
: End
: If X=2
: Text(0,50,Str2
: End
:End
:If X=1
: Text(0,50,Str1
:End
:If X=2
: Text(0,50,Str2
:End
:
:./FENSTER
:
:
:
:
:
:
:.DEL/
:
:If getKey(56)
: If X=1
: conj(Str60,Str1,90)
: End
: If X=2
: conj(Str60,Str2,90)
: End
:End
:
:./DEL
:
:
:
:
:
:
:.MODUS/
:
:If getKey(55)
: A+1→A
: If A=4
: 1→A
: End
:End
:If A=1
: conj(" 'WRMH ?θVQLG :ZUPKFC YTOJEB XSNIDA ",Str99,56)
:End
:If X=2
: conj(" 'wrmh ?θvqlg :zupkfc ytojeb xsnida ",Str99,56)
:End
:If X=3
: conj(" +-*/^ ‾369)} .258(K 0147, 2-1 ",Str99,56)
:End
:
:./MODUS
:
:
:
:
:
:
:.SCHREIBEN/
:
:For(Z,10,56
: If getKey(Z)
: If X=1
: conj({Str99+Z},Str1,length(Str1)+1)
: Text(0,50,Str1
: End
: If X=2
: conj({Str99+Z},Str2,length(Str2)+1)
: Text(0,50,Str2
: End
: End
:End
:
:./SCHREIBEN
:
:
:
:
:
:
:.ZEIGE/
:
:If X=1
: Text(0,50,Str1
:End
:If X=2
: Text(0,50,Str2
:End
:./ZEIGE
:
:
:
:
:
:
:
:End
:
:
:
:
:.LEAVE/
:
:If X=1
: conj(60,Str1,90)
: conj("p1 has left TItalk",Str1,18)
: Send(Str1,5000
:End
:If X=2
: conj(Str60,Str2,90)
: conj("p2 has left TItalk",Str2,18)
: Send(Str2,5000
:End
:
:./LEAVE