'■■■■■■■■■■■■■■■■■■■■
'PCMデータを随時COMから読み出して演奏する
'サンプルですが...
'8kHz,monoのデータを115200bpsで読んでも
'間に合いません (T-T)
'■■■■■■■■■■■■■■■■■■■■

clear 1000,2000
cls

playinit

'-----------------------------------------------------
'file_name$ には8kHz,モノラルでサンプリングした .wav
'ファイルの拡張子を .dに変えたものを指定してください
'-----------------------------------------------------
file_name$="com:ridge2.d"

'-----------------------------------------------------
'data_stepには一度に読み込むデータサイズ÷64を指定
'-----------------------------------------------------
data_step = 256

fp#=&h2C
*loop
gosub *set_data
play "@1%1C"
goto *loop
end

'-----------------------------------------------------
*set_data
   userdata 0,0, "STARTPCM, 8, 1, 0, 127, 89",0

   open file_name$ for input as #1
   seek #1,fp#

   for set_data_i=0 to data_step-1
	fread #1,w$,64
	fp# = fp# + 64
	pcm_temp$=binhex$(w$)
	locate 0,0:print fp#;"bytes";
	userdata pcm_temp$
   next

   close

   userdata "ENDPCM"
   userdata "ENDARRANGE"

   targ read
   userdata end

return