sender.bas 278 Bytes
Newer Older
kollo's avatar
kollo committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
clr count%,beat
tineserver "sender",12
do
  myprop=timer
  tinebroadcast myprop
  tinebroadcast count%
  if (count mod 100)=0
     inc beat
     tinebroadcast beat
     status$=time$+space$(100)+time$+space$(1000)
     tinebroadcast status$
  endif
  tinecycle
  inc count
loop