From ffb8b4771754e455b04b3a9a4dda032701d5c7a5 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Sat, 7 Sep 2024 01:02:53 +0300 Subject: [PATCH] Making it easier to understand data sound codec. --- .../code.bat | 1 - .../decode.bat | 1 - .../index.html | 17 ------------- .../msg2xi.bas | 24 ++++++------------ .../sshot.png | Bin 6122 -> 0 bytes .../test.msg | 1 - .../test.txt | 1 - .../test.xi | Bin 10880 -> 0 bytes .../xi2msg.bas | 16 ++---------- 9 files changed, 10 insertions(+), 51 deletions(-) delete mode 100644 Networking/Digital data over analog audio channel/code.bat delete mode 100644 Networking/Digital data over analog audio channel/decode.bat delete mode 100755 Networking/Digital data over analog audio channel/index.html delete mode 100755 Networking/Digital data over analog audio channel/sshot.png delete mode 100755 Networking/Digital data over analog audio channel/test.msg delete mode 100755 Networking/Digital data over analog audio channel/test.txt delete mode 100755 Networking/Digital data over analog audio channel/test.xi 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 87a3a0a5060581bdef5e5fa85f657575b2f42ba9..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 6122 zcmcgwc~n#PwhmZlEv<^60$QzLMMMQuX00Fs8XPKA5Kxf8LI@EdBq0gb0Re$p6;uN0 z1yK|ekRbs=5<~_OND4?Igyc{H1PCEQCdl~W?VWmU@4ENCx88qe?e#nRoW1w=?ce@( z`f;$=%4O@9fk2>@-bXx6f;PqBeR3+V3_UToc#zlQl&&PKf>}%&s~}q@mcQ>Be(-a)2*rs} z$0XKI<7*Cx(2t$1&{xV#t=>;gCH{!?Cs;B~I@}0-d9=o@X090?Vv*`FR4LE-g<&xiyaKrQ6MPP3lcW455MND+Dh>2Yd&pQsmQfd)uw^bRLa+3 zz7xxFKzH#Gsl{s{W1nP2~zp~~6LL&!#B4TB9pwsu3`*RSa@8Okp%XLC3^h2o^yf#CPT zZ67jVvk7IpK3VFy)TsXCsj-z+k8IB4uHrF*v{4i=reb_m3k{TkO z6B@WbL73!i9d|7p6VA~BIi*WKgnw%_)re}c(hPf|sof{#B^6#tI@^p(2pv*;KsoYQ zE40B)7K+N_>SNjo`THLdl#tEcP>BesZ8+Peq=7!`?6d=U+|fTAQyLzypI8p+eq;;s zkYsHc8X=Ns(23-*0Rj6AhgYwuVDTS;8|#}^e?UPQK^){%m@4;7WRb{W?q51(g$5*p zm4+z^QW+YRL+_KX?VGr~-igWG)nihd0W+NaWjqrkC$Z&mxNoqZqA+i?K1##9U4fU= zdDYDg(pR}veI5mt-7#5PQaK`|P-Vd#kdp%Q-~=#7gClN1U-31yso!CEKS?RNM{AtV zO4?>Zy(oAWV#frTaZa!nU>K2f&DVF!h^cmz0VS=3zcf1Znh_KkKf*2onP^dCI zu=-B4AFk3_u`qS-ER#@T3$nlCD4BX@{SVc4Q!E6>Rm)&rLBPI9-3Z$|CkjPpDHe|Z z)p$;~rqBD<6L0zhp=!|&G!SqWf(EFQITd(#LrIBrAu$Y>nqmsM{jyk$KX`#L;u|`& z>ag?OOkOpSe}=N5RqlLzj5$IXTeqLy&1y5(zpOuaQX)g+bL`K!?@!a0a8+x1Zd&)+ zbuLQnIv?;Qy$3xSK6vPEJ+(bb9a(5lTMrg4wtA!0lX+euV2%YFt_b6EZFp`G;i@q> zXNiR$<5b4v^QO&K6^u+|-5fpH*NI~&fD3{`z^0L*~_MkG+ z_H$@`KZ_h&_fOpYK<4?@&*Lw#6cCP9b|#3HYp0K*Tvt!+B`4~+7s*m^;V54fHwFy^ z6^oFf(V15RLnXG2mH|Nkxm`|-=*bpp7tyozC|;Jif&{^OI6qeD^Rx4O^|tjkKJauN z&iPn&6(c-|h*-p6Drpc7xl&J@FfQOuduO3vW-~BONIg$-t z%nk~hIGJ77A0*lNFmGiLbQSobp7&ls<$uO;zdk^o20VqBra)ITXrESVNHxhKKI9yd;bG&jGSJKz7^H9qt!v+h293Y&fzhbwan(`|V-N9K9w z-DD5libHYFf~|if>eTG|yd)Sd9b;EEDrU~lNfd{WILeft>6_@x=`2$8&=OUYf@2F5 z@s4O}33!+lqnT}yqJ~ba(+u+^=)0%fqspn^)yFU)W`aOEG-5hU`l}C(+{&zJNq1$5 zwwqIKjIg*SXe+(%i)Aqup@QZH6^I?+WNt(ZYjWgmdG4wCM3C{-ezf}b;SEM_zjDnM zUmA3WsT|U)D)rbKt5v{I@BksA8O*3QJdCiEn@$xCqm!Q8e%t4cRBd*qsg^pA&fQli zjtsM_Ufutb{ca4YL?MXgZ-lrUk1CCRT8fp*J&B)D$pQhbWMiJ&#;4Kz5YKcn8|7_IdL!!*b2CpGjUhJei~mlmmti?kqH)x#0kIi{i_6`GcUK@-W=W$=4p=~*7-L38e$slm+dar+I z@NRL|>=5Wz1Cx}V+xs+cPS_V_y!4~}>Fr>krdw`T?cmsKjJ~?5+gIA|$H4w9FYyJCn2b2_tuA4R_AcX7`~V=jKI8FCFe_zi0+v6W>0>$#~%bd%Exfv3Vmv ztXCrIupW%1H1`S=vD3CWK~L%q`_0OYHtHu+u~m|vJ_wt=Af?~rn^ znA2VRyEhaM#ch!IUEcyc`|_Kds7lX*Yv_#Q5cTJV_PgmvlV`@sn$kH^6PW@zO1wwK zqg@But5$LJ7p->y}2}Luv_9laf zzeUJ%F{P&0LsfK=F!?sIyKfT!5mZ{H)fPeLMyj!Be=z^g)!l%_u)Bn|N&BAC=WOm1 zy$Cs+*x;XFam5A|-NRgC9`D5_x&|`ZNDa{NMAogLZ&4CuCbvt-OsF`W6Z2fmxvc>O z{H#h24y40XH+V_)>~5$|7ys(OPmzUdC?ev~+?~2W=71 zUP6O-&rJOox$<|d7Lp!9Yh4HIyWKEy-u0mQi~i!?%3!c+{iLgQUQpRZ`PTXM3Td7A zAl7l!^lA9x*h^snZ=p~9`8x=`>XX-N_C4ZQCq$HBkZlLG{xIdwGj&=!#AVTY@_k79ma&nSExyFH*qwwsrpzK~ z(lMglLzg|}?ohl17DF#d+}>IjO#mwe^_bp`n{2?*IqwT|7JQ}A^uN=JPJOSZDSbu^ z!`u`q6|^Lrw;7gn`R=p$E*ZN2HhcL{hEP>$TW->*Pjv)5#CB--IqZ{P2gwhUrAQ&5 zrCT@n((mK+GugA#1@$}Y*N;$mT{TE_uipcA;d9j;eh6(Sw zY;CN4a-ha-hk%F0O-&9=4UbauY>K;e*QZuC-yA{nqc8bh3*u#!uH^v!k5`&RB?tDM z*${PInnhlvXnivQhXEw2;uJ&cee3+Cgt81&Bw?l74C-F8+2mdA=J}Rl{6?}^!9{Dx z6j>Yq5%aMNl)>sRG5n)}%9(kibdk*@TqNsS7d3{t>e$_J9D`SZ4Qr*i$LW880U*ka z0rqq}&UgJj>3#Um=m|#8uG@tt2Y41f=zIjGYpD4}tlNe&f;cK?*5Igx8GiMri%uYu zXE52s?PB}>HzU%W1Em%!y)OOhXAnujY~sa%Iy)f2{2TQ9_}i zgHYAOV#8Pzb3`m?@vs|Hg(^T;%-hFlk9`T6oJ#34HVSVQHGi>aY5Wq#Up3N4qUm=H z1@35FZ2gywZ2FE}phkazUns~l>x0Dl-P6AjVgJ`B0*@;(8s(``{}u&uI^>=Kcw8c> zf}7;Gs zU;TenijNGsV}QuI%^cQJKi09ZkmEpJ|C6irinTAAHvRWLKYT>>EgMOx(=5FzNb;S{O92DAmy4bVu0r zgCLTfWX0d_h~I1<{@CZJv@5jtv1oGN?wARC@#vs0r~oAd$&qY?h$Y+(I^IYnX4JBc{}rgHegKuWbbyps0WB}&$5aa5ElY*{ zaewIW0c!rRD4=i0o|SDT)*GIq#Ye>!+L48!&MhF2<5arm`8R|h;y0|r%o3;oT?3tdH--@U13^Xi#&ap zBV6MEejAz+FG`E5>LmJ-V+fi+dWoaBfZZYXQxyZ{(A$H1Jpzk5#_km2e-ogWJgyq1cEZETOoEEkx|aeLA5Q zeODtuiM{t;n(lB5u?=jeTaMSDxt$WZQ@IH5ZdLfB-Kz(utP+xskz#yR>NdJo=R+)# zr+<;SUch0;h??u$t+wEDosX@BJ@HN&iH$rUAukEpa_K(eMtHJo3;_SK0a<`Zs@pT) z>GEp#{>MfgzK0eH{&|!5hg|;KuJNBwTvMslgZkzcZ}T6H7r%R3{q17;sPFy%7<7xT ZntPn6*`2&mzrzQ4dxAZPU!VK_e*n7>j#&Tz 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 d531fbd58e6618daceb2ae6b27a8eff3c360be1d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 10880 zcmeI2y%B;?5QHtk4yeEiD8QJ|h(Nm1fXI-T0;s?W=)e-RfiKvZy}9>fUb?e?w}6q; zIP~3j-WwH#(zsKiZkFf4n2Q^FQvAu>tKuSg9^*E_EhM^()15I+K<#^)}KH=J+{U z>Oz>BQ9F-rBTT)6w1laC(LCxxSVpdzQF}l2j@o&&GhxwpI2qB}3_mAB-JUWCQ~jcO z)P*oLm$ZaM`%wmA(YdOh%5yra87hyu5T^R6JSQVs>-c5dt7b&=GIojX9PLLN5T@pm zmN3W9(K=n6+)`S)moT-T%A*XzqWzqV=q{!F)ZA#Evps1E%jitGgsELfOPK1X@|+Au wo6%3rI0`T0c|>oO(K#a{dY4ju&Q_#Vv39Tb{~>ihdLE9J{0LJs8qazUe%f~{`~Uy| 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 -- 2.20.1