0 Members and 2 Guests are viewing this topic.
.RUN1ClrHomeRepeat getKey(15)Disp "SENDING...",[i]!If Send(9999,9999)Disp "ERROR",EndEnd
.RUN2ClrHomeWhile 1Disp "WAITING...",[i]While Get=~1ReturnIf getKey(15)EndDisp "RECEIVED! ",Get>Dec,[i]End
Code for calculator 2:.RUN2ClrHomeWhile 1Disp "WAITING...",While Get=~1ReturnIf getKey(15)EndDisp "RECEIVED! ",Get>Dec,End
I think that the last Get is wrong, it isn't a variable, so if it recieves something, it tries to recieve something else and display that, so you should store the first Get into a variable, and display that variable instead.
That. Also, send() can only send bytes.
.RUN2ClrHomeWhile 1Disp "WAITING...",[i]While Get->{L1}=-1ReturnIf getKey(15)EndDisp "RECEIVED! ",{L1}>Dec,[i]End
.RUN1ClrHomeDisp "SENDING...",[i]While 1Repeat (getKey) and (getKey(9))If getKey(15)Return^^rEndEndDisp Send(1,60000)>Dec,[i]End
.RUN2ClrHomeWhile 1Disp "WAITING...",[i]While Get->G=~1ReturnIf getKey(15)EndDisp "RECEIVED! ",G>Dec,[i])End