From: Svjatoslav Agejenko Date: Fri, 6 Sep 2024 22:02:53 +0000 (+0300) Subject: Making it easier to understand data sound codec. X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=ffb8b4771754e455b04b3a9a4dda032701d5c7a5;p=qbasicapps.git Making it easier to understand data sound codec. --- diff --git a/Networking/Digital data over analog audio channel/code.bat b/Networking/Digital data over analog audio channel/code.bat deleted file mode 100644 index 55a4066..0000000 --- a/Networking/Digital data over analog audio channel/code.bat +++ /dev/null @@ -1 +0,0 @@ -qb /run msg2xi /cmd test.txt \ No newline at end of file diff --git a/Networking/Digital data over analog audio channel/decode.bat b/Networking/Digital data over analog audio channel/decode.bat deleted file mode 100644 index 3668bbd..0000000 --- a/Networking/Digital data over analog audio channel/decode.bat +++ /dev/null @@ -1 +0,0 @@ -qb /run xi2msg /cmd test.xi \ No newline at end of file diff --git a/Networking/Digital data over analog audio channel/index.html b/Networking/Digital data over analog audio channel/index.html deleted file mode 100755 index c469ea4..0000000 --- a/Networking/Digital data over analog audio channel/index.html +++ /dev/null @@ -1,17 +0,0 @@ - -data in sound - - - -

data in sound

-
-
-
-Utility to encode/decode digital information into wave sound file. -You can later record it on the tape or send it acustically or -for example over telephone line. Decoding utility -is petty noise tolerant. - -

- - \ No newline at end of file diff --git a/Networking/Digital data over analog audio channel/msg2xi.bas b/Networking/Digital data over analog audio channel/msg2xi.bas index 5316d07..12b06e1 100644 --- a/Networking/Digital data over analog audio channel/msg2xi.bas +++ b/Networking/Digital data over analog audio channel/msg2xi.bas @@ -17,8 +17,11 @@ DIM SHARED bytee AS STRING * 1 start -OPEN file1$ FOR BINARY AS #1 -OPEN file2$ FOR BINARY AS #2 +file1$ = "input.txt" +file2$ = "sound.xi" + +OPEN file1$ FOR BINARY AS #2 +OPEN file2$ FOR BINARY AS #1 FOR a = 1 TO 50 iadd @@ -33,6 +36,8 @@ IF EOF(2) = 0 THEN GOTO 2 CLOSE #2 CLOSE #1 +PRINT "Encoding of message into sound completed" + SYSTEM SUB byt (a) @@ -58,9 +63,8 @@ PUT #1, , owad$ END SUB SUB start -IF COMMAND$ = "" THEN END -pi = 3.141592654# +pi = 3.141592653999996# b = 0 FOR a = pi / 2 TO 2.5 * pi STEP (2 * pi / 20) @@ -84,17 +88,5 @@ 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 diff --git a/Networking/Digital data over analog audio channel/sshot.png b/Networking/Digital data over analog audio channel/sshot.png deleted file mode 100755 index 87a3a0a..0000000 Binary files a/Networking/Digital data over analog audio channel/sshot.png and /dev/null differ diff --git a/Networking/Digital data over analog audio channel/test.msg b/Networking/Digital data over analog audio channel/test.msg deleted file mode 100755 index 7019c2b..0000000 --- a/Networking/Digital data over analog audio channel/test.msg +++ /dev/null @@ -1 +0,0 @@ -This is a sample encoded message ! ... \ No newline at end of file diff --git a/Networking/Digital data over analog audio channel/test.txt b/Networking/Digital data over analog audio channel/test.txt deleted file mode 100755 index 7019c2b..0000000 --- a/Networking/Digital data over analog audio channel/test.txt +++ /dev/null @@ -1 +0,0 @@ -This is a sample encoded message ! ... \ No newline at end of file diff --git a/Networking/Digital data over analog audio channel/test.xi b/Networking/Digital data over analog audio channel/test.xi deleted file mode 100755 index d531fbd..0000000 Binary files a/Networking/Digital data over analog audio channel/test.xi and /dev/null differ diff --git a/Networking/Digital data over analog audio channel/xi2msg.bas b/Networking/Digital data over analog audio channel/xi2msg.bas index 578b1bf..881ac25 100644 --- a/Networking/Digital data over analog audio channel/xi2msg.bas +++ b/Networking/Digital data over analog audio channel/xi2msg.bas @@ -34,8 +34,8 @@ DIM SHARED px start messa "searching for beginning..." -OPEN file1$ FOR BINARY AS #1 -OPEN file2$ FOR BINARY AS #2 +OPEN "output.txt" FOR BINARY AS #1 +OPEN "sound.xi" FOR BINARY AS #2 SEEK #2, 360 2 @@ -226,21 +226,9 @@ END IF END SUB SUB start -IF COMMAND$ = "" THEN END SCREEN 12 -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$ + ".msg" - bufi = 0 beg = 0 statl = 0