Code : Tout sélectionner
file$=RequestFile$("choose a wav file","raw",False)
Graphics 800,600,32,2
Dim num(100000)
fil=OpenFile(file$)
For i=1 To 2500
num(i)=ReadByte (fil)
Next
CloseFile(dataout)
For i=1 To 600 Step 3: v=v+1
y=num(i)
y2=num(i+1)
y3=num(i+2)
y4=num(i+3)
Line 0,250,0,0
Color 255,255,255
Text x,u,"octet"+y
Text x+80,u,"octet"+y2
Text x+160,u,"octet"+y3
Text x+500,u,"?"+v
u=u+10
If u>600 Then u=0:Delay 100000:End
Flip
Next
Delay 50000