1 ' Svjatoslav Agejenko year:2001
\r
2 ' converts binary file into 8 bit wave sound file without header.
\r
9 DIM SHARED iwa(1 TO 20)
\r
10 DIM SHARED owa(1 TO 41)
\r
15 DIM SHARED bytee AS STRING * 1
\r
20 OPEN file1$ FOR BINARY AS #1
\r
21 OPEN file2$ FOR BINARY AS #2
\r
31 IF EOF(2) = 0 THEN GOTO 2
\r
41 IF a > 128 THEN a = a - 128: iadd ELSE oadd
\r
42 IF a > 64 THEN a = a - 64: iadd ELSE oadd
\r
43 IF a > 32 THEN a = a - 32: iadd ELSE oadd
\r
44 IF a > 16 THEN a = a - 16: iadd ELSE oadd
\r
45 IF a > 8 THEN a = a - 8: iadd ELSE oadd
\r
46 IF a > 4 THEN a = a - 4: iadd ELSE oadd
\r
47 IF a > 2 THEN a = a - 2: iadd ELSE oadd
\r
48 IF a > 1 THEN iadd ELSE oadd
\r
61 IF COMMAND$ = "" THEN END
\r
66 FOR a = pi / 2 TO 2.5 * pi STEP (2 * pi / 20)
\r
68 iwa(b) = SIN(a) * 100
\r
69 IF iwa(b) < 0 THEN iwa(b) = iwa(b) + 255
\r
73 FOR a = pi / 2 TO 2.5 * pi STEP (2 * pi / 40)
\r
75 owa(b) = SIN(a) * 100
\r
76 IF owa(b) < 0 THEN owa(b) = owa(b) + 255
\r
80 iwad$ = iwad$ + CHR$(iwa(a))
\r
84 owad$ = owad$ + CHR$(owa(a))
\r
92 FOR a = 1 TO LEN(b$)
\r
93 c$ = RIGHT$(LEFT$(b$, a), 1)
\r
94 IF c$ = "." OR c$ = " " THEN GOTO 1
\r
95 file1$ = file1$ + c$
\r
98 file1$ = file1$ + ".xi"
\r