Remove bad examples. Improve comments. master
authorSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Thu, 26 Sep 2024 21:11:12 +0000 (00:11 +0300)
committerSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Thu, 26 Sep 2024 21:11:12 +0000 (00:11 +0300)
Networking/file2com.bas [deleted file]
Networking/setspeed.bas [deleted file]
Sound/siren1.bas
Sound/siren2.bas

diff --git a/Networking/file2com.bas b/Networking/file2com.bas
deleted file mode 100755 (executable)
index 314dec0..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-' file -> COM\r
-' made by Svjatoslav Agejenko\r
-' in 2003.12\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslav@svjatoslav.eu\r
\r
-DIM SHARED byte AS STRING * 1\r
-OPEN COMMAND$ FOR BINARY AS #1\r
-\r
-1\r
-IF EOF(1) <> 0 THEN GOTO 2\r
-GET #1, , byte\r
-OUT 1016, ASC(byte)\r
-\r
-FOR b = 1 TO 10\r
-  SOUND 0, .05\r
-NEXT b\r
-GOTO 1\r
-2\r
-CLOSE #1\r
-\r
diff --git a/Networking/setspeed.bas b/Networking/setspeed.bas
deleted file mode 100755 (executable)
index 1159bd6..0000000
+++ /dev/null
@@ -1,4 +0,0 @@
-OPEN "com2:9600,n,8,1,rs,cd0,cs0,ds0,tb2048,rb2048 " FOR OUTPUT AS #1\r
-\r
-CLOSE #1\r
-\r
index 272e0cb..268153b 100755 (executable)
@@ -1,4 +1,4 @@
-' Program to play sound that resembles alarm.\r
+' Program to play sound that resembles security alarm.\r
 ' By Svjatoslav Agejenko.\r
 ' Email: svjatoslav@svjatoslav.eu\r
 ' Homepage: http://www.svjatoslav.eu\r
index 08a00a8..8d5a929 100755 (executable)
@@ -1,3 +1,5 @@
+' This program emits sound taht resembles security alarm\r
+\r
 DEFINT A-Z\r
 1\r
 FOR a = 100 TO 1000 STEP 3\r
@@ -9,4 +11,3 @@ SOUND a, .05
 SOUND a * 3 + 10, .05\r
 NEXT a\r
 GOTO 1\r
-\r