FN.DEF audio_stream$(url$,port,buff_folder$) SOCKET.CLIENT.CONNECT url$, port BYTE.OPEN r, stream, url$ BYTE.OPEN w, stream, buff_path$+"/stream" AUDIO.LOAD audio, buff_path$+"/stream" AUDIO.PLAY audio DO FILE.SIZE fsize, buff_path$+"/stream" IF fsize = 5000024 THEN FILE.DELETE 4990000, buff_path$+"/stream" UNTIL loop FN.END