10 file$="file:///e:/other/"
11 playvolna%=1:playend%=25000
12 playms%=milliseconds(0)
20 trap 220
23 open #2,file$+"1.mp3","output"
25 close #2
27 trap 200
30 open #0,"http://78.46.73.237:8000/schizoid","input"
35 trap 220
40 open #1,file$+"1.mp3","input"
60 for i%=0 to 51200
65 trap 220
70 get #0,a%:put #1,a%:get #0,a%:put #1,a%
71 trap 220
72 get #0,a%:put #1,a%:get #0,a%:put #1,a%
73 get #0,a%:put #1,a%:get #0,a%:put #1,a%
80 if gamea(0) then goto 200
100 next i%
130 close #1
140 if playvolna%=1 and (milliseconds(0)-playms%)>playend% then playms%=milliseconds(0):goto 150
141 goto 140
150 pw file$+"1.mp3"
170 goto 35
180 close #0:close #1
200 delete file$+"1.mp3"
220 end

1180 rem moyo radio http://host.fm:7777/18120_default

File1=http://78.46.73.237:8000/schizoid
Title1=Radio Schizoid - Escape Reality :-)
Length1=-1
File2=http://88.198.48.36:8000/schizoid