'ProgramMode:RUN
A<>0=>Goto Theta
A=0=>ClrText
RclCapt5DispsRclCapt6DispsStop
Lbl Theta
Menu "Join meeting","Join",1,"History",2


Lbl 2
Menu "History","9_-_09_-_2024 10:32",C,"9_-_09_-_2024 14:21",D,"9_-_20_-_2024 09:16",E
Lbl C
"5 PEOPLE             0 MESSAGES           TIME 1:15:03         ID 385 284 750_-_123"
Lbl D
RanInt#(0,0
Lbl 1
ClrText
"Meeting ID"?->Theta
"Password"?->Theta
ClrText
"Joining"
Send38k X
Receive38k X
"Video On"
"Yes [F1]"
"No [F6]"
Do
Getkey
LpWhile Ans<>79 And Ans<>29
Ans=79=>0->Q
Ans=29=>1->Q
Q=0=>Goto 3
Q=1=>Goto 3
Lbl 3
"Joining"
Send38k X
Receive38k X
ClrText
"Please wait"
"The meeting host will let you in soon"
"Robert Pughs zoom meeting"
Lbl 6
RanInt#(1,36)->Theta
Theta=17=>Goto 5
Goto 6
Lbl 5
ClrText
"Connecting"
Send38k X
Receive38k X
Lbl Y
ClrText
Locate 12,1,"|"
Locate 12,2,"|"
Locate 12,3,"|"
Locate 12,4,"|"
Locate 12,5,"|"
Locate 12,6,"|"
Locate 12,7,"|"
Locate 1,4,"_-_"
Locate 2,4,"_-_"
Locate 3,4,"_-_"
Locate 4,4,"_-_"
Locate 5,4,"_-_"
Locate 6,4,"_-_"
Locate 7,4,"_-_"
Locate 8,4,"_-_"
Locate 9,4,"_-_"
Locate 10,4,"_-_"
Locate 11,4,"_-_"
Locate 13,4,"_-_"
Locate 14,4,"_-_"
Locate 15,4,"_-_"
Locate 16,4,"_-_"
Locate 17,4,"_-_"
Locate 18,4,"_-_"
Locate 19,4,"_-_"
Locate 20,4,"_-_"
Locate 21,4,"_-_"
Do
Getkey
LpWhile Ans<>59
Ans=59=>59->Theta
Theta=59=>Goto Z
Lbl Z
"Wix Mouse has started screen sharing"
Send38k X
Receive38k X
ClrText
"SCREEN SHARE"
Locate 21,7,"_#E6A6_"
Do
Getkey
LpWhile Ans<>49
Ans=49=>78->Theta
Theta=78=>Goto Y
RclCapt7DispsRclCapt8