projects / qbasicapps.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 35dd0fb)
Making it easier to understand data sound codec.
authorSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Fri, 6 Sep 2024 22:02:53 +0000 (01:02 +0300)
committerSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Fri, 6 Sep 2024 22:02:53 +0000 (01:02 +0300)
Networking/Digital data over analog audio channel/code.bat [deleted file] patch | blob | history
Networking/Digital data over analog audio channel/decode.bat [deleted file] patch | blob | history
Networking/Digital data over analog audio channel/index.html [deleted file] patch | blob | history
Networking/Digital data over analog audio channel/msg2xi.bas patch | blob | history
Networking/Digital data over analog audio channel/sshot.png [deleted file] patch | blob | history
Networking/Digital data over analog audio channel/test.msg [deleted file] patch | blob | history
Networking/Digital data over analog audio channel/test.txt [deleted file] patch | blob | history
Networking/Digital data over analog audio channel/test.xi [deleted file] patch | blob | history
Networking/Digital data over analog audio channel/xi2msg.bas patch | blob | history

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 (file)
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 (file)
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 (executable)
index c469ea4..0000000
--- a/Networking/Digital data over analog audio channel/index.html
+++ /dev/null
@@ -1,17 +0,0 @@
-<HTML>\r
-<HEAD><TITLE>data in sound</TITLE></HEAD>\r
-\r
-<BODY text=#A0A0ff vLink=#0000ff aLink=#0000ff link=#0000ff bgColor=#000000>\r
-\r
-<CENTER><H1>data in sound</H1></CENTER>\r
-<BR>\r
-<BR>\r
-<BR>\r
-Utility to encode/decode digital information into wave sound file.\r
-You can later record it on the tape or send it acustically or\r
-for example over telephone line. Decoding utility\r
-is petty noise tolerant.\r
-\r
-<BR><IMG SRC="sshot.png">\r
-</BODY>\r
-</HTML>
\ 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 (file)
--- 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
 \r
 start\r
 \r
-OPEN file1$ FOR BINARY AS #1\r
-OPEN file2$ FOR BINARY AS #2\r
+file1$ = "input.txt"\r
+file2$ = "sound.xi"\r
+\r
+OPEN file1$ FOR BINARY AS #2\r
+OPEN file2$ FOR BINARY AS #1\r
 \r
 FOR a = 1 TO 50\r
 iadd\r
@@ -33,6 +36,8 @@ IF EOF(2) = 0 THEN GOTO 2
 CLOSE #2\r
 CLOSE #1\r
 \r
+PRINT "Encoding of message into sound completed"\r
+\r
 SYSTEM\r
 \r
 SUB byt (a)\r
@@ -58,9 +63,8 @@ PUT #1, , owad$
 END SUB\r
 \r
 SUB start\r
-IF COMMAND$ = "" THEN END\r
 \r
-pi = 3.141592654#\r
+pi = 3.141592653999996#\r
  \r
 b = 0\r
 FOR a = pi / 2 TO 2.5 * pi STEP (2 * pi / 20)\r
@@ -84,17 +88,5 @@ FOR a = 1 TO 40
 owad$ = owad$ + CHR$(owa(a))\r
 NEXT a\r
 \r
-\r
-\r
-b$ = COMMAND$\r
-file2$ = b$\r
-file1$ = ""\r
-FOR a = 1 TO LEN(b$)\r
-c$ = RIGHT$(LEFT$(b$, a), 1)\r
-IF c$ = "." OR c$ = " " THEN GOTO 1\r
-file1$ = file1$ + c$\r
-NEXT a\r
-1\r
-file1$ = file1$ + ".xi"\r
 END SUB\r
 \r
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 (executable)
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 (executable)
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 (executable)
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 (executable)
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 (file)
--- 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\r
 messa "searching for beginning..."\r
 \r
-OPEN file1$ FOR BINARY AS #1\r
-OPEN file2$ FOR BINARY AS #2\r
+OPEN "output.txt" FOR BINARY AS #1\r
+OPEN "sound.xi" FOR BINARY AS #2\r
 SEEK #2, 360\r
 \r
 2\r
@@ -226,21 +226,9 @@ END IF
 END SUB\r
 \r
 SUB start\r
-IF COMMAND$ = "" THEN END\r
 \r
 SCREEN 12\r
 \r
-b$ = COMMAND$\r
-file2$ = b$\r
-file1$ = ""\r
-FOR a = 1 TO LEN(b$)\r
-c$ = RIGHT$(LEFT$(b$, a), 1)\r
-IF c$ = "." OR c$ = " " THEN GOTO 1\r
-file1$ = file1$ + c$\r
-NEXT a\r
-1\r
-file1$ = file1$ + ".msg"\r
-\r
 bufi = 0\r
 beg = 0\r
 statl = 0\r
Unnamed repository; edit this file 'description' to name the repository.