cls
do
for a = 1 to 10
decode
pause 100
next a
loop

SUB decode
print "test print"
END SUB

Option EXPLICIT
Dim ss$,sec1$,aa$,a1$,a2$,a43$,a50$,b$,c%, sec, tag$, i%
Dim  a$(60)
On error skip
UDP close
UDP server 4997
Do
On error skip
UDP receive aa$,b$,c%
If c%>0 Then DECODE
Loop
UDP close

Sub DECODE
tag$=Mid$(aa$,1,2)
Select Case tag$
 Case "#1": For i%=1 To 25: a$(i%)=Field$(aa$,i%+1): Next i% ' LISTFIELDS
 Case "#2": For i%=1 To 25: a$(i%+25)=Field$(aa$,i%+1): Next i%
   For i%=1 To 50: Print i%;" ";a$(i%): Next i%
End Select
print a$(1)
print a$(50)
End Sub