10 'Play wave data from GR8NET RAM buffer and display words in parallel
20 'Developed 18 Sep 2017 by Eugeny Brychkov, audio file provided by Eric Boez
30 CALLNETBLOAD("http://www.gr8bit.ru/software/basic/multimedia/doyounh.rwv"):'load raw wave file 16kHz/16b
40 RESTORE 110:CALLNETVARBSIZE(A):CALLNETPLAYBUFA(0,&H6000,A):'set data size and pre-fill PCM buffer with audio data
50 CALLNETPLAYBUFP(16,16000):'start playback from the buffer
60 READ A:IF A=0 THEN 100 ELSE ON INTERVAL=A GOSUB 90:INTERVAL ON:'set interval value for the next word display
70 READ A$:PRINT A$;:'display respective word from the table
80 GOTO 80:'loop until interval elapses and program returns to line 50
90 CALLNETPLAYBUFC:INTERVAL OFF:RETURN 60:'replenish buffer with further audio data and return to line 60
100 CALLNETPLAYBUFS(A):IF A=0 THEN 100 ELSE CALLNETPLAYBUFR:END
110 DATA 3,"",5,"Do ",5,"you ",5,"want ",5,"to ",10,"play ",12,"with ",14,"me",0