OPEN "test.wav" FOR OUTPUT AS #1
PRINT #1, "RIFF";
PRINT #1, CHR$(&H46); CHR$(&H2D); CHR$(0); CHR$(0);
PRINT #1, "WAVEfmt ";

PRINT #1, CHR$(&H10); CHR$(0); CHR$(0); CHR$(0);

PRINT #1, CHR$(&H1); CHR$(0); CHR$(&H1); CHR$(0);

'Sample Rate = 22.050KS/sec
PRINT #1, CHR$(&H22); CHR$(&H56); CHR$(0); CHR$(0);
PRINT #1, CHR$(&H22); CHR$(&H56); CHR$(0); CHR$(0);

PRINT #1, CHR$(&H1); CHR$(&H0); CHR$(8); CHR$(0);
PRINT #1, "data";

'Number of samples = 16000
PRINT #1, CHR$(&H22); CHR$(&H2D); CHR$(0); CHR$(0);


'Generate 8 bit samples
FOR i = 1 TO 16100
   PRINT #1, CHR$(127 * SIN(i / 5) + 128);
NEXT i

CLOSE #1