' Svjatoslav Agejenko year:2001
' converts binary file into 8 bit wave sound file without header.

DECLARE SUB start ()
DECLARE SUB iadd ()
DECLARE SUB oadd ()
DECLARE SUB byt (a!)

DIM SHARED iwa(1 TO 20)
DIM SHARED owa(1 TO 41)
DIM SHARED iwad$
DIM SHARED owad$
DIM SHARED file1$
DIM SHARED file2$
DIM SHARED bytee AS STRING * 1


start

OPEN file1$ FOR BINARY AS #1
OPEN file2$ FOR BINARY AS #2

FOR a = 1 TO 50
iadd
NEXT a
oadd

2
GET #2, , bytee
byt ASC(bytee)
IF EOF(2) = 0 THEN GOTO 2

CLOSE #2
CLOSE #1

SYSTEM

SUB byt (a)
'PRINT "===="
a = a + 1
IF a > 128 THEN a = a - 128: iadd ELSE oadd
IF a > 64 THEN a = a - 64: iadd ELSE oadd
IF a > 32 THEN a = a - 32: iadd ELSE oadd
IF a > 16 THEN a = a - 16: iadd ELSE oadd
IF a > 8 THEN a = a - 8: iadd ELSE oadd
IF a > 4 THEN a = a - 4: iadd ELSE oadd
IF a > 2 THEN a = a - 2: iadd ELSE oadd
IF a > 1 THEN iadd ELSE oadd
'b$ = INPUT$(1)
END SUB

SUB iadd
PUT #1, , iwad$
END SUB

SUB oadd
PUT #1, , owad$
END SUB

SUB start
IF COMMAND$ = "" THEN END

pi = 3.141592654#
 
b = 0
FOR a = pi / 2 TO 2.5 * pi STEP (2 * pi / 20)
b = b + 1
iwa(b) = SIN(a) * 100
IF iwa(b) < 0 THEN iwa(b) = iwa(b) + 255
NEXT a

b = 0
FOR a = pi / 2 TO 2.5 * pi STEP (2 * pi / 40)
b = b + 1
owa(b) = SIN(a) * 100
IF owa(b) < 0 THEN owa(b) = owa(b) + 255
NEXT a

FOR a = 1 TO 20
iwad$ = iwad$ + CHR$(iwa(a))
NEXT a

FOR a = 1 TO 40
owad$ = owad$ + CHR$(owa(a))
NEXT a



b$ = COMMAND$
file2$ = b$
file1$ = ""
FOR a = 1 TO LEN(b$)
c$ = RIGHT$(LEFT$(b$, a), 1)
IF c$ = "." OR c$ = " " THEN GOTO 1
file1$ = file1$ + c$
NEXT a
1
file1$ = file1$ + ".xi"
END SUB