1 ' set up
2 callnetbload("/software/firmware/GR8NET/test-images/msx-audio/adpcm/audioram.bin")
10 out&hc0,4:out&hc1,&h78
20 out&hc0,4:out&hc1,&h80
30 out&hc0,7:out&hc1,&h60
40 out&hc0,8:out&hc1,0
50 out&hc0,9:out&hc1,0
60 out&hc0,&ha:out&hc1,&ha0
70 out&hc0,&hb:out&hc1,255
80 out&hc0,&hc:out&hc1,255
100 for i=20 to 21:print".";
110 callnetldram(i,&h6000,&h2000,&h9000)
120 for j=0 to &h1fff
130 out&hc0,15:out&hc1,peek(&h9000+j)
140 next j
150 next i
160 ' play
170 out&hc0,4:out&hc1,&h78
180 out&hc0,4:out&hc1,&h80
190 out&hc0,7:out&hc1,&h20
200 out&hc0,8:out&hc1,0
210 out&hc0,9:out&hc1,&hc0
220 out&hc0,&ha:out&hc1,&ha1
230 out&hc0,&hb:out&hc1,&hd3
240 out&hc0,&hc:out&hc1,&hae
250 out&hc0,&h10:out&hc1,&hf0
260 out&hc0,&h11:out&hc1,&h51
270 out&hc0,&h12:out&hc1,&hff
280 out&hc0,7:out&hc1,&ha0